SAP ABAP MIGO BAPI BAPI_GOODSMVT_CREATE GOODSMVT_CODE使用汇总

你好coder

已于 2024-09-27 10:30:11 修改

阅读量178

点赞数 1

文章标签： SAP ABAP 物料

于 2024-09-27 09:33:43 首次发布

本文链接：https://blog.csdn.net/weixin_45293769/article/details/142585179

版权

转载：https://blog.csdn.net/qq_36296311/article/details/128813069

GOODSMVT_CODE取值含义

01 MB01

02 MB31

03 MB1A "发

04 MB1B "转储

05 MB1C "其它收货

06 MB1107 MB04

经常会遇到一些自定义的移动类型，但是并不知道对应的goodsmvt_code是多少。可以用如下方法进行查找

首先去T158B中根据移动类型找到对应的事务代码：如图
在这里插入图片描述
然后再将对应的事务代码去T158G 中找code，如图：

1.移动类型 344 冻结库存

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '04'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.   " 从
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       = '344'.
  LW_GOODSMVT_ITEM-ENTRY_QNT       = LS_ITEM-QTY .
  LW_GOODSMVT_ITEM-MOVE_PLANT      = LS_ITEM-WERKS .   " 到
  LW_GOODSMVT_ITEM-MOVE_STLOC      = LS_ITEM-LGORT .
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

2.移动类型 343 解冻库存

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '04'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.   " 从
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       = '343'.
  LW_GOODSMVT_ITEM-ENTRY_QNT       = LS_ITEM-QTY .
  LW_GOODSMVT_ITEM-MOVE_PLANT      = LS_ITEM-WERKS .   " 到
  LW_GOODSMVT_ITEM-MOVE_STLOC      = LS_ITEM-LGORT .
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

3. 移动类型 101 收货,161退货(161退货时移动移动类型也填101，成功后会自动变成161)

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '01'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
   LW_GOODSMVT_ITEM-PO_NUMBER =    GS_ITEM-EBELN.         "采购凭证号
   LW_GOODSMVT_ITEM-ITEM_TEXT =    GS_ITEM-WMSNO.         "项目文本
   LW_GOODSMVT_ITEM-PO_ITEM   =    GS_ITEM-ZEILE.         "采购凭证的项目编号
   LW_GOODSMVT_ITEM-PLANT     =    GS_ITEM-WERKS.         "工厂
   LW_GOODSMVT_ITEM-STGE_LOC  =    GS_ITEM-LGORT.         "库存地点
   LW_GOODSMVT_ITEM-BATCH     =    GS_ITEM-CHARG.         "批次号
   LW_GOODSMVT_ITEM-ENTRY_QNT =    GS_ITEM-ERFMG.         "以录入项单位表示的数量
   LW_GOODSMVT_ITEM-MVT_IND   =    'B'.            "移动标识  ’B‘为采购收货  ’F ' 生产收货
   LW_GOODSMVT_ITEM-MOVE_TYPE =    '101'.                 "移动类型
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE     "MB01 按采购订单的货物移动
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

4. 移动类型 Z21 生产退料

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '03'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.   " 从
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       = 'Z21'.
  LW_GOODSMVT_ITEM-ENTRY_QNT       = LS_ITEM-QTY .
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

5. 移动类型 101 生产订单收货

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '02'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL   =    LS_ITEM-MATNR.         "物料编号
  LW_GOODSMVT_ITEM-PLANT      =    LS_ITEM-WERKS.         "工厂
  LW_GOODSMVT_ITEM-STGE_LOC   =    LS_ITEM-LGORT.         "库存地点
  LW_GOODSMVT_ITEM-BATCH      =    LS_ITEM-CHARG.         "批次号
  LW_GOODSMVT_ITEM-ENTRY_QNT  =    LS_ITEM-ERFMG.         "以录入项单位表示的数量
  LW_GOODSMVT_ITEM-MOVE_STLOC =    LS_ITEM-UMLGO.         "收货库存地点
  LW_GOODSMVT_ITEM-MOVE_BATCH =    LS_ITEM-UMCHA.         "收货批次
  LW_GOODSMVT_ITEM-STCK_TYPE  = '2' . "质检状态
  LW_GOODSMVT_ITEM-MVT_IND    =    'F'.             "移动标识  ’B‘为采购收货  ’F ' 生产收货
  LW_GOODSMVT_ITEM-MOVE_TYPE  =    '101'.                 "移动类型
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

