topic Re: SELECTION SCREEN OUTPUT in Application Development and Automation Discussions

SELECTION SCREEN OUTPUT

Former Member — Sat, 28 Apr 2007 11:22:20 GMT

I HAVE TWO RADIO BUTTON AND 2 INPUT FIELDS.

WHEN I SELECT RADIO BUTTON RB1 THEN FIELD2 SHOULD BE DISABLED

WHEN I SELECT RADIO BUTTON RB2 THEN FIELD1 SHOULD BE DISABLED

CAN ANYONE COMPLETE THE CODE OR CHECK FOR ERRORS :

constants: C TYPE C VALUE 'X'.

selection-screen BEGIN OF BLOCK BLK1 WITH FRAME title T1.

parameters : RB1 RADIOBUTTON GROUP A,

RB2 RADIOBUTTON GROUP A.

selection-screen SKIP.

PARAMETER : FEILD1 TYPE C MODIF ID AA.

SELECTION-SCREEN END OF BLOCK BLK1.

INITIALIZATION.

T1 = 'BBLOCK ONE'.

selection-screen BEGIN OF BLOCK BLK2 WITH FRAME title T2.

*parameters : RB2 RADIOBUTTON GROUP A.

selection-screen SKIP.

PARAMETER : FEILD2 TYPE C MODIF ID AA.

SELECTION-SCREEN END OF BLOCK BLK2.

INITIALIZATION.

T2 = 'BBLOCK TWO'.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF RB1 = C.

IF SCREEN-NAME = FIELD1.

SCREEN-INPUT = 0.

CLEAR FIELD1.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF RB2 = C.

IF SCREEN-NAME = FIELD2.

SCREEN-INPUT = 0.

CLEAR FIELD2.

ENDIF.

MODIFY SCREEN.

ENDIF.

Re: SELECTION SCREEN OUTPUT

Former Member — Sat, 28 Apr 2007 11:25:32 GMT

Hi!

LOOP AT SCREEN.

IF RB1 = C.

IF SCREEN-NAME = 'FIELD1'. "use ' characters, because it a name

SCREEN-INPUT = 0.

*CLEAR FIELD1. "not needed

ENDIF.

*MODIFY SCREEN. "modify only once

ENDIF.

IF RB2 = C.

IF SCREEN-NAME = 'FIELD2'. "use ' characters, because it a name

SCREEN-INPUT = 0.

*CLEAR FIELD2. "not needed

ENDIF.

*MODIFY SCREEN. "modify only once

ENDIF.

MODIFY SCREEN. "modify here

ENDLOOP.

Regards

Tamás

Message was edited by:

Tamás Nyisztor

Re: SELECTION SCREEN OUTPUT

Former Member — Sat, 28 Apr 2007 11:42:04 GMT

selection-screen BEGIN OF BLOCK BLK1 WITH FRAME title T1.

parameters : RB1 RADIOBUTTON GROUP A default 'X' user-command flag.

selection-screen SKIP.

PARAMETER : FEILD1 TYPE C MODIF ID A1.

parameters : RB2 RADIOBUTTON GROUP serv.

selection-screen SKIP.

PARAMETER : FEILD2 TYPE C MODIF ID A2.

SELECTION-SCREEN END OF BLOCK BLK1.

*INITIALIZATION. "Initialization is an event it will come only once

INITIALIZATION.

T1 = 'BBLOCK ONE'.

*instead of using this code

*AT SELECTION-SCREEN OUTPUT.

*LOOP AT SCREEN.

*IF RB1 = C.

*IF SCREEN-NAME = FIELD1.

*SCREEN-INPUT = 0.

*CLEAR FIELD1.

*ENDIF.

*MODIFY SCREEN.

*ENDIF.

*IF RB2 = C.

*IF SCREEN-NAME = FIELD2.

*SCREEN-INPUT = 0.

*CLEAR FIELD2.

*ENDIF.

*MODIFY SCREEN.

*ENDIF.

*use following:-

at selection-screen output.

loop at screen.

case screen-group1.

when 'A1'.

if RB1 eq space.

screen-input = 0.

endif.

when 'A2'.

if RB2 eq space.

screen-input = 0.

endif.

endcase.

modify screen.

endloop.

Re: SELECTION SCREEN OUTPUT

Former Member — Sat, 28 Apr 2007 11:58:31 GMT

THANK YOU SHEFALI GANGRADE CODE WHICH U PROPOSED IS WORKING.

I HAVE REWARDED POINTS FOR IT.

AND TAMAS CODE WHICH U HAVE SENT IS NOT WORKING.