BAPI_PO_CHANGE 采购订单修改服务

最新推荐文章于 2022-10-14 14:42:13 发布

斌将军

最新推荐文章于 2022-10-14 14:42:13 发布

阅读量926

点赞数 1

分类专栏： ABAP 文章标签： ABAP

本文链接：https://blog.csdn.net/BinGeneral/article/details/127082729

版权

ABAP 专栏收录该内容

120 篇文章 19 订阅

订阅专栏

修改服务页签里面的价格和数量，达到修改净价和条件里面金额的目的

数据可以通过采购订单查询ESLH和ESLL表获取

"-----------------------------------------@斌将军--------------------------------------------
POITEM-PO_ITEM = '00010'.
POITEM-NET_PRICE = Z_NETPR.
POITEM-PCKG_NO = '66628'.
APPEND POITEM .


POITEMX-PO_ITEM = '00010'.
POITEMX-PO_ITEMX = 'X'.
POITEMX-NET_PRICE = 'X'.
POITEMX-PCKG_NO = 'X'.
APPEND POITEMX.

CLEAR:POSERVICES.
POSERVICES-PCKG_NO = '66628'. "头包
POSERVICES-LINE_NO = 1 .
POSERVICES-EXT_LINE = '0000000000' .
POSERVICES-OUTL_LEVEL = '0'.
POSERVICES-OUTL_NO = ' '.
POSERVICES-OUTL_IND = 'X'.
POSERVICES-SUBPCKG_NO = '66629'.
POSERVICES-EDITION = '0000' .
APPEND POSERVICES.

CLEAR:POSERVICES.
POSERVICES-PCKG_NO = '66629'. "子包
POSERVICES-LINE_NO = 2.                  
POSERVICES-EXT_LINE = '10'.
POSERVICES-OUTL_LEVEL = '0'.
POSERVICES-EDITION = '0000' .
POSERVICES-BASE_UOM = 'LE' .
POSERVICES-QUANTITY = 1 .
POSERVICES-PRICE_UNIT = '1' .
POSERVICES-OVF_TOL = '0' .
POSERVICES-SHORT_TEXT = '测试'.
POSERVICES-GR_PRICE = Z_NETPR .
POSERVICES-MATL_GROUP = '&DB001'.
APPEND POSERVICES.

CLEAR:POSRVACCESSVALUES.
POSRVACCESSVALUES-PCKG_NO = '66629'.
POSRVACCESSVALUES-LINE_NO = '2'.
POSRVACCESSVALUES-QUANTITY = 1.
POSRVACCESSVALUES-NET_VALUE = Z_NETPR.
APPEND POSRVACCESSVALUES.

CALL FUNCTION 'BAPI_PO_CHANGE'
　　EXPORTING
　　　　PURCHASEORDER     = PURCHASEORDER
* IMPORTING
*　　　 EXPHEADER         =
*      EXPPOEXPIMPHEADER =
　　TABLES
       RETURN            = RETURN[]
       POITEM            = POITEM
       POITEMX           = POITEMX
       POCOND            = T_COND
       POCONDX           = T_CONDX
       POSERVICES        = POSERVICES
       POSRVACCESSVALUES = POSRVACCESSVALUES
"-----------------------------------------@斌将军--------------------------------------------