topic Re: clear selection screen in Application Development and Automation Discussions

clear selection screen

Former Member — Wed, 10 Oct 2007 05:33:13 GMT

hi friends,

i have created one report i have four parameter fields in my selection screen there are two ways to give inputs. one is selection screen another one is input from upload file.

when i chose inputs from file at time my selection screen fileds is clear.

i chose input file using at selection screen on request.

how to do this?

Re: clear selection screen

former_member404244 — Wed, 10 Oct 2007 05:43:08 GMT

Hi,

chek the code .may be useful to u.

PARAMETERS : p_lpn TYPE filename-pathintern

DEFAULT c_lpn OBLIGATORY , "Logical Path Name

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

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.

Reward if helpful.

Regards,

Nagaraj

Re: clear selection screen

Former Member — Wed, 10 Oct 2007 06:48:23 GMT

Hi,

It is better to use check box functionality to get the required screen inputs.

Use the below logic

SELECTION-SCREEN: BEGIN OF BLOCK main1 WITH FRAME.

PARAMETERS: p_par1(3) TYPE n MODIF ID abc,

p_par2(3) TYPE n MODIF ID abc,

p_par3(3) TYPE n MODIF ID abc,

p_par4(3) TYPE n MODIF ID abc.

SELECTION-SCREEN END OF BLOCK main1.

PARAMETERS: p_chk AS CHECKBOX USER-COMMAND rusr.

SELECTION-SCREEN: BEGIN OF BLOCK main2 WITH FRAME.

PARAMETERS: p_file LIKE rlgrap-filename MODIF ID def.

SELECTION-SCREEN END OF BLOCK main2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF p_chk = 'X'.

CLEAR : p_par1, p_par2, p_par3, p_par4.

IF screen-group1 = 'ABC'.

screen-input = 0.

ENDIF.

IF screen-group1 = 'DEF'.

screen-input = 1.

ENDIF.

ELSE.

CLEAR p_file.

IF screen-group1 = 'ABC'.

screen-input = 1.

ENDIF.

IF screen-group1 = 'DEF'.

screen-input = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.