ALV_Event DOUBLE_CLICK

Code: Alles auswählen.

METHODS:
        on_double_click FOR EVENT double_click OF cl_salv_events_table
          IMPORTING row column.
METHOD on_double_click.
    DATA: message TYPE string
         ,row_c(4) TYPE c.

    row_c = row.

    CONCATENATE 'ROW' row_c 'Column' column
     INTO message SEPARATED BY space.
    MESSAGE i001(00) WITH 'You double-clicked-on ' message.

  ENDMETHOD.

Code: Alles auswählen.

 METHODS show_hierachy
      IMPORTING
        VALUE(pi_objpack) TYPE gt_objpack .
METHOD show_hierachy.
    DATA:
*          Objects
          gr_table TYPE REF TO cl_salv_table
         ,gr_selections TYPE REF TO cl_salv_selections
         ,gr_functions TYPE REF TO cl_salv_functions_list
         ,gr_events TYPE REF TO cl_salv_events_table
         ,lo_event_handler TYPE REF TO zdbs_azubi_eventhandler_cl.

    TRY.
        CALL METHOD cl_salv_table=>factory
          IMPORTING
            r_salv_table = gr_table
          CHANGING
            t_table      = pi_objpack.
      CATCH cx_salv_msg.
    ENDTRY.

    gr_table->set_screen_status(
              pfstatus        = 'SALV_TABLE_STANDARD'
              report          = sy-repid
              set_functions  = gr_table->c_functions_all ).
    gr_events = gr_table->get_event( ).

    CREATE OBJECT lo_event_handler TYPE zdbs_azubi_eventhandler_cl.

    SET HANDLER lo_event_handler->on_double_click FOR  gr_events.

*   Set up selections
    gr_selections = gr_table->get_selections( ).
    gr_selections->set_selection_mode( 1 ). "Single

    gr_table->display( ).
  ENDMETHOD.

Code: Alles auswählen.

CREATE OBJECT lo_cdatelement TYPE zdbs_azubi_pck_root.

  CALL METHOD lo_cdatelement->object_hierachy( EXPORTING pi_tadir = lt_tadir ).