Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /kunden/349566_51067/webseiten/4ap.de/framework/class.database.php on line 61
4AP.de ~ alles fuer ABAP-Programmierer - Infos zur SAP Programmiersprache - F4-Dateiname
 

4AP.de ~ alles fuer ABAP-Programmierer - Infos zur SAP Programmiersprache


Suche



 

F4-Dateiname

www.4AP.de - ABAP Syntaxbeispiel: F4-Hilfe um Dateinamen zu ermitteln

Beispielcoding: ABAP F4-Hilfe um Dateinamen zu ermitteln (kopieren erlaubt aber auf eigene Gefahr :-))



Auf dem Selektionsbildschirm sollte ein abgefragter Dateiname mit einer Eingabehilfe versehen werden.
PARAMETERS:
  p_online(128) TYPE c.

* Eingabehilfen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_online.
  PERFORM get_online_filename USING p_online.


*&---------------------------------------------------------------------*
*& Form get_online_filename
*&---------------------------------------------------------------------*
FORM get_online_filename USING file_name. CALL FUNCTION 'KD_GET_FILENAME_ON_F4' EXPORTING * PROGRAM_NAME = SYST-REPID * DYNPRO_NUMBER = SYST-DYNNR * FIELD_NAME = ' ' static = 'X' mask = '*.*' " bis 4.6 oder z.B. '*.xls' * mask = ',Excel-Dateien,*.xls' " ab 4.7 " ',Beschreibung,*.ausgewählt' * mask = ',*.*,*.*.' " ab 4.7 zeigt alle an CHANGING file_name = file_name EXCEPTIONS mask_too_long = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFORM. " get_online_filename



Oder ganz knackig kurz:
*Zeige alle Dateien (oder mit Endung XLS)
DATA: FILENAME LIKE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            MASK      = '*.*'             "  oder z.B. '*.xls'
*            mask      = ',*.*,*.*.'       " ab 4.7 zeigt alle an
            STATIC    = 'X'
       CHANGING
            FILE_NAME = FILENAME.