topic Re: Radio button logic. in Application Development and Automation Discussions

Radio button logic.

Former Member — Tue, 06 Jan 2009 14:48:39 GMT

Hi,

Iam using below code.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS P_APP RADIOBUTTON GROUP RA DEFAULT 'X'USER-COMMAND UC2.

SELECTION-SCREEN COMMENT 3(11) TEXT-003.

SELECTION-SCREEN POSITION 20.

PARAMETERS P_PRE RADIOBUTTON GROUP RA.

SELECTION-SCREEN COMMENT 22(15) TEXT-004.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS P_AFULL RADIOBUTTON GROUP RC MODIF ID R1.

SELECTION-SCREEN COMMENT 3(15) TEXT-005.

SELECTION-SCREEN POSITION 20.

PARAMETERS P_APART RADIOBUTTON GROUP RC MODIF ID R1.

SELECTION-SCREEN COMMENT 22(20) TEXT-006.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B3.

SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS P_PFULL RADIOBUTTON GROUP RD MODIF ID R2.

SELECTION-SCREEN COMMENT 3(15) TEXT-007.

SELECTION-SCREEN POSITION 20.

PARAMETERS P_PPART RADIOBUTTON GROUP RD MODIF ID R2.

SELECTION-SCREEN COMMENT 22(20) TEXT-008.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B4.

when user selects the P_APP radiobutton only block B3 will display.

when user selects the P_PRE radiobutton only block B4 will display.

I tried with below code.

AT SELECTION-SCREEN OUTPUT.

IF P_VALI EQ 'X'.

LOOP AT SCREEN .

CASE SCREEN-GROUP1.

WHEN 'R1'.

SCREEN-ACTIVE = 1.

WHEN 'R2'.

SCREEN-ACTIVE = 0.

ENDCASE.

MODIFY SCREEN.

ENDLOOP.

ELSE.

LOOP AT SCREEN .

CASE SCREEN-GROUP1.

WHEN 'R1'.

SCREEN-ACTIVE = 0.

WHEN 'R2'.

SCREEN-ACTIVE = 1.

ENDCASE.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

But only Radiobuttons are disable but not entire block.

Please provide me solution.

Regards,

Suresh.

Re: Radio button logic.

RichHeilman — Tue, 06 Jan 2009 14:55:12 GMT

Check the values of the radiobuttons.

AT SELECTION-SCREEN OUTPUT.
IF  P_APP  =  'X'.
LOOP AT SCREEN .
CASE SCREEN-GROUP1.
WHEN 'R1'.
SCREEN-ACTIVE = 1.
WHEN 'R2'.
SCREEN-ACTIVE = 0.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ELSEIF P_PRE = 'X'.
LOOP AT SCREEN .
CASE SCREEN-GROUP1.
WHEN 'R1'.
SCREEN-ACTIVE = 0.
WHEN 'R2'.
SCREEN-ACTIVE = 1.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
ENDIF.

REgards,

Rich Heilman

Re: Radio button logic.

RichHeilman — Tue, 06 Jan 2009 14:59:51 GMT

Oh, and make sure to use the MODIF ID for all of the elements in the block. See that I've added the MODIF ID to the selection-screec comments.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_afull RADIOBUTTON GROUP rc MODIF ID r1.
SELECTION-SCREEN COMMENT 3(15) text-005 MODIF ID r1.
SELECTION-SCREEN POSITION 20.
PARAMETERS p_apart RADIOBUTTON GROUP rc MODIF ID r1.
SELECTION-SCREEN COMMENT 22(20) text-006 MODIF ID r1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_pfull RADIOBUTTON GROUP rd MODIF ID r2.
SELECTION-SCREEN COMMENT 3(15) text-007 MODIF ID r2.
SELECTION-SCREEN POSITION 20.
PARAMETERS p_ppart RADIOBUTTON GROUP rd MODIF ID r2.
SELECTION-SCREEN COMMENT 22(20) text-008 MODIF ID r2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b4.

Regards,

Rich Heilman

Re: Radio button logic.

Former Member — Tue, 06 Jan 2009 15:01:23 GMT

AT SELECTION-SCREEN OUTPUT.

IF P_VALI EQ 'X'. " i hope here your program is getting wrong try to give if p_app = x

LOOP AT SCREEN .

CASE SCREEN-GROUP1.

WHEN 'R1'.

SCREEN-ACTIVE = 1.

WHEN 'R2'.

SCREEN-ACTIVE = 0.

ENDCASE.

MODIFY SCREEN.

ENDLOOP.

ELSE.

