Radio Button enable and disable

[Former Member]

Hi Experts,

I am haivng two radiobuttons and one input parameters

if my input = 1.

then i required 1st radio button enable and second disable.

else.

i required second button enable and first disable.

endif.

[Former Member]

hi,

use

loop at sceen.

screen-active = 0.

modify screen.

endloop.

[Former Member]

Hi

See the sample programs and do accordingly

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

PARAMETERS: pa_file TYPE rlgrap-filename MODIF ID abc,

pa_lifnr TYPE lfa1-lifnr MODIF ID abc,

pa_vkorg TYPE vbak-vkorg MODIF ID abc.

SELECTION-SCREEN END OF BLOCK b1.

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

PARAMETERS: pa_kunnr TYPE vbak-kunnr MODIF ID def.

SELECT-OPTIONS: s_lifnr FOR gs_lfa1-lifnr MODIF ID def,

s_date FOR gs_lfa1-erdat MODIF ID def,

s_augru FOR gs_vbak-augru MODIF ID def,

s_vbeln FOR gs_vbak-vbeln MODIF ID def.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_upd RADIOBUTTON GROUP g1 USER-COMMAND uc01 DEFAULT 'X'."#EC *

SELECTION-SCREEN COMMENT 3(60) text-004 FOR FIELD pa_upd.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_rep RADIOBUTTON GROUP g1 ."#EC *

SELECTION-SCREEN COMMENT 3(60) text-005 FOR FIELD pa_rep.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

IF pa_rep EQ gc_x.

LOOP AT SCREEN.

IF screen-group1 = gc_abc.

screen-input = gc_zero_num.

ELSEIF screen-group1 = gc_def.

screen-active = gc_one_num.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF pa_upd EQ gc_x.

*For Reprocessing

LOOP AT SCREEN.

IF screen-group1 = gc_def.

screen-input = gc_zero_num.

ELSEIF screen-group1 = gc_abc.

screen-active = gc_one_num.

ENDIF.

MODIFY SCREEN.

CLEAR pa_upd.

ENDLOOP.

ENDIF.

***********************************************************

REPORT zrich_001.

PARAMETERS: p_rad1 RADIOBUTTON GROUP grp1 DEFAULT 'X'

user-command chk,

p_rad2 RADIOBUTTON GROUP grp1.

SELECT-OPTIONS: s_datum1 FOR sy-datum MODIF ID d1,

s_datum2 FOR sy-datum MODIF ID d2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_rad1 = 'X'

AND screen-group1 = 'D2'.

screen-active = '0'.

ENDIF.

IF p_rad2 = 'X'

AND screen-group1 = 'D1'.

screen-active = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Reward points for useful Answers

Regards

Anji

[Former Member]

Hi Rajneesh,

Do in this way" -

if my input = 1.

LOOP AT SCREEN.

IF SCREEN-NAME = 'R1'.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

else.

LOOP AT SCREEN.

IF SCREEN-NAME = 'R2'.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

endif.

[Former Member]

HI

GOOD

take a flag as x for the input parameter ,when you r entering any data than make flag as x and radio button as x ,if the input is not equal to 1 and make radio button as not equal to zero.

thanks

mruyun^

[Former Member]

well, what i dont get here, is:

If you have the condition to activate radio-button1 once you have a '1' in your parameter, and the other way round for values not equal 1, for what do youz need the radio buttons now?

the user has any way no choice if he has to meet your conditions...

[Former Member]

HI,

CHECK THIS CODE

PARAMETERS: P1 TYPE I,

R1 TYPE RADIOBUTTON GROUP G1,

R2 TYPE RADIOBUTTON GROUP G1.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF P1 = 1 AND SCREEN-NAME = 'R1'

SCREEN-INPUT = 1.

MODIFY SCREEN.

ELSE.

SCREEN-NAME = 'R2'.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDLOOP.

if useful reward some points.

with regards,

Suresh.A