10-10-2007 6:33 AM
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?
10-10-2007 6:43 AM
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
10-10-2007 7:48 AM
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.
ENDIF.
MODIFY SCREEN.
ENDLOOP.