由于某些原因,SAP销售订单发生批量错误,例如某个字段全部取错值了,需要批量刷新值。
此时靠人工去改往往是不现实的,可以借助BAPI函数BAPI_SALESORDER_CHANGE针对特定字段进行修改。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 |
REPORT ZFITEST008. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME. PARAMETERS P_VBELN TYPE VBAK-VBELN OBLIGATORY. PARAMETERS P_PRCTR TYPE CEPC-PRCTR . SELECTION-SCREEN END OF BLOCK B1. DATA: LS_HEADER_MARK TYPE BAPISDH1X, LS_HEADER_IN TYPE BAPISDH1, LT_ITEM TYPE TABLE OF BAPISDITM, LS_ITEM TYPE BAPISDITM, LT_ITEMX TYPE TABLE OF BAPISDITMX, LS_ITEMX TYPE BAPISDITMX, LT_RETURN_TMP TYPE TABLE OF BAPIRET2. START-OF-SELECTION. * SELECT COUNT(*) FROM LIPS WHERE VGBEL = P_VBELN. * IF SY-SUBRC IS INITIAL. * MESSAGE I200(GD) WITH '已经产生交货单,无法更改销售订单!'. * LEAVE LIST-PROCESSING. * ENDIF. *DATA LV_VBELN TYPE VBAK-VBELN. LS_HEADER_MARK-UPDATEFLAG = 'U'. *LS_HEADER_MARK-BILL_BLOCK = 'X'. * ls_header_in-bill_block = '10'. "test. *LS_HEADER_IN-BILL_BLOCK = ''. * CLEAR LS_ITEM. * LS_ITEM-ITM_NUMBER = 10. * LS_ITEM-PROFIT_CTR = P_PRCTR. * APPEND LS_ITEM TO LT_ITEM. CLEAR LS_ITEM. LS_ITEM-ITM_NUMBER = 10. LS_ITEM-CUST_MAT35 = 'SAP'. APPEND LS_ITEM TO LT_ITEM. CLEAR LS_ITEMX. LS_ITEMX-ITM_NUMBER = 10. * LS_ITEMX-PROFIT_CTR = 'X'. LS_ITEMX-CUST_MAT35 = 'X'. LS_ITEMX-UPDATEFLAG = 'U'. APPEND LS_ITEMX TO LT_ITEMX. CALL FUNCTION 'BAPI_SALESORDER_CHANGE' EXPORTING * SIMULATION = '' SALESDOCUMENT = P_VBELN ORDER_HEADER_INX = LS_HEADER_MARK * ORDER_HEADER_IN = LS_HEADER_IN TABLES ORDER_ITEM_IN = LT_ITEM ORDER_ITEM_INX = LT_ITEMX RETURN = LT_RETURN_TMP. LOOP AT LT_RETURN_TMP TRANSPORTING NO FIELDS WHERE TYPE = 'E' OR TYPE = 'A'. ENDLOOP. IF SY-SUBRC IS NOT INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. MESSAGE S200(GD) WITH 'Sales order updated.'. ELSE. MESSAGE S200(GD) WITH 'Can not update Sales Order!' DISPLAY LIKE 'E'. ENDIF. * 若已有交货单,不允许改SO,可在开票环节增强RV60AFZC修改利润中心.(FORM USEREXIT_FILL_VBRK_VBRP.) |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/10014.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。