Checkbox in alv grid

Question

Hello friends
i have an internal table displayed in alv with one field as editable checkbox.
The display is OK.
After the user click the SAVE button, I want to process the ckecked records only.
My problem: after clicking the SAVE  button, in USER_COMMAND form, all the records of the internal table have the checkbox field empty even if they were checked.
MOVE 'SET_PF_STATUS' TO wv_slis_formname.
  wv_repid = sy-repid.
  DELETE wt_input INDEX 1.   "remove the header texts
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_user_command  = 'USER_COMMAND'
      i_callback_program       = wv_repid
      i_callback_pf_status_set = wv_slis_formname
      is_layout                = ws_layout
      it_fieldcat              = wt_field1
*      i_save                   = 'X'
    TABLES
      t_outtab                 = wt_input
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
anybody could give me a hint?
In debug session I check : wt_input table here
FORM user_command USING r_ucomm LIKE sy-ucomm
                        ls_selfield type slis_selfield.
  DATA: save_ok TYPE sy-ucomm.
  DATA: ref1 TYPE REF TO cl_gui_alv_grid.
  save_ok = sy-ucomm.
  CASE save_ok.
    WHEN 'SAVE'.
  ENDCASE.
ENDFORM.                    "user_command
and its fields corresponding for the checkbox are all empty

Answer 1

Hi,
Go through this code . This code is for interactive alv . This interactive alv will display only for Checked ones.
TYPE-POOLS : SLIS.
PARAMETERS : P_EBELN TYPE EKKO-EBELN.
TYPES: BEGIN OF TY_EKKO,
        CHECK TYPE C,
        EBELN TYPE EKKO-EBELN,
        BUKRS TYPE EKKO-BUKRS,
        EKORG TYPE EKKO-EKORG,
        BEDAT TYPE EKKO-BEDAT,
      END OF TY_EKKO.
DATA : REPID TYPE SY-REPID.
DATA : IT_EKKO TYPE TABLE OF TY_EKKO,
       WA_EKKO TYPE TY_EKKO.
DATA : ITAB TYPE TABLE OF TY_EKKO.
DATA: IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FCAT TYPE SLIS_FIELDCAT_ALV.
data : gs_layout type SLIS_LAYOUT_ALV.
FIELD-SYMBOLS : <WA_EKKO> LIKE LINE OF IT_EKKO.
SELECT EBELN BUKRS EKORG BEDAT FROM EKKO INTO CORRESPONDING FIELDS OF TABLE IT_EKKO UP TO 10 ROWS.
PERFORM FIELDCAT.
PERFORM DISPLAY_DATA.
FORM SET_PF_STATUS USING STATUS.
  SET PF-STATUS 'STATUS'.
ENDFORM.
FORM USER_COMMAND USING FU_UCOMM LIKE SY-UCOMM FU_SELFIELD TYPE SLIS_SELFIELD.
  CASE fu_ucomm.
WHEN 'CHECK'.
      LOOP AT IT_EKKO ASSIGNING <WA_EKKO>.
        <WA_EKKO>-check = 'X'.
        MODIFY TABLE IT_EKKO FROM <WA_EKKO> TRANSPORTING CHECK.
      ENDLOOP.
      FU_SELFIELD-REFRESH = 'X'.
    WHEN 'UNCHECK'.
      LOOP AT IT_EKKO ASSIGNING <WA_EKKO>.
        <WA_EKKO>-check = ' '.
        MODIFY TABLE IT_EKKO FROM <WA_EKKO> TRANSPORTING CHECK.
      ENDLOOP.
      FU_SELFIELD-REFRESH = 'X'.
WHEN 'READ'.
IF IT_EKKO IS NOT INITIAL.
LOOP AT IT_EKKO INTO <WA_EKKO> WHERE CHECK = 'X'.
  BREAK-POINT.
   APPEND <WA_EKKO> TO ITAB.
   ENDLOOP.
  ENDIF.
if itab is not initial.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
     I_CALLBACK_PROGRAM                = SY-REPID
     I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
     IS_LAYOUT                         = GS_LAYOUT
     IT_FIELDCAT                       = IT_FCAT
     I_SAVE                            = 'X'
     TABLES
     T_OUTTAB                          = ITAB
EXCEPTIONS
  PROGRAM_ERROR                     = 1
  OTHERS                            = 2
endif.
WHEN OTHERS.
READ TABLE IT_EKKO ASSIGNING <WA_EKKO> INDEX FU_SELFIELD-TABINDEX.
<WA_EKKO>-CHECK = 'X'.
MODIFY table  IT_EKKO FROM <WA_EKKO> TRANSPORTING CHECK .
*BREAK-POINT.
FU_SELFIELD-REFRESH = 'X'.
  ENDCASE.
ENDFORM.                
FORM FIELDCAT .
  WA_FCAT-FIELDNAME = 'CHECK'.
  wa_fcat-seltext_m = 'Select' .
  wa_fcat-checkbox = 'X'.
  wa_fcat-edit = 'X'.
  WA_FCAT-COL_POS = 5.
  WA_FCAT-OUTPUTLEN = '20'.
  wa_fcat-hotspot = 'X'.
  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-FIELDNAME = 'EBELN' .
  WA_FCAT-TABNAME = 'EKKO' .
  WA_FCAT-COL_POS = 1.
  WA_FCAT-OUTPUTLEN = '20'.
  wa_fcat-seltext_m = 'BILLING NUM' .
  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-FIELDNAME = 'BUKRS' .
  WA_FCAT-TABNAME = 'EKKO' .
  WA_FCAT-COL_POS = 2.
  WA_FCAT-OUTPUTLEN = '20'.
  wa_fcat-seltext_m = 'COMPANY CODE' .
  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-FIELDNAME = 'EKORG' .
  WA_FCAT-TABNAME = 'EKKO' .
  WA_FCAT-COL_POS = 3.
  WA_FCAT-OUTPUTLEN = '20'.
  wa_fcat-seltext_m = 'ORGANIZATION' .
  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.
  WA_FCAT-FIELDNAME = 'BEDAT' .
  WA_FCAT-TABNAME = 'EKKO' .
  WA_FCAT-COL_POS = 4.
  WA_FCAT-OUTPUTLEN = '20'.
  wa_fcat-seltext_m = 'BILLING DATE' .
  APPEND WA_FCAT TO IT_FCAT.
  CLEAR WA_FCAT.
ENDFORM.                  
FORM DISPLAY_DATA .
  IF NOT IT_EKKO IS INITIAL.
    GS_LAYOUT-zebra = 'X' .
    GS_LAYOUT-colwidth_optimize = 'X'.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
     I_CALLBACK_PROGRAM                = SY-REPID
     I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
     IS_LAYOUT                         = GS_LAYOUT
     IT_FIELDCAT                       = IT_FCAT
     I_SAVE                            = 'X'
     TABLES
     T_OUTTAB                          = IT_EKKO
EXCEPTIONS
  PROGRAM_ERROR                     = 1
  OTHERS                            = 2
  ENDIF.
ENDFORM.
Edited by: Aditya.G on Dec 29, 2011 12:35 PM