Code: Alles auswählen.
DATA pfile TYPE string. (*)
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
* DEF_PATH = ' '
mask = ',*.csv,CSV-Dateien.'
mode = 'S'
title = 'Bitte Datei für den Export wählen'
IMPORTING
filename = pfile
* RC =
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5
Code: Alles auswählen.
* Der Standard-Download Pfad ist Murks. Sofern im Bernutzerstamm
* keiner gesetzt ist geschied dieses nun jetzt
* GET PARAMETER ID 'GR8' FIELD VALUE_GR8.
* if sy-subrc ne 0.
* Es wir der des Selektionsbildschirm gesetzt.
SET PARAMETER ID 'GR8' FIELD p_file.
filenamelenght = strlen( p_file ).
filenamelenght = filenamelenght - 1.
if p_file+filenamelenght(1) = '\'.
concatenate p_file 'KVF_EXPORT.txt' into file.
else.
concatenate p_file '\' 'KVF_EXPORT.txt' into file.
endif.
* endif.