report ZPM_X_BAPI_GOODSMVT_413.

tables: mara.

* 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  like sy-datum,   " Дата проводки
            p_matnr  like mara-matnr, " Номер материала
            p_quant  type menge_d,    " Количество
            p_vbeln  like vbap-vbeln, " Заказ клиента
            p_posnr  like vbap-posnr, " Позиция заказа клиента
            p_plant  like t001l-werks, " Завод
            p_lgt_fr like t001l-lgort, " Склад (Откуда)
            p_lgt_to like t001l-lgort. " Склад (Куда)


end-of-selection.

  clear: gmhead,
         gmcode,
         goodsmvt_item.

  refresh: goodsmvt_item.


* Fill goodsmvt_code = gmcode
  move: '04' to gmcode-gm_code. "Transfer

* 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 'Mat.transfer: 413 Mvt.' to gmhead-header_txt.

* Fill Item for Mat.document
  move: '413' 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_quant  to goodsmvt_item-entry_qnt,
        p_meins  to goodsmvt_item-entry_uom,
        p_vbeln  to goodsmvt_item-sales_ord,
        p_posnr  to goodsmvt_item-s_ord_item,
        p_plant  to goodsmvt_item-plant,
        p_lgt_fr to goodsmvt_item-stge_loc,
        p_lgt_to to goodsmvt_item-move_stloc.


  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.

FUNCTION ZWMS_GOODSMVT_CREATE.
*"----------------------------------------------------------------------
*"*"Локальный Интерфейс:
*"  IMPORTING
*"     VALUE(I_REVERSALFLAG) LIKE  BAPI2017_GM_ITEM_CREATE-XSTOB
*"       OPTIONAL
*"  EXPORTING
*"     VALUE(MATERIALDOCUMENT) LIKE  BAPI2017_GM_HEAD_RET-MAT_DOC
*"  TABLES
*"      POSITIONS STRUCTURE  ZGOODSMVT_CREATE_POS
*"      RETURN STRUCTURE  BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------
DATA: it_return like BAPIRET2                OCCURS 0 WITH HEADER LINE.
DATA: items     like bapi2017_gm_item_create OCCURS 0 WITH HEADER LINE.
DATA: gmhead    like bapi2017_gm_head_01     OCCURS 0 WITH HEADER LINE.
DATA: gmcode    like bapi2017_gm_code        OCCURS 0 WITH HEADER LINE.
refresh it_return.
gmhead-pstng_date = sy-datum.
gmhead-doc_date   = sy-datum.
gmhead-pr_uname   = sy-uname.
gmcode-gm_code    = '04'.
loop at positions.
  items-plant      = items-move_plant = '1000'.
  items-stge_loc   = items-move_stloc = '8003'.
  items-move_type  = '413'.
  if I_REVERSALFLAG is not initial.
    items-xstob = 'X'.
  endif.
*  items-spec_stock ='E'.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = positions-material
    importing
      output = items-material.

  select single meins into items-entry_uom from mara where matnr = items-material.

if sy-subrc eq 0.
  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = positions-vbeln
    importing
      output = items-sales_ord.

  items-s_ord_item = positions-vbnum * 10.
  items-entry_qnt  = positions-qty.
  items-sched_line = '0001'.
  append items.
endif.
endloop.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
  EXPORTING
    GOODSMVT_HEADER               = gmhead
    GOODSMVT_CODE                 = gmcode
  IMPORTING
    MATERIALDOCUMENT              = materialdocument
  TABLES
    GOODSMVT_ITEM                 = items
    RETURN                        = it_return.
*--- check it_return
LOOP AT it_return.
  IF it_return-type = 'E'.
*    MESSAGE ID it_return-id TYPE 'E' NUMBER it_return-number WITH it_return-message_v1 it_return-message_v2
*                                                            it_return-message_v3 it_return-message_v4.
    append it_return to return.
  ENDIF.
ENDLOOP.refresh it_return.clear it_return.
IF return IS INITIAL.
*--- commit work.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      WAIT = 'X'
    IMPORTING
      RETURN = return.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
   IMPORTING
      RETURN = return.
ENDIF.
ENDFUNCTION.

  items-po_number = positions-pur_doc.
  items-po_item = positions-po_item.