migo的BAPI示例BAPI_GOODSMVT_CREATE详解编程语言

 1 * ---------------------------------------------------------------------* 

 2 * Report Z_BAPI_MIGO_1 

 3 * 

 4 * ---------------------------------------------------------------------* 

 5 * 

 6 * 

 7 * ---------------------------------------------------------------------* 

 9 REPORT Z_BAPI_MIGO_1. 

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. 

25 MOVE sy-datum TO GOODSMVT_HEADER-PSTNG_DATE. 

26 MOVE sy-datum TO GOODSMVT_HEADER-DOC_DATE. 

27 MOVE 01 TO GOODSMVT_CODE. 

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.

19721.html