Двойной клик ALV Grid (cl_salv_table)

Привожу пример кода который позволят отрабатывать события , а так же выводить alv grid в модульном окне.
Для примера привожу код который выводит список дебиторов и по двойному клику выводит проводки по нему в модульном окне.

db_click_alv.jpg

  1. *&---------------------------------------------------------------------*
  2. *& Report  Z_NCH_TEST
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT  Z_NCH_TEST.
  10.  
  11. TYPE-POOLS slis.
  12.  
  13. TABLES:
  14.   KNA1,BSID.
  15.  
  16.  
  17. *Обьявляем переменные для alv grid
  18. DATA:
  19.          gc_alv_table TYPE REF TO cl_salv_table,
  20.          gc_functions TYPE REF TO cl_salv_functions,
  21.          gr_events TYPE REF TO cl_salv_events_table,
  22.          gc_display   TYPE REF TO cl_salv_display_settings.
  23.  
  24. DATA:
  25.       t_kna1 LIKE kna1 OCCURS 0 WITH HEADER LINE,
  26.       t_bsid like bsid OCCURS 0 WITH HEADER LINE.
  27.  
  28. TYPES:
  29.       type_kna1 like  t_kna1.
  30.  
  31. DATA:
  32.       line_kna1 TYPE    type_kna1.
  33.  
  34.  
  35. SELECT kunnr name1 LAND1 PSTLZ FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE t_kna1.
  36.  
  37.  
  38.  
  39. *----------------------------------------------------------------------*
  40. *       CLASS lcl_event_handler DEFINITION
  41. *----------------------------------------------------------------------*
  42. *
  43. *----------------------------------------------------------------------*
  44. CLASS lcl_event_handler DEFINITION.
  45.  
  46.   PUBLIC SECTION.
  47.  
  48.     METHODS: handle_doubleclick FOR EVENT double_click
  49.                        OF cl_salv_events_table
  50.                            IMPORTING  row column.
  51. ENDCLASS.                    "lcl_event_handler DEFINITION
  52.  
  53. *----------------------------------------------------------------------*
  54. *       CLASS lcl_event_handler IMPLEMENTATION
  55. *----------------------------------------------------------------------*
  56. *
  57. *----------------------------------------------------------------------*
  58. CLASS lcl_event_handler IMPLEMENTATION.
  59.  
  60.   METHOD handle_doubleclick.
  61.  
  62.     DATA:
  63.         gr_table           TYPE REF TO cl_salv_table,
  64.         lr_functions       TYPE REF TO cl_salv_functions_list,
  65.         lr_columns         TYPE REF TO cl_salv_columns,
  66.         gr_functions TYPE REF TO cl_salv_functions,
  67.         gr_columns   TYPE REF TO cl_salv_columns_table,
  68.         gr_column    TYPE REF TO cl_salv_column_table,
  69.         gr_display   TYPE REF TO cl_salv_display_settings.
  70.  
  71.  
  72.  
  73.     READ TABLE t_kna1 INTO line_kna1  INDEX row.
  74.  
  75.     SELECT kunnr BELNR bldat FROM bsid INTO CORRESPONDING FIELDS OF TABLE t_bsid WHERE kunnr eq line_kna1-kunnr.
  76.  
  77.  
  78.     TRY.
  79.         cl_salv_table=>factory(
  80.           IMPORTING
  81.             r_salv_table = gr_table
  82.           CHANGING
  83.             t_table       = t_bsid[] ).
  84.       CATCH cx_salv_msg.
  85.     ENDTRY.
  86.  
  87.     lr_functions = gr_table->get_functions( ).
  88.     lr_functions->set_all( 'X' ).
  89.  
  90.     lr_columns = gr_table->get_columns( ).
  91.     lr_columns->set_optimize( 'X' ).
  92.  
  93.     gr_table->set_screen_popup(
  94.      start_column = 1
  95.      end_column   = 100
  96.      start_line   = 1
  97.      end_line     = 20 ).
  98.  
  99.     gr_display = gr_table->get_display_settings( ).
  100.     gr_display->set_list_header( 'Список проводок').
  101.     gr_functions = gr_table->get_functions( ).
  102.  
  103.     gr_table->display( ).
  104.  
  105.  
  106.   ENDMETHOD.                    "handle_doubleclick
  107.  
  108.  
  109.  
  110. ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
  111.  
  112. DATA: o_event_handler TYPE REF TO lcl_event_handler.
  113.  
  114. START-OF-SELECTION.
  115.  
  116.  
  117.   cl_salv_table=>factory(
  118.    IMPORTING r_salv_table = gc_alv_table
  119.    CHANGING t_table = t_kna1[]
  120.   ).
  121.  
  122.   gc_display = gc_alv_table->get_display_settings( ).
  123.   gc_display->set_list_header( 'Список дебиторов').
  124.   gc_functions = gc_alv_table->get_functions( ).
  125.  
  126.   gr_events = gc_alv_table->get_event( ).
  127.  
  128.   CREATE OBJECT o_event_handler.
  129.   SET HANDLER o_event_handler->handle_doubleclick FOR gr_events.
  130.  
  131.   gc_functions->set_all( 'X' ).
  132.   gc_alv_table->display( ).
inikolax  Черкашин Николай  ENRC BTS