*&---------------------------------------------------------------------*
*& Include          Z18_03_C01
*&---------------------------------------------------------------------*
CLASS lcl_tree_event DEFINITION.

  PUBLIC SECTION.
    CLASS-METHODS:
      handle_node_double_click FOR EVENT node_double_click
        OF cl_gui_column_tree
        IMPORTING node_key,

      handle_node_button_click FOR EVENT button_click
        OF cl_gui_column_tree
        IMPORTING node_key .

ENDCLASS.

CLASS lcl_tree_event IMPLEMENTATION.

  METHOD handle_node_double_click.

    READ TABLE gt_node TRANSPORTING NO FIELDS
      WITH KEY relatkey = node_key.

    CHECK sy-subrc IS INITIAL.

    CALL METHOD go_column_tree->expand_node
      EXPORTING
        node_key = node_key.
  ENDMETHOD.

  METHOD handle_node_button_click.

    SELECT  a~empcd
           ,b~ename
           ,a~cnum
           ,a~certid
           ,c~certname
           ,c~company
      FROM zempcert AS a
      INNER JOIN zemplist AS b
       ON a~empcd EQ b~empcd

      LEFT OUTER JOIN zcertinfo AS c
        ON a~certid EQ c~certid

      WHERE a~empcd EQ @node_key
      ORDER BY a~cnum
      INTO CORRESPONDING FIELDS OF TABLE @gt_list.

    IF gt_list IS INITIAL.
      CLEAR gt_list.
    ENDIF.

    CALL METHOD go_alv_grid->set_frontend_layout
      EXPORTING
        is_layout = VALUE #( cwidth_opt = 'X' ).


    CALL METHOD go_alv_grid->refresh_table_display
      EXPORTING
        is_stable = VALUE #( row = 'X' col = 'X' ).
  ENDMETHOD.
ENDCLASS.