BAPI_PO_CHANGE 采購訂單修改服務

修改服務頁簽里面的價格和數量，達到修改凈價和條件里面金額的目的

數據可以通過采購訂單查詢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