radio button infor needed?

[Former Member]

hi

i had 2 RB GRP 1 & 3 RB in GRP2.

My req is if in GRP1 rad1 is clked than the none RB of GRP2 shd be hide,if in rad2 is clked than 3 RB of GRP2 shd be hide from the screen.

I am trying to to it but giving dupm:too many friled set in group.

LOOP AT SCREEN.

if y1 = 'X'.

clear:rb.

elseIF y2 = 'X'.

IF screen-name CS 'X1'.

screen-active = 0.

modify screen.

ENDIF.

if screen-name CS 'X3'.

screen-active = 0.

modify screen.

ENDIF.

if screen-name CS 'X4'.

screen-active = 0.

modify screen.

ENDIF.

ENDIF.

ENDLOOP.

[Former Member]

Hi Vipin,

try the below code for your requirement-

Parameters:
y1 radiobutton group grp1 user-command comm default 'X',
y2 radiobutton group grp1,
x1 radiobutton group grp2 user-command com1 default 'X',
x3 radiobutton group grp2,
x4 radiobutton group grp2.



At selection-screen output.

if y2 = 'X'.
LOOP AT SCREEN.
IF screen-name CS 'X1' or screen-name CS 'X3' or screen-name CS 'X4'.
screen-active = 0.
modify screen.
ENDIF.
Endloop.
endif.

Hope it will help you.

[Former Member]

i had tried it earlier,its also giving same dump.

[Former Member]

Hi,

What is the dump you are getting?

Better you show here the initial code you have written.

Because that code is not giving any dump in my system.

[Former Member]

Hi,

Try this out,

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

PARAMETERS: p_out1 TYPE c RADIOBUTTON GROUP a DEFAULT 'X'

USER-COMMAND uc01,

p_out2 TYPE c RADIOBUTTON GROUP a.

SELECTION-SCREEN END OF BLOCK b1.

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

SELECT-OPTIONS: s_ebeln FOR wa_ekko-ebeln MODIF ID 001,

s_bukrs FOR wa_ekko-bukrs MODIF ID 001,

s_aedat FOR wa_ekko-aedat MODIF ID 001,

s_matnr FOR wa_mard-matnr MODIF ID 002,

s_ersda FOR wa_mard-ersda MODIF ID 002,

s_werks FOR wa_mard-werks MODIF ID 002.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

CASE screen-group1.

WHEN '001'.

IF p_out1 EQ 'X'.

screen-active = '1'.

ELSE.

screen-active = '0'.

ENDIF.

MODIFY SCREEN.

WHEN '002'.

IF p_out2 EQ 'X'.

screen-active = '1'.

ELSE.

screen-active = '0'.

ENDIF.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

[former_member585060]

Hi

Try this code

TABLES : sscrfields.

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

PARAMETERS : rd_p1 TYPE c RADIOBUTTON GROUP r1 USER-COMMAND abcd,

rd_p2 TYPE c RADIOBUTTON GROUP r1 .

SELECTION-SCREEN END OF BLOCK b1.

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

PARAMETERS : rd_r1 TYPE c RADIOBUTTON GROUP r2 MODIF ID ccc,

rd_r2 TYPE c RADIOBUTTON GROUP r2 MODIF ID ccc,

rd_r3 TYPE c RADIOBUTTON GROUP r2 MODIF ID ccc.

SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

IF rd_p2 = 'X' .

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'CCC'.

screen-input = 0. "Enable

screen-invisible = 1. "Disable

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

START-OF-SELECTION.

Regards

Bala Krishna

[Former Member]

If u still have the problem, then it will be helpfull for u...

MODULE STATUS_0100 OUTPUT.

• SET PF-STATUS 'xxxxxxxx'.

• SET TITLEBAR 'xxx'.

if r_two = 'X'.

loop at screen .

case screen-group1.

when 'G2'.

screen-active = 0.

modify screen.

endcase.

endloop.

exit.

elseif r_two = 'X'.

loop at screen .

case screen-group1.

when 'G2'.

screen-active = 1.

modify screen.

endcase.

endloop.

exit.

endif.

ENDMODULE.

[Former Member]

Hi,

Try with this code:

parameters: p_rd1 radiobutton group grp1 user-command cmd1,

p_rd2 radiobutton group grp1,

p_rd3 radiobutton group grp2 modif id aaa,

p_rd4 radiobutton group grp2 modif id aaa,

p_rd5 radiobutton group grp2 modif id aaa.

at selection-screen output.

if p_rd2 = 'X'.

loop at screen.

if screen-group1 = 'AAA'.

screen-invisible = 0.

screen-active = 0.

endif.

modify screen.

endloop.

endif.

Regards,

Bhaskar