topic Re: radio button in Application Development and Automation Discussions

radio button

Former Member — Fri, 28 Mar 2008 06:09:43 GMT

hai experts,

PARAMETERS: ZTEST RADIOBUTTON GROUP rad1,

ZRUN RADIOBUTTON GROUP rad1.

PARAMETERS: SUCCREC RADIOBUTTON GROUP rad2,

ERRORLOG RADIOBUTTON GROUP rad2.

i have two radion button groups. In radio button group rad1 ZTEST selected radion button group rad2 is disable and ZRUN selected radion button group rad2 enable. this is problem

please give answer

its urgent

Thanks

sitaram.

Re: radio button

Former Member — Fri, 28 Mar 2008 06:18:30 GMT

Hi,

use the below code

PARAMETERS: ZTEST RADIOBUTTON GROUP rad1 default 'X' user-command rusr,

ZRUN RADIOBUTTON GROUP rad1.

PARAMETERS: SUCCREC RADIOBUTTON GROUP rad2 modif id Z1,

ERRORLOG RADIOBUTTON GROUP rad2 modif id Z1.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1'. "Name field

IF zrun = 'X'.

SCREEN-ACTIVE = 1.

ELSE.

SCREEN-ACTIVE = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: radio button

dhruv_shah3 — Fri, 28 Mar 2008 06:19:44 GMT

Hi,

Use Loop at Screen.

if rbt1 = 'x'.

screen-name = rbt2.

screen-invisible = 1.

else

screen-invisible = 0.

endif.

modify screen.

endloop.

use the similar for the other radio button.

HTH

Regards,

Dhruv Shah

Re: radio button

Former Member — Fri, 28 Mar 2008 06:22:27 GMT

Hi,

Use the below code.

PARAMETERS: ZTEST RADIOBUTTON GROUP rad1 default 'X' user-command rusr,

ZRUN RADIOBUTTON GROUP rad1.

PARAMETERS: SUCCREC RADIOBUTTON GROUP rad2 modif id Z1,

ERRORLOG RADIOBUTTON GROUP rad2 modif id Z1.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1'. "Name field

IF zrun = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: radio button

Former Member — Fri, 28 Mar 2008 06:32:43 GMT

DATA:

w_flag TYPE i.

**&----

**& SELECTION-SCREEN

**&----

SELECTION-SCREEN

BEGIN OF BLOCK connection1

WITH FRAME TITLE text-001.

PARAMETERS: p_radio1 TYPE c RADIOBUTTON GROUP radi USER-COMMAND gui ,

p_radio2 TYPE c RADIOBUTTON GROUP radi.

SELECTION-SCREEN END OF BLOCK connection1.

SELECTION-SCREEN BEGIN OF BLOCK flight1

WITH FRAME TITLE text-002.

SELECTION-SCREEN COMMENT 1(10) text-004 MODIF ID 001.

PARAMETERS: p_radio3 TYPE c RADIOBUTTON GROUP rad2 MODIF ID 001,

p_radio4 TYPE c RADIOBUTTON GROUP rad2 MODIF ID 001.

SELECTION-SCREEN SKIP 1 .

SELECTION-SCREEN END OF BLOCK flight1.

INITIALIZATION.

LOOP AT SCREEN.

IF screen-group1 = '001' OR

screen-group1 = '002'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

AT SELECTION-SCREEN OUTPUT.

PERFORM change_of_screen.

AT SELECTION-SCREEN ON BLOCK connection1.

IF p_radio1 = 'X'.

w_flag = 0.

ELSE.

w_flag = 1.

ENDIF.

&----

*& Form change_of_screen

&----

text

----

FORM change_of_screen .

IF w_flag = 0.

LOOP AT SCREEN.

IF screen-group1 = '001'.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF screen-group1 = '002'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF screen-group1 = '002'.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF screen-group1 = '001'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM. " change_of_screen

reward if it is useful.

sandeep

Re: radio button

Former Member — Fri, 28 Mar 2008 06:45:38 GMT

thnak u

Re: radio button

Former Member — Fri, 28 Mar 2008 06:50:27 GMT

Hi,

Check this piece of code.


PARAMETERS: ztest RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND change,
zrun RADIOBUTTON GROUP rad1.

PARAMETERS: succrec RADIOBUTTON GROUP rad2 MODIF ID md1,
errorlog RADIOBUTTON GROUP rad2 MODIF ID md1.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF ztest EQ 'X'.
      IF screen-group1 EQ 'MD1'.
        screen-input = 0.
      ELSE.
        screen-input = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

Reward points if it helps.

Regards.

Abhisek