topic Re: selection screen in Application Development and Automation Discussions

selection screen

Former Member — Tue, 07 Aug 2007 11:06:37 GMT

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-031.

PARAMETERS : rd1 RADIOBUTTON GROUP rg1.

SELECT-OPTIONS: cpudt FOR bkpf-cpudt.

PARAMETERS: rd2 RADIOBUTTON GROUP rg2.

SELECT-OPTIONS: budat FOR bkpf-budat.

PARAMETERS: rd3 RADIOBUTTON GROUP rg3.

SELECT-OPTIONS: augdt FOR bseg-augdt .

PARAMETERS: gjahr LIKE bkpf-gjahr.

SELECTION-SCREEN END OF BLOCK b1.

This is what iam giving in the selection screen

know if click the first radiobotton then the selection field under the rest of the two radio-buttons have to in inactive mode,

similary it should in the same with other radiobottons

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:09:32 GMT

AT SELECTION-SCREEN OUTPUT.

if rad1 = 'X'.

LOOP AT SCREEN.

IF SCREEN-NAME = 'PAR1' or SCREEN-NAME = 'PAR2'.

SCREEN-INPUT = 0. "TO make it read only

SCREEN-ACTIVE = 0. " TO Hide based on your requirement use any one line

MODIFY SCREEN.

ENDIF.

ENDLOOP.

endif.

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:11:25 GMT

Hi,

change all the radio buttons to same group as R1

and then,

at selection screen output.

if radio1 = 'x'.

loop at screen.

if screen-name = 'SELECTIONSCREEN1-LOW'.

SCREEN-input = 0.

modify screen.

endif.

if screen-name = 'SELECTIONSCREEN1-high'.

SCREEN-input = 0.

modify screen.

endif.

endloop.

endif.

Do the same for other radi buttons and selection screen fields,

Regards,

ashok...

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:11:55 GMT

Hi Vamsi

Change your selection screen as below and write the below code,

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-031.

PARAMETERS : rd1 RADIOBUTTON GROUP rg1 user-command US1.

SELECT-OPTIONS: cpudt FOR bkpf-cpudt.

PARAMETERS: rd2 RADIOBUTTON GROUP rg2 user-command US2.

SELECT-OPTIONS: budat FOR bkpf-budat.

PARAMETERS: rd3 RADIOBUTTON GROUP rg3 user-command US3.

SELECT-OPTIONS: augdt FOR bseg-augdt .

PARAMETERS: gjahr LIKE bkpf-gjahr.

SELECTION-SCREEN END OF BLOCK b1.

This code has to be written in AT SELECTION-SCREEN OUTPUT event of you flow

AT SELECTION-SCREEN OUTPUT.

Loop at screen.

if rb1 is not initial.

if screen-name = 'BUDAT' or screen-name = 'AUGDT'.

screen-active = 0.

modify screen.

endif.

endif

if rb2 is not initial.

if screen-name = 'CPUDT' or screen-name = 'AUGDT'.

screen-active = 0.

modify screen.

endif.

endif

if rb3 is not initial.

if screen-name = 'BUDAT' or screen-name = 'CPUDT'.

screen-active = 0.

modify screen.

endif.

endif

endloop.

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:12:50 GMT

Hi,

try this

you have to give the same radio buttongroup so that the user can select

only one radio button

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-031.

PARAMETERS : rd1 RADIOBUTTON GROUP rg1.

SELECT-OPTIONS: cpudt FOR bkpf-cpudt.

PARAMETERS: rd2 RADIOBUTTON GROUP rg1

SELECT-OPTIONS: budat FOR bkpf-budat.

PARAMETERS: rd3 RADIOBUTTON GROUP rg1

SELECT-OPTIONS: augdt FOR bseg-augdt .

PARAMETERS: gjahr LIKE bkpf-gjahr.

SELECTION-SCREEN END OF BLOCK b1.

and use the

at selection-screen.

if rd1 = 'X'

loop at screen.

if screen-name = 'BUDAT'.

screen-input = 0.

modify screen.

endif.

if screen-name = 'AUGDT.

screen-input = 0.

modify screen.

endif.

endloop.

elseif rd2 = 'X'

Use the above code but change the fields

elseif rd3 = 'X'.

Use the above code but change the fields

endif.

thanks & regards,

venkatesh

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:13:22 GMT

Hi vamshi,

Try with this code u can understand easily.

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-007.

PARAMETER:p_radio RADIOBUTTON GROUP gr1 USER-COMMAND scr11,

p_radio2 RADIOBUTTON GROUP gr1,

p_radio3 RADIOBUTTON GROUP gr1 DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK 1.

SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE text-001.

PARAMETER: p_file1 LIKE rlgrap-filename MODIF ID mm1.

SELECTION-SCREEN END OF BLOCK 2.

SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE text-001.

PARAMETER: p_file2 LIKE rlgrap-filename MODIF ID mm2.

SELECTION-SCREEN END OF BLOCK 3.

SELECTION-SCREEN BEGIN OF BLOCK 4 WITH FRAME TITLE text-001.

PARAMETER: p_file3 LIKE rlgrap-filename MODIF ID mm3.

PARAMETER: p_file4 LIKE rlgrap-filename MODIF ID mm3.

SELECTION-SCREEN END OF BLOCK 4.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_radio IS NOT INITIAL.

IF screen-group1 = 'MM2' OR screen-group1 = 'MM3'.

IF screen-name = 'P_FILE2' OR screen-name = 'P_FILE3' OR screen-name = 'P_FILE4' .

screen-active = 0.

screen-input = 0.

screen-invisible = 1.

ENDIF.

screen-active = 0.

screen-input = 0.

screen-invisible = 1.

ENDIF.

IF p_radio2 IS NOT INITIAL.

IF screen-group1 = 'MM1' OR screen-group1 = 'MM3'.

IF screen-name = 'P_FILE1' OR screen-name = 'P_FILE3' OR screen-name = 'P_FILE4' .

screen-active = 0.

screen-input = 0.

screen-invisible = 1.

ENDIF.

screen-active = 0.

screen-input = 0.

screen-invisible = 1.

ENDIF.

IF p_radio3 IS NOT INITIAL.

IF screen-group1 = 'MM1' OR screen-group1 = 'MM2'.

IF screen-name = 'P_FILE1' OR screen-name = 'P_FILE2'.

screen-active = 0.

screen-input = 0.

screen-invisible = 1.

ENDIF.

screen-active = 0.

screen-input = 0.

screen-invisible = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Thanks,CSR

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:16:52 GMT

Hi,

see this similar example.

PARAMETERS:check RADIOBUTTON GROUP rad1 USER-COMMAND RAD DEFAULT 'X',

field RADIOBUTTON GROUP rad1.

PARAMETERS:field1(10),field2(10).

PARAMETERS:check1 as CHECKBOX,

check2 AS CHECKBOX.

AT SELECTION-SCREEN OUTPUT.

if check = 'X'.

LOOP AT SCREEN.

if screen-name = 'CHECK1' OR SCREEN-NAME = 'CHECK2'.

screen-ACTIVE = 1.

MODIFY SCREEN.

ELSEIF screen-name = 'FIELD1' OR SCREEN-NAME = 'FIELD2' OR

SCREEN-NAME = '%_FIELD1_%_APP_%-TEXT'OR SCREEN-NAME = '%_FIELD2_%_APP_%-TEXT'.

screen-ACTIVE = 0.

MODIFY SCREEN.

endif.

ENDLOOP.

elseif FIELD = 'X'.

LOOP AT SCREEN.

if screen-name = 'FIELD1' OR SCREEN-NAME = 'FIELD2' OR

SCREEN-NAME = '%_FIELD1_%_APP_%-TEXT'OR SCREEN-NAME = '%_FIELD2_%_APP_%-TEXT'.

screen-ACTIVE = 1.

MODIFY SCREEN.

ELSEIF screen-name = 'CHECK1' OR SCREEN-NAME = 'CHECK2'.

screen-ACTIVE = 0.

MODIFY SCREEN.

endif.

ENDLOOP.

endif.

at SELECTION-SCREEN.

case sscrfields-ucomm.

when 'RAD'.

if check = 'X'.

LOOP AT SCREEN.

if screen-name = 'CHECK1' OR SCREEN-NAME = 'CHECK2'.

screen-ACTIVE = 1.

MODIFY SCREEN.

ELSEIF screen-name = 'FIELD1' OR SCREEN-NAME = 'FIELD2' OR

SCREEN-NAME = '%_FIELD1_%_APP_%-TEXT'OR SCREEN-NAME = '%_FIELD2_%_APP_%-TEXT'.

screen-ACTIVE = 0.

MODIFY SCREEN.

endif.

ENDLOOP.

elseif FIELD = 'X'.

LOOP AT SCREEN.

if screen-name = 'FIELD1' OR SCREEN-NAME = 'FIELD2' OR

SCREEN-NAME = '%_FIELD1_%_APP_%-TEXT'OR SCREEN-NAME = '%_FIELD2_%_APP_%-TEXT'.

screen-ACTIVE = 1.

MODIFY SCREEN.

ELSEIF screen-name = 'CHECK1' OR SCREEN-NAME = 'CHECK2'.

screen-ACTIVE = 0.

MODIFY SCREEN.

endif.

ENDLOOP.

endif.

ENDCASE.

rgds,

bharat.

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:21:19 GMT

Hi ,

Try this

PARAMETERS : rd1 RADIOBUTTON GROUP rg1 USER-COMMAND radio.

SELECT-OPTIONS: cpudt FOR bkpf-cpudt MODIF ID gr1.

PARAMETERS: rd2 RADIOBUTTON GROUP rg2.

SELECT-OPTIONS: budat FOR bkpf-budat MODIF ID gr2.

PARAMETERS: rd3 RADIOBUTTON GROUP rg3.

SELECT-OPTIONS: augdt FOR bseg-augdt MODIF ID gr3.

PARAMETERS: gjahr LIKE bkpf-gjahr MODIF ID gr3.

SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN OUTPUT.

IF rd1 = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'GR2' OR screen-group1 = 'GR3'.

screen-input = '0'.

screen-active = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

IF rd2= 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'GR1' OR screen-group1 = 'GR3'.

screen-input = '0'.

screen-active = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

IFrd3= 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'GR1' OR screen-group1 = 'GR2'.

screen-input = '0'.

screen-active = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:25:01 GMT

USE THIS CODE

tables : bkpf,bseg.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS : r1 RADIOBUTTON GROUP rg1 DEFAULT 'X' USER-COMMAND uc1.

SELECT-OPTIONS: cpudt FOR bkpf-cpudt modif id s1.

PARAMETERS: r2 RADIOBUTTON GROUP rg1.

SELECT-OPTIONS: budat FOR bkpf-budat modif id s2.

SELECTION-SCREEN END OF BLOCK b1.

******END OF SELECTION SCREEN DESIGN****************

************SCREEN MODIFICATIONS*******************

AT SELECTION-SCREEN output .

LOOP AT SCREEN .

IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2' .

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

********END OF SCREEN MODIFICATIONS*****************

REWARD IF USEFULL

Re: selection screen

Former Member — Tue, 07 Aug 2007 11:25:33 GMT

hello ramesh

friend please check it iam getting an error while executing the same code