【Demo】采购订单收货Bapi
生活随笔
收集整理的這篇文章主要介紹了
【Demo】采购订单收货Bapi
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
基于SAP采購訂單的收貨可使用物料移動中常用的Bapi函數“BAPI_GOODSMVT_CREATE”來處理,其中GOODSMVT_CODE采用“01”,也就是MB01界面的功能。其中支持多個不同采購訂單的收貨,最后不會忘記Commit提交,否則只會產生物料憑證,而不會實質記錄。
下面是一個測試Demo。
*&---------------------------------------------------------------------* *& Report ZTEST_POGR *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------*REPORT ZTEST_POGR.START-OF-SELECTION.DATA: LS_HEADER LIKE BAPI2017_GM_HEAD_01,LV_CODE LIKE BAPI2017_GM_CODE VALUE '01',LV_DOC TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,LV_YEAR TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR,LT_ITEM LIKE BAPI2017_GM_ITEM_CREATE OCCURS 0 WITH HEADER LINE,LT_RET LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.*** HeaderLS_HEADER-PSTNG_DATE = '20160701'.LS_HEADER-DOC_DATE = '20160701'.LS_HEADER-HEADER_TXT = 'Header Text'.*** ItemLT_ITEM-MATERIAL = 'F-F-H300'.PERFORM CONVERSION_EXIT_MATN1_INPUT USING LT_ITEM-MATERIAL.LT_ITEM-VENDOR = 'H5Q9'.PERFORM CONVERSION_EXIT_ALPHA_INPUT USING LT_ITEM-VENDOR.LT_ITEM-PLANT = 'CN32'.LT_ITEM-PO_NUMBER = '4500039125'.LT_ITEM-PO_ITEM = '10'.PERFORM CONVERSION_EXIT_MATN1_INPUT USING LT_ITEM-PO_ITEM.LT_ITEM-ITEM_TEXT = LT_ITEM-PO_ITEM.LT_ITEM-ENTRY_QNT = 10.LT_ITEM-STGE_LOC = 'RC10'.LT_ITEM-MVT_IND = 'B'.LT_ITEM-MOVE_TYPE = '101'.LT_ITEM-ENTRY_UOM = 'EA'.APPEND LT_ITEM.CLEAR LT_ITEM.LT_ITEM-MATERIAL = 'C-S1-300'.PERFORM CONVERSION_EXIT_MATN1_INPUT USING LT_ITEM-MATERIAL.LT_ITEM-VENDOR = 'H5Q9'.PERFORM CONVERSION_EXIT_ALPHA_INPUT USING LT_ITEM-VENDOR.LT_ITEM-PLANT = 'CN32'.LT_ITEM-PO_NUMBER = '4500039124'.LT_ITEM-PO_ITEM = '10'.PERFORM CONVERSION_EXIT_MATN1_INPUT USING LT_ITEM-PO_ITEM.LT_ITEM-ITEM_TEXT = LT_ITEM-PO_ITEM.LT_ITEM-ENTRY_QNT = 10.LT_ITEM-STGE_LOC = 'RC10'.LT_ITEM-MVT_IND = 'B'.LT_ITEM-MOVE_TYPE = '101'.LT_ITEM-ENTRY_UOM = 'EA'.APPEND LT_ITEM.CLEAR LT_ITEM."過賬PERFORM BAPI_GOODS_MOVE TABLES LT_ITEM LT_RETUSING LS_HEADER LV_CODE LV_DOC LV_YEAR .COMMIT WORK.WRITE : / LV_DOC,LV_YEAR.IF LT_RET[] IS NOT INITIAL.LOOP AT LT_RET.WRITE : / LT_RET-TYPE,LT_RET-MESSAGE.ENDLOOP.ENDIF.*&---------------------------------------------------------------------* *& Form BAPI_GOODS_MOVE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_ITEM text * -->P_LT_RET text * -->P_LS_HEADER text * -->P_LV_CODE text * -->P_LV_DOC text * -->P_LV_YEAR text *----------------------------------------------------------------------* FORM BAPI_GOODS_MOVE TABLES LT_ITEM STRUCTURE BAPI2017_GM_ITEM_CREATELT_RET STRUCTURE BAPIRET2USING LS_HEADER STRUCTURE BAPI2017_GM_HEAD_01LV_CODELV_DOCLV_YEAR.CALL FUNCTION 'BAPI_GOODSMVT_CREATE'EXPORTINGGOODSMVT_HEADER = LS_HEADERGOODSMVT_CODE = LV_CODEIMPORTINGMATERIALDOCUMENT = LV_DOCMATDOCUMENTYEAR = LV_YEARTABLESGOODSMVT_ITEM = LT_ITEMRETURN = LT_RET.ENDFORM. " BAPI_GOODS_MOVE *&---------------------------------------------------------------------* *& Form CONVERSION_EXIT_MATN1_INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_MATNR text *----------------------------------------------------------------------* FORM CONVERSION_EXIT_MATN1_INPUT USING P_MATNR.CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'EXPORTINGINPUT = P_MATNRIMPORTINGOUTPUT = P_MATNREXCEPTIONSLENGTH_ERROR = 1OTHERS = 2.ENDFORM. " CONVERSION_EXIT_MATN1_INPUT *&---------------------------------------------------------------------* *& Form CONVERSION_EXIT_ALPHA_INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_101_LIFNR text *----------------------------------------------------------------------* FORM CONVERSION_EXIT_ALPHA_INPUT USING P_LIFNR.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGINPUT = P_LIFNRIMPORTINGOUTPUT = P_LIFNR. ENDFORM. " CONVERSION_EXIT_ALPHA_INPUT附加內容:
GMCODE TCODE:
?
總結
以上是生活随笔為你收集整理的【Demo】采购订单收货Bapi的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 【总结】SAP 供应商寄售/客户寄售
- 下一篇: 【随笔】“阴面”和“阳面”