【Demo】修改销售订单库存地点

 当我们使用BAPI函数“BAPI_SALESORDER_CHANGE”修改销售订单库存地点时，需要注意的是，若不加上工厂，虽不会报错，但会将库存地点置空。

【样例代码】

*&---------------------------------------------------------------------* *& Report ZTEST_CHANGE_SO *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------*REPORT ZTEST_CHANGE_SO.START-OF-SELECTION.PERFORM CHANGE_SALES_ORDER .*&---------------------------------------------------------------------* *& Form CHANGE_SALES_ORDER *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_GS_LIST text *----------------------------------------------------------------------* FORM CHANGE_SALES_ORDER .DATA: LV_MESSAGE TYPE CHAR255,LV_VBELN TYPE BAPIVBELN-VBELN,LS_LOGIC_SWITCH TYPE BAPISDLS,I_HDR TYPE BAPISDH1,I_HDRX TYPE BAPISDH1X,I_RET TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE,I_ITM TYPE BAPISDITM OCCURS 0 WITH HEADER LINE,I_ITMX TYPE BAPISDITMX OCCURS 0 WITH HEADER LINE.REFRESH: I_ITM[], I_ITMX[], I_RET[].CLEAR: I_HDR, I_HDRX.LV_VBELN = '0000000130'. I_HDRX-UPDATEFLAG = 'U'. I_ITM-ITM_NUMBER = '000010'. I_ITM-STORE_LOC = '6010'.I_ITM-PLANT = '1101'. I_ITMX-ITM_NUMBER = '000010'.I_ITMX-UPDATEFLAG = 'U'.I_ITMX-STORE_LOC = 'X'. I_ITMX-PLANT = 'X'. APPEND I_ITM.APPEND I_ITMX.CALL FUNCTION 'BAPI_SALESORDER_CHANGE'EXPORTINGSALESDOCUMENT = LV_VBELNORDER_HEADER_IN = I_HDRORDER_HEADER_INX = I_HDRX * BEHAVE_WHEN_ERROR = 'P'LOGIC_SWITCH = LS_LOGIC_SWITCHTABLESRETURN = I_RETORDER_ITEM_IN = I_ITMORDER_ITEM_INX = I_ITMX.LOOP AT I_RET WHERE TYPE = 'E' OR TYPE = 'A'.CONCATENATE I_RET-MESSAGE ';' LV_MESSAGEINTO LV_MESSAGE.ENDLOOP.IF SY-SUBRC NE 0.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.WRITE : 'Change Finished'.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' * IMPORTING * RETURN =.WRITE : LV_MESSAGE.ENDIF.ENDFORM. " CHANGE_SALES_ORDER

总结

以上是生活随笔为你收集整理的【Demo】修改销售订单库存地点的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。