??DATA:?MAT_DOC?LIKE?BAPI2017_GM_HEAD_RET-MAT_DOC.??????"物料憑證編號

??DATA:?GMHEAD?LIKE?BAPI2017_GM_HEAD_01.

??DATA:?BEGIN?OF?GMCODE.
??????????INCLUDE?STRUCTURE?BAPI2017_GM_CODE.
??DATA:?END?OF?GMCODE.

??GMCODE-GM_CODE?=?'04'. ? ?

? ***********gmcode-gm_code取值含義*******
? ********01?????MB01
? ********02?????MB31
? ********03?????MB1A
? ********04?????MB1B
? ********05?????MB1C
? ********06?????MB11
? ********07?????MB04
? ? ? ? ? ? ? ? ? ?

??DATA:?BEGIN?OF?MTHEAD.
??????????INCLUDE?STRUCTURE?BAPI2017_GM_HEAD_RET.
??DATA:?END?OF?MTHEAD.

??DATA:?BEGIN?OF?ITAB?OCCURS?100.
??????????INCLUDE?STRUCTURE?BAPI2017_GM_ITEM_CREATE.
??DATA:?END?OF?ITAB.

??DATA:?BEGIN?OF?ERRMSG?OCCURS?10.
??????????INCLUDE?STRUCTURE?BAPIRET2.
??DATA:?END?OF?ERRMSG.

??"CLEAR:?MAT_DOC,?GMHEAD,?GMCODE,?MTHEAD,?ITAB[],?ERRMSG[].

??GMHEAD-PSTNG_DATE?=?SY-DATUM.?????????????????"憑證中的過帳日期 ?
??GMHEAD-DOC_DATE?=?SY-DATUM.???????????????????"憑證中的憑證日期
??GMHEAD-PR_UNAME?=?SY-UNAME.

??LOOP?AT?SHOW_TAB?WHERE?SEL_COL?=?'X'.
*????CALL?FUNCTION?'CONVERSION_EXIT_ALPHA_INPUT'
*??????EXPORTING
*????????INPUT??=?SHOW_TAB-MATNR
*??????IMPORTING
*????????OUTPUT?=?SHOW_TAB-MATNR.
*????IF?SY-SUBRC?=?0..
*
*????ENDIF.

????ITAB-MATERIAL?=?SHOW_TAB-MATNR.??????????"物料號
????ITAB-PLANT?=?SHOW_TAB-WERKS.?????????????"工廠
????ITAB-STGE_LOC?=?SHOW_TAB-ZLGORTO.????????"庫存地點
????"ITAB-COSTCENTER?=?'1000'.???????"成本中心
????ITAB-BATCH?=?SHOW_TAB-CHARG.?????????????"批次
????ITAB-ENTRY_QNT?=?SHOW_TAB-MENGE.?????????"實領數量
????ITAB-ENTRY_UOM?=?SHOW_TAB-MEINS.?????????"單位
????"ITAB-MOVE_TYPE?=?SHOW_TAB-ZLLTYPE.????????"移動類型
????ITAB-MOVE_TYPE?=?'311'.????????"移動類型
*??ITAB-mvt_ind?=?'O'.
????ITAB-MOVE_MAT?=?SHOW_TAB-MATNR.????????????"收貨/發貨物料號
????ITAB-MOVE_PLANT?=?SHOW_TAB-WERKS.??????????"收貨/發貨工廠
????ITAB-MOVE_STLOC?=?SHOW_TAB-ZLGORTI.????????"收貨/發貨物料倉庫
*??ITAB-no_more_gr?=?'X'.????????"交貨完成標識
????APPEND?ITAB.
??ENDLOOP.


??CALL?FUNCTION?'BAPI_GOODSMVT_CREATE'
????EXPORTING
??????GOODSMVT_HEADER??=?GMHEAD
??????GOODSMVT_CODE????=?GMCODE
*?????TESTRUN??????????=?'?'
*?????GOODSMVT_REF_EWM?=
????IMPORTING
??????GOODSMVT_HEADRET?=?MTHEAD
??????MATERIALDOCUMENT?=?MAT_DOC ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? "所產生的物料憑證號 ? ?但是必須經過BAPI_TRANSACTION_COMMIT才能查詢到該憑證號
*?????MATDOCUMENTYEAR??=
????TABLES
??????GOODSMVT_ITEM????=?ITAB ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? "關鍵表 ?必須填寫正確
*?????GOODSMVT_SERIALNUMBER?????????=
??????RETURN???????????=?ERRMSG ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? "報錯信息表
*?????GOODSMVT_SERV_PART_DATA???????=
*?????EXTENSIONIN??????=
????.

*??IF?ERRMSG[]?IS?INITIAL.
*????CALL?FUNCTION?'BAPI_TRANSACTION_COMMIT'
*??????EXPORTING
*????????WAIT?=?'X'
**??????IMPORTING
**???????RETURN????????=
*??????.
*????DATA:?L_MESS(100).
*????CONCATENATE?'過賬成功,憑證號：'?MAT_DOC?INTO?L_MESS.
*????MESSAGE?L_MESS?TYPE?'S'?.
*??ELSE.
*????CALL?FUNCTION?'BAPI_TRANSACTION_ROLLBACK'
**?????IMPORTING
**???????RETURN????????=
*??????.
*??ENDIF.

??READ?TABLE?ERRMSG?WITH?KEY?TYPE?=?'E'.
??IF??SY-SUBRC?=?0.
????MESSAGE?ERRMSG-MESSAGE?TYPE?'S'?DISPLAY?LIKE?'E'.
????CALL?FUNCTION?'BAPI_TRANSACTION_ROLLBACK'?.
????"SHOW_TAB-POST?=?''.
??ELSE.???
???"必須成功執行?BAPI_GOODSMVT_CREATE????不然會在MIGO查不到??生成的憑證號??MAT_DOC
????CALL?FUNCTION?'BAPI_TRANSACTION_COMMIT'
??????EXPORTING
????????WAIT?=?'X'.
????DATA:?L_MESS(100).
????CONCATENATE?'過賬成功,憑證號：'?MAT_DOC?INTO?L_MESS.
????MESSAGE?L_MESS?TYPE?'S'?.
????"SHOW_TAB-POST?=?'X'.
??ENDIF.

轉載于:https://www.cnblogs.com/seven1314pp/p/6002915.html

總結

以上是生活随笔為你收集整理的BAPI_GOODSMVT_CREATE 移动类型311 CODE = '04' 代码的全部內容，希望文章能夠幫你解決所遇到的問題。

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