topic Re: Selection screen in Application Development and Automation Discussions

Selection screen

Former Member — Wed, 06 Feb 2008 06:49:57 GMT

Hi All,

My selection screen has the below fields.

PARAMETERS:p_down RADIOBUTTON GROUP r1 DEFAULT 'X'.

SELECT-OPTIONS:s_ebeln FOR v_ebeln.

PARAMETERS:p_target TYPE rlgrap-filename OBLIGATORY, "Download file name

p_active AS CHECKBOX,

p_upload RADIOBUTTON GROUP r1,

p_source TYPE rlgrap-filename OBLIGATORY.

i have two radio buttons in it p_down and p_upload.

If user selected p_down radio button the fields p_source need to be in disable mode.

if user selected p_upload radio button p_ebeln,p_target,p_active needs to disable.

could any one tell me how we can do this.

Points will be rewarded for help ful answer.

Thanks.

Re: Selection screen

former_member404244 — Wed, 06 Feb 2008 06:52:53 GMT

Hi,

see the below sample code fr that

PARAMETERS : p_aserv RADIOBUTTON GROUP grp

USER-COMMAND app, "Application server

p_afile1 TYPE filename-fileextern , "Application File

"Name for contracts

p_afile2 TYPE filename-fileextern , "Application

"FileName for

"Long text

p_aerfl1 TYPE filename-fileextern , "Error File

"forcontracts

p_aerfl2 TYPE filename-fileextern , "Error File

"for Longtext

p_pserv RADIOBUTTON GROUP grp, "Presentation Server

p_pfile1 TYPE rlgrap-filename , "Presentation File

"Name forcontracts

p_pfile2 TYPE rlgrap-filename , "Presentation File

"Name for long

"texts

p_errfl1 TYPE rlgrap-filename ,

"Error File for

"contracts

p_errfl2 TYPE rlgrap-filename . "Err File Long text

AT SELECTION-SCREEN OUTPUT.

IF p_pserv IS INITIAL.

LOOP AT SCREEN.

CASE screen-name.

WHEN 'P_PFILE1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_PFILE2'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_ERRFL1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_ERRFL2'.

screen-input = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

CASE screen-name.

WHEN 'P_AFILE1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AFILE2'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AERFL1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AERFL2'.

screen-input = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

Regards,

Nagaraj

Re: Selection screen

Former Member — Wed, 06 Feb 2008 06:54:14 GMT

Make screen fields inactive under AT SELECTION-SCREEN ON <field>.

You can disable certain fields on some action ..in your case that action is selecting the perticular

radio button.

Regards,

Amey

Re: Selection screen

Former Member — Wed, 06 Feb 2008 06:55:01 GMT

Hi,

check this code, reward if it is useful

selection-screen begin of block 1 with frame title text-001.

selection-screen begin of line.

selection-screen comment 1(31) text-002 for field R1.

parameter : R1 radiobutton group RAD default 'X' user-command file .

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 1(31) text-003 for field par.

parameter : par like rlgrap-filename MODIF ID A.

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 1(31) text-002 for field R1.

parameter : R2 radiobutton group RAD .

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 1(31) text-003 for field par1.

parameter : par1 like rlgrap-filename MODIF ID B.

selection-screen end of line.

selection-screen end of block 1.

at selection-screen output.

perform selection.

&----

*& Form SELECTION

&----

text

----

--> p1 text
<-- p2 text

----

FORM SELECTION .

loop at screen.

case screen-group1.

Presentation Server Radiobutton

when 'A'.

if R1 = space.

screen-invisible = '1'.

screen-input = '0'.

p_pres = 'X'.
else.
screen-invisible = '0'.
screen-input = '1'.

endif.

modify screen.

Shuttle Radiobutton

when 'B'.

if R2 = space.

screen-invisible = '1'.

screen-input = '0'.

else.
screen-invisible = '0'.
screen-input = '1'.

endif.

modify screen.

endcase.

endloop.

ENDFORM. " SELECTION

Re: Selection screen

Former Member — Wed, 06 Feb 2008 06:56:38 GMT

use foolwing code

PARAMETERS:p_down RADIOBUTTON GROUP r1 DEFAULT 'X'.

SELECT-OPTIONS:s_ebeln FOR v_ebeln.

PARAMETERS:p_target TYPE rlgrap-filename OBLIGATORY, "Download file name

p_active AS CHECKBOX modif-id G2,

p_upload RADIOBUTTON GROUP r1,

p_source TYPE rlgrap-filename OBLIGATORY modif-id G1.

at selection screen output.

IF p_down ='X'.

loop at screen.

if group1 = 'G1'

SCREEN-ACTIVE = '0'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

endif.

endloop.

elseif p_upload = 'X'.

loop at screen.

if group1 = 'G2'

SCREEN-ACTIVE = '0'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

endif.

endloop.

ENDIF.

plz reward if useful

vivek

Re: Selection screen

Former Member — Wed, 06 Feb 2008 07:21:31 GMT

Hi,

PARAMETERS:p_down RADIOBUTTON GROUP r1 DEFAULT 'X'.

SELECT-OPTIONS:s_ebeln FOR v_ebeln.

PARAMETERS:p_target TYPE rlgrap-filename OBLIGATORY, "Download file name

p_active AS CHECKBOX,

p_upload RADIOBUTTON GROUP r1,

p_source TYPE rlgrap-filename OBLIGATORY.

i have two radio buttons in it p_down and p_upload.

If user selected p_down radio button the fields p_source need to be in disable mode.

if user selected p_upload radio button p_ebeln,p_target,p_active needs to disable.

C for the above code u can write the CASE statement. And write the code accordignly by taking one radio button as 'X' and for that the corresponding Check boxes in Disable that is 'Space'.

If u repeat writing this for all the radio buttons and check boxes with permutations and combinations

in AT selection-screen u can get the otuput.

Regards.

Re: Selection screen

Former Member — Wed, 06 Feb 2008 07:27:23 GMT

Hi,

*************************************************************************

AT SELECTION-SCREEN

*************************************************************************

AT SELECTION-SCREEN OUTPUT.

IF r1 ='X'.

LOOP AT SCREEN.

IF screen-group1 = text-022. "Selection screen1

screen-active = 1.

MODIFY SCREEN.

ELSEIF screen-group1 = text-023. "selection screen2

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-024. "selection screen3

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF r2 ='X'.

LOOP AT SCREEN.

IF screen-group1 = text-022.

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-023.

screen-active = 1.

MODIFY SCREEN.

ELSEIF screen-group1 = text-024.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF r3 ='X'.

LOOP AT SCREEN.

IF screen-group1 = text-022.

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-023.

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-024.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.