topic Re: changing radio button property dynamically in Application Development and Automation Discussions

changing radio button property dynamically

former_member671224 — Tue, 28 Oct 2008 23:42:46 GMT

Hi,

I decalred two blocks in selection screen named B1 and B2, each have 2 radio buttions.

B1 has radio button named B1R1 and B1R2.

B2 has radio button named B2R1 and B2R2.

If i select B1R1 then B2R1 should be selected and B2R2 should be disabled(user should not able to select).

If i select B1R2 then B2R2 should be selected and B2R1 should be disabled(user should not able to select).

Can anyone please tell me how to do this.

Thanks,

Amal

Re: changing radio button property dynamically

Former Member — Tue, 28 Oct 2008 23:47:00 GMT

Why do you even need radio button group B2 on the screen then? You can use check boxes and set those based on the radio button B1 group value

Re: changing radio button property dynamically

former_member671224 — Wed, 29 Oct 2008 00:00:31 GMT

Just for example i used 2 radio buttons. In actual senario there are more radio buttons and each has differrent process. So user should be able to select only one option.

Thanks,

Amal

Re: changing radio button property dynamically

Former Member — Wed, 29 Oct 2008 00:13:43 GMT

look at the solution in this thread

Re: changing radio button property dynamically

Former Member — Wed, 29 Oct 2008 04:50:00 GMT

Try this

SELECTION-SCREEN: BEGIN OF BLOCK b1.
  PARAMETERS: b1r1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND ucomm1,
              b1r2 RADIOBUTTON GROUP g1.
SELECTION-SCREEN: END OF BLOCK b1.

SELECTION-SCREEN: BEGIN OF BLOCK b2.
  PARAMETERS: b2r1 RADIOBUTTON GROUP g2 USER-COMMAND UCOMM2 MODIF ID MD1,
              b2r2 RADIOBUTTON GROUP g2 MODIF ID MD2.
SELECTION-SCREEN: END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
  IF b1r1 = 'X'.
    if screen-group1 = 'MD2'.
      screen-input = 0.
    endif.
  ELSEIF b1r2 = 'X'.
    if screen-group1 = 'MD1'.
      screen-input = 0.
    endif.
  ENDIF.

  MODIFY SCREEN.
  ENDLOOP.

  AT SELECTION-SCREEN.
    IF b1r1 = 'X'.
    b2r1 = 'X'.
    b2r2 = ''.

  ELSEIF b1r2 = 'X'.
    b2r2 = 'X'.
    b2r1 = ''.

  ENDIF.