topic Re: radio button in selection screen in Application Development and Automation Discussions

radio button in selection screen

Former Member — Wed, 02 Sep 2009 10:49:41 GMT

hi,

i have an ALV Report, in the selection screen there are 2 radio buttons.

RB1 default 'X'.

and

RB2

and there are 5 select-options.

the issue is , the radio button RB1 IS default when RB1 is there one of the select option should be disabled.

and when we click on RB2 the select option should be enabled.

the selec option is

select - option : s_bukrs for bseg-bukrs.

please help with the code.

thanks in advance

Re: radio button in selection screen

Former Member — Wed, 02 Sep 2009 10:51:10 GMT

Please SEARCH in SCN before posting

Re: radio button in selection screen

Former Member — Wed, 02 Sep 2009 10:55:42 GMT

TRY SOMETHING LIKE FOLLOWING

PARAMETERS : RB1 RADIOBUTTON GROUP R1 USER-COMMAND R00,
                          RB2 RADIOBUTTON GROUP R1.
SELECT-OPTION : S_BUKRS FOR BSEG-BUKRS.
AT SELECTION-SCREEN OUTPUT.
   LOOP AT SCREEN.
      IF RB1 = 'X' AND SCREEN-NAME  CS 'S_BUKRS'.
            SCREEN-INPUT = 0.
      ENDIF.
      IF RB2 = 'X' AND SCREEN-NAME  CS 'S_BUKRS'.
            SCREEN-INPUT = 1.
      ENDIF.
     MODIFY SCREEN.
   ENDLOOP.

Re: radio button in selection screen

Former Member — Wed, 02 Sep 2009 10:56:14 GMT

Hi Sree,

Try this link, I hope it will help you.

[Link|;

Regards,

Nidhi Kothiyal

Re: radio button in selection screen

sridhar_meesala — Wed, 02 Sep 2009 10:57:30 GMT

Hi,

In AT SELECTION SCREEN OUTPUT

IF screen-name = 'select_option'.
 screen-input = 0.
 MODIFY SCREEN.
ENDIF.

IF R2 = 'X'.
LOOP AT SCREEN.
if screen-name = 'select_option'.
Screen-Input = 0.
Modify Screen.
ENDIF.
ENDLOOP.

Thanks,

Sri.

Re: radio button in selection screen

Former Member — Wed, 02 Sep 2009 11:06:39 GMT

Hi,

Try this code,

TABLES : KNA1,EKKO.

PARAMETERS : C1 RADIOBUTTON GROUP VIJJ USER-COMMAND VJY ,

C2 RADIOBUTTON GROUP VIJJ .

SELECT-OPTIONS : S_CUSTNO FOR KNA1-KUNNR MODIF ID AKP DEFAULT 1000 TO 1033.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF C1 = 'X'.

IF SCREEN-GROUP1 = 'VKP'.

SCREEN-INPUT = 0.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'PKP'.

SCREEN-INPUT = 0.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ELSEIF C2 = 'X'.

IF SCREEN-GROUP1 = 'PKP'.

SCREEN-INPUT = 0.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'AKP'.

SCREEN-INPUT = 0.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Regards,

Vijay

Re: radio button in selection screen

Former Member — Wed, 02 Sep 2009 11:06:58 GMT

Check the below sample code

TABLES: mara, kna1.

SELECT-OPTIONS: s_matnr FOR mara-matnr MODIF ID gr,

s_kunnr FOR kna1-kunnr MODIF ID gr1.

PARAMETERS: p_matnr RADIOBUTTON GROUP rad USER-COMMAND tst DEFAULT 'X',

p_kunnr RADIOBUTTON GROUP rad.

AT SELECTION-SCREEN OUTPUT.

IF p_matnr = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'GR1'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF screen-group1 = 'GR'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Hope this will help you.

Re: radio button in selection screen

Former Member — Wed, 02 Sep 2009 11:07:54 GMT

Hello Sree,

You need to assign modif id to select-options and then in LOOP AT SCREEN you can check for modif id and change that control.



SELECTION-SCREEN BEGIN OF BLOCK 001. 
PARAMETERS: P_R1  RADIOBUTTON GROUP SEL DEFAULT 'X' USER-COMMAND AC, 
                         P_R2 RADIOBUTTON GROUP SEL. 
    SELECT-OPTIONS S1 FOR <field> MODIF ID M1. 
    SELECT-OPTIONS S1 FOR <field>  MODIF ID M2. 
SELECTION-SCREEN END OF BLOCK 001. 

AT SELECTION-SCREEN OUTPUT. 
LOOP AT SCREEN. 
  IF P_R1 = 'X'. 
      IF SCREEN-GROUP1 = 'M1'. 
        SCREEN-INPUT = '0'.  
      ENDIF. 
      IF SCREEN-GROUP1 = 'M2'. 
        SCREEN-INPUT = '1'. 
      ENDIF. 
  ELSEIF P_R2 = 'X'. 
     IF SCREEN-GROUP1 = 'M2'. 
       SCREEN-INPUT = '0'. 
     ENDIF. 
     IF SCREEN-GROUP1 = 'M1'. 
       SCREEN-INPUT = '1'. 
     ENDIF. 
  ENDIF. 
  MODIFY SCREEN. 
ENDLOOP.

Hope this helps!

Thanks,

Augustin.