1 *&---------------------------------------------------------------------* 2 *& Report Z_BAPI_MIGO_1 3 *& 4 *&---------------------------------------------------------------------* 5 *& 6 *& 7 *&---------------------------------------------------------------------* 8 9 REPORT Z_BAPI_MIGO_1. 10 11 *使用BAPI需要用到的 12 DATA:GOODSMVT_HEADER TYPE BAPI2017_GM_HEAD_01, 13 GOODSMVT_CODE TYPE BAPI2017_GM_CODE, 14 GOODSMVT_HEADRET TYPE BAPI2017_GM_HEAD_RET, 15 MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC, 16 MATDOCUMENTYEAR TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR, 17 GOODSMVT_ITEM TYPE STANDARD TABLE OF BAPI2017_GM_ITEM_CREATE, 18 W_GOODSMVT_ITEM TYPE BAPI2017_GM_ITEM_CREATE, 19 RETURN TYPE STANDARD TABLE OF BAPIRET2, 20 W_RETURN TYPE BAPIRET2. 21 22 23 24 25 MOVE sy-datum TO GOODSMVT_HEADER-PSTNG_DATE. 26 MOVE sy-datum TO GOODSMVT_HEADER-DOC_DATE. 27 MOVE '01' TO GOODSMVT_CODE. 28 29 CLEAR: GOODSMVT_HEADRET,MATERIALDOCUMENT,MATDOCUMENTYEAR,RETURN. 30 *以下部分是這里是填寫Detail的部分了，其中’B’為與’01’對應使用 31 MOVE '1001' TO W_GOODSMVT_ITEM-PLANT."""""""""""""""""""""""""工? 32 MOVE '1000' TO W_GOODSMVT_ITEM-STGE_LOC.""""""""""""""""""""""庫存地點Storage Location 33 MOVE '101' TO W_GOODSMVT_ITEM-MOVE_TYPE."""""""""""""""""""""移動類型 34 MOVE '100' TO W_GOODSMVT_ITEM-ENTRY_QNT."""""""""""""""""""""數量 35 MOVE 'KG' TO W_GOODSMVT_ITEM-ENTRY_UOM."""""""""""""""""""""?位 36 MOVE '4500000593' TO W_GOODSMVT_ITEM-PO_NUMBER.:"""""""""""""""""""采?? 37 MOVE '00010' TO W_GOODSMVT_ITEM-PO_ITEM."""""""""""""""""""""""項目編號 38 MOVE 'B' TO W_GOODSMVT_ITEM-MVT_IND."""""""""""""""""""""""移動標識Movement Indicator 39 MOVE '20100101' TO W_GOODSMVT_ITEM-BATCH. 40 APPEND W_GOODSMVT_ITEM TO GOODSMVT_ITEM. 41 *以下部分是調用BAPI 42 CALL FUNCTION 'BAPI_GOODSMVT_CREATE' 43 EXPORTING 44 GOODSMVT_HEADER = GOODSMVT_HEADER 45 GOODSMVT_CODE = GOODSMVT_CODE 46 * TESTRUN = ' ' 47 * GOODSMVT_REF_EWM = 48 IMPORTING 49 GOODSMVT_HEADRET = GOODSMVT_HEADRET 50 MATERIALDOCUMENT = MATERIALDOCUMENT 51 MATDOCUMENTYEAR = MATDOCUMENTYEAR 52 TABLES 53 GOODSMVT_ITEM = GOODSMVT_ITEM 54 * GOODSMVT_SERIALNUMBER = 55 RETURN = RETURN 56 * GOODSMVT_SERV_PART_DATA = 57 * EXTENSIONIN = 58 . 59 *以下部分是檢查BAPI是否成功，這里是判斷Material 60 *Docuemnt 61 IF MATERIALDOCUMENT IS NOT INITIAL. 62 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' 63 * EXPORTING 64 * WAIT = 65 * IMPORTING 66 * RETURN = 67 . 68 WRITE:/ MATERIALDOCUMENT. 69 ELSE. 70 LOOP AT RETURN INTO W_RETURN. 71 WRITE:/ W_RETURN-TYPE, 72 W_RETURN-ID, 73 W_RETURN-NUMBER, 74 W_RETURN-MESSAGE. 75 ENDLOOP. 76 ENDIF.