Hi,
Refer to the following code:
selection-screen begin of screen 100 title title.
selection-screen begin of block b1 with frame title text-t01.
parameter:rad1 radiobutton group rad user-command frad1 default 'X',
rad2 radiobutton group rad .
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-t02.
parameter: mtr as checkbox modif id g3 user-command chk1,
p_matnr type eban-matnr modif id g1,
sloc as checkbox modif id g3 user-command chk2,
str_loc type eban-lgort modif id g4.
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-t03.
select-options: matnr1 for eban-matnr modif id g2.
selection-screen end of block b3.
selection-screen pushbutton /20(10) name user-command ucom.
selection-screen end of screen 100.
name = 'FETCH'.
title = 'Test Report'.
call selection-screen '100'.
type-pools slis.
data: begin of it_pr occurs 0,
banfn type eban-banfn,
bnfpo type eban-bnfpo,
loekz type eban-loekz,
statu type eban-statu,
ekgrp type eban-ekgrp,
matnr type eban-matnr,
werks type eban-werks,
lgort type eban-lgort,
preis type eban-preis,
peinh type eban-peinh,
end of it_pr.
data: begin of it_mat occurs 0,
matnr type eban-matnr,
end of it_mat.
*DATA:BEGIN OF ITAB1 OCCURS 0,
data: l_answer.
data: it_fieldcat type slis_t_fieldcat_alv,
wa_fieldcat like line of it_fieldcat,
it_event type slis_t_event,
wa_event type slis_alv_event.
data: r_ucomm type sy-ucomm,
mat_no type eban-matnr,
len type i value 1,
count type i value is initial,
iflag type i value is initial,
iflag1 type i value 0.
data :pr_id type sy-repid,
rt_extab type slis_t_extab.
at selection-screen output.
if rad1 = 'X'.
loop at screen.
if screen-group1 = 'G1' or screen-group1 = 'G4'.
screen-active = '1'.
screen-input = 0.
elseif screen-group1 = 'G2'.
screen-active = '0'.
endif.
modify screen.
endloop.
elseif rad2 = 'X'.
loop at screen.
if screen-group1 = 'G1' or screen-group1 = 'G4' or screen-group1 = 'G3' or screen-group1 = 'G5'.
screen-active = '0'.
elseif screen-group1 = 'G2'.
screen-active = '1'.
endif.
modify screen.
endloop.
endif.
if mtr = 'X'.
loop at screen.
if screen-group1 = 'G1'.
screen-input = 1 .
endif.
modify screen.
endloop.
endif.
if sloc = 'X'.
loop at screen.
if screen-group1 = 'G4'.
screen-input = 1 .
endif.
modify screen.
endloop.
endif.
clear sy-ucomm.
This will surely sort your prob
Regards
Gaurav
Bluesky