6. 移动类型 501 无源单入库

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '05'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.   " 从
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       = '501'.
  LW_GOODSMVT_ITEM-VENDOR          =  LS_ITEM-LIFNR.         "供应商编码
  LW_GOODSMVT_ITEM-ENTRY_QNT       =  LS_ITEM-QTY .
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

7.移动类型 321 状态转移

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '04'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        =    LS_ITEM-MATNR.         "物料编号
  LW_GOODSMVT_ITEM-PLANT           =    LS_ITEM-WERKS.         "发出工厂
  LW_GOODSMVT_ITEM-STGE_LOC        =    LS_ITEM-LGORT.         "发出库存地点
  LW_GOODSMVT_ITEM-SPEC_STOCK      =    LS_ITEM-UMSOK.         "特殊库存标识
  LW_GOODSMVT_ITEM-SALES_ORD       =    LS_ITEM-KDAUF.         "发出销售订单
  LW_GOODSMVT_ITEM-S_ORD_ITEM      =    LS_ITEM-KDPOS.         "发出销售订单行项目
  LW_GOODSMVT_ITEM-BATCH           =    LS_ITEM-CHARG.         "发出批次号
  LW_GOODSMVT_ITEM-ENTRY_QNT       =    LS_ITEM-ERFMG.         "以录入项单位表示的数量
  LW_GOODSMVT_ITEM-VAL_SALES_ORD   =    LS_ITEM-MAT_KDAUF.     "接收销售订单号
  LW_GOODSMVT_ITEM-VAL_S_ORD_ITEM  =    LS_ITEM-MAT_KDPOS.     "接收销售订单行项目
  LW_GOODSMVT_ITEM-MOVE_STLOC      =    LS_ITEM-UMLGO.         "接收收货库存地点
  LW_GOODSMVT_ITEM-MOVE_BATCH      =    LS_ITEM-UMCHA.         "接收收货批次
  LW_GOODSMVT_ITEM-MOVE_TYPE =    '321'.                       "移动类型
 
* 如果生产订单不为空
    SELECT
      SINGLE
       *
      INTO @DATA(LS_MSEG)
      FROM MSEG
      WHERE MBLNR = @LS_ITEM-MBLNR
      AND BWART  = '101'
      AND AUFNR = @LV_AUFNR.
    IF SY-SUBRC = 0 .
     LW_GOODSMVT_ITEM-REF_DOC_YR = LS_MSEG-MJAHR .
     LW_GOODSMVT_ITEM-REF_DOC =  LS_MSEG-MBLNR .
     LW_GOODSMVT_ITEM-REF_DOC_IT =  LS_MSEG-ZEILE .
    ENDIF .
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

8. 移动类型 541

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '04'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-PLANT      =  LS_ITEM-WERKS.
  LW_GOODSMVT_ITEM-STGE_LOC   =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE  = '541'.
  LW_GOODSMVT_ITEM-ENTRY_QNT  = LS_ITEM-ERFMG .
  LW_GOODSMVT_ITEM-BATCH      = LS_ITEM-CHARG.
  LW_GOODSMVT_ITEM-ITEM_TEXT  = LS_ITEM-EBELN .
  LW_GOODSMVT_ITEM-MOVE_PLANT = LS_ITEM-UMWRK .
  LW_GOODSMVT_ITEM-MOVE_BATCH = LS_ITEM-CHARG .
  LW_GOODSMVT_ITEM-VENDOR     = LS_ITEM-LIFNR.
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

9.移动类型 551

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '03'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.   " 从
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       = '551'.
  LW_GOODSMVT_ITEM-ENTRY_QNT       = LS_ITEM-QTY .
  LW_GOODSMVT_ITEM-BATCH           = LS_ITEM-CHARG.
  LW_GOODSMVT_ITEM-STCK_TYPE       = LS_ITEM-INSMK .
  LW_GOODSMVT_ITEM-COSTCENTER      = LS_ITEM-KOSTL.
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

10. 移动类型 105 收货

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '01'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL       = LS_MSEG-MATNR.
  LW_GOODSMVT_ITEM-PLANT          =  LS_ITEM-WERKS.
  LW_GOODSMVT_ITEM-STGE_LOC       = LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE      = '105'.
  LW_GOODSMVT_ITEM-SPEC_STOCK     = LS_MSEG-SOBKZ .
  LW_GOODSMVT_ITEM-VAL_SALES_ORD  = LS_MSEG-MAT_KDAUF .
  LW_GOODSMVT_ITEM-VAL_S_ORD_ITEM = LS_MSEG-MAT_KDPOS .
  LW_GOODSMVT_ITEM-ENTRY_QNT      = LS_ITEM-ERFMG .
  LW_GOODSMVT_ITEM-BATCH          = LS_ITEM-CHARG.
  LW_GOODSMVT_ITEM-REF_DOC_YR     = LS_MSEG-MJAHR .   "参考年度
  LW_GOODSMVT_ITEM-REF_DOC        = LS_MSEG-MBLNR    .    "参考凭证
  LW_GOODSMVT_ITEM-REF_DOC_IT     = LS_MSEG-ZEILE .    "参考行项目信息
  LW_GOODSMVT_ITEM-MVT_IND        = 'B' .
  LW_GOODSMVT_ITEM-PO_NUMBER      = LS_MSEG-EBELN .
  LW_GOODSMVT_ITEM-PO_ITEM        = LS_MSEG-EBELP .
  LW_GOODSMVT_ITEM-GR_RCPT        = LS_MSEG-WEMPF .    "收货方
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

11.移动类型 261

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '04'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.   " 从
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       = '261'.
  LW_GOODSMVT_ITEM-reserv_no       = ls_item-rsnum.  "预留号
  LW_GOODSMVT_ITEM-res_item        = ls_item-rspos.  "预留行号
  LW_GOODSMVT_ITEM-orderid         = ls_item-aufnr.
  LW_GOODSMVT_ITEM-plant           = ls_item-werks. "工厂
  LW_GOODSMVT_ITEM-stge_loc        = ls_item-lgort. "库存地点
  LW_GOODSMVT_ITEM-batch           = ls_item-charg. "批次号
  LW_GOODSMVT_ITEM-entry_qnt       = ls_item-erfmg. "数量
  LW_GOODSMVT_ITEM-sales_ord       = ls_item-kdauf. "销售订单
  LW_GOODSMVT_ITEM-s_ord_item      = ls_item-kdpos. "销售订单行项目
  IF ls_item-kdauf IS NOT INITIAL AND ls_item-kdpos IS NOT INITIAL.
    LW_GOODSMVT_ITEM-spec_stock      = 'E'.
  ENDIF.
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

12 .移动类型 311 413 411

  "bapi 参数
  DATA:LW_GOODSMVT_HEADER  TYPE          BAPI2017_GM_HEAD_01,
       LV_GOODSMVT_CODE    TYPE          BAPI2017_GM_CODE,
       LT_GOODSMVT_ITEM    TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
       LW_GOODSMVT_ITEM    TYPE          BAPI2017_GM_ITEM_CREATE,
       LT_RETURN           TYPE TABLE OF BAPIRET2,
       LW_RETURN           TYPE          BAPIRET2,
       LV_MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC,
       LV_MATDOCUMENTYEAR  TYPE BAPI2017_GM_HEAD_RET-DOC_YEAR.
 
  LV_GOODSMVT_CODE = '04'.
 
  "准备抬头数据
  LW_GOODSMVT_HEADER-PSTNG_DATE    = SY-DATUM.
  LW_GOODSMVT_HEADER-DOC_DATE      = SY-DATUM.             "凭证中的凭证日期
  LW_GOODSMVT_HEADER-PR_UNAME      = SY-UNAME.              "用户名
 
  "行项目数据
  LW_GOODSMVT_ITEM-MATERIAL        = ''物料号
  LW_GOODSMVT_ITEM-PLANT           =  LS_ITEM-WERKS.
  LW_GOODSMVT_ITEM-STGE_LOC        =  LS_ITEM-LGORT.
  LW_GOODSMVT_ITEM-MOVE_TYPE       =  LS_HEAD-BWART.
  LW_GOODSMVT_ITEM-SPEC_STOCK      =  LS_ITEM-SOBKZ .
  LW_GOODSMVT_ITEM-ENTRY_QNT       =  LS_ITEM-ERFMG .
  LW_GOODSMVT_ITEM-BATCH           =  LS_ITEM-CHARG.
  LW_GOODSMVT_ITEM-MOVE_PLANT      = LS_ITEM-UMWRK .
  LW_GOODSMVT_ITEM-MOVE_STLOC      = LS_ITEM-UMLGO .
  LW_GOODSMVT_ITEM-MOVE_BATCH      = LS_ITEM-UMCHA .
  LW_GOODSMVT_ITEM-RESERV_NO       =  LS_ITEM-RSNUM.
  LW_GOODSMVT_ITEM-RES_ITEM        =   LS_ITEM-RSPOS.
  LW_GOODSMVT_ITEM-ITEM_TEXT       = LS_ITEM-SGTXT .
  IF LW_GOODSMVT_ITEM-MOVE_TYPE    = '311'.
  LW_GOODSMVT_ITEM-VAL_SALES_ORD   = LS_ITEM-MAT_KDAUF .  "发出的销售订单
  LW_GOODSMVT_ITEM-VAL_S_ORD_ITEM  = LS_ITEM-MAT_KDPOS .
  LW_GOODSMVT_ITEM-SALES_ORD       = LS_ITEM-KDAUF .     "收到的销售订单
  LW_GOODSMVT_ITEM-S_ORD_ITEM      = LS_ITEM-KDPOS .
  ENDIF.
  IF LW_GOODSMVT_ITEM-MOVE_TYPE    = '413'.
    LW_GOODSMVT_ITEM-VAL_SALES_ORD   = LS_ITEM-KDAUF .  "收到的销售订单
    LW_GOODSMVT_ITEM-VAL_S_ORD_ITEM  = LS_ITEM-KDPOS .
  ENDIF.
  IF LW_GOODSMVT_ITEM-MOVE_TYPE    = '411'.
    LW_GOODSMVT_ITEM-VAL_SALES_ORD   = LS_ITEM-MAT_KDAUF .  "发出的销售订单
    LW_GOODSMVT_ITEM-VAL_S_ORD_ITEM  = LS_ITEM-MAT_KDPOS .
  ENDIF.
  APPEND LW_GOODSMVT_ITEM TO LT_GOODSMVT_ITEM .
 
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = LW_GOODSMVT_HEADER
      GOODSMVT_CODE    = LV_GOODSMVT_CODE
    IMPORTING
      MATERIALDOCUMENT = LV_MATERIALDOCUMENT
      MATDOCUMENTYEAR  = LV_MATDOCUMENTYEAR
    TABLES
      GOODSMVT_ITEM    = LT_GOODSMVT_ITEM
      RETURN           = LT_RETURN
    .
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

13.移动类型561

  DATA: ls_goodsmvt_header TYPE bapi2017_gm_head_01,
        ls_goodsmvt_code   TYPE bapi2017_gm_code.
  DATA: mat_doc   TYPE bapi2017_gm_head_ret-mat_doc.
  DATA: doc_year  TYPE bapi2017_gm_head_ret-doc_year.
  DATA: lw_flag   TYPE char1.
  DATA: lw_lgort  TYPE mseg-lgort.
  DATA: ls_goodsmvt_item TYPE bapi2017_gm_item_create,
        lt_goodsmvt_item TYPE TABLE OF bapi2017_gm_item_create.
  DATA: ls_return TYPE bapiret2,
        lt_return TYPE TABLE OF bapiret2.
 
  CLEAR: ls_goodsmvt_header, ls_goodsmvt_code,
  mat_doc, doc_year,ls_goodsmvt_item,lt_goodsmvt_item,
  ls_return,lt_return,lw_flag.
 
*   表头
  ls_goodsmvt_header-pstng_date = is_mkpf-budat.  "过账日期
  ls_goodsmvt_header-doc_date   = is_mkpf-bldat.  "凭证日期
  ls_goodsmvt_code-gm_code   = '05'.          "03 发货
 
  LOOP AT it_mseg INTO DATA(is_mseg)."只从内表中取值，不更改表中内容
*  物料转换内码
    CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
      EXPORTING
        input        = is_mseg-matnr
      IMPORTING
        output       = is_mseg-matnr
      EXCEPTIONS
        length_error = 1
        OTHERS       = 2.
 
*   订单转换内码
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = is_mseg-aufnr
      IMPORTING
        output = is_mseg-aufnr.
 
*   无价值库对应关系
    CLEAR:lw_lgort.
    CASE is_mseg-lgort.
      WHEN '7010'.
        lw_lgort = 'X010'.
      WHEN '7020'.
        lw_lgort = 'X020'.
      WHEN '7030'.
        lw_lgort = 'X030'.
      WHEN '7040'.
        lw_lgort = 'X040'.
      WHEN '7050'.
        lw_lgort = 'X050'.
      WHEN '7060'.
        lw_lgort = 'X060'.
      WHEN '7070'.
        lw_lgort = 'X070'.
      WHEN '7080'.
        lw_lgort = 'X080'.
      WHEN OTHERS.
    ENDCASE.
 
    ls_goodsmvt_item-plant     =  '213X'.                   "工厂.
    ls_goodsmvt_item-material  = is_mseg-matnr.             "物料
    ls_goodsmvt_item-entry_qnt = is_mseg-menge.             "数量
    ls_goodsmvt_item-entry_uom = is_mseg-meins.             "单位
    ls_goodsmvt_item-orderid   = is_mseg-aufnr.             "订单号
    ls_goodsmvt_item-stge_loc  = lw_lgort.                  "库存地点
    ls_goodsmvt_item-move_type = '561'.                     "移动类型
    APPEND ls_goodsmvt_item TO lt_goodsmvt_item.
    CLEAR: ls_goodsmvt_item.
 
    CLEAR:is_mseg.
  ENDLOOP.
 
  " 执行BAPI
  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header  = ls_goodsmvt_header
      goodsmvt_code    = ls_goodsmvt_code
    IMPORTING
      materialdocument = mat_doc
      matdocumentyear  = doc_year
    TABLES
      goodsmvt_item    = lt_goodsmvt_item
      return           = lt_return.
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.

14.移动类型 531

DATA: ls_header TYPE bapi2017_gm_head_01,
        ls_code   TYPE bapi2017_gm_code,
        lv_redoc  TYPE bapi2017_gm_head_ret-mat_doc,     "返回的凭证号码
        lt_item   TYPE STANDARD TABLE OF bapi2017_gm_item_create,
        ls_item   TYPE bapi2017_gm_item_create,
        lt_return TYPE STANDARD TABLE OF bapiret2,
        ls_return TYPE bapiret2.
 
  LOOP AT gt_table INTO gs_table.
    ls_header-pstng_date = gs_table-zrq.
    ls_header-doc_date = sy-datum.
 
    "分配事务代码--过账码
    ls_code-gm_code = '05'.
 
    ls_item-material   = gs_table-matnr.             "料号
    ls_item-plant      = gs_table-werks.                 "工厂
    ls_item-stge_loc   = gs_table-lgort.              "库存地点
    ls_item-move_type  = '531'.                    "移动类型（库存管理）
    ls_item-orderid    =   gs_table-aufnr.             "工单
*    ls_item-reserv_no  = gs_table-rsnum.             "预留/相关需求的编号 RESB~RSNUM
*    ls_item-res_item   = gs_table-rspos.              "预留/相关需求的项目编号 RESB~RSPOS
    ls_item-entry_qnt  = gs_table-menge_bc.           "发料数量
    ls_item-entry_uom  = gs_table-meins.             "计量单位
 
    APPEND ls_item TO lt_item.
 
    CLEAR gs_table.
  ENDLOOP.
 
  "BAPI
  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header  = ls_header
      goodsmvt_code    = ls_code
    IMPORTING
      materialdocument = lv_redoc
    TABLES
      goodsmvt_item    = lt_item
      return           = lt_return.
 
  IF ( line_exists( lt_return[ type = 'A' ] ) ) OR ( line_exists( lt_return[ type = 'E' ] ) ).
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ENDIF.