CheckBox in ALV

Question

Hi all,
I need to display three fields say customer, name and one check box,
user will select few records from the risplayed report and i need to display detailed report for those customers.
how to find out that the records selected by the customer(he will tick the checkbox but in the program how to find out them)
thanks.
SAI

Answer 1

hi,
chk this sample code.'
report z_alvtest .
*& Report Z_ALVTEST *
type-pools: slis.
tables: vbak,vbap,mara.
data: p_repid like sy-repid.
p_repid = sy-repid.
data: begin of itab occurs 0,
vbeln like vbak-vbeln,
erdat like vbak-erdat,
auart like vbak-auart,
vkorg like vbak-vkorg,
matnr like vbap-matnr,
posnr like vbap-posnr,
charg like vbap-charg,
check(1),
end of itab.
data: begin of jtab occurs 0,
matnr like mara-matnr,
mtart like mara-mtart,
mbrsh like mara-mbrsh,
matkl like mara-matkl,
end of jtab.
data: it_fieldcat type slis_t_fieldcat_alv,
wa_fieldcat type slis_fieldcat_alv,
gt_fieldcat type slis_t_fieldcat_alv,
x_fieldcat type slis_fieldcat_alv.
start-of-selection.
  perform get_data.
  perform field_catalog.
  perform display_data.
*& Form GET_DATA
* text
* --> p1 text
* <-- p2 text
form get_data .
  select a~vbeln a~erdat a~auart a~vkorg b~matnr b~posnr b~charg into
  corresponding fields of table itab
  up to 100 rows
  from vbak as a inner join vbap as b
  on a~vbeln = b~vbeln.
* loop at itab.
* SELECT MTART MBRSH MATKL FROM MARA INTO TABLE JTAB
* FOR ALL ENTRIES IN ITAB WHERE MATNR = ITAB-MATNR.
* endloop.
* endif.
endform. " GET_DATA
*& Form FIELD_CATALOG
* text
* --> p1 text
* <-- p2 text
form field_catalog .
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
  exporting
  i_program_name = p_repid
  i_internal_tabname = 'ITAB'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
  i_inclname = p_repid
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
  changing
  ct_fieldcat = it_fieldcat
  exceptions
  inconsistent_interface = 1
  program_error = 2
  others = 3
  if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
<b>  loop at it_fieldcat into wa_fieldcat where fieldname = 'CHECK'.
    wa_fieldcat-checkbox = 'X'.
    wa_fieldcat-input = 'X'.
    wa_fieldcat-col_pos = 1.
     wa_fieldcat-edit = 'X'.
   modify it_fieldcat from wa_fieldcat .
    clear wa_fieldcat.
  endloop.</b>
endform. " FIELD_CATALOG
*& Form DISPLAY_DATA
* text
* --> p1 text
* <-- p2 text
form display_data .
  call function 'REUSE_ALV_GRID_DISPLAY'
  exporting
  i_callback_program = p_repid
* I_CALLBACK_PF_STATUS_SET = ' '
  i_callback_user_command = 'USER_COMMAND'
  it_fieldcat = it_fieldcat
  tables
  t_outtab = itab
  exceptions
  program_error = 1
  others = 2
  if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
endform. "DISPLAY_DATA
*& Form user_command
* text
* -->R_UCOMM text
* -->RS_SELFIELDtext
form user_command using r_ucomm like sy-ucomm
rs_selfield type slis_selfield.
* Check function code
  case r_ucomm.
    when '&IC1'.
      if rs_selfield-fieldname = 'MATNR'.
        call function 'REUSE_ALV_FIELDCATALOG_MERGE'
        exporting
        i_program_name = p_repid
        i_internal_tabname = 'JTAB'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
        i_inclname = p_repid
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
        changing
        ct_fieldcat = gt_fieldcat
        exceptions
        inconsistent_interface = 1
        program_error = 2
        others = 3
        if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        endif.
        if not itab[] is initial.
          if not rs_selfield-value is initial.
            read table itab index rs_selfield-tabindex.
            select matnr mtart mbrsh matkl
            from mara
            into table jtab
            where matnr = itab-matnr.
          endif.
        endif.
        call function 'REUSE_ALV_GRID_DISPLAY'
        exporting
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
        i_callback_program = p_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
        it_fieldcat = gt_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
        tables
        t_outtab = jtab
        exceptions
        program_error = 1
        others = 2
        if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        endif.
      endif.
  endcase.
endform. " DISPLAY_DATA
Rgds
Anver