CALL FUNCTION 'NUMBER_GET_NEXT'
         EXPORTING
           nr_range_nr                   = '01'
           object                        = 'SERVICE'
         IMPORTING
           NUMBER                        = pacno
         EXCEPTIONS
           INTERVAL_NOT_FOUND            = 1
           OTHERS                        = 8.
    T_REQUISITION_ITEMS-PCKG_NO = pacno + 1.
    T_REQUISITION_ITEMS-DOC_TYPE = 'NB'.
    T_REQUISITION_ITEMS-DEL_DATCAT = '1'.
    T_REQUISITION_ITEMS-DELIV_DATE = p_date.
    T_REQUISITION_ITEMS-PLANT = WERKS.
    T_REQUISITION_ITEMS-SHORT_TEXT = alv_tab-text.
*    clear: ASMD.
    select single * from ASMD
           where ASNUM = alv_tab-ASNUM.
    T_REQUISITION_ITEMS-MAT_GRP = ASMD-MATKL.
    T_REQUISITION_ITEMS-PREQ_ITEM = 10.
    T_REQUISITION_ITEMS-QUANTITY = 1.
    T_REQUISITION_ITEMS-PREQ_NAME = SY-UNAME.
    T_REQUISITION_ITEMS-ACCTASSCAT = 'K'.
    T_REQUISITION_ITEMS-ITEM_CAT = '9' .
*    T_REQUISITION_ITEMS-MAT_GRP = 'У008'.
    APPEND T_REQUISITION_ITEMS.

    T_REQ_ACCOUNT_ASSIGNMENT-PREQ_ITEM = 10.
    T_REQ_ACCOUNT_ASSIGNMENT-COST_CTR = alv_tab-KOSTL.
    T_REQ_ACCOUNT_ASSIGNMENT-CO_AREA = '1000'.
*    T_REQ_ACCOUNT_ASSIGNMENT-FUNDS_CTR = 'ПЭО'.
*    T_REQ_ACCOUNT_ASSIGNMENT-CMMT_ITEM = '11111'.
    clear: T030.
    select single * from T030
           where KTOPL = '1000' and KTOSL = 'GBB' and BWMOD = WERKS and KOMOK = 'VBR' and BKLAS = ASMD-BKLAS.
    T_REQ_ACCOUNT_ASSIGNMENT-G_L_ACCT = T030-KONTS.
    APPEND T_REQ_ACCOUNT_ASSIGNMENT.

*          ld_pack_no = ld_pack_no + 1.
*          lf_reqitem-item_cat  = '9'.  "Service
*          lf_reqitem-pckg_no   = ld_pack_no.
*          T_REQUISITION_SERVICES-pckg_no    = pacno.
*          T_REQUISITION_SERVICES-line_no    = 1.
*          T_REQUISITION_SERVICES-subpckg_no = pacno + 1.
*          T_REQUISITION_SERVICEs-from_line  = 1.
*          T_REQUISITION_SERVICES-outl_ind   = 'X'.
*    APPEND T_REQUISITION_SERVICES.
*    clear T_REQUISITION_SERVICES.
    T_REQUISITION_SERVICES-PCKG_NO = pacno.
    T_REQUISITION_SERVICES-SUBPCKG_NO = pacno + 2.
              T_REQUISITION_SERVICES-line_no    = 1.
    T_REQUISITION_SERVICES-SERVICE = alv_tab-ASNUM.
    T_REQUISITION_SERVICES-SHORT_TEXT = alv_tab-text.
    T_REQUISITION_SERVICES-QUANTITY = 1."alv_tab-ZPMG / 10.
    T_REQUISITION_SERVICES-GR_PRICE = 100."alv_tab-ZPPG.
    APPEND T_REQUISITION_SERVICES.
*    clear  T_REQUISITION_SERVICES.
*    T_REQUISITION_SERVICES-PCKG_NO = pacno + 2.
**    T_REQUISITION_SERVICES-SUBPCKG_NO = pacno + 2.
*    T_REQUISITION_SERVICES-SERVICE = alv_tab-ASNUM.
*    T_REQUISITION_SERVICES-SHORT_TEXT = alv_tab-text.
*    T_REQUISITION_SERVICES-QUANTITY = alv_tab-ZPMG / 10.
*    T_REQUISITION_SERVICES-GR_PRICE = alv_tab-ZPPG.
*    APPEND T_REQUISITION_SERVICES.
*        CALL FUNCTION 'NUMBER_GET_NEXT'
*         EXPORTING
*           nr_range_nr                   = '01'
*           object                        = 'SERVICE'
*         IMPORTING
*           NUMBER                        = pacno
*         EXCEPTIONS
*           INTERVAL_NOT_FOUND            = 1
*           OTHERS                        = 8.
**    T_REQUISITION_SERVICES-PCKG_NO = pacno.
*    T_REQUISITION_SERVICES-SERVICE = alv_tab-ASNUM.
*    T_REQUISITION_SERVICES-SHORT_TEXT = alv_tab-text.
*    T_REQUISITION_SERVICES-QUANTITY = alv_tab-ZPMG / 10.
*    T_REQUISITION_SERVICES-GR_PRICE = alv_tab-ZPPG.
*    APPEND T_REQUISITION_SERVICES.
        lf_srvacctass-pckg_no    = pacno + 1.
        lf_srvacctass-line_no    = 1.
        lf_srvacctass-serno_line = '1'.
        lf_srvacctass-percentage = 100.
        lf_srvacctass-serial_no  = '1'.
        append lf_srvacctass to lt_srvacctass.
    CALL FUNCTION 'BAPI_REQUISITION_CREATE'
*         EXPORTING
*            SKIP_ITEMS_WITH_ERROR =
         IMPORTING
           NUMBER = E_NUMBER
         TABLES
           REQUISITION_ITEMS = T_REQUISITION_ITEMS
           REQUISITION_ACCOUNT_ASSIGNMENT = T_REQ_ACCOUNT_ASSIGNMENT
           REQUISITION_SERVICES = T_REQUISITION_SERVICES
*           REQUISITION_ITEM_TEXT =
*           REQUISITION_LIMITS =
*           REQUISITION_CONTRACT_LIMITS =
           REQUISITION_SRV_ACCASS_VALUES = lt_srvacctass
           RETURN = T_RETURN
*           REQUISITION_SERVICES_TEXT =
*           EXTENSIONIN =
*           REQUISITION_ADDRDELIVERY =
          .


          commit work and wait.