i_goodsmvt_item-material       = itab_items_mm_doc-matnr.
    i_goodsmvt_item-plant            = werks.
    i_goodsmvt_item-stge_loc       = lgort.
    i_goodsmvt_item-batch           = itab_items_mm_doc-charg.
    i_goodsmvt_item-move_type   = bwart.
    i_goodsmvt_item-val_type       = itab_items_mm_doc-charg.
    i_goodsmvt_item-entry_qnt      = itab_items_mm_doc-erfmg.
    i_goodsmvt_item-entry_uom    = itab_items_mm_doc-erfme.
    i_goodsmvt_item-gr_rcpt          = wempf. "Получатель материала
    i_goodsmvt_item-move_plant    = werks.
    i_goodsmvt_item-move_stloc    = lgort.
    i_goodsmvt_item-move_batch    = itab_items_mm_doc-charg.
    i_goodsmvt_item-move_val_type = itab_items_mm_doc-charg.
    i_goodsmvt_item-ref_doc       = itab_items_mm_doc-mjahr.
    i_goodsmvt_item-ref_doc_it    = itab_items_mm_doc-zeile.
    i_goodsmvt_item-mvt_ind       = space.
    i_goodsmvt_item-costcenter    = kostl.

    append i_goodsmvt_item.
  endloop.
  call function 'BAPI_GOODSMVT_CREATE'
       exporting
            goodsmvt_header  = i_goodsmvt_header
            goodsmvt_code    = i_goodsmvt_code
            testrun          = i_test
       importing
            goodsmvt_headret = i_goodsmvt_headret
            materialdocument = i_materialdocument
            matdocumentyear  = i_matdocumentyear
       tables
            goodsmvt_item    = i_goodsmvt_item
            return           = i_return.

report ZPM_X_BAPI_GOODSMVT_201.

tables: mara,
        t001l.

* Data for BAPI_GOODSMVT_CREATE
data: gmhead type bapi2017_gm_head_01,
      gmcode type bapi2017_gm_code,
      mthead type bapi2017_gm_head_ret.

data: goodsmvt_item like bapi2017_gm_item_create occurs 0 with header line.

data: ls_request like bapideliciousrequest,
      lt_return type bapiret2 occurs 0 with header line,
      error_occured.


data: p_meins like mara-meins.


parameters: p_budat  type sydatum,   " Дата проводки
            p_matnr  type matnr,     " Материал
            p_charg  type charg_d,   " Партия
            p_menge  type menge_d,   " Количество в БЕИ
*            p_dmbtr  type dmbtr,     " Сумма во ВВ
            p_plant  type werks_d,   " Завод
            p_lgort  type lgort_d,   " Склад
            p_kostl  type kostl,     " МВЗ
            p_hkont  type hkont.     " Затратный счет


end-of-selection.

  clear: gmhead,
         gmcode,
         goodsmvt_item.

  refresh: goodsmvt_item.


* Fill goodsmvt_code = gmcode
  move: '03' to gmcode-gm_code. "Goods issue

* Fill Head for Mat.document
  move: p_budat              to gmhead-pstng_date,
        sy-datum             to gmhead-doc_date,
        sy-uname             to gmhead-pr_uname.

  move 'Goods Issue with 201 mvt' to gmhead-header_txt.

* Fill Item for Mat.document
  move: '201' to goodsmvt_item-move_type,
        space to goodsmvt_item-mvt_ind.

  select single meins into p_meins from mara where matnr = p_matnr.

  move: p_matnr  to goodsmvt_item-material,
        p_charg  to goodsmvt_item-batch,
        p_menge  to goodsmvt_item-entry_qnt,
        p_meins  to goodsmvt_item-entry_uom,
        p_plant  to goodsmvt_item-plant,
        p_lgort  to goodsmvt_item-stge_loc,
*        p_dmbtr  to goodsmvt_item-amount_lc,
        p_kostl  to goodsmvt_item-costcenter,
        p_hkont  to goodsmvt_item-gl_account.


  append goodsmvt_item.

  call function 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header = gmhead
      goodsmvt_code   = gmcode
    TABLES
      goodsmvt_item   = goodsmvt_item
      return          = lt_return.


  if lt_return[] is initial.
    call function 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  endif.

E M7                   021                                                                               
П/СвобИспользЗпс на 8 ШТ меньше : 31062 1000 3061 0000039503.                                           
П/СвобИспользЗпс                                   8                                                  ШТ
: 31062 1000 3061 0000039503                       E M7                   021                           
П/СвобИспользЗпс на 6 ШТ меньше : 31063 1000 3061 0000039504.                                           
П/СвобИспользЗпс                                   6                                                  ШТ
: 31063 1000 3061 0000039504                       E M7                   021                           
П/СвобИспользЗпс на 4 ШТ меньше : 26241 1000 3061 0000039505.                                           
П/СвобИспользЗпс                                   4                                                  ШТ
: 26241 1000 3061 0000039505                       E M7                   021                           
П/СвобИспользЗпс на 4 ШТ меньше : 26241 1000 3061 0000039506.                                           
П/СвобИспользЗпс                                   4                                                  ШТ
: 26241 1000 3061 0000039506                       E M7                   021                           
П/СвобИспользЗпс на 1 ШТ меньше : 31075 1000 3061 0000039507.                                           
П/СвобИспользЗпс                                   1                                                  ШТ
: 31075 1000 3061 0000039507                       E M7                   021                           
П/СвобИспользЗпс на 4 ШТ меньше : 31076 1000 3061 0000039508.