根據稅碼取得稅率函式

自己寫的根據稅碼取得稅率函式[@more@]

實現原始碼：

FUNCTION ZFN_GET_DUTY_RATE. *"---------------------------------------------------------------------- *"
*"區域介面：
*" IMPORTING
*" VALUE(I_MWSKZ) TYPE MWSKZ
*" EXPORTING
*" VALUE(E_ZDUTY) TYPE ZDUTY
*"----------------------------------------------------------------------

TABLES: A003,KONP.
CLEAR A003.
SELECT SINGLE * FROM A003 WHERE KAPPL = 'TX' AND ALAND = 'CN' AND MWSKZ = I_MWSKZ.
IF SY-SUBRC = 0.
CLEAR KONP.
SELECT SINGLE * FROM KONP WHERE KNUMH = A003-KNUMH AND KOPOS = 1.
IF SY-SUBRC = 0.
E_ZDUTY = KONP-KBETR / 1000.
ENDIF.

ENDIF.

ENDFUNCTION.