LOOP AT SCREEN .

CASE SCREEN-GROUP1.

WHEN 'R1'.

SCREEN-ACTIVE = 0.

WHEN 'R2'.

SCREEN-ACTIVE = 1.

ENDCASE.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

Re: Radio button logic.

Former Member — Tue, 06 Jan 2009 15:05:29 GMT

Hi,

I think below code will be useful for u.

selection-screen begin of block input with frame title text-000.

parameters : direct radiobutton group rg_f user-command rg_f,

plant type zctdirect_saving-zwerks modif id di ,

extern radiobutton group rg_f,

plants like zctextern_saving-zwerks modif id ex .

selection-screen end of block input.

The above is my selection screen,

loop at screen.

if screen-group1 = 'DI'.

if direct = c_x.

screen-active = 1.

clear: plants.

else.

screen-active = 0.

endif.

if screen-group1 = 'EX'.

if extern = c_x.

screen-active = 1.

clear: plant.

else.

screen-active = 0.

endif.

modify screen.

endloop.

This will toggle the screen as per our requirement.

I hope this will helpful for u.

Thanks.

Re: Radio button logic.

Former Member — Tue, 06 Jan 2009 15:06:21 GMT

Hi Heilman,

Thanks for your reply.

I tried with your code only Radio buttons are not display but textelements are display.

when user selects P_APP i don't need entire block b4.

How can i modify above code.

Regards,

Suresh

Re: Radio button logic.

Former Member — Tue, 06 Jan 2009 15:07:13 GMT

hay u have to use the

loop at screen...

if screen-group = 'X'.

when r1 = 'X'.

screen-input = 0.

modify screen.

endif.

Re: Radio button logic.

Former Member — Tue, 06 Jan 2009 15:08:53 GMT

go to attribute--

text elements--

change the fields...

Re: Radio button logic.

Former Member — Tue, 06 Jan 2009 15:25:49 GMT

Modif ID's have to be used for the "SELECTION-SCREEN COMMENT " statements also. Then even the selection block and the texts will be not visible.

Eg:-

PARAMETERS P_AFULL RADIOBUTTON GROUP RC MODIF ID R1.

SELECTION-SCREEN COMMENT 3(15) TEXT-005 MODIF ID R1.

If you want to have only the fields disappeared you can use the option FOR FIELD also.

Eg:-

PARAMETERS p_afull RADIOBUTTON GROUP rc MODIF ID r1.

SELECTION-SCREEN COMMENT 3(15) text-005 FOR FIELD p_afull.

Re: Radio button logic.

former_member585060 — Tue, 06 Jan 2009 15:45:56 GMT

Try this code

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_app RADIOBUTTON GROUP ra DEFAULT 'X' USER-COMMAND uc2.
SELECTION-SCREEN COMMENT 3(11) text-003.
SELECTION-SCREEN POSITION 20.
PARAMETERS p_pre RADIOBUTTON GROUP ra.
SELECTION-SCREEN COMMENT 22(15) text-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_afull RADIOBUTTON GROUP rc MODIF ID r1.
SELECTION-SCREEN COMMENT 3(15) text-005.
SELECTION-SCREEN POSITION 20.
PARAMETERS p_apart RADIOBUTTON GROUP rc MODIF ID r1.
SELECTION-SCREEN COMMENT 22(20) text-006.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_pfull RADIOBUTTON GROUP rd MODIF ID r2.
SELECTION-SCREEN COMMENT 3(15) text-007.
SELECTION-SCREEN POSITION 20.
PARAMETERS p_ppart RADIOBUTTON GROUP rd MODIF ID r2.
SELECTION-SCREEN COMMENT 22(20) text-008.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b4.


AT SELECTION-SCREEN OUTPUT.

  IF p_app = 'X' .

    LOOP AT SCREEN.
      CASE screen-group1.
        WHEN 'R1'.
          screen-input = 1.
          screen-invisible = 0.
          MODIFY SCREEN.
        WHEN 'R2'.
          screen-input = 0.
          screen-invisible = 1.
          MODIFY SCREEN.
      ENDCASE.
    ENDLOOP.

  ELSE.
    IF p_pre = 'X'.
      LOOP AT SCREEN.
        CASE screen-group1.
          WHEN 'R2'.
            screen-input = 1.
            screen-invisible = 0.
            MODIFY SCREEN.
          WHEN 'R1'.
            screen-input = 0.
            screen-invisible = 1.
            MODIFY SCREEN.
        ENDCASE.
      ENDLOOP.

    ENDIF.
  ENDIF.


START-OF-SELECTION.