Skip to Content
0
Former Member
Oct 17, 2006 at 05:21 AM

Radio button processing in selection screen

17 Views

Hai all.

I have two radio buttons i.e P0(copy) & P1(delete) on selection screen. if i click on copy it shoud display the copy related selection screen. if click delete it should display delete relate selection screen,. default is delete

related selection-screen. Now i am getting the above selection screen, but by default it is displaying all fileds on the selection-screen but iwant to display only the delete related selection-screen(P_VERDEL).Here i am copying the code. Please give me some idea.

SELECTION-SCREEN BEGIN OF BLOCK rad1 WITH FRAME TITLE text-003 .

selection-screen begin of line.

SELECTION-SCREEN POSITION 11.

SELECTION-SCREEN COMMENT 1(12) text-004 modif id mg1.

parameters p_verfr like zrepl_gps-ZVERSIONFROM modif id mg1.

SELECTION-SCREEN POSITION 41 .

SELECTION-SCREEN COMMENT 35(16) text-005 modif id mg1.

parameters p_verto like zrepl_gps-ZVERSIONTO modif id mg1.

selection-screen end of line.

selection-screen skip 1.

selection-screen begin of line.

SELECTION-SCREEN POSITION 11.

SELECTION-SCREEN COMMENT 1(22) text-008 modif id mg2.

Parameters : p_verdel(10) type c modif id mg2.

selection-screen end of line.

selection-screen skip 4.

selection-screen begin of line.

SELECTION-SCREEN POSITION 11.

SELECTION-SCREEN COMMENT 1(10) text-001.

PARAMETERS : P0 RADIOBUTTON GROUP RADI user-command ABCD.

SELECTION-SCREEN POSITION 41.

SELECTION-SCREEN COMMENT 35(16) text-002.

PARAMETERS P1 RADIOBUTTON GROUP RADI default 'X'.

selection-screen end of line.

selection-screen skip 1.

parameters : c2 as checkbox.

SELECTION-SCREEN end OF BLOCK rad1.

data: v_chk.

at selection-screen.

if sy-ucomm = 'ABCD'.

v_chk = 'X'.

endif.

***********************************************************************************

AT SELECTION-SCREEN OUTPUT.

if v_chk = 'X'.

loop at screen.

IF P0 = 'X'.

if SCREEN-GROUP1 = 'MG2'.

screen-input = 0.

screen-active = 0.

ENDIF.

elseif P1 = 'X'.

if SCREEN-GROUP1 = 'MG1'.

screen-input = 0.

screen-active = 0.

ENDIF.

endif.

modify screen.

endloop.

ENDIF.