‎2008 Apr 08 12:36 PM
Hi,
Is there in SAP FM like 'KD_GET_FILENAME_ON_F4' but connected with folders, I means received path to folder?
Regard,
Joanna
‎2008 Apr 08 12:39 PM
data: l_folder type string.
Call Method cl_gui_frontend_services=>directory_browse
exporting
window_title = 'Select Folder Path
initial_folder = 'D:\'
changing
selected_folder = l_folder.
Reward Points if useful
Regards
Akshay Chonkar
‎2008 Apr 08 12:54 PM
but is not possible string type.
Is possible to do it at selection screen if I have
PARAMETER: gu_path LIKE rfpdo1-febauszf.
regards,
Joanna
‎2008 Apr 08 1:02 PM
Instead of l_folder
declare data l_folder type string.
gu_path = l_folder.
Regards
Akshay Chonkar
‎2008 Apr 08 1:10 PM
It doesn't work. There is not action when I'm clicking on filed.
Regards,
Joanna
‎2008 Apr 09 4:18 AM
Copy Paste this Program and let me know if u have any queries
**************************************************************
REPORT zac_file_open .
DATA: l_folder TYPE string.
PARAMETERS: p_folder(100) TYPE c.
*Provide a Dialogue box for getting a folder path
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_folder.
CALL METHOD cl_gui_frontend_services=>directory_browse
EXPORTING
window_title = 'Select Folder Path'
initial_folder = 'D:\'
CHANGING
selected_folder = l_folder.
p_folder = l_folder.
*****************************************************************
This definately works.......
Regards
Akshay Chonkar
‎2009 Apr 22 3:30 PM
Hi all....
I have an observation that may be helpful to someone....
Just after the "Call Method cl_gui_frontend_services=>directory_browse" don´t forget to do this command:
CALL METHOD cl_gui_cfw=>flush.
This will refresh the screen or something like that...so the selection folder screen can pop-up without the need of executing another command.
Eduardo Kassabian
‎2008 Apr 08 12:47 PM
Hi,
Refer the following example.
REPORT ZF4_FILENAME.
TABLES SSCRFIELDS.
PARAMETERS: P-FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\TEMP\SAP.XLS'.
Double click on TEXT-001 and type Save In
SELECTION-SCREEN PUSHBUTTON /35(10) TEXT-001 USER-COMMAND F4CLICK.
AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'F4CLICK'.
call function 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P-FILE.
ENDIF.
or
Function KD_GET_FILENAME_ON_F4
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
mask = '*.xls'
static = 'X'
CHANGING
file_name = filename.
Reward if helpful.
Jagadish
‎2008 Apr 08 12:50 PM
Hi,
Refer the following example.
REPORT ZF4_FILENAME.
TABLES SSCRFIELDS.
PARAMETERS: P-FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\TEMP\SAP.XLS'.
Double click on TEXT-001 and type Save In
SELECTION-SCREEN PUSHBUTTON /35(10) TEXT-001 USER-COMMAND F4CLICK.
AT SELECTION-SCREEN.
IF SSCRFIELDS-UCOMM = 'F4CLICK'.
call function 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
IMPORTING
FILE_NAME = P-FILE.
ENDIF.
or
Function KD_GET_FILENAME_ON_F4
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
mask = '*.xls'
static = 'X'
CHANGING
file_name = filename.
Reward if helpful.
prasanth
‎2009 Apr 22 4:19 PM
Hi,
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_per TYPE zfilename OBLIGATORY, " Personal File
p_emp TYPE zfilename OBLIGATORY, " Employment File
p_sal TYPE zfilename OBLIGATORY. " Salary Rate File
SELECTION-SCREEN SKIP 1.
PARAMETERS : p_exce AS CHECKBOX, " E-mail Exceptions
p_conf AS CHECKBOX. " E-mail Confirmation
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_sal.
PERFORM get_file_name USING w_path c_salrate.
p_sal = w_path.
FORM get_file_name USING
w_path TYPE zfilename
w_file TYPE c.
Function module to select the PC folder
CALL FUNCTION 'TMP_GUI_BROWSE_FOR_FOLDER'
EXPORTING
window_title = text-t03
initial_folder = 'C:\'
IMPORTING
selected_folder = w_path.
IF w_path IS NOT INITIAL.
Adding file name to selected folder
CONCATENATE w_path
'\'
w_file
INTO w_path.
ENDIF.
endperform.
Regards
Krishna
‎2009 Apr 22 4:42 PM