공급가액에 따른 부가세 자동계산 (KR)
FUNCTION Z_CALC_VAT.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(BIAMT) OPTIONAL
*" REFERENCE(MWSKZ) LIKE T007A-MWSKZ
*" EXPORTING
*" VALUE(KBETR) LIKE KONP-KBETR
*" VALUE(BITAX)
*" VALUE(BITOT)
*"----------------------------------------------------------------------
* Make by Franklee
*"----------------------------------------------------------------------
DATA : LS_A003 LIKE A003,
LS_KONP LIKE KONP.
CLEAR : KBETR, BITAX, BITOT.
CLEAR : LS_A003, LS_KONP.
LS_A003-MWSKZ = MWSKZ.
SELECT SINGLE * INTO LS_A003
FROM A003
WHERE KAPPL EQ 'TX'
AND ALAND EQ 'KR'
AND MWSKZ EQ LS_A003-MWSKZ.
CHECK SY-SUBRC = 0.
SELECT SINGLE * INTO LS_KONP
FROM KONP
WHERE KNUMH EQ LS_A003-KNUMH
AND LOEVM_KO EQ ''.
CHECK SY-SUBRC = 0.
KBETR = LS_KONP-KBETR / 1000.
BITAX = KBETR * BIAMT.
BITOT = BIAMT + BITAX.
ENDFUNCTION.