см.ниже

FUNCTION Z_SALESORDER_CREATEFROMDAT2.
*-- Data declarations.
*DATA: i_vbeln LIKE likp-vbeln.
DATA: i_ship  type kunnr.
DATA: wait    type BAPITA-WAIT.
DATA: header  LIKE BAPISDHD1.
DATA: headerx LIKE BAPISDHD1X.
DATA: partner LIKE BAPIPARNR OCCURS 0 WITH HEADER LINE.
*----
data: ITEM like BAPISDITM OCCURS 0 WITH HEADER LINE.
data: ITEMX like BAPISDITMX OCCURS 0 WITH HEADER LINE.
data: ORDER_SCHEDULES_IN like BAPISCHDL OCCURS 0 WITH HEADER LINE.
data: ORDER_SCHEDULES_INX like BAPISCHDLX OCCURS 0 WITH HEADER LINE.
*----
data: SENDER LIKE  BAPI_SENDER.
*---
data:wa_makt type makt.

*--header data.
header-doc_type   = 'TA'.   " that is standart sale order (Deutsch)
header-sales_org  = '1000'.
header-distr_chan = '01'.
header-division   = '01'.

*-- headerx data.
headerx-updateflag = 'I'.   " this flag mean that we create a new one sale order
headerx-doc_type   = 'X'.
headerx-sales_org  = 'X'.
headerx-distr_chan = 'X'.
headerx-division   = 'X'.

*-- definition of ship-to party data of partners data.
  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = i_sold
    importing
      output = i_sold.

if i_ship is initial.
   move i_sold to i_ship.
endif.

*-- definition of item data.
loop at positions.
  clear item.
    itemx-updateflag ='I'.
    item-itm_number = sy-tabix * 10.
    itemx-itm_number = item-itm_number.
    item-material = positions-material.
    itemx-material = 'X'.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input  = item-material
    importing
      output = item-material.
    select single * from makt into wa_makt where matnr eq item-material.
  if sy-subrc eq 0.

    item-target_qty = positions-target_qty.
    itemx-target_qty = 'X'.
*    item-target_qu = positions-target_qu.
*    itemx-target_qu = 'X'.
    item-short_text = wa_makt-maktx.
    itemx-short_text = 'X'.
    item-purch_date = sy-datum.
    itemx-purch_date = 'X'.
    order_schedules_in-itm_number = item-itm_number.
    order_schedules_inx-itm_number = item-itm_number.
    order_schedules_in-req_qty = item-target_qty.
    order_schedules_inx-req_qty = 'X'.
  append item.
  append itemx.
  append order_schedules_in.
  append order_schedules_inx.
  endif.
endloop.

*-- definition of partners data.
partner-partn_role = 'AG'. " sold-to party role (Deutsch)
partner-partn_numb = i_sold.
APPEND partner.
partner-partn_role = 'WE'. " ship-to party role (Deutsch)
partner-partn_numb = i_ship.
APPEND partner.
*-- sender system difinition.
SENDER-LOG_SYSTEM = '*'.

*-- call BAPI
call FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
    EXPORTING
     ORDER_HEADER_IN = HEADER "LIKE  BAPISDHD1 STRUCTURE  BAPISDHD1
     ORDER_HEADER_INX = HEADERX "LIKE  BAPISDHD1X STRUCTURE  BAPISDHD1X  OPTIONAL
     SENDER = SENDER
  IMPORTING
     SALESDOCUMENT  = E_VBELN "LIKE  BAPIVBELN-VBELN
  TABLES
      RETURN = return"STRUCTURE  BAPIRET2 OPTIONAL
      ORDER_ITEMS_IN = item "STRUCTURE  BAPISDITM OPTIONAL
      ORDER_ITEMS_INX = itemx "STRUCTURE  BAPISDITMX OPTIONAL
      ORDER_PARTNERS  = partner "STRUCTURE  BAPIPARNR
      ORDER_SCHEDULES_IN  = ORDER_SCHEDULES_IN  "STRUCTURE  BAPISCHDL OPTIONAL
      ORDER_SCHEDULES_INX = ORDER_SCHEDULES_INX "STRUCTURE  BAPISCHDLX OPTIONAL
.

commit work.

ENDFUNCTION.

FUNCTION Z_SALESORDER_CHANGE.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(I_VBELN) LIKE  BAPIVBELN-VBELN OPTIONAL
*"     VALUE(I_UPDATEFLAG) TYPE  UPDKZ_D OPTIONAL
*"  TABLES
*"      POSITIONS STRUCTURE  ZSALESORDER_CREATE_POS
*"      RETURN STRUCTURE  BAPIRET2
*"----------------------------------------------------------------------
DATA: header  like BAPISDH1X.
DATA: item    like BAPISDITM  OCCURS 0 WITH HEADER LINE.
DATA: itemx   like BAPISDITMX OCCURS 0 WITH HEADER LINE.
DATA: schdl   like BAPISCHDL  OCCURS 0 WITH HEADER LINE.
DATA: schdlx  like BAPISCHDLX OCCURS 0 WITH HEADER LINE.
DATA: wa_makt type makt.
DATA: salesdocument like BAPIVBELN-VBELN.
header-updateflag = i_updateflag.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    INPUT  = i_vbeln
  IMPORTING
    OUTPUT = salesdocument.

IF i_updateflag <> 'D'.
  LOOP AT positions.
    item-itm_number  = itemx-itm_number = positions-itm_number.
    itemx-updateflag = positions-updateflag.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        INPUT  = positions-material
      IMPORTING
        OUTPUT = item-material.

      itemx-material   = 'X'.

    SELECT SINGLE * FROM makt INTO wa_makt WHERE matnr EQ item-material.
      IF sy-subrc EQ 0.
        item-target_qty = positions-target_qty.
        itemx-target_qty = 'X'.
        item-short_text = wa_makt-maktx.
        itemx-short_text = 'X'.
        item-purch_date = sy-datum.
        itemx-purch_date = 'X'.
        PERFORM correct_schdl TABLES schdl
                                     schdlx
                               USING salesdocument
                                     item-itm_number
                                     item-target_qty.
        APPEND item.
        APPEND itemx.
        APPEND schdl.
        APPEND schdlx.
      ENDIF.
  ENDLOOP.
ENDIF.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
  EXPORTING
    SALESDOCUMENT               = salesdocument
    ORDER_HEADER_INX            = header
    BEHAVE_WHEN_ERROR           = space
  TABLES
    RETURN                      = return
    ORDER_ITEM_IN               = item
    ORDER_ITEM_INX              = itemx
    SCHEDULE_LINES              = schdl
    SCHEDULE_LINESX             = schdlx.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
   WAIT          = 'X'
IMPORTING
   RETURN        = return.

ENDFUNCTION.
*&-------------------------------------------------------------------
*&-- FORM CORRECT SCHEDULE
*&-------------------------------------------------------------------
FORM correct_schdl TABLES lt_schdl   STRUCTURE bapischdl
                          lt_schdlx  STRUCTURE bapischdlx
                    USING l_vbeln
                          l_posnr
                          l_tar_qty.

DATA: BEGIN OF lt_sh OCCURS 0.
DATA: ETENR LIKE vbep-etenr.
DATA: WMENG LIKE vbep-wmeng.
DATA: END OF lt_sh.

  SELECT SINGLE etenr WMENG INTO lt_sh FROM vbep WHERE vbeln eq l_vbeln
                                                   AND posnr eq l_posnr.
    IF sy-subrc eq 0.
      lt_schdl-itm_number = lt_schdlx-itm_number = l_posnr.
      lt_schdl-sched_line = lt_schdlx-sched_line = lt_sh-etenr.
      lt_schdl-req_qty = l_tar_qty.
      lt_schdlx-req_qty = 'X'.
      lt_schdlx-updateflag = 'U'.
    ENDIF.
ENDFORM.

FORM corect_shad TABLES lt_shad  STRUCTURE bapischdl
                        lt_shadx  STRUCTURE bapischdlx
                   USING l_beln.
  DATA: BEGIN OF lt_sh OCCURS 0,
         posnr LIKE vbep-posnr,
         etenr LIKE vbep-etenr,
       END OF lt_sh.

  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_sh
    FROM vbep WHERE vbeln = l_beln.

  LOOP AT lt_sh FROM 2.
    lt_shadx-updateflag = 'D'.
    lt_shad-itm_number = lt_shadx-itm_number = lt_sh-posnr.
    lt_shad-sched_line = lt_shadx-sched_line = lt_sh-etenr.
    lt_shad-req_qty = 0.
    lt_shadx-req_qty = 'X'.
    APPEND lt_shadx.
    APPEND lt_shad.
  ENDLOOP.
  READ TABLE lt_shadx INDEX 1.
  lt_shadx-sched_line = 1.
  lt_shadx-updateflag = 'U'.
  MODIFY lt_shadx INDEX 1.
  REFRESH lt_sh.CLEAR lt_sh.
ENDFORM.                    "corect_sh

CALL FUNCTION 'ALE_SALESORDER_CREATEFROMDAT2'
        EXPORTING
          salesdocumentin      = '2812'
          orderheaderin        = header
          orderheaderinx       = headerx
          sender               = sender
        TABLES
          orderitemsin         = item
          orderitemsinx        = itemx
          orderpartners        = partner
          orderschedulesin     = order_schedules_in
          orderschedulesinx    = order_schedules_inx
          receivers            = bapi_logsys
        EXCEPTIONS
          error_creating_idocs = 1.

        COMMIT WORK.