Example of event handling in ALV
REPORT z_alv_demo_05.
CLASS lcl_event_receiver DEFINITION DEFERRED. " Our event handling class
TYPES: BEGIN OF ty_data.
INCLUDE STRUCTURE sflight.
TYPES: icon(4) TYPE c, " field to hold the icon
END OF ty_data.
DATA: gt_data TYPE TABLE OF ty_data,
g_grid TYPE REF TO cl_gui_alv_grid,
gs_layout TYPE lvc_s_layo,
gt_fieldcat TYPE lvc_t_fcat.
CONSTANTS:
c_max_rows TYPE i VALUE 100.
* Definition of the event handling class
* It will now respond to double-click event only
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
handle_double_click
FOR EVENT double_click
OF cl_gui_alv_grid
IMPORTING e_row
e_column.
PRIVATE SECTION.
ENDCLASS. "lcl_event_receiver DEFINITION
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Form read_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM read_data.
DATA:
l_color TYPE c.
FIELD-SYMBOLS:
<fs_data> TYPE ty_data.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data
FROM sflight
UP TO c_max_rows ROWS.
LOOP AT gt_data ASSIGNING <fs_data>.
IF <fs_data>-seatsocc = <fs_data>-seatsmax OR
<fs_data>-seatsocc_b = <fs_data>-seatsmax_b OR
<fs_data>-seatsocc_f = <fs_data>-seatsmax_f.
" Some class is full
<fs_data>-icon = '@AH@'. " Warning Icon
ENDIF.
ENDLOOP.
ENDFORM. "read_data
*&---------------------------------------------------------------------*
*& Form display_grid
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM display_grid.
DATA: event_receiver TYPE REF TO lcl_event_receiver.
PERFORM get_layout.
PERFORM get_fieldcat.
CREATE OBJECT g_grid
EXPORTING
i_parent = cl_gui_container=>default_screen.
* Register our event handler
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_double_click FOR g_grid.
CALL METHOD g_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_layout = gs_layout
CHANGING
it_outtab = gt_data
it_fieldcatalog = gt_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. "display_grid
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'MAIN'.
SET TITLEBAR 'ALV_EXAMPLES'.
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module DISPLAY_GRID OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE display_grid OUTPUT.
PERFORM read_data.
PERFORM display_grid.
ENDMODULE. " DISPLAY_GRID OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
* to react on oi_custom_events:
CALL METHOD cl_gui_cfw=>dispatch.
CASE sy-ucomm.
WHEN 'BACK' OR
'EXIT' OR
'CANCEL'.
LEAVE PROGRAM.
WHEN OTHERS.
* do nothing
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Form GET_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* p1 text
* TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'SFLIGHT'
CHANGING
ct_fieldcat = gt_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
CHECK sy-subrc = 0.
APPEND INITIAL LINE TO gt_fieldcat ASSIGNING <fs_fcat>.
<fs_fcat>-fieldname = 'ICON'.
<fs_fcat>-icon = 'X'.
<fs_fcat>-outputlen = 3.
ENDFORM. " GET_FIELDCAT
*----------------------------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_double_click.
DATA: l_lines TYPE i.
DESCRIBE TABLE gt_data LINES l_lines.
IF l_lines >= 50.
REFRESH gt_data.
ELSE.
PERFORM read_data.
ENDIF.
g_grid->refresh_table_display(
EXPORTING
i_soft_refresh = 'X'
).
ENDMETHOD. "handle_double_click
ENDCLASS. "lcl_event_receiver IMPLEMENTATION