FTXP:维护税码
OB40维护VST总账科目
fs00
在采购订单里只维护总价，物料的净价通过系统自动带出.
1 在采购订单的条件里定义一个进项税的条件类型，将条件类型和税码联系起来，通过开发使系统自动计算净价。
FORM FRM_KONDI_WERT_998.
*将含税价格转为不含税价
DATA: L_KBETR LIKE KONP-KBETR,
L_KNUMH LIKE KONP-KNUMH,
L_TAXRATE LIKE EKPO-NETWR,
LT_A003 LIKE A003 OCCURS 0 WITH HEADER LINE.
CLEAR: L_KNUMH, L_KBETR, LT_A003[].
*取得所有税码
SELECT * INTO TABLE LT_A003
FROM A003
WHERE KAPPL = 'TX' AND KSCHL = 'MWVS' AND ALAND = 'CN'.
*循环所有税码进行转换
READ TABLE LT_A003 WITH KEY MWSKZ = KOMP-MWSKZ.
IF SY-SUBRC = 0.
* * 取得税码对应的税率
SELECT SINGLE KBETR INTO L_KBETR
FROM KONP
WHERE KNUMH = LT_A003-KNUMH AND MWSK1 = LT_A003-MWSKZ.
L_TAXRATE = L_KBETR * 100 / 1000.
L_TAXRATE = L_TAXRATE + 10000.
*<--
DATA L_TMP LIKE XKWERT.
CLEAR L_TMP.
L_TMP = KOMP-NETWR * 10000 / L_TAXRATE. "计算出净额
* XKWERT = KOMP-NETWR - L_TMP. "税 = 含税价 - 净额
XKWERT = L_TMP - KOMP-NETWR.
* KOMP-NETWR = L_TMP. "净额
XKOMV-KBETR = L_KBETR. "价格( 条件金额或百分数 )
*-->
* XKWERT = KOMP-NETWR * 10000 / L_TAXRATE.
* KOMP-NETWR = XKWERT.
ENDIF.
ENDFORM.