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


das Neueste

Umzug zu einem neuen Provider

Der Umzug des kompletten CMS ging ganz ganz einfach und schnell.

|

 

10 Jahre 4ap.de

10 Jahre 4ap.de - kleines und stilles Jubiläum

|

 

Buchrezensionen

Einige neue Buchrezensionen sind vorhanden.

|

 

neues Coding: braune Kekse

Lange schwebte mir die Idee vor, aber es fehlte schlicht die Zeit. Heute war es endlich soweit: ich nahm sie mir, die Zeit :-) Ergebnis unter: braune Kekse.

|

 

neues Kontaktformular

Wegen Formularspoofing wurde eine neue Kontaktmöglichkeit geschaffen.
|

 

Suche



 

Dieser Inhalt wurde zuletzt geändert am:
11.01.2008 von TN

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.