日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

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

發布時間:2025/3/20 编程问答 20 豆豆
生活随笔 收集整理的這篇文章主要介紹了 【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】修改销售订单库存地点的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。