Hi,
To add custome buttons to the ALV grid, you need to create a local class and declare an event handler.
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
handle_toolbar
FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object e_interactive,
handle_user_command
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.
ENDCLASS.
Set the following event handlers for the ALV grid.
SET HANDLER cl_event_receiver->handle_user_command FOR grid2.
SET HANDLER cl_event_receiver->handle_toolbar FOR grid2.
In the handle_toolbar event, you can add the custome buttons as follows:
METHOD handle_toolbar .
DATA: lw_toolbar TYPE stb_button.
CLEAR lw_toolbar.
MOVE 3 TO lw_toolbar-butn_type.
APPEND lw_toolbar TO e_object->mt_toolbar.
CLEAR lw_toolbar.
MOVE 'SELALL' TO lw_toolbar-function.
MOVE icon_select_all TO lw_toolbar-icon.
MOVE 'Select all the checkboxes' TO lw_toolbar-quickinfo.
MOVE 'Select all' TO lw_toolbar-text.
MOVE ' ' TO lw_toolbar-disabled.
APPEND lw_toolbar TO e_object->mt_toolbar.
CLEAR lw_toolbar.
MOVE 3 TO lw_toolbar-butn_type.
APPEND lw_toolbar TO e_object->mt_toolbar.
CLEAR lw_toolbar.
MOVE 'DESELALL' TO lw_toolbar-function.
MOVE icon_deselect_all TO lw_toolbar-icon.
MOVE 'Deselect all the checkboxes' TO lw_toolbar-quickinfo.
MOVE 'Deselect all' TO lw_toolbar-text.
MOVE ' ' TO lw_toolbar-disabled.
APPEND lw_toolbar TO e_object->mt_toolbar.
ENDMETHOD. "handle_toolbar.
And add the required processing logic in the USER_COMMAND handler.
METHOD handle_user_command.
DATA: lt_rows TYPE lvc_t_row.
DATA: li_filtered TYPE lvc_t_fidx.
DATA : lv_vkaus LIKE VBAP-VKAUS,
lv_refresh TYPE C.
data : li_cells type lvc_t_modi,
lw_cells type lvc_s_modi ,
lv_valid.
CASE e_ucomm.
*---> Select all
WHEN 'SELALL'.
*/ Method provide the the filtered entries. Use them to avoid
*/ marking only those which are not filtered while doing select all.
CALL METHOD grid2->get_filtered_entries
IMPORTING
et_filtered_entries = li_filtered.
LOOP AT gi_item_display INTO gw_item_display.
READ TABLE li_filtered FROM sy-tabix TRANSPORTING NO FIELDS.
IF sy-subrc NE 0.
gw_item_display-checkbox = 'X'.
MODIFY gi_item_display FROM gw_item_display
TRANSPORTING checkbox.
ENDIF.
ENDLOOP.
*---> De-select all
WHEN 'DESELALL'.
LOOP AT gi_item_display INTO gw_item_display.
gw_item_display-checkbox = ' '.
MODIFY gi_item_display FROM gw_item_display
TRANSPORTING checkbox.
ENDLOOP.
ENDCASE.
Bluesky
