GW_PRITEM-PREQ_ITEM = XVBAP-POSNR.
GW_PRITEM-PREQ_NAME = SY-UNAME.
GW_PRITEM-MATERIAL = XVBAP-MATNR.
GW_PRITEM-PLANT = XVBAP-WERKS.
GW_PRITEM-QUANTITY = XVBAP-KWMENG.
GW_PRITEM-FIXED = 'X' .
GW_PRITEM-PUR_GROUP = LV_EKGRP.
APPEND GW_PRITEM TO GT_PRITEM .
GW_PRITEMX-PREQ_ITEM = XVBAP-POSNR .
GW_PRITEMX-MATERIAL = 'X'.
GW_PRITEMX-PLANT = 'X'.
GW_PRITEMX-QUANTITY = 'X'.
GW_PRITEMX-DELIV_DATE = 'X'.
GW_PRITEMX-FIXED = 'X' .
GW_PRITEMX-PREQ_NAME = 'X'.
IF GW_PRITEM-PUR_GROUP <> '' .
GW_PRITEMX-PUR_GROUP = 'X'.
ENDIF .
APPEND GW_PRITEMX TO GT_PRITEMX .
ENDLOOP.
CALL FUNCTION 'BAPI_PR_CHANGE'
EXPORTING
NUMBER = LV_BANFN
TABLES
RETURN = GT_BAPIRETURN
PRITEM = GT_PRITEM
PRITEMX = GT_PRITEMX .
修改采购申请
最新推荐文章于 2023-12-08 16:02:36 发布