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.