Adding check box in selection screen

Question

Hi all,
I have to add a check box to the previous report, I need to fetch the data based on the checkbox. Please tell me how to proceed further with flag set.
Thanx and Regards,
Line.

Answer 1

Hi..
1) do u want this? if checkbox is not checked then no data is read from database and if checked then only data wil be fetched -
tables pa0001.
parameters p_check as checkbox.
data: begin of itab occurs 0.
include structure pa0001.
data end of itab.
start-of-selection.
if p_check = 'X'.
perform read_data.
endif.
if itab[] is not initial.
loop at itab.
write:/ itab-pernr.
endloop.
else.
write: 'No data fetched from database,may be u need to check the Checkbox'.
endif.
*&      Form  read_data
      text
-->  p1        text
<--  p2        text
FORM read_data .
select * from pa0001 into table itab up to 20 rows.
ENDFORM.                    " read_data
2) Adding fields based on Chekbox -
parameters: p_check AS CHECKBOX  MODIF ID ABC USER-COMMAND CH.
parameters: p_pernr like pa0001-pernr modif ID ABD,
            P_DATE LIKE PA0001-BEGDA MODIF ID ABD.
Check sy-ucomm = 'CH'.
AT SELECTION-SCREEN OUTPUT.
loop at screen.
if p_CHECK = 'X'.
   if screen-group1 = 'ABD'.
      SCREEN-ACTIVE = '1'.
      MODIFY SCREEN.
   ENDIF.
ELSE.
  if screen-group1 = 'ABD'.
     SCREEN-ACTIVE = '0'.
     MODIFY SCREEN.
     ENDIF.
ENDIF.
ENDLOOP.