DATA:output_header   LIKE bapi2017_gm_head_01 ,
       output_code     LIKE bapi2017_gm_code.
  DATA:lh_input_mblnr  TYPE mseg-mblnr,
       lh_string       TYPE string,
       lh_row          TYPE char3.
  DATA:i_bukrs         TYPE ekko-bukrs.

TYPES:input_item     LIKE bapi2017_gm_item_create,
        input_number   LIKE bapi2017_gm_serialnumber,
        input_return   LIKE bapiret2 .

DATA:it_input_item   TYPE STANDARD TABLE OF input_item,
       lt_input_item   LIKE LINE OF it_input_item,
       it_input_return TYPE STANDARD TABLE OF input_return,
       lt_input_return LIKE LINE OF it_input_return,
       it_input_number TYPE STANDARD TABLE OF input_number,
       lt_input_number LIKE LINE OF it_input_number.

DATA:it_marv         TYPE STANDARD TABLE OF marv,
       wa_marv         LIKE LINE OF it_marv.

REFRESH:it_input_item,it_input_return,it_input_number.
  CLEAR:output_header,output_code.

output_header-pstng_date = sy-datum.
  output_header-doc_date   = sy-datum.
  output_header-doc_date   = sy-datum.
  "

lt_input_item-material   = 'KT1000010'.   "物料
  lt_input_item-plant      = '3710'.        "发出工厂
  lt_input_item-stge_loc   = 'P200'.        "发获仓
  lt_input_item-move_stloc = 'P800'.        "收获货仓库
  lt_input_item-move_type  = '105'.         "移动类型
  lt_input_item-entry_qnt  = '1'.           "数量
  lt_input_item-stck_type  = 'X'.           "X  为移动到质检仓 其他点击进去看
  lt_input_item-po_number = '4500000456'.   "采购订单
  lt_input_item-po_item = '00010'.          "行项目

lt_input_item-entry_uom  = 'ST'.          "指定单位
  lt_input_item-mvt_ind = 'B'.              "指定移库为采购订单

APPEND lt_input_item TO it_input_item.

CLEAR:lh_input_mblnr.

IF it_input_item IS NOT INITIAL.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
      EXPORTING
        goodsmvt_header  = output_header
        goodsmvt_code    = '01'
      IMPORTING
        materialdocument = lh_input_mblnr
      TABLES
        goodsmvt_item    = it_input_item
        return           = it_input_return.

IF sy-subrc = 0 AND lh_input_mblnr <> ''.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
      COMMIT WORK AND WAIT.
      IF sy-subrc = 0.
        MESSAGE s999(zmes) WITH lh_input_mblnr '库存调拨单过账成功'.
      ENDIF.
    ELSE.
***转出操作失败。
      CLEAR:lh_string.
      LOOP AT it_input_return INTO lt_input_return .
        CLEAR: lh_row.
        lh_row = lt_input_return-row.
        CONCATENATE  lt_input_return-message lh_string
           INTO lh_string SEPARATED BY space.
      ENDLOOP.
      MESSAGE i999(zmes) WITH lh_string.
    ENDIF.
  ENDIF.