wa_items-preq_item      = c_pos.         " позиция, всегда 10
    wa_items-doc_type        = 'ZA'.           " Вид документа: заявка
    wa_items-ACCTASSCAT = 'N'.             " Тип контировки
    wa_items-ITEM_CAT       = '9'.             " работы / услуги
    wa_items-CREATED_BY  = sy-uname.       " создал...
    wa_items-preq_date       =                   " Дата заявки
    wa_items-deliv_date       =               " Дата поставки материала по позиции
    wa_items-rel_date          = sy-datum.     " Дата выдачи заявки
    wa_items-MAT_GRP        = 'U300'.       " Группа материалов - Монтаж
    wa_items-PURCH_ORG    = '1020'.       " Закупочная организация
    wa_items-ITEM_CAT_EXT = 'Y'.          " тип позиции
    wa_items-PLANT             = '1050'.       " Завод
    wa_items-SHORT_TEXT   = 'Тест'.       " краткий текст опреции
    wa_items-QUANTITY       = '1'.
    APPEND wa_items to REQUISITION_ITEMS.

    wa_aa-PREQ_ITEM       = c_pos.            " позиция
    wa_aa-NETWORK         = '000004008797' .  " сетевой график
    wa_aa-ACTIVITY        = '0020' .          " операция
    APPEND wa_aa  to REQUISITION_AA.

    wa_sv-SERVICE         = '000000000003000002' . " № работы/услуги
    APPEND wa_sv to REQUISITION_SV.
   
    call function 'BAPI_REQUISITION_CREATE'
*     EXPORTING
*       SKIP_ITEMS_WITH_ERROR             =
*       AUTOMATIC_SOURCE                  = 'X'
     IMPORTING
       NUMBER                             = NUMBER
     tables
        REQUISITION_ITEMS                 = REQUISITION_ITEMS
        REQUISITION_ACCOUNT_ASSIGNMENT    = REQUISITION_AA
        REQUISITION_SERVICES              = REQUISITION_SV
        RETURN                            = RETURN
              .

data:
        REQUISITION_ITEMS              type table of BAPIEBANC with header line
      , REQUISITION_ACCOUNT_ASSIGNMENT type table of BAPIEBKN  with header line
      , REQUISITION_SERVICES           type table of BAPIESLLC with header line
      , REQUISITION_SRV_ACCASS_VALUES  type TABLE OF BAPIESKLC WITH HEADER LINE
      , REQUISITION_SERVICES_TEXT      type TABLE OF BAPIESLLTX WITH HEADER LINE
      , V_PACKNO                       type PACKNO
      , NUMBER                         type BANFN
      , return                         type STANDARD TABLE OF BAPIRETURN
      .
      .

start-of-selection.

  REQUISITION_ITEMS-DOC_TYPE     = 'ZA'.      "услуга
  REQUISITION_ITEMS-ACCTASSCAT   = 'N'.
  REQUISITION_ITEMS-PUR_GROUP    = '020'.   
  REQUISITION_ITEMS-PLANT        = '2020'.   
  REQUISITION_ITEMS-DELIV_DATE   = SY-DATUM. 
  REQUISITION_ITEMS-ITEM_CAT_EXT = 'Y'.     
  REQUISITION_ITEMS-SHORT_TEXT   = 'Test'.   
  REQUISITION_ITEMS-MAT_GRP      = 'U300'.   
  REQUISITION_ITEMS-PCKG_NO      = '0000000001'. 
  REQUISITION_ITEMS-PREQ_ITEM    = '00001'.       
  append REQUISITION_ITEMS.


  REQUISITION_ACCOUNT_ASSIGNMENT-SERIAL_NO = '01'.   
  REQUISITION_ACCOUNT_ASSIGNMENT-PREQ_ITEM = '00001'.
  REQUISITION_ACCOUNT_ASSIGNMENT-NETWORK   = '000004008797' .  " сетевой график
  REQUISITION_ACCOUNT_ASSIGNMENT-ACTIVITY  = '0030' .
  APPEND  REQUISITION_ACCOUNT_ASSIGNMENT.


  REQUISITION_SERVICES-PCKG_NO    = '0000000001'. 
  REQUISITION_SERVICES-SUBPCKG_NO = REQUISITION_SERVICES-PCKG_NO + 1.
  REQUISITION_SERVICES-EXT_LINE   = 0.
  REQUISITION_SERVICES-LINE_NO    = '1'.           
  REQUISITION_SERVICES-SHORT_TEXT = 'Test'.       
  REQUISITION_SERVICES-SERVICE    = '000000000003000004'.
  APPEND REQUISITION_SERVICES.

  requisition_services-pckg_no    = requisition_items-pckg_no + 1.
  requisition_services-subpckg_no = 0.
  requisition_services-ext_line   = requisition_services-ext_line + 10.
  requisition_services-line_no    = requisition_services-line_no + '0000000001'.
  REQUISITION_SERVICES-SHORT_TEXT = 'Test'.         
  REQUISITION_SERVICES-GR_PRICE   = '1.300'.     
  REQUISITION_SERVICES-QUANTITY   = '1.500'.       
  call function 'CONVERSION_EXIT_CUNIT_INPUT'
    exporting
      INPUT    = 'ЕР'
      LANGUAGE = SY-LANGU
    importing
      OUTPUT   = REQUISITION_SERVICES-BASE_UOM.
  append REQUISITION_SERVICES.



  REQUISITION_SRV_ACCASS_VALUES-PCKG_NO    = REQUISITION_SERVICES-PCKG_NO.
  REQUISITION_SRV_ACCASS_VALUES-LINE_NO    = REQUISITION_SERVICES-LINE_NO.
  REQUISITION_SRV_ACCASS_VALUES-SERNO_LINE =
  REQUISITION_SRV_ACCASS_VALUES-SERIAL_NO  = REQUISITION_ACCOUNT_ASSIGNMENT-SERIAL_NO.
  REQUISITION_SRV_ACCASS_VALUES-QUANTITY   = 1.
  append REQUISITION_SRV_ACCASS_VALUES.


  call function 'BAPI_REQUISITION_CREATE'
    importing
      NUMBER                         = NUMBER
    tables
      REQUISITION_ITEMS              = REQUISITION_ITEMS
      REQUISITION_ACCOUNT_ASSIGNMENT = REQUISITION_ACCOUNT_ASSIGNMENT
      REQUISITION_SERVICES           = REQUISITION_SERVICES
      REQUISITION_SRV_ACCASS_VALUES  = REQUISITION_SRV_ACCASS_VALUES
      RETURN                         = RETURN.