report z_test.

PARAMETERS: mtype    type bwart default '311',
            budat    type budat,
            matnr    type matnr,
            plant    type werks_d,
            lgo_from type lgort_d,   " Склад - откуда
            lgo_to   type lgort_d,   " Склад - куда
            quant    type menge_d,   " Количество
            meins    type meins.

data: e_res_header  type BAPI2093_RES_HEAD,
      et_res_items  type BAPI2093_RES_ITEM occurs 0 with header line,
      et_profit     type BAPI_PROFITABILITY_SEGMENT occurs 0 with header line,
      lt_return     type BAPIRET2 occurs 0 with header line,
      l_reservation type BAPI2093_RES_KEY-RESERV_NO.

data is_error.


clear e_res_header.
e_res_header-res_date   = budat.
e_res_header-move_type  = mtype.
e_res_header-move_plant = plant.
e_res_header-move_stloc = lgo_to.

clear et_res_items.
refresh et_res_items.

et_res_items-req_date = budat.
et_res_items-material = matnr.
et_res_items-plant = plant.
et_res_items-stge_loc = lgo_from.
et_res_items-entry_qnt = quant.
et_res_items-entry_uom = meins.
et_res_items-movement = 'X'.

APPEND et_res_items.

CALL FUNCTION 'BAPI_RESERVATION_CREATE1'
  EXPORTING
    reservationheader    = e_res_header
  IMPORTING
    reservation          = l_reservation
  TABLES
    reservationitems     = et_res_items
    PROFITABILITYSEGMENT = et_profit
    return               = lt_return
  EXCEPTIONS
    OTHERS               = 1.

if lt_return[] is not initial.
  loop at lt_return.
    case lt_return-type.
      when 'E' or 'A'.
        is_error = 'X'.
        exit.
    endcase.

  endloop.
endif.

if is_error is initial.
  call function 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
endif.