采购进项税、 含税价转不含税价

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.