bseg

或

清除LS_TAXCOM。
LS_TAXCOM-BUKRS = LS_EKKO-BUKRS。
LS_TAXCOM-BUDAT = LS_EKKO-AEDAT。
LS_TAXCOM-BLDAT = LS_EKKO-BEDAT。
LS_TAXCOM-WAERS = WA。
LS_TAXCOM-HWAER = LS_EKKO-WAERS。
LS_TAXCOM-KPOSN = LS_EKPO-EBELP。
LS_TAXCOM-MWSKZ = LS_EKPO-MWSKZ。
LS_TAXCOM-WRBTR = LS_EKPO-NETX。
='X'。
LS_TAXCOM-SHKZG ='H'。
LS_TAXCOM-TXJCD = LS_EKPO-TXJCD。
LS_TAXCOM-LIFNR = LS_EKKO-LIFNR。
LS_TAXCOM-EKORG = LS_EKKO-EKORG。 br> LS_TAXCOM-MATNR = LS_EKPO-MATNR。
LS_TAXCOM-WERKS = LS_EKPO-WERKS。
LS_TAXCOM-MATKL = LS_EKPO-MATKL。
LS_TAXCOM-MEINS = LS_EKPO-MEINS = LS_TA LS_EKPO-MENGE。
LS_TAXCOM-MTART = LS_EKPO-MTART。
LS_TAXCOM-LAND1 = LS_EKKO-LANDS。
LS_TAXCOM-EBELN = LS_EKKO-EBELN。
LS_TAXCOM-EBELP = LS_EKPO-PBEL > LS_TAXCOM-BWTAR = LS_EKPO-BWTAR。



REFRESH：LT_KOMV []。

呼叫功能'CALCULATE_TAX_ITEM'
导出
DIALOG ='DIAKZ'
DISPLAY_ONLY ='X'
I_TAX COM = LS_TAXCOM
表格
T_XKOMV = LT_KOMV
例外情况
MWSKZ_NOT_DEFINED = 1
MWSKZ_NOT_FOUND = 2
MWSKZ_NOT_VALID = 3
STEUERBETRAG_FALSCH = 4
TXJCD_NOT_VALID = 6
其他=7。

将LT_KOMV放入LS_KOMV。

例LS_KOMV-KVSL1。
当'JII'。
LS_FINAL-IGST = LS_FINAL- IGST +（（LS_KOMV-KBETR/1000）* LS_RSEG-WRBTR）。
当'JIC'时。
LS_FINAL-CGST = LS_FINAL-CGST +（（LS_KOMV-KBETR/1000）* LS_RSEG-WRBTR）。 br>当'JIS'。
LS_FINAL-SGST = LS_FINAL-SGST +（（LS_KOMV-KBETR/1000）* LS_RSEG-WRBTR）。
当'JIM'。
LS_FINAL-IMGST = LS_FINAL-IMGST +（（LS_KOMV-KBETR/1000）* LS_RSEG-WRBTR）。
ENDCASE。

ENDLOOP。