Hi all,
I want to create an icon on the grid but i am unable to get it can tell me the solution why iam not getting icon in the grid.
REPORT zklk_temp .
CLASS lcl_event_receiver DEFINITION DEFERRED.
TABLES: sflight,disvariant.
DATA ok_code LIKE sy-ucomm.
DATA :my_container TYPE REF TO cl_gui_custom_container,
my_container1 TYPE REF TO cl_gui_custom_container,
my_grid TYPE REF TO cl_gui_alv_grid,
my_grd1 TYPE REF TO cl_gui_alv_grid.
DATA:itab TYPE TABLE OF sflight,
selected_rows TYPE TABLE OF sflight.
DATA :my_save,
my_variant TYPE disvariant.
my_save = 'A'.
my_variant-report = sy-repid.
INCLUDE <icon>.
CALL SCREEN 100.
----
CLASS lcl_event_receiver DEFINITION
----
*
----
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.
PRIVATE SECTION.
ENDCLASS. "lcl_event_receiver DEFINITION
----
CLASS lcl_event_handler IMPLEMENTATION
----
*
----
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
DATA ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type.
APPEND ls_toolbar TO e_object->mt_toolbar.
CLEAR ls_toolbar.
MOVE 0 TO ls_toolbar-butn_type.
MOVE 'TESTING' TO ls_toolbar-function.
MOVE 'ICON_DISPLAY' TO ls_toolbar-icon.
MOVE 'Show datas'(001) TO ls_toolbar-quickinfo.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD. "handle_toolbar
METHOD handle_user_command.
DATA lt_rows TYPE LVC_T_ROW.
CASE e_ucomm.
WHEN'TESTING'.
CALL METHOD my_grid->get_selected_rows
IMPORTING
et_index_rows = lt_rows.
ENDCASE.
ENDMETHOD. "handle_user_command
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
&----
*& Module STATUS_0100 OUTPUT
&----
text
----
MODULE status_0100 OUTPUT.
SET PF-STATUS 'TEST'.
SET TITLEBAR 'ALVGRID'.
PERFORM select_data.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING container_name = 'BCALVGRID'.
CREATE OBJECT my_grid
EXPORTING i_parent = my_container.
CALL METHOD my_grid->set_table_for_first_display
EXPORTING
i_structure_name = 'SFLIGHT'
is_variant = my_variant
i_save = my_save
CHANGING
it_outtab = itab.
ELSE.
CALL METHOD my_grid->refresh_table_display
EXPORTING
i_soft_refresh = 'X'.
ENDIF.
ENDMODULE. " STATUS_0100 OUTPUT
&----
*& Module user_command_0100 INPUT
&----
text
----
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN'CANCEL'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " user_command_0100 INPUT
&----
*& Module exit_command INPUT
&----
text
----
MODULE exit_command INPUT.
CASE ok_code.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
ENDMODULE. " exit_command INPUT
&----
*& Form select_data
&----
text
----
FORM select_data.
SELECT * FROM sflight INTO TABLE itab.
ENDFORM. "select_data