radio button validation at selection screen

[Former Member]

hi folks,

the selection screen will have two radio buttons. when select one the other should be disabled and should further process the selected radio button.

plz send me piece of code.

thanks and regards

alson

[Former Member]

Hi Alson,

Just search SDN using AT SELECTION SCREEN OUTPUT you will get lots of code for your functioanality.

Reward points if useful.

Regards,

Atish

[Former Member]

hi,

in pbo

data: r1 type radiobutton group g1 default 'X',

r2 type radiobutton group g1,

at line selection.

if r1 == 'X'

loop at screen .

if screen-name = 'r2'.

screen-output = 0.

endif.

endloop.

else.

loop at screen .

if screen-name = 'r1'.

screen-output = 0.

endif.

endloop.

endif.

if helpful reward some points.

with regards,

suresh babu.

[Former Member]

hi

just copy an dpaste the following piece of code and check

TABLES: eban,

SSCRFIELDS.

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.

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.

regards

ravish

<b>plz dont forget to reward points if helpful</b>

[former_member225631]

PARAMETERS:b1 RADIOBUTTON GROUP g1 USER-COMMAND flag,

b2 RADIOBUTTON GROUP g1.

PARAMETERS:

a(10) TYPE c MODIF ID m,

b(10) TYPE c MODIF ID n.

AT SELECTION-SCREEN OUTPUT.

IF b2 = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'M'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

IF screen-group1 = 'N'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF b1 = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'M'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

IF screen-group1 = 'N'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

[Former Member]

hi

good

go through this

REPORT demo_at_selection_on_radio.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

PARAMETERS: r1 RADIOBUTTON GROUP rad1 DEFAULT 'X',

r2 RADIOBUTTON GROUP rad1,

r3 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.

PARAMETERS: r4 RADIOBUTTON GROUP rad2 DEFAULT 'X',

r5 RADIOBUTTON GROUP rad2,

r6 RADIOBUTTON GROUP rad2.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP rad1.

IF r1 = 'X'.

MESSAGE w888(sabapdocu) WITH text-001.

ENDIF.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP rad2.

IF r4 = 'X'.

MESSAGE w888(sabapdocu) WITH text-001.

ENDIF.

thanks

mrutyun^