Code for selection screen, urgent

[Former Member]

Hi Everyone,

I need code for selection screen.

I have four radio buttons, p1, p2,p3,p4(assume)

If I select second radiobutton, remaining three radiobuttons should be in disable mode and also the information under them should be in disable mode. Give the coding details. Thanks in advance. U will be rewarded.

Regards,

Nagaraju

[former_member156446]

assing modif id to ur parameters :

PARAMETERS: pa_logic RADIOBUTTON GROUP e1 USER-COMMAND inv DEFAULT 'X',
pa_equip RADIOBUTTON GROUP e1,
pa_ob RADIOBUTTON GROUP e1.

PARAMETERS: pa_zpms AS CHECKBOX MODIF ID i1.

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

PARAMETERS :
pa_pex1 TYPE rlgrap-filename MODIF ID i2, " buyers list PC
pa_uex1(200) LOWER CASE MODIF ID i2. " buyers list Unix
SELECTION-SCREEN END OF BLOCK a2.

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS:
pa_pex2 TYPE rlgrap-filename MODIF ID i2, "Commercial list PC
pa_uex2(200) LOWER CASE MODIF ID i2. "Commercial list Unix

SELECTION-SCREEN END OF BLOCK a1.

Play with the parameters here..

AT SELECTION-SCREEN OUTPUT.

IF pa_equip <> 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'I1'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

IF pa_logic <> 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'I2'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

[Former Member]

Hi,

REPORT ZTEST222 .

PARAMETERS : p_add RADIOBUTTON GROUP radi

USER-COMMAND radio MODIF ID MOD,

p_disp RADIOBUTTON GROUP radi DEFAULT 'X' MODIF ID pod,

p_chng RADIOBUTTON GROUP radi MODIF ID rad,

p_er_log RADIOBUTTON GROUP radi MODIF ID cod.

SELECT-OPTIONS : s_idn FOR vendor MODIF ID mod,

s_pcode FOR ws_c_pcode MODIF ID pod.

PARAMETERS: p_plant LIKE zaw_pol_plan-plant MODIF ID rad,

p_zzvend LIKE zaw_pol_plan-zzvendor MODIF ID cod.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_add EQ 'X'.

IF screen-group1 EQ 'MOD'.

screen-active = 1.

MODIFY SCREEN.

ELSE.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

IF p_disp EQ 'X'.

IF screen-group1 EQ 'POD'.

screen-active = 1.

MODIFY SCREEN.

ELSE.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

IF p_chng EQ 'X'.

IF screen-group1 EQ 'RAD'.

screen-active = 1.

MODIFY SCREEN.

ELSE.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

IF p_er_log EQ 'X'.

IF screen-group1 EQ 'COD'.

screen-active = 1.

MODIFY SCREEN.

ELSE.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

Pls. reward if useful

ENDLOOP.

Pls. reward if useful

[Former Member]

Hi Murali Krishna,

Entire selection screen is empty after using ur code when executing F8. Thanks a lot, i would be glad if u can correct me.

Regards,

Nagaraju

[Former Member]

Hi,

When you say rest of the radio buttons should be disabled do u mean that they should be unselected ?

secondly can i ask you what is the need for you to disable the radio buttons. If you use the same radiobutoon group on all the four rardiobuttons , then u will anywas be able to only select one radiobutton at a time.

parameter : p1 as radiobutton group radi,

p2 as radiobutton group radi.

so when u run the program system only allows to select one radio button.

regards,

Advait