‎2008 Jul 28 10:30 AM
Hi Experts,
I want to add a field in selection screen for giving a path for selecting excel sheet by using parameter concept.
Pls can any body help me.
Thanks,
Kaladhar.
‎2008 Jul 28 10:37 AM
Hi Kalandar,
Check below sample code.
PARAMETERS : p_fname LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM open_folder.
FORM open_folder .
DATA: li_file TYPE TABLE OF sdokpath,
lwa_file TYPE sdokpath.
CLEAR: p_fname, lwa_file.
REFRESH li_file[].
CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
TABLES
file_table = li_file
EXCEPTIONS
cntl_error = 1
OTHERS = 2.
IF sy-subrc IS INITIAL.
READ TABLE li_file INTO lwa_file INDEX 1.
IF sy-subrc IS INITIAL.
p_fname = lwa_file-pathname.
ENDIF.
ENDIF.
ENDFORM. " open_folder
Just copy paste above code. U will come to know how it works.
Thanks,
Vinod.
‎2008 Jul 28 10:31 AM
‎2008 Jul 28 10:32 AM
Hi,
Use the parameter file name strtucture as
RLGRAP-FILENAME and RLGRAP-FILETYPE for excel sheet
In the CL_GUI_FROTNEND_SERVICES->FILE_OPEN_DIALOG we can pass this parameter by converting it to in String type
Thanks & Regards,
Chandralekha.
‎2008 Jul 28 10:32 AM
hi,
use as....parameters : p_fname type rlgrap-filename,
at selection-screen on value-request for p_fname.
call function 'KD_GET_FILENAME_ON_F4'
exporting
program_name = 'Z_MM_MATERIAL_UPLOAD'
dynpro_number = '1000'
field_name = 'P_FNAME'
changing
file_name = p_fname.
‎2008 Jul 28 10:34 AM
hi,
Declare Parameter like
p_fname type rlgrap-filename
Regards
Sumit Agarwal
‎2008 Jul 28 10:34 AM
Hi,
check this:
parameters: p_file like rlgrap-filename default 'd:\testfile.xml'.Regards
Adil
‎2008 Jul 28 10:34 AM
Hi,
SELECTION-SCREEN BEGIN OF BLOCK mysel WITH FRAME TITLE tit.
SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS: Ymatnr FOR ZMARA-MATNR NO INTERVALS .
PARAMETERS Mdesc TYPE ZMAKT-MAKTX .
PARAMETERS Path TYPE STRING .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK mysel.
I hope this will help u...
Thanks & Regards
Ashu Singh.
‎2008 Jul 28 10:36 AM
hi...
use like this.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: p_emp LIKE rlgrap-filename,
SELECTION-SCREEN END OF BLOCK block1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_emp.
REFRESH: it_tabemp.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title = 'Select File'
default_filename = '*.xls'
initial_directory = 'C:\'
multiselection = ' ' "No multiple selection
CHANGING
file_table = it_tabemp
rc = gd_subrcemp.
‎2008 Jul 28 10:37 AM
Hi Kalandar,
Check below sample code.
PARAMETERS : p_fname LIKE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM open_folder.
FORM open_folder .
DATA: li_file TYPE TABLE OF sdokpath,
lwa_file TYPE sdokpath.
CLEAR: p_fname, lwa_file.
REFRESH li_file[].
CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
TABLES
file_table = li_file
EXCEPTIONS
cntl_error = 1
OTHERS = 2.
IF sy-subrc IS INITIAL.
READ TABLE li_file INTO lwa_file INDEX 1.
IF sy-subrc IS INITIAL.
p_fname = lwa_file-pathname.
ENDIF.
ENDIF.
ENDFORM. " open_folder
Just copy paste above code. U will come to know how it works.
Thanks,
Vinod.
‎2008 Jul 28 10:38 AM
Hi Kaladhar.
I would like to suggest,
1. In Parameters,
parameters:
p_file like rlgrap-filename.2. Declaring a variable,
DATA:
w_file TYPE string.3. Equating the parameter with variable,
w_file = p_file.4. Calling a function module like: GUI_DOWLOAD/GUI_UPLOAD.
In Exporting Parameters,
With filename -
> w_file.
and accordingly the file extension for EXCEL.
Hope that's usefull.
Good Luck & Regards.
Harsh Dave
‎2008 Jul 28 10:38 AM
‎2008 Jul 28 10:41 AM
Hi,
Please refer the code below:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
parameter: p_file like IBIPPARMS-PATH obligatory.
SELECTION-SCREEN:END OF BLOCK B1.
at selection-screen ON VALUE-REQUEST FOR p_file .
perform get_filename.
FORM upload_data.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = p_file
FILETYPE = 'DAT'
TABLES
DATA_TAB = IT_MATERIAL
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks,
Sriram Ponna.
‎2008 Jul 28 10:44 AM
Hi,
Declare a parameter of type rlgrap-filename
eg. p_file type rlgrap-filename.
and provide the F4 help for the parameter in
at selection screen on value-request for p_file.
Use function module F4_FILENAME
regards
padma
‎2008 Jul 28 10:48 AM
Hi Kaladhar,
Use the function Module 'F4_FILENAME'.
CALL FUNCTION 'F4_FILENAME'
* EXPORTING
* PROGRAM_NAME = SYST-CPROG
* DYNPRO_NUMBER = SYST-DYNNR
* FIELD_NAME = ' '
IMPORTING
file_name = file_path.file_path would be of type ibipparms-path,
Hope this helps you.
Regards,
Chandra Sekhar