BAPI_GOODSMVT_CREATE 带序列号

API_GOODSMVT_CREATE
物料移动，比如MB1B
'343' "unblock
'344' "block


参考代码

*&BAPI
  DATA: goodsmvt_header   LIKE  bapi2017_gm_head_01,
        goodsmvt_code     LIKE  bapi2017_gm_code.
  DATA: goodsmvt_headret  LIKE  bapi2017_gm_head_ret,
        materialdocument  TYPE  bapi2017_gm_head_ret-mat_doc,
        matdocumentyear   TYPE  bapi2017_gm_head_ret-doc_year.

  DATA:goodsmvt_item         LIKE TABLE OF bapi2017_gm_item_create  WITH HEADER LINE,
       goodsmvt_serialnumber LIKE TABLE OF bapi2017_gm_serialnumber WITH HEADER LINE,
       return                LIKE TABLE OF bapiret2                 WITH HEADER LINE.

  FIELD-SYMBOLS LIKE LINE OF goodsmvt_item.
  DATA:lv_item_line            TYPE int4.


  CHECK it_data[] IS NOT INITIAL.

*抬头部分给值：
  CLEAR: goodsmvt_item[],goodsmvt_header.
  REFRESH: goodsmvt_item.


    goodsmvt_header-pstng_date = sy-datum.
    goodsmvt_header-doc_date = sy-datum.

  goodsmvt_header-pr_uname = sy-uname.
  goodsmvt_code = '04'.

*行项目部分给值

  LOOP AT it_data INTO ls_data .


      goodsmvt_item-material    = ls_data-matnr.
      goodsmvt_item-plant       = ls_data-werks.
      goodsmvt_item-stge_loc    = ls_data-lgort.
      goodsmvt_item-move_type   = iv_move_type.
      goodsmvt_item-move_plant  = ls_data-werks.
      goodsmvt_item-move_stloc  = ls_data-lgort.
      goodsmvt_item-entry_qnt   = 1.            " only 1

READ TABLE goodsmvt_item ASSIGNING <ls_item>
        WITH KEY  material    = ls_data-matnr
                  plant       = ls_data-werks
                  stge_loc    = ls_data-lgort
                  move_type   = iv_move_type
                  move_plant  = ls_data-werks
                  move_stloc  = ls_data-lgort.

      IF sy-subrc = 0.
        <ls_item>-entry_qnt = <ls_item>-entry_qnt + 1.
      ELSE.
        APPEND goodsmvt_item.
      ENDIF.

      DESCRIBE TABLE goodsmvt_item LINES lv_item_line.
      goodsmvt_serialnumber-matdoc_itm = lv_item_line.
      goodsmvt_serialnumber-serialno   = ls_data-sernr.
      APPEND goodsmvt_serialnumber.

**********

Call bapi

      CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
        EXPORTING
          goodsmvt_header       = goodsmvt_header
          goodsmvt_code         = '04'       "#EC * "goodsmvt_code mb1b
        IMPORTING
          materialdocument      = materialdocument
          matdocumentyear       = matdocumentyear
        TABLES
          goodsmvt_item         = goodsmvt_item[]
          goodsmvt_serialnumber = goodsmvt_serialnumber
          return                = return[].



CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.

      READ TABLE return WITH KEY type = 'E'.
      IF sy-subrc = 0.

        CALL FUNCTION 'MESSAGE_TEXT_BUILD'
          EXPORTING
            msgid               = return-id
            msgnr               = return-number
            msgv1               = return-message_v1
            msgv2               = return-message_v2
            msgv3               = return-message_v3
            msgv4               = return-message_v4
          IMPORTING
            message_text_output = lv_msg.

      ELSE.
        lv_mblnr = materialdocument.
      ENDIF.