ALV list: select all button doesn't work

Former Member — Wed, 14 Nov 2007 21:08:50 GMT

Hi friends,

I have an alv list which is displayed in a module pool program with check boxes and the selection buttons on the left hand corner of each row. For some reason the selectall button on the top left corner doesn't work while all other in the tool bar like find ,sort work perfectly. earlier individual line selection was possible by using check box. I tried to look into debugging mode but it would never go into the standard class code rather the control goes into the screen's module user- command .

Here is the code. Appreciate if somebody can help me with this.

CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA: g_repid LIKE sy-repid,

cont_on_main TYPE scrfname VALUE 'MAIN_100',

grid1 TYPE REF TO cl_gui_alv_grid,

custom_container1 TYPE REF TO cl_gui_custom_container,

event_receiver TYPE REF TO lcl_event_receiver.

DATA: x_save, "for Parameter I_SAVE

gs_layout TYPE disvariant,"for parameteris_variant

gs_layout1 TYPE disvariant, "for parameteris_variant

gs_toolbar TYPE stb_button.

DATA p_def VALUE 'X'.

*CLASS lcl_event_receiver IMPLEMENTATION.

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

CLASS-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.

METHODS:

handle_data_changed

FOR EVENT data_changed OF cl_gui_alv_grid

IMPORTING er_data_changed.

PRIVATE SECTION.

ENDCLASS. "lcl_event_receiver DEFINITION

METHOD handle_toolbar.

ENDMETHOD. "handle_toolbar

METHOD handle_user_command. .................................> Control never comes here

CLEAR gv_error.

READ TABLE gt_alv_data INTO gt_alv_data2 WITH KEY sel = c_true.

IF sy-subrc NE 0.

CALL METHOD grid1->get_selected_rows

IMPORTING

et_index_rows = gt_rows.

IF gt_rows IS INITIAL.

MESSAGE i000 WITH ' '.

gv_error = c_true.

ENDIF.

CALL METHOD cl_gui_cfw=>flush.

ENDIF.

ENDMETHOD. "HANDLE_USER_COMMAND

METHOD handle_data_changed.

PERFORM data_changed USING er_data_changed.

ENDMETHOD. "handle_data_changed

ENDCLASS. "lcl_event_receiver IMPLEMENTATION

START-OF-SELECTION.

CASE 'X'.

WHEN rb_rad1.

CALL SCREEN 100.

WHEN rb_rad2 .

CALL SCREEN 0200.

END-OF-SELECTION.

*&----

*& Module STATUS_0100 OUTPUT

*&----

text

*----

MODULE status_0100 OUTPUT.

SET PF-STATUS 'ZINIT'. " adding few buttons on appl tool bar

SET TITLEBAR 'T100'.

ENDMODULE. " STATUS_0100 OUTPUT

*&----

*& Form get_field_catalog_100

*&----

FORM get_field_catalog_100 CHANGING p_lt_fcat_grid TYPE lvc_t_fcat.

*TYPE slis_t_fieldcat_alv.

Local Data

DATA ls_fieldcat TYPE slis_fieldcat_alv.

DATA: lt_fcat TYPE slis_t_fieldcat_alv,"Field catalog.

ls_fcat_grid TYPE lvc_s_fcat.

get the fld cat from FM

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-cprog

i_inclname = sy-cprog

i_internal_tabname = 'GT_ALV_DATA2'

CHANGING

ct_fieldcat = lt_fcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

Now modify the Field Cat

LOOP AT lt_fcat INTO ls_fieldcat.

ls_fieldcat-tabname = 'GT_ALV_DATA'.

CASE ls_fieldcat-fieldname.

WHEN 'SEL'. " 0

ls_fieldcat-seltext_s = ls_fieldcat-seltext_m =

ls_fieldcat-seltext_l = ls_fieldcat-reptext_ddic

= space.

ls_fieldcat-edit = c_true.

ls_fieldcat-checkbox = c_true.

ls_fieldcat-outputlen = 1.

WHEN .

.......................

ENDCASE.

MODIFY lt_fcat FROM ls_fieldcat.

ENDLOOP.

LOOP AT lt_fcat INTO ls_fieldcat.

MOVE-CORRESPONDING ls_fieldcat TO ls_fcat_grid.

ls_fcat_grid-seltext = ls_fcat_grid-scrtext_l =

ls_fcat_grid-scrtext_m = ls_fcat_grid-scrtext_s =

ls_fieldcat-seltext_m.

ls_fcat_grid-key = c_true.

APPEND ls_fcat_grid TO p_lt_fcat_grid.

ENDLOOP.

ENDFORM. " get_field_catalog_100

*&----

*& Module USER_COMMAND_0100 INPUT

*&----

MODULE user_command_0100 INPUT.

CASE sy-ucomm.

WHEN 'CANC'.

LEAVE TO SCREEN 0.

WHEN 'EXIT'.

LEAVE TO SCREEN 0.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN 'PACK'.

READ TABLE gt_alv_data INTO gt_alv_data2 WITH KEY sel = 'X'.

IF sy-subrc = 0.

CALL SCREEN '0201' STARTING AT 3 2 ENDING AT 38 8.

ELSE.

MESSAGE e000(zr) WITH ' Please select atleast single line'.

ENDIF.

WHEN 'PEND'.

CLEAR gv_count.

LOOP AT gt_alv_data INTO gt_alv_data2 WHERE sel = 'X'.

gv_count = gv_count + 1.

CHECK NOT gv_count > 1.

ENDLOOP.

IF gv_count > 1.

MESSAGE e000(zr) WITH ' Please select only a single line'.

ELSEIF gv_count = 0.

MESSAGE e000(zr) WITH ' Please select atleast single line'.

ELSE.

READ TABLE gt_alv_data INTO gt_alv_data2 WITH KEY sel = 'X'.

ENDIF.

ENDMODULE. " USER_COMMAND_0100 INPUT

*&----

*& Form GR100_SET_GRID_TOOLBAR

*&----

FORM gr100_set_grid_toolbar CHANGING pt_exclude TYPE ui_functions.

DATA ls_exclude TYPE ui_func.

ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.