DATA: gr_tree  type ref to cl_alv_tree_base.

DATA: f_tree_simple TYPE REF TO cl_gui_alv_tree_simple,
        fl_variant TYPE disvariant,
        fl_layout TYPE lvc_s_layo,
        fr_custom_container TYPE REF TO cl_gui_custom_container.

  DATA: ft_fieldcat TYPE lvc_t_fcat.

  IF gr_tree IS NOT INITIAL.
  ENDIF.


  IF gr_tree IS INITIAL.
*& Структура
    REFRESH ft_fieldcat.
    PERFORM build_fieldcatalog_fr USING 'POSNR' 'NUMC' '6'  'X' 'Позиция' CHANGING ft_fieldcat .
    PERFORM build_fieldcatalog_fr USING 'BELNR' 'CHAR' '10'  'X' 'Номер документа' CHANGING ft_fieldcat .
    PERFORM build_fieldcatalog_fr USING 'BUDAT' 'DATS' '10'  'X' 'Дата проводки'   CHANGING ft_fieldcat .
    PERFORM build_fieldcatalog_fr USING 'BLART' 'CHAR' '5'  'X' 'Вид документа'   CHANGING ft_fieldcat .
    PERFORM build_fieldcatalog_fr USING 'WAERS' 'CURR' '5'  ''  'Валюта'          CHANGING ft_fieldcat .

*& Данные для таблицы
    PERFORM build_outtab.

*& Группировка с сортировкой
    PERFORM build_sorttab.

    CREATE OBJECT fr_custom_container
      EXPORTING
        container_name              = 'TREE1'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5.

    CREATE OBJECT f_tree_simple
      EXPORTING
          i_parent              = fr_custom_container.

    DATA: ft_list_commentary TYPE slis_t_listheader,
          fl_logo             TYPE sdydo_value.

    PERFORM build_comment USING
                   ft_list_commentary
                   fl_logo.

    fl_variant-report      = sy-repid.
    fl_variant-handle      = space.
    fl_variant-log_group   = space.
    fl_variant-username    = space.
    fl_variant-variant     = ''.
    fl_layout-cwidth_opt = 'X'.
    fl_layout-excp_group = ''.

    CALL METHOD f_tree_simple->set_table_for_first_display
      EXPORTING
        it_list_commentary   = ft_list_commentary
        i_logo               = fl_logo
        i_background_id      = 'ALV_BACKGROUND'
        is_variant           = fl_variant
        is_layout            = fl_layout
      CHANGING
        it_sort              = gt_sort
        it_outtab            = gt_flow
        it_fieldcatalog      = ft_fieldcat.

    gr_tree = f_tree_simple.
    SET HANDLER cl_event_receiver_handle=>on_item_double_click FOR f_tree_simple.

    DATA: ft_events TYPE cntl_simple_events,
          fl_event TYPE cntl_simple_event.

    CALL METHOD gr_tree->get_registered_events
      IMPORTING
        events = ft_events.

    fl_event-eventid = cl_gui_column_tree=>eventid_item_double_click.
    APPEND fl_event TO ft_events.

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

*& События
*    PERFORM register_events.

  call method f_tree_simple->update_calculations.

  call method f_tree_simple->frontend_update.

  call method cl_gui_cfw=>flush.

  ENDIF.