| 1234567891011121314151617181920212223242526272829303132333435363738 |
- { SUPER/funktionen.i }
-
- DEF VAR canmeldung AS CHAR .
-
- canmeldung = SUBSTITUTE('&1&4&2&4&3', '1000', 'wari', '', chr(01)).
- DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
- DO WHILE TRUE:
- cPath = DYNAMIC-FUNCTION ('getFehlwert':U, '1000', 'GEMIS_TEMPDIR') NO-ERROR.
- IF cPath <> '' AND
- cPath <> ? THEN LEAVE.
-
- GET-KEY-VALUE SECTION 'GrundEinstellungen'
- KEY 'Ge_MIS_TEMP'
- VALUE cPath.
- IF cPath <> '' AND
- cPath <> ? THEN LEAVE.
-
- cPath = SESSION:TEMP-DIRECTORY.
- LEAVE.
- END.
-
- FILE-INFO:FILE-NAME = SEARCH(cPath).
- IF FILE-INFO:FILE-NAME = ? THEN FILE-INFO:FILE-NAME = cPath.
- IF FILE-INFO:FILE-NAME = ? THEN DO:
- DYNAMIC-FUNCTION('fehlerMeldung':U, 1021, SUBSTITUTE("&1", cPath) ).
- RETURN ''.
- END.
- cPath = (IF FILE-INFO:FULL-PATHNAME = ? THEN FILE-INFO:FILE-NAME ELSE FILE-INFO:FULL-PATHNAME).
- IF SUBSTRING(cPath, LENGTH(cPath), 01) <> '/' AND
- SUBSTRING(cPath, LENGTH(cPath), 01) <> '\' THEN cPath = cPath + '\'.
-
- MESSAGE cPath
- VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
-
|
