MM MIGO BAPI BAPI_GOODSMVT_CREATE 使用汇总

原文链接:https://blog.csdn.net/IamRunjiang/article/details/120078407
****GOODSMVT_CODE取值含义
*01 MB01
*02 MB31
*03 MB1A "发
*04 MB1B "转储
*05 MB1C "其它收货
*06 MB11
*07 MB04

有两点需要注意的地方:

goodsmvt_code

01: Goods receipt for purchase order 采购订单收货

02: Goods receipt for production order 生产订单收货

03: Goods issue 货物的问题

04: Transfer posting 转帐

05: Other goods receipts 其它收货

06: Reversal of goods movements 货物流动逆转

07: Subsequent adjustment to a subcontract order 对分包订单的后续调整

goodsmvt_item中 移动标识

Domain: KZBEW - Movement Indicator 领域:KZBEW -运动指示器

Goods movement w/o reference 无参考资料的货物运输

B - Goods movement for purchase order 采购订单的货物移动

F - Goods movement for production order 货物移动为生产订单

L - Goods movement for delivery note 货物运交单

K - Goods movement for kanban requirement (WM - internal only) 基于看板要求的货物移动(WM -内部)

O - Subsequent adjustment of “material-provided” consumption “供料”消耗的后续调整

W - Subsequent adjustment of proportion/product unit material 比例/产品单元材料的后续调整

经常会遇到一些自定义的移动类型,但是并不知道对应的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
    .
  1. 移动类型 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
    .
  1. 移动类型 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 = '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
    .
  1. 移动类型 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
    .
  1. 移动类型 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
    .
  1. 移动类型 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
    .

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
    .
  1. 移动类型 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
    .

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
    .
  1. 移动类型 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
    .
  1. 移动类型 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
    .

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
    .

移动类型413

  "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_goodsmvt_serialnumber TYPE TABLE OF bapi2017_gm_serialnumber,
       lw_goodsmvt_serialnumber TYPE          bapi2017_gm_serialnumber,
       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.

  CLEAR : lw_goodsmvt_header,lv_goodsmvt_code,lt_goodsmvt_item[],lw_goodsmvt_item,
          lt_goodsmvt_serialnumber[],lw_goodsmvt_serialnumber,lt_return[],lw_return,
          lv_materialdocument,lv_matdocumentyear.

  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_header-header_txt   = itab-aufnr.

  "行项目数据
  lw_goodsmvt_item-material        = itab-matnr.
  lw_goodsmvt_item-plant           = itab-dwerk.
  lw_goodsmvt_item-stge_loc        = itab-lgort.
  lw_goodsmvt_item-move_type       = '413'.
  "lw_goodsmvt_item-spec_stock      = 'E'.
  IF m_flag = 'X'. "序列号
    lw_goodsmvt_item-entry_qnt       = lt_101-menge .
    "填充序列号
    LOOP AT lt_xlh.
      lw_goodsmvt_serialnumber-matdoc_itm = 1.
      lw_goodsmvt_serialnumber-serialno = lt_xlh-sernr.
      APPEND lw_goodsmvt_serialnumber TO lt_goodsmvt_serialnumber .
      CLEAR lw_goodsmvt_serialnumber.
    ENDLOOP.
  ELSEIF m_flag = 'P'. "批次
    lw_goodsmvt_item-entry_qnt       = lt_pc-menge.
    lw_goodsmvt_item-batch           = lt_pc-charg.
    lw_goodsmvt_item-move_batch      = lt_pc-charg.
  ELSE. "正常
    lw_goodsmvt_item-entry_qnt       = lt_zc-menge.
  ENDIF.

  "lw_goodsmvt_item-batch           =  ls_item-charg.
  lw_goodsmvt_item-move_mat        = itab-matnr .
  lw_goodsmvt_item-move_plant      = itab-dwerk .
  lw_goodsmvt_item-move_stloc      = itab-lgort .
  "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       = itab-aufnr .
  lw_goodsmvt_item-val_sales_ord   = itab-tvbeln .  "绑定的销售订单
  lw_goodsmvt_item-val_s_ord_item  = itab-tposnr .  "绑定的销售订单行项目

  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
      goodsmvt_serialnumber = lt_goodsmvt_serialnumber
      return                = lt_return.

  • 1
    点赞
  • 13
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值