| DATA: ITEM_DATA TYPE VBAPKOM OCCURS 0 WITH HEADER LINE, | ||||||
| ITEM_DATA_OUT TYPE VBAP OCCURS 0 WITH HEADER LINE, | ||||||
| ITEM_DATAX TYPE VBAPKOMX OCCURS 0 WITH HEADER LINE, | ||||||
| PARTNER_DATA TYPE VBPAKOM OCCURS 0 WITH HEADER LINE, | ||||||
| RETURN_DATA TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE, | ||||||
| SCHEDULE_DATA TYPE VBEPKOM OCCURS 0 WITH HEADER LINE, | ||||||
| SCHEDULE_DATAX TYPE VBEPKOMX OCCURS 0 WITH HEADER LINE. | ||||||
| MD81作成： | ||||||
| *----Header data(追加) | ||||||
| HEADER_DATA-AUART = '01'. | ||||||
| HEADER_DATAX-AUART = 'X'. | ||||||
| HEADER_DATAX-UPDKZ = 'I'. "更新区分 | ||||||
| *----Item data | ||||||
| ITEM_DATA-POSNR = '000010'. | ||||||
| ITEM_DATA-MATNR = 'ZTST23'. | ||||||
| ITEM_DATA-WERKS = 'A501'. | ||||||
| ITEM_DATA-ZIEME = 'PC'. | ||||||
| ITEM_DATA-BEDAE = 'KEV'. | ||||||
| APPEND ITEM_DATA. | ||||||
| ITEM_DATAX-POSNR = '000010'. | ||||||
| ITEM_DATAX-UPDKZ = 'I'. | ||||||
| ITEM_DATAX-MATNR = 'X'. | ||||||
| ITEM_DATAX-ZIEME = 'X'. | ||||||
| ITEM_DATAX-WERKS = 'X'. | ||||||
| ITEM_DATAX-BEDAE = 'X'. | ||||||
| APPEND ITEM_DATAX. | ||||||
| SCHEDULE_DATA-POSNR = '000010'. | ||||||
| SCHEDULE_DATA-WMENG = 10. | ||||||
| APPEND SCHEDULE_DATA. | ||||||
| SCHEDULE_DATAX-POSNR = '000010'. | ||||||
| SCHEDULE_DATAX-WMENG = 'X'. | ||||||
| APPEND SCHEDULE_DATAX. | ||||||
| MD82：受注数量更新 | ||||||
| HEADER_DATA-AUART = '01'. | ||||||
| HEADER_DATA-VBELN = '0050000133'. | ||||||
| HEADER_DATAX-UPDKZ = 'U'. "更新区分 | ||||||
| SCHEDULE_DATA-POSNR = '000010'. | ||||||
| SCHEDULE_DATA-ETENR = '0001'. | ||||||
| SCHEDULE_DATA-WMENG = 30. | ||||||
| APPEND SCHEDULE_DATA. | ||||||
| SCHEDULE_DATAX-POSNR = '000010'. | ||||||
| SCHEDULE_DATAX-ETENR = '0001'. | ||||||
| SCHEDULE_DATAX-UPDKZ = 'U'. | ||||||
| SCHEDULE_DATAX-WMENG = 'X'. | ||||||
| APPEND SCHEDULE_DATAX. | ||||||
| MD82：拒否理由更新 | ||||||
| HEADER_DATA-AUART = '01'. | ||||||
| HEADER_DATA-VBELN = '0050000133'. | ||||||
| HEADER_DATAX-UPDKZ = 'U'. "更新区分 | ||||||
| ITEM_DATA-POSNR = '000010'. | ||||||
| ITEM_DATA-ABGRU = '00'. | ||||||
| APPEND ITEM_DATA. | ||||||
| * | ||||||
| * | ||||||
| ITEM_DATAX-POSNR = '000010'. | ||||||
| ITEM_DATAX-UPDKZ = 'U'. | ||||||
| ITEM_DATAX-ABGRU = 'X'. | ||||||
| APPEND ITEM_DATAX. | ||||||
| CALL FUNCTION 'SD_SALES_DOCU_MAINTAIN' | ||||||
| EXPORTING | ||||||
| I_VBAKKOM = HEADER_DATA | ||||||
| I_VBAKKOMX = HEADER_DATAX | ||||||
| WITH_COMMIT = 'X' | ||||||
| I_CALL_BAPI = 'X' | ||||||
| SUPPRESS_AVAILIBILITY_DIA = 'X' | ||||||
| STATUS_BUFFER_REFRESH = 'X' | ||||||
| IMPORTING | ||||||
| E_VBAK = HEADER_OUT | ||||||
| TABLES | ||||||
| IX_VBAPKOM = ITEM_DATA | ||||||
| IX_VBAPKOMX = ITEM_DATAX | ||||||
| IX_VBEPKOM = SCHEDULE_DATA | ||||||
| IX_VBEPKOMX = SCHEDULE_DATAX | ||||||
| RETURN = RETURN_DATA. | ||||||
2018年11月13日星期二
MD81 bapi
订阅：
博文评论 (Atom)
没有评论:
发表评论