radio button.

[Former Member]

hi,

my requirement is on radio button. pls any one can help me.

F B

r1 r11

r2 r12

r3 r13

under F three radio buttons and under B three radio buttons.

in dialog programming intially no need to display the radio buttons.

if itab-field = '1'.

dispaly F and 3 radio buttons.

if itab-field = '2'.

diaplay F ,B and radio buttons.

pls how to do.

if any one have idea pls send me the code.

[Former Member]

Hi,

At selection screen.

if itab-field1 = 1.

loop at screen.

if screen-name = 'radio button name'.

screen-active = 0.

modify screen.

endif.

endloop.

else.

-

---

endif.

reward if it helps,

Regards,

Talwinder

[Former Member]

hi!

create the MODIF ID to all the field in selection screen.

at selection-screen output.

if screen-name = 'itab1'.

loop at screen.

screen-active = 0.

endloop.

modify screen.

endif.

Thanks and Regards,

Nagulan

[Former Member]

hi check this ....

report .

TABLES: vbak, ltak.

DATA:

err_sw.

PARAMETERS: rb1 RADIOBUTTON GROUP rb1 USER-COMMAND sel DEFAULT 'X'.

PARAMETERS: rb2 RADIOBUTTON GROUP rb1.

SELECTION-SCREEN: SKIP 1.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECT-OPTIONS: s_auart FOR vbak-auart DEFAULT 'ZRE'

NO INTERVALS MODIF ID rb1.

SELECT-OPTIONS: s_date FOR vbak-erdat MODIF ID rb1.

SELECTION-SCREEN: END OF BLOCK b1.

SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.

SELECT-OPTIONS: s_tanum FOR ltak-tanum MODIF ID rb2.

SELECT-OPTIONS: s_bdatu FOR ltak-bdatu MODIF ID rb2.

SELECTION-SCREEN: END OF BLOCK b2.

*____________________________________________ Screen Actions

AT SELECTION-SCREEN OUTPUT.

IF rb1 = 'X'.

PERFORM hide_rb2_options.

ELSE.

PERFORM hide_rb1_options.

ENDIF.

INITIALIZATION.

START-OF-SELECTION.

CLEAR err_sw.

IF rb1 = 'X'.

IF s_auart IS INITIAL

OR s_date IS INITIAL.

MESSAGE i208(00) WITH 'Required field not entered'.

err_sw = 'X'.

ENDIF.

ELSE.

IF s_tanum IS INITIAL

OR s_bdatu IS INITIAL.

MESSAGE i208(00) WITH 'Required field not entered'.

err_sw = 'X'.

ENDIF.

ENDIF.

CHECK err_sw NE 'X'.

WRITE:/ 'Hi!'.

&----

---

*& Form hide_rb2_options

&----

---

FORM hide_rb2_options.

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'RB1'.

screen-active = 1.

MODIFY SCREEN.

WHEN 'RB2'.

screen-active = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDFORM. " hide_rb2_options

&----

---

*& Form hide_rb1_options

&----

---

FORM hide_rb1_options.

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'RB2'.

screen-active = 1.

MODIFY SCREEN.

WHEN 'RB1'.

screen-active = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDFORM. " hide_rb1_options

regards,

venkat