Get selected rows using the fm REUSE_ALV_GRID_DISPLAY_LVC

Question

FYI ... for all those developers trying to select multiple rows in an ALV report, and get the selected rows - without using the OO approach to display to ALV, and without using checkboxes in the function module approach.  First off, you need to use the function module REUSE_ALV_GRID_DISPLAY_LVC instead of the standard REUSE_ALV_GRID_DISPLAY.  This allows you to select multiple rows using the toggle, line selection buttons, at the start of each row (with 'select all' button).  See the sample code below.  If you are converting from the one fm to the other, you will have to change the type of 2 of the structures to the 'LVC' structures and make minor code changes.  The example code below was initially using the REUSE_ALV_GRID_DISPLAY fm, and was converted to use REUSE_ALV_GRID_DISPLAY_LVC  to allow for multiple row selection.  The next step is to create a custom status, with a new custom button, that will start the processing of the selected rows.  Go to tcode SE41, press Copy Status, and copy program SAPLKKBL, status STANDARD, to your custom program (same name as the custom ALV rpt) and a new status name (ie STANDARD1).  In the new STANDARD1 status for the custom ALV program/rpt (tcode SE41), add a new button ('&EXE') at the end of the std buttons (items 29-35).  Assign the new button a Text, Icon and a Function Key. Thats it!
Here's the code:
FORM display_data.
DATA:
  wa_callback_program LIKE sy-repid,
  wa_layout      TYPE lvc_s_layo,  "was  slis_layout_alv,       "D01K913690
  t_fieldcat        TYPE lvc_t_fcat,   "was  slis_t_fieldcat_alv,  "D01K913690
  wa_fieldcat    TYPE lvc_s_fcat,  "was  slis_fieldcat_alv,     "D01K913690
  t_excluding     TYPE slis_t_extab,
  wa_excluding TYPE slis_extab,
  wa_variant     LIKE disvariant.
* Setup Field Catalog
  CLEAR wa_fieldcat.
  wa_fieldcat-fieldname  = 'ZBUKR'.
  wa_fieldcat-ref_field    = 'ZBUKR'.
  wa_fieldcat-ref_table   = 'REGUT'.
  APPEND wa_fieldcat TO t_fieldcat.
  CLEAR wa_fieldcat.
  wa_fieldcat-fieldname = 'BANKS'.
  wa_fieldcat-ref_field   = 'BANKS'.
  wa_fieldcat-ref_table  = 'REGUT'.
  APPEND wa_fieldcat TO t_fieldcat.
* Setup other ALV fm parameters
  CLEAR wa_excluding.
  wa_excluding-fcode = '&F12'.
  APPEND wa_excluding TO t_excluding.
  CLEAR wa_excluding.
  wa_excluding-fcode = '&F15'.
  APPEND wa_excluding TO t_excluding.
* Callback program
  wa_callback_program = sy-repid.
* List layout
  wa_layout-zebra = 'X'.
  wa_layout-sel_mode = 'A'.
* variant
  wa_variant-variant  = p_var.
* Display the ALV report
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'                "D01K913690
       EXPORTING
            i_callback_program             = wa_callback_program
            i_callback_pf_status_set    = 'SET_PF_STATUS'              "D01K913690
            i_callback_user_command  = 'USER_COMMAND'
            is_layout_lvc                       = wa_layout                          "D01K913690
            it_fieldcat_lvc                      = t_fieldcat                            "D01K913690
            it_excluding                         = t_excluding
            i_save                                 = 'A'
            is_variant                            = wa_variant
       TABLES
            t_outtab                              = t_regut
*      EXCEPTIONS
*           PROGRAM_ERROR            = 1
*           OTHERS                             = 2
ENDFORM.                               " DISPLAY_DATA
FORM user_command
  USING
    r_ucomm     LIKE sy-ucomm
    rs_selfield TYPE slis_selfield.
  DATA: wa_text(80) TYPE c.
  CASE r_ucomm.
    WHEN '&EXE'.   "User pressed custom Execute button
      DATA ref1 TYPE REF TO cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          e_grid = ref1.
      DATA: lt_index_rows TYPE lvc_t_row,
                 lt_row_no TYPE lvc_t_roid,
                 lw_row_no TYPE lvc_s_roid.
      CALL METHOD ref1->get_selected_rows
        IMPORTING
          et_index_rows = lt_index_rows
          et_row_no     = lt_row_no.
      LOOP AT lt_row_no
         INTO lw_row_no.
         *** CODE TO PROCESS EACH RECORD FROM MULTIPLE SELECTED***
      ENDLOOP.  "loop at lt_row_no
    WHEN '&IC1'.  "User double-clicked on row
      *** CODE TO PROCESS SINGLE RECORD SELECTED ***
    WHEN '&F03' .          " back
      SET SCREEN 0. LEAVE SCREEN.
    WHEN '&F15' .          " exit
      SET SCREEN 0. LEAVE SCREEN.
    WHEN '&F12' .          " cancel
      SET SCREEN 0. LEAVE SCREEN.
  ENDCASE.
ENDFORM.                               " USER_COMMAND
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
  SET PF-STATUS 'STANDARD1'.
ENDFORM. " set_pf_status
Hope this helps ...
Regards,
Kevin
Moderator message - Welcome to SCN.
However, as you can see, the forum software was unable to format this because of the 2,500 character posting limit. since this looks interesting, would you please try to edit to conform to that limitation? You may try to split it into an initial post and a response.
Edited by: Rob Burbank on Jul 8, 2009 1:39 PM

Answer 1

Hi ,
     Make it use in your code and let me know if u have any concerns...
    Use "Subtotal_text" in events table.
here GTOTAL is field in itab on which we sortindf data, and use your own field on which field u want to sort...
refresh gt_event.
clear gw_event.
call function 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     i_list_type = 0
   IMPORTING
     et_events   = gt_event.
Subtotal
read table gt_event with key name = slis_ev_subtotal_text into gw_event.
if sy-subrc = 0.
   move 'SUBTOTAL_TEXT' to gw_event-form.
   append gw_event to gt_event.
endif.
     form subtotal_text using uw_subtot_line type ty_main
                uv_subtottxt type slis_subtot_text.  "#EC CALLED
if uv_subtottxt-criteria = 'GTOTAL'.
   uv_subtottxt-display_text_for_subtotal = 'TOTAL'.
endif.
     *FORM build_sort .
refresh gt_sort.
gw_sort-spos      = 1.
gw_sort-fieldname = 'GTOTAL'.
gw_sort-tabname   = 'GT_MAIN'.
gw_sort-up        = 'X'.
gw_sort-subtot    = 'X'.
APPEND gw_sort TO gt_sort.
CLEAR gw_sort.
Reward points once its useful..