*-------------------
INCLUDE zdps_reqmain_evntrcvr.

DATA: gtr_trdata     TYPE REF TO   cl_gui_alv_tree
      ,   gtr_trcont     TYPE REF TO   cl_gui_custom_container
      ,   gtr_datatbr    TYPE REF TO   cl_gui_toolbar
      ,   gtv_data       TYPE          zdps_tree_alv occurs 0
      ,   gtp_fc_data    TYPE          lvc_t_fcat
      ,   gtr_evntrcv    TYPE REF TO   lcl_handle_trevnt  " в INCLUDE zdps_reqmain_evntrcvr
  .
*----------------------
* Экранная логика подэкрана, на котором находится дерево:
PROCESS BEFORE OUTPUT.
  MODULE output_202 .
*
PROCESS AFTER INPUT.
*----------------------
MODULE output_202 OUTPUT.
  IF gtr_trcont IS INITIAL.
    PERFORM init_trdata .
  ENDIF.
  CALL METHOD cl_gui_cfw=>flush.
ENDMODULE.                 " output_202  OUTPUT
*----------------------
FORM init_trdata .
  DATA: lt_events TYPE cntl_simple_events
      , l_event TYPE cntl_simple_event
      .

* Инициализация контейнера
* Контейнер действительно называется 'TREE_CONT' - перепроверено 3 раза
  CREATE OBJECT gtr_trcont
    EXPORTING
      container_name = 'TREE_CONT'
      repid          = sy-repid
      dynnr          = '0202'.

  CREATE OBJECT gtr_trdata
    EXPORTING
        parent              = gtr_trcont
        node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
        item_selection      = ' '
        no_html_header      = 'X'
*          no_toolbar          = 'X'
    EXCEPTIONS
        cntl_error                   = 1
        cntl_system_error            = 2
        create_error                 = 3
        lifetime_error               = 4
        illegal_node_selection_mode  = 5
        failed                       = 6
        illegal_column_name          = 7.
  IF sy-subrc <> 0.
    MESSAGE e000(zcommon) WITH 'Ошибка инициализации'.      "#EC NOTEXT
  ENDIF.

** Инициализация событий
  REFRESH lt_events.
  l_event-eventid = cl_gui_column_tree=>eventid_item_double_click.
  APPEND l_event TO lt_events.
  l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children.
  APPEND l_event TO lt_events.

  CALL METHOD gtr_trdata->set_registered_events
    EXPORTING
      events                    = lt_events
    EXCEPTIONS
      cntl_error                = 1
      cntl_system_error         = 2
      illegal_event_combination = 3.

* create fieldcatalog.
  PERFORM fieldcat_trdata.

* repid for saving variants
  DATA: ls_variant TYPE disvariant.
  ls_variant-report = sy-repid.

* create emty tree-control
  DATA l_hierarchy_header TYPE treev_hhdr.
  l_hierarchy_header-heading = 'Структура заявки на согласование'.
  l_hierarchy_header-width = 60.
  l_hierarchy_header-width_pix = ''.

  CALL METHOD gtr_trdata->set_table_for_first_display
    EXPORTING
      is_hierarchy_header = l_hierarchy_header
      is_variant          = ls_variant
    CHANGING
      it_outtab           = gtv_data   "table must be emty !!
      it_fieldcatalog     = gtp_fc_data.


* Extend funtions of standard toolbar
  PERFORM setup_toolbar202.

  CREATE OBJECT gtr_evntrcv
   EXPORTING
        p_suffix = '_202'
        p_treegr = gtr_trdata
        p_toolbr = gtr_datatbr
    .

  gtr_trdata->set_visible( 'X' ) .
  gtr_trdata->frontend_update( ) .
ENDFORM.