Auswahl für Dateinamen im Selektionsbildschirm

Auswahl für Dateinamen im Selektionsbildschirm

Hallo,

kann mir jemand erklären wie ich für ein Eingabefeld in das ein Dateiname soll auf Anforderung (z.B. F4 oder über einen Button) ein Popup bekomme mit dem ich zum gewünschten Verzeichnis/Dateinamen navigieren kann?

Was ich bisher habe ist das das Feld mit der letzten Eingabe des Nutzers vorbelegt ist. Ich möchte aber vermeiden das der komplette Pfad manuell eingegeben werden muss.

Wenn mir dazu jemand ein Code-Beispiel geben kann wäre ich demjenigen sehr verbunden.

Ach ja, der Down- bzw. Upload wird später über WS_DOWNLOAD/WS_UPLOAD geregelt (ja ich weis, veraltet)

Vielen Dank schonmal

RE: F4

Hallo Kaiser

Schau doch mal, ob dir das hier hilft.
F4 geht jedenfalls.


*&----------------------------------*
*& Report Z_CALL_REP
*&----------------------------------*
*& dev by sapalot (keep of)
*&----------------------------------*

REPORT z_call_rep.


parameters OPEN TYPE rlgrap-filename.
parameters SAVE TYPE localfile.

DATA RLGRAP TYPE LOCALFILE.

at selection-screen on value-request for OPEN.
RLGRAP = OPEN.
PERFORM QUERY_FILENAME USING OPEN 'O'.
OPEN = RLGRAP.

at selection-screen on value-request for SAVE.
RLGRAP = SAVE.
PERFORM QUERY_FILENAME USING SAVE 'S'.
SAVE = RLGRAP.

*-----------------------------*
* FORM QUERY_FILENAME *
*-----------------------------*
FORM QUERY_FILENAME
USING DEF_PATH TYPE RLGRAP-FILENAME
MODE TYPE C.

DATA: TMP_FILENAME TYPE RLGRAP-FILENAME.
DATA: GLOBAL_FILEMASK_MASK(20).
DATA: GLOBAL_FILEMASK_TEXT(20).
DATA: GLOBAL_FILEMASK_ALL(80).
DATA: TMP_MASK LIKE GLOBAL_FILEMASK_ALL.
FIELD-SYMBOLS: <TMP_SYM>.
DATA: FIELDLN TYPE I.

* Build Filter for Fileselektor

IF GLOBAL_FILEMASK_MASK IS INITIAL.
TMP_MASK = ',*.*,*.*.'.
ELSE.
TMP_MASK = ','.
WRITE GLOBAL_FILEMASK_TEXT TO TMP_MASK+1.
WRITE ',' TO TMP_MASK+21.
WRITE GLOBAL_FILEMASK_MASK TO TMP_MASK+22.
WRITE '.' TO TMP_MASK+42.
CONDENSE TMP_MASK NO-GAPS.
ENDIF.

IF NOT GLOBAL_FILEMASK_ALL IS INITIAL.
TMP_MASK = GLOBAL_FILEMASK_ALL.
ENDIF.

FIELDLN = STRLEN( DEF_PATH ) - 1.
ASSIGN DEF_PATH+FIELDLN(1) TO <TMP_SYM>.
IF <TMP_SYM> = '/' OR <TMP_SYM> = '\'.
CLEAR <TMP_SYM>.
ENDIF.

CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = RLGRAP
DEF_PATH = DEF_PATH
* MASK = ',*.*,*.*.'
MASK = TMP_MASK
MODE = MODE
* TITLE = ' '
IMPORTING
FILENAME = TMP_FILENAME
* RC =
EXCEPTIONS
INV_WINSYS = 01
NO_BATCH = 02
SELECTION_CANCEL = 03
SELECTION_ERROR = 04.

IF SY-SUBRC = 0.
RLGRAP = TMP_FILENAME.
ELSE.
* IF SY-SUBRC = 01. "// Does not work, why ???
* MESSAGELINE = 'Not supported'.
* ENDIF.
ENDIF.

ENDFORM.


_________

sap@lot
_________

Yo, also ich machs genauso wie Ould-Ahmedou und es funktioniert wunderbar. Kann diesen Weg also nur empfehlen