MB01 BAPI_GOODSMVT_CREATE退货

最新推荐文章于 2023-12-26 15:38:28 发布

原创最新推荐文章于 2023-12-26 15:38:28 发布 · 438 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ABAP

ABAP 专栏收录该内容

134 篇文章

订阅专栏

"-----------------------------------------@斌将军--------------------------------------------
DATA: LT_HEADER                TYPE  BAPI2017_GM_HEAD_01,
      LT_MODE                  TYPE  BAPI2017_GM_CODE,
      LT_GOODSMVT_HEADRET      TYPE  BAPI2017_GM_HEAD_RET,
      LT_GOODSMVT_ITEM         TYPE STANDARD TABLE OF BAPI2017_GM_ITEM_CREATE WITH HEADER LINE,
      LT_GOODSMVT_SERIALNUMBER TYPE STANDARD TABLE OF BAPI2017_GM_SERIALNUMBER WITH HEADER LINE,
      LT_RETURN                TYPE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE.

CLEAR:LT_HEADER.
LT_HEADER-PR_UNAME = SY-UNAME.  "用户名
LT_HEADER-DOC_DATE = '20200125'."LV_DATE.  "凭证日期
LT_HEADER-PSTNG_DATE = '20200125'."LV_DATE.  "过账日期
LT_HEADER-HEADER_TXT = '111'."LV_DATE.  "抬头文本
*    01：采购订单的收货
*    02：生产订单的收货
*    03：发货
*    04：转移发布
*    05：其他收货
*    06：货物移动的逆转
*    07：关于转包订单的后续调整

LT_MODE-GM_CODE = '01'.

CLEAR:LT_GOODSMVT_ITEM.
LT_GOODSMVT_ITEM-MATERIAL = '000000000000000111'."物料号
LT_GOODSMVT_ITEM-VENDOR = '0070001111'. "供应商编码
LT_GOODSMVT_ITEM-PO_NUMBER = '8300001111'. "采购订单
LT_GOODSMVT_ITEM-PO_ITEM = '10'. "采购订单
LT_GOODSMVT_ITEM-REF_DOC = '5005351111'. "参考凭证的凭证号
LT_GOODSMVT_ITEM-REF_DOC_IT = '1'. "参考凭证项目
LT_GOODSMVT_ITEM-ENTRY_QNT = '10'."数量
LT_GOODSMVT_ITEM-ENTRY_UOM = 'PC'."单位
LT_GOODSMVT_ITEM-PLANT    = '8011'. "生产工厂
LT_GOODSMVT_ITEM-STGE_LOC = '8611'."库存类型
LT_GOODSMVT_ITEM-MOVE_TYPE = '122'."移动类型
LT_GOODSMVT_ITEM-MVT_IND = 'B'."移动标识
LT_GOODSMVT_ITEM-BATCH = 'P11'."批次
LT_GOODSMVT_ITEM-MOVE_REAS = '0001'."移动原因
APPEND LT_GOODSMVT_ITEM.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
  EXPORTING
    GOODSMVT_HEADER       = LT_HEADER
    GOODSMVT_CODE         = LT_MODE
  IMPORTING
    GOODSMVT_HEADRET      = LT_GOODSMVT_HEADRET
  TABLES
    GOODSMVT_ITEM         = LT_GOODSMVT_ITEM[]
    GOODSMVT_SERIALNUMBER = LT_GOODSMVT_SERIALNUMBER[]
    RETURN                = LT_RETURN.

IF LT_GOODSMVT_HEADRET IS NOT INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'.

ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
"-----------------------------------------@斌将军--------------------------------------------