Example of event handling in ALV<\/p>\n
REPORT z_alv_demo_05.\r\n\r\nCLASS lcl_event_receiver DEFINITION DEFERRED. \" Our event handling class\r\n\r\nTYPES: BEGIN OF ty_data.\r\n INCLUDE STRUCTURE sflight.\r\nTYPES: icon(4) TYPE c, \" field to hold the icon\r\n END OF ty_data.\r\n\r\nDATA: gt_data TYPE TABLE OF ty_data,\r\n g_grid TYPE REF TO cl_gui_alv_grid,\r\n gs_layout TYPE lvc_s_layo,\r\n gt_fieldcat TYPE lvc_t_fcat.\r\n\r\nCONSTANTS:\r\n c_max_rows TYPE i VALUE 100.\r\n\r\n* Definition of the event handling class\r\n* It will now respond to double-click event only\r\nCLASS lcl_event_receiver DEFINITION.\r\n PUBLIC SECTION.\r\n METHODS:\r\n handle_double_click\r\n FOR EVENT double_click\r\n OF cl_gui_alv_grid\r\n IMPORTING e_row\r\n e_column.\r\n\r\n PRIVATE SECTION.\r\nENDCLASS. \"lcl_event_receiver DEFINITION\r\n\r\nCALL SCREEN 100.\r\n\r\n*&---------------------------------------------------------------------*\r\n*& Form read_data\r\n*&---------------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------------*\r\nFORM read_data.\r\n DATA:\r\n l_color TYPE c.\r\n\r\n FIELD-SYMBOLS:\r\n <fs_data> TYPE ty_data.\r\n\r\n SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_data\r\n FROM sflight\r\n UP TO c_max_rows ROWS.\r\n\r\n LOOP AT gt_data ASSIGNING <fs_data>.\r\n IF <fs_data>-seatsocc = <fs_data>-seatsmax OR\r\n <fs_data>-seatsocc_b = <fs_data>-seatsmax_b OR\r\n <fs_data>-seatsocc_f = <fs_data>-seatsmax_f.\r\n \" Some class is full\r\n <fs_data>-icon = '@AH@'. \" Warning Icon\r\n ENDIF.\r\n ENDLOOP.\r\nENDFORM. \"read_data\r\n\r\n*&---------------------------------------------------------------------*\r\n*& Form display_grid\r\n*&---------------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------------*\r\nFORM display_grid.\r\n DATA: event_receiver TYPE REF TO lcl_event_receiver.\r\n\r\n PERFORM get_layout.\r\n PERFORM get_fieldcat.\r\n\r\n CREATE OBJECT g_grid\r\n EXPORTING\r\n i_parent = cl_gui_container=>default_screen.\r\n\r\n* Register our event handler\r\n CREATE OBJECT event_receiver.\r\n SET HANDLER event_receiver->handle_double_click FOR g_grid.\r\n\r\n CALL METHOD g_grid->set_table_for_first_display\r\n EXPORTING\r\n i_structure_name = 'SFLIGHT'\r\n is_layout = gs_layout\r\n CHANGING\r\n it_outtab = gt_data\r\n it_fieldcatalog = gt_fieldcat\r\n EXCEPTIONS\r\n invalid_parameter_combination = 1\r\n program_error = 2\r\n too_many_lines = 3\r\n OTHERS = 4.\r\n IF sy-subrc <> 0.\r\n MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno\r\n WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.\r\n ENDIF.\r\nENDFORM. \"display_grid\r\n*&---------------------------------------------------------------------*\r\n*& Module STATUS_0100 OUTPUT\r\n*&---------------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------------*\r\nMODULE status_0100 OUTPUT.\r\n SET PF-STATUS 'MAIN'.\r\n SET TITLEBAR 'ALV_EXAMPLES'.\r\nENDMODULE. \" STATUS_0100 OUTPUT\r\n*&---------------------------------------------------------------------*\r\n*& Module DISPLAY_GRID OUTPUT\r\n*&---------------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------------*\r\nMODULE display_grid OUTPUT.\r\n PERFORM read_data.\r\n PERFORM display_grid.\r\nENDMODULE. \" DISPLAY_GRID OUTPUT\r\n*&---------------------------------------------------------------------*\r\n*& Module USER_COMMAND_0100 INPUT\r\n*&---------------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------------*\r\nMODULE user_command_0100 INPUT.\r\n* to react on oi_custom_events:\r\n CALL METHOD cl_gui_cfw=>dispatch.\r\n CASE sy-ucomm.\r\n WHEN 'BACK' OR\r\n 'EXIT' OR\r\n 'CANCEL'.\r\n LEAVE PROGRAM.\r\n WHEN OTHERS.\r\n* do nothing\r\n ENDCASE.\r\nENDMODULE. \" USER_COMMAND_0100 INPUT\r\n*&---------------------------------------------------------------------*\r\n*& Form GET_LAYOUT\r\n*&---------------------------------------------------------------------*\r\n* text\r\n*----------------------------------------------------------------------*\r\n* --> p1 text\r\n* p1 text\r\n* TYPE lvc_s_fcat.\r\n\r\n CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'\r\n EXPORTING\r\n i_structure_name = 'SFLIGHT'\r\n CHANGING\r\n ct_fieldcat = gt_fieldcat\r\n EXCEPTIONS\r\n inconsistent_interface = 1\r\n program_error = 2\r\n OTHERS = 3.\r\n CHECK sy-subrc = 0.\r\n\r\n APPEND INITIAL LINE TO gt_fieldcat ASSIGNING <fs_fcat>.\r\n <fs_fcat>-fieldname = 'ICON'.\r\n <fs_fcat>-icon = 'X'.\r\n <fs_fcat>-outputlen = 3.\r\nENDFORM. \" GET_FIELDCAT\r\n\r\n*----------------------------------------------------------------------*\r\n* CLASS lcl_event_receiver IMPLEMENTATION\r\n*----------------------------------------------------------------------*\r\n*\r\n*----------------------------------------------------------------------*\r\nCLASS lcl_event_receiver IMPLEMENTATION.\r\n METHOD handle_double_click.\r\n DATA: l_lines TYPE i.\r\n\r\n DESCRIBE TABLE gt_data LINES l_lines.\r\n IF l_lines >= 50.\r\n REFRESH gt_data.\r\n ELSE.\r\n PERFORM read_data.\r\n ENDIF.\r\n\r\n g_grid->refresh_table_display(\r\n EXPORTING\r\n i_soft_refresh = 'X'\r\n ).\r\n ENDMETHOD. \"handle_double_click\r\nENDCLASS. \"lcl_event_receiver IMPLEMENTATION<\/pre>\n","protected":false},"excerpt":{"rendered":"Example of event handling in ALV<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"ALV tutorial 05 - Handling events","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[16,136,9],"tags":[446,137,138,116,17],"class_list":["post-529","post","type-post","status-publish","format-standard","hentry","category-abap","category-alv-tutorial","category-development","tag-abap","tag-click","tag-doubleclick","tag-event-handling","tag-sap"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3nYbe-8x","jetpack-related-posts":[],"_links":{"self":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/529","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=529"}],"version-history":[{"count":4,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/529\/revisions"}],"predecessor-version":[{"id":559,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=\/wp\/v2\/posts\/529\/revisions\/559"}],"wp:attachment":[{"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=529"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=529"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/oprsteny.cz\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=529"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}