radio button

[Former Member]

i need a prog with 2 radio button

when i click on 1 i get field gray and other is yeloow

and when i click 2 radio i get opposite

PLSSSSSSS

[Former Member]

here is my code

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

• CHECK screen-name = 'P_TCODE' OR screen-name = 'P_PROG'.

IF rad_tc = 'X'.

IF screen-name = 'P_TANUM'.

screen-input = 1.

MODIFY SCREEN.

ENDIF.

IF screen-name = 'P_USER'.

screen-input = 0.

MODIFY SCREEN.

endif.

endif.

• endif.

*

ENDLOOP.

p_user = sy-uname.

zp_user = sy-uname.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP rad1.

LOOP AT SCREEN.

• CHECK screen-name = 'P_TCODE' OR screen-name = 'P_PROG'.

IF rad_pr = 'X'.

IF screen-name = 'S_TANUM'.

screen-input = 1.

else.

screen-output = 0.

ENDIF.

MODIFY SCREEN.

endif.

endloop.

[Former Member]

r u using radio buttons from the same group?

[Former Member]

yes that's the problem????

[Former Member]

Hi richi,

here i am writing sample code for you.

selection-screen begin of block b1 with frame title text-001.

parameters:rad1 radiobutton group g1 user-command abc default 'X'.

parameters:rad2 radiobutton group g1.

selection-screen end of block b1.

at selection-screen output.

loop at screen.

if rad1 = 'X'.

if screen-name = 'VBELN'.

screen-input = 0.

modify screen.

endif.

else.

screen-name = 'POSNR'.

screen-input = 0.

modify screen.

endif.

*reward points if useful

regards

suman

[Former Member]

i tried but it's not work for me

i did it on my example

[Former Member]

Hi,

Try this program...

PARAMETERS : Pre_lay RADIOBUTTON GROUP RG USER-COMMAND R DEFAULT 'X'.

PARAMETERS : Apln_lay RADIOBUTTON GROUP RG .

selection-screen begin of block b1 with frame.

parameters : Pre_layr(10) type c modif id abc.

selection-screen end of block b1.

selection-screen begin of block b2 with frame.

parameters : Appl_lay(40) type c modif id def.

selection-screen end of block b2.

at selection-screen output.

IF Pre_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'DEF' .

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF Apln_lay = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'ABC' .

screen-active = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Thanks

Yogesh