Problem in Reuse_alv_grid_display

Question

Hi Expert,
                    I am using the Reuse_alv_grid_display for dispay the Grid in the Report Program without using the ABAP Objects, the Grid is displaying and when we are trying to select the Row its giving the permission to select the Multiple row, we don't need the multiple selection ... we need only the single row selection at the same time.....
Is there any parameter in the Reuse_alv_grid_display for selection criteria
Please help me
Thanks in advance

Answer 1

hi,
In field catalogue set the checkbox as follows.
MOVE 'checkbox' TO e_layout-box_fieldname.
MOVE 'x'  TO e_layout-colwidth_optimize.
the perform f_validation will check if one or more lines is checked or not.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'f_set_pfstatus'         
      i_callback_user_command  = 'f_zuser_command'  
      is_layout                = e_layout
      it_fieldcat              = ts_fieldcat
    TABLES
      t_outtab                 = ts_final
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc NE 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
FORM f_zuser_command USING us_r_ucomm LIKE sy-ucomm
                         us_rs_selfield TYPE slis_selfield. "#EC NEEDED
  DATA : ob_ref_grid TYPE REF TO cl_gui_alv_grid.
  CLEAR : ob_ref_grid.
  IF ob_ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ob_ref_grid.
    IF sy-subrc EQ c_0.                              
      SKIP c_0.
    ENDIF.
  ENDIF.
  IF NOT ob_ref_grid IS INITIAL.
    CALL METHOD ob_ref_grid->check_changed_data .
    CALL METHOD ob_ref_grid->refresh_table_display.
  ENDIF.
  CASE us_r_ucomm.
    WHEN case1.
      PERFORM f_validation.
    WHEN case2.
      PERFORM f_validation.
  WHEN others.
  ENDCASE. " endcase
ENDFORM.   
FORM f_validation .
  CLEAR  w_line.
  FREE ts_final1.
  LOOP AT ts_final ASSIGNING <fs_final>.
    IF <fs_final>-checkbox EQ c_x.
      CLEAR : e_final.
      MOVE <fs_final> TO e_final.
      APPEND e_final TO ts_final1.
    ENDIF.
  ENDLOOP.
  DESCRIBE TABLE ts_final1 LINES w_line.
  IF w_line LE 0
  OR w_line GT 1.
    MESSAGE e210 WITH 'Select one row at a time !!'.
  ENDIF.
ENDFORM.