一、創建委外采購訂單（事務代碼ME21N）

二、將所需材料發貨至供應商處（事務代碼MB1B）

查看供應商庫存報表（事務代碼MBLB）

三、委外PO的收貨（這里使用BAPI_GOODSMVT_CREATE）

*&---------------------------------------------------------------------* *& Report ZTEST_WWJG *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------*REPORT ZTEST_WWJG.DATA:LT_RETURN TYPE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE,L_DOC TYPE MSEG-MBLNR,L_YEAR TYPE MSEG-MJAHR,LT_ITEM TYPE STANDARD TABLE OF BAPI2017_GM_ITEM_CREATE WITH HEADER LINE,LW_HEADER TYPE BAPI2017_GM_HEAD_01,LW_GM_CODE TYPE BAPI2017_GM_CODE,LV_MES TYPE CHAR255,L_LINE_ID TYPE MSEG-LINE_ID VALUE '000000',L_PARENT_ID TYPE MSEG-PARENT_ID VALUE '000000',L_LINE_DEPTH TYPE MSEG-LINE_DEPTH VALUE '00'.CLEAR:LW_HEADER,LW_GM_CODE. LW_GM_CODE-GM_CODE = '01' . "收貨入庫 LW_HEADER-PSTNG_DATE = '20190401'. "憑證中的過帳日期 LW_HEADER-DOC_DATE = '20190401'. "憑證中的憑證日期 LW_HEADER-PR_UNAME = SY-UNAME. "用戶名 LW_HEADER-REF_DOC_NO = '4500465846'. "參考訂單 LW_HEADER-HEADER_TXT = 'Subcontracting'."抬頭文本CLEAR:LT_ITEM. * 物料 LT_ITEM-MATERIAL = '51715-D8000'. * 工廠 LT_ITEM-PLANT = 'CN31'. * 批次號 *LT_ITEM-BATCH = ''. * 移動類型 LT_ITEM-MOVE_TYPE = '101'. * 庫存地點 LT_ITEM-STGE_LOC = 'F110'. * 基本單位數量 LT_ITEM-ENTRY_QNT = 10. * 輸入單位 LT_ITEM-ENTRY_UOM = 'KG'. * 訂單單位數量 LT_ITEM-PO_PR_QNT = 10. * 訂單價格單位(采購) LT_ITEM-ORDERPR_UN = 'EA'. * 采購訂單號 LT_ITEM-PO_NUMBER = 4500465846. * 采購憑證的項目編號 LT_ITEM-PO_ITEM = '00010'. * 移動標識 LT_ITEM-MVT_IND = 'B'. * 憑證行的唯一標識 L_LINE_ID = L_LINE_ID + 1. L_PARENT_ID = L_LINE_ID. LT_ITEM-LINE_ID = L_LINE_ID. APPEND LT_ITEM.CLEAR:LT_ITEM. * 移動類型 LT_ITEM-MOVE_TYPE = '543'. * 物料編號 LT_ITEM-MATERIAL = '51715-D8000-A'. * 工廠 LT_ITEM-PLANT = 'CN31'. * 特殊庫存標識 LT_ITEM-SPEC_STOCK = 'O'. * 批次號 *LT_ITEM-BATCH = ''. * 數量 LT_ITEM-ENTRY_QNT = 2. * 基本計量單位 LT_ITEM-ENTRY_UOM = 'EA'. * 上一行的識別碼 LT_ITEM-PARENT_ID = L_PARENT_ID. * 憑證行的唯一標識 L_LINE_ID = L_LINE_ID + 1. LT_ITEM-LINE_ID = L_LINE_ID. * 憑證中行層次結構級別 L_LINE_DEPTH = '01'. LT_ITEM-LINE_DEPTH = L_LINE_DEPTH. APPEND LT_ITEM.CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGGOODSMVT_HEADER = LW_HEADERGOODSMVT_CODE = LW_GM_CODE * TESTRUN = ' ' * GOODSMVT_REF_EWM = * GOODSMVT_PRINT_CTRL =IMPORTING * GOODSMVT_HEADRET =MATERIALDOCUMENT = L_DOCMATDOCUMENTYEAR = L_YEARTABLESGOODSMVT_ITEM = LT_ITEMRETURN = LT_RETURN. LOOP AT LT_RETURN WHERE TYPE CA 'AEX'.EXIT. ENDLOOP.IF SY-SUBRC = 0.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.LOOP AT LT_RETURN WHERE TYPE CA 'AEX'.LV_MES = LV_MES && LT_RETURN-MESSAGE && ';'.ENDLOOP.WRITE:LV_MES. ELSE.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.WRITE:'收貨憑證:', L_DOC. ENDIF.

總結

以上是生活随笔為你收集整理的【测试】SAP 委外加工收货BAPI Demo的全部內容，希望文章能夠幫你解決所遇到的問題。

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