data: ls_ekko      type ekko,
        lv_tanum     type tanum,
        ls_ltap      type ltap_vb,
        lt_ltap      type table of ltap_vb,
        ls_ltbk      type ltbk.

  select single * from ekko into ls_ekko
    where ebeln = gs_accteption-bstnr.

  clear ls_ltbk.
  select single * from ltbk into ls_ltbk
    where lgnum = gs_accteption-lgnum
      and mblnr = iv_mblnr
      and mjahr = iv_mjahr.
  if sy-subrc is not initial.
        message e051.
  endif.

  " Создаем Тр.заказ к Тр. заявке
  call function 'L_TO_CREATE_TR'
    exporting
      i_lgnum   = gs_accteption-lgnum
      i_tbnum   = ls_ltbk-tbnum
      i_ldest   = gs_accteption-device
    importing
      e_tanum   = lv_tanum
    tables
      t_ltap_vb = lt_ltap
    exceptions
      others    = 1.

  call function 'L_TO_CREATE_TR'
    exporting
      i_lgnum                        = lgnum
      i_tbnum                        = tbnum
      i_nidru                        = abap_true
      i_update_task                  = abap_true
      i_commit_work                  = abap_true
    importing
      e_tanum                        = tanum
      e_teilk                        = e_teilk.