ls_header-comp_code = ztmmekko-bukrs." Company Code
    ls_header-doc_type = 'NB'. " Order Typr BSART
    ls_header-creat_date = SY-DATUM. " P.O Dt - BEDAT
    ls_header-vendor = ztmmekko-lifnr. "Vendor - EKKO-LIFNR
    ls_header-purch_org = ztmmekko-ekorg. " Purch. Org - EKKO-EKORG
    ls_header-pur_group = ztmmekko-ekgrp. " Purch Group - EKKO-EKGRP
    ls_header-currency_iso = ztmmekko-waers. " Currency Default field for Enjoy

    ls_headerx-po_number = 'X'.
    ls_headerx-comp_code = 'X'." Company Code
    ls_headerx-doc_type = 'X'. " Order Typr BSART
    ls_headerx-creat_date = 'X'.
    ls_headerx-vendor = 'X'. "Vendor - EKKO-LIFNR
    ls_headerx-purch_org = 'X'. " Purch. Org - EKKO-EKORG
    ls_headerx-pur_group = 'X'. " Purch Group - EKKO-EKGRP
    ls_headerx-currency_iso = 'X'. " Currency Default field for Enjoy

    " customer fields
    clear lt_extensionin.
    lt_extensionin-structure = 'BAPI_TE_MEPOHEADER'.
    ls_bapi_te_mepoheader-zzdoknr = ztmmekko-doknr.
    " выбор номера договора
    select single znum_1 from zvca_dogovor
      into ls_bapi_te_mepoheader-zznum_1
     where doknr = ztmmekko-doknr.
    if sy-subrc <> 0.
      select single znum_1 from zvca_dogovor_dop
        into ls_bapi_te_mepoheader-zznum_1
       where doknr = ztmmekko-doknr.
      if sy-subrc <> 0.
        clear ls_bapi_te_mepoheader-zznum_1.
      endif.
    endif.
    lt_extensionin+30 = ls_bapi_te_mepoheader.
    append lt_extensionin.
    clear lt_extensionin.
    lt_extensionin-structure = 'BAPI_TE_MEPOHEADERX'.
    ls_bapi_te_mepoheaderx-zzdoknr = 'X'.
    ls_bapi_te_mepoheaderx-zznum_1 = 'X'.
    lt_extensionin+30 = ls_bapi_te_mepoheaderx.
    append lt_extensionin.


    " позиции
    loop at lt_selpos1.

      lt_items-po_item = lt_selpos1-aktpo." line item no - ekpo-ebelp
*      t_po_items-short_text = 'ksr text'." line item text
      lt_items-acctasscat = lt_selpos1-knttp.    " тип контировки
      lt_items-material = lt_selpos1-matnr. " material no - ekpo-ematn
      lt_items-plant = ztmmekko-werks. " plant - ekpo-werks
*      lt_items-quantity = '1'.
      lt_items-quantity = '1.000'.
      loop at lt_selpos where matnr = lt_selpos1-matnr and
                              mwskz = lt_selpos1-mwskz and
                              knttp = lt_selpos1-knttp and
                              sakto = lt_selpos1-sakto and
                              kostl = lt_selpos1-kostl.
        if lt_selpos1-mwskz = 'F1'.
          lt_items-net_price = lt_items-net_price + lt_selpos-wrbtr + lt_selpos-wmwst.
        else.
          lt_items-net_price = lt_items-net_price + lt_selpos-wrbtr.
        endif.
      endloop.
      lt_items-po_price = '2'.
      lt_items-price_unit = '1'.
      lt_items-tax_code = lt_selpos1-mwskz.
      lt_items-gr_ind = 'X'.
      lt_items-ir_ind = 'X'.
      lt_items-gr_basediv = 'X'.
      append lt_items.
      clear lt_items.

      lt_itemsx-po_item = lt_selpos1-aktpo.
      lt_itemsx-po_itemx = 'X'.
      lt_items-acctasscat = 'X'.
      lt_itemsx-ematerial = 'X'.
      lt_itemsx-plant = 'X'.
      lt_itemsx-quantity = 'X'.
      lt_itemsx-net_price = 'X'.
      lt_itemsx-po_price = 'X'.
      lt_itemsx-price_unit = 'X'.
      lt_itemsx-tax_code = 'X'.
      lt_itemsx-gr_ind = 'X'.
      lt_itemsx-ir_ind = 'X'.
      lt_itemsx-gr_basediv = 'X'.
      append lt_itemsx.
      clear lt_itemsx.

      " контировка
      lt_account-po_item = lt_selpos1-aktpo .
      lt_account-serial_no = '01' .
*      account-creat_date = sy-datum .
      lt_account-costcenter = lt_selpos1-kostl .
      lt_account-gl_account = lt_selpos1-sakto .
      lt_account-co_area = '1000' .
      lt_account-tax_code = lt_selpos1-mwskz .
      append lt_account.
      clear lt_account.

      lt_accountx-po_item = lt_selpos1-aktpo .
      lt_accountx-po_itemx = 'X' .
      lt_accountx-serial_no = 'X' .
      lt_accountx-serial_nox = 'X' .
*      accountx-creat_date = c_x .
      lt_accountx-costcenter = 'X' .
      lt_accountx-gl_account = 'X' .
      lt_accountx-co_area = 'X' .
      lt_accountx-tax_code = 'X' .
      append lt_accountx.
      clear lt_accountx.

    endloop.


    call function 'SAPGUI_PROGRESS_INDICATOR'
      exporting
        percentage = 5
        text       = 'Создание заказа на поставку...'.

    call function 'BAPI_PO_CREATE1'
      exporting
        poheader                     = ls_header
        poheaderx                    = ls_headerx
      importing
        exppurchaseorder             = l_purchaseorder
      tables
        return                       = lt_return[]
        poitem                       = lt_items[]
        poitemx                      = lt_itemsx[]
        poaccount                    = lt_account[]
        poaccountx                   = lt_accountx[]
        extensionin                  = lt_extensionin[]
              .

lt_items-acctasscat = 'X'.

lt_itemsx-acctasscat = 'X'.