ls_plant-function = iv_function.
  ls_plant-material = iv_matnr.
  ls_plant-plant = iv_werks.
  ls_plant-batch_mgmt = i_mara_xchpf. "-- Устанавливается
  ls_plant-pur_group = lv_ekgrp. "-- Устанавливается
  ls_plant-availcheck = i_marc_mtvfp. " Группа проверки доступности запасов - НЕ УСТАНАВЛИВАЕТСЯ!!!
  ls_plant-loadinggrp = i_marc_ladgr. " Группа погрузки - НЕ УСТАНАВЛИВАЕТСЯ!!!

  "--
  DATA ls_head TYPE bapie1matheader.
  DATA lt_head LIKE TABLE OF ls_head.
  "-- account_view
  DATA ls_val TYPE bapie1mbew.
  DATA lt_val LIKE TABLE OF ls_val.
  DATA ls_valx TYPE bapie1mbewx.
  DATA lt_valx LIKE TABLE OF ls_valx.
  "-- purchase_view
  DATA ls_plant TYPE bapie1marc.
  DATA lt_plant LIKE TABLE OF ls_plant.
  DATA ls_plantx TYPE bapie1marcx.
  DATA lt_plantx LIKE TABLE OF ls_plantx.

  ls_head-function = iv_function_header.
  ls_head-material = iv_matnr.
  ls_head-account_view = 'X'.
  ls_head-purchase_view = 'X'.
  "ls_head-mrp_view = 'X'.
  APPEND ls_head TO lt_head.

  ls_val-function = iv_function.
  ls_val-material = iv_matnr.
  ls_val-val_area = iv_werks.
  "ls_val-val_type = iv_charg.
  ls_val-moving_pr = iv_price.
  "ls_val-std_price = iv_price * 10.
  ls_val-val_class = i_mbew_bklas. " Вид оценки
  ls_val-val_cat = i_mbew_bwtty. " Тип оценки
  ls_val-price_ctrl = i_mbew_vprsv. " Управление ценой
  ls_val-price_unit = i_mbew_peinh. " Единица цены
  APPEND ls_val TO lt_val.

  ls_valx-function = iv_function.
  ls_valx-material = iv_matnr.
  ls_valx-val_area = iv_werks.
  "ls_valx-val_type = iv_charg.
  ls_valx-moving_pr = 'X'.
  "ls_valx-std_price = 'X'.
  ls_valx-val_class = 'X'.
  ls_valx-val_class = 'X'. " Вид оценки
  ls_valx-val_cat = 'X'. " Тип оценки
  ls_valx-price_ctrl = 'X'. " Управление ценой
  ls_valx-price_unit = 'X'. " Единица цены
  APPEND ls_valx TO lt_valx.

  "--
  ls_plant-function = iv_function.
  ls_plant-material = iv_matnr.
  ls_plant-plant = iv_werks.
  ls_plant-batch_mgmt = i_mara_xchpf.
  ls_plant-pur_group = lv_ekgrp.
  ls_plant-availcheck = i_marc_mtvfp. " Группа проверки доступности запасов
  ls_plant-loadinggrp = i_marc_ladgr. " Группа погрузки
  APPEND ls_plant TO lt_plant.

  ls_plantx-function = iv_function.
  ls_plantx-material = iv_matnr.
  ls_plantx-plant = iv_werks.
  ls_plantx-batch_mgmt = 'X'.
  ls_plantx-pur_group = 'X'.
  ls_plantx-availcheck = 'X'.
  ls_plantx-loadinggrp = 'X'.
  APPEND ls_plantx TO lt_plantx.

  DATA ls_return TYPE bapiret2.
  CALL FUNCTION 'BAPI_MATERIAL_SAVEREPLICA'
    EXPORTING
      noappllog      = space
      nochangedoc    = space
      testrun        = i_testrun
      inpfldcheck    = space
*     FLAG_CAD_CALL  = ' '
*     NO_ROLLBACK_WORK           = ' '
*     FLAG_ONLINE    = ' '
    IMPORTING
      return         = ls_return
    TABLES
      headdata       = lt_head
      plantdata      = lt_plant
      plantdatax     = lt_plantx
      valuationdata  = lt_val
      valuationdatax = lt_valx
      returnmessages = t_messages.