field-symbols: <object>    type crmt_genil_obj_inst_line.

   cl_crm_genil_container_tools=>get_key_from_object_id(          " Вытянул GUID   SalesOrder -a  после кликания на него в WEB GUI
      exporting
        iv_object_name = <object>-object_name
        iv_object_id   = <object>-object_id
     importing
        es_key         = lv_item_guid  ).

   data(lo_global_msg_cont) = ir_root_list->get_global_message_container( ).  " Вытянул контейнер глобальных сообщений (http://sapist.blogspot.com/2015/02/crm-message-container.html)

    try.  " Сработало исключение
      catch zcx_prap_error_multi into data(lx_prap_multi).  " Свой "мульти" класс исключений пихающий их в "интернал" таблицу
        <object>-success = abap_false.
        data(lt_message) = lx_prap_multi->get_messages( ).
        loop at lt_message into lv_mess.
          lv_offset = strlen( lv_mess ) div 2.
          lv_mess1 =  substring( val = lv_mess off = 0 len = lv_offset ) .  " Сообщение пополам"
          lv_mess2 =  substring( val = lv_mess off = lv_offset len = strlen( lv_mess ) -  lv_offset ) .
          lo_global_msg_cont->add_message( iv_msg_id = '00'  iv_msg_number = '001' iv_msg_type = 'E' iv_msg_v1 = lv_mess1  iv_msg_v2 =  lv_mess2 iv_show_only_once = abap_true  ).  " вывод типа "ERROR "с привязкой к MessageClass '00'
        endloop.
    endtry.

zcl_util_class=>run_faktura_job( ). " вызов метода

method run_faktura_job.

constants:
 co_variant type RALDB-VARIANT default '&000000000000003'.

data:
     lv_jobcount    type btcjobcnt,
      ex_object_cx_root type ref to cx_root.
     job_was_released type BTCH0000-CHAR1.

 try.
  cl_bs_period_toolset_basics=>add_minutes_to_date( exporting
                                                    iv_date    = sy-datum
                                                    iv_time    = sy-uzeit
                                                    iv_minutes = 30
                                                  importing
                                                    ev_date    = data(lv_date_new)
                                                    ev_time    = data(lv_time_new) ).

 catch cx_bs_period_toolset_basics into ex_object_cx_root.
   data(ex_text) = ex_object_cx_root->get_text( ).
   rv_error_message = ex_text.
endtry.

  call function 'JOB_OPEN'
    exporting
       jobname          = 'ZRIGHTS_RUN_FAKTURA_JOB'  " собственно JOB
    importing
      jobcount         = lv_jobcount  " счетчик процесса
    exceptions
      cant_create_job  = 1
      invalid_job_data = 2
      jobname_missing  = 3
      others           = 4.

   if sy-subrc = 0.
     SUBMIT zrights_run_faktura    " собственно репорт
       user sy-uname via job 'ZRIGHTS_RUN_FAKTURA_JOB'
       number lv_jobcount                 " ( with selection-table it_seltab )  -  internal table can be passed a paramener
     USING SELECTION-SET  co_variant   " вариант вызова с передачей параметров в рабочий репорт
        with p_guid =  request_guid
        with p_scen =  'SomeCharParam'  "sample of character paramerter
        with p_sc_bck = 'X'.                        "sample of boolean parameter
     and return.

  call function 'JOB_CLOSE'
    exporting
        jobcount  = lv_jobcount
        jobname   = 'ZRIGHTS_RUN_FAKTURA_JOB'
        sdlstrtdt            = startdate
        sdlstrttm            = starttime
"       strtimmed            = 'X'  " немедленный старт закомментирован
    importing
     job_was_released = job_released
    exceptions
       invalid_startdate   = 01
       jobname_missing     = 02
       job_close_failed    = 03
       job_nosteps         = 04
       others              = 99

  if sy-subrc > 0.
     message id sy-msgid type sy-msgty number sy-msgno
     with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
     into data(lv_message_str).
     rv_error_message = lv_message_str.
  endif.
 endmethod.

 ..\sapcar.exe -xvf ..\0002930611_00.SAR