So, ich habe mich heute auch etwas detaillierter mit dem Thema befasst. Ich komme allerdings nicht zu einer absolut zufriedenstellenden Lösung.
Die Zeiterfassung ist ja soweit klar, mir geht es im Moment nur um das geordnete Speichern der Laufzeitdaten.
Meine Testversion bisher:
0 BEGIN PGM Laufzeit_Test MM
1 QS99 = "DATEI123"
2 ;
3 QS98 = "TNC:\AKTUELL\" || QS99 || ".TXT"
4 ;
5 FN 16: F-PRINT LAUFZEIT.A / TNC:\AKTUELL\LAUFZEIT.TXT
6 FUNCTION FILEMOVE "TNC:\AKTUELL\LAUFZEIT.TXT" TO QS98
7 M30
8 END PGM Laufzeit_Test MM
Störend finde ich, dass die FILEMOVE / FILECOPY Funktionen die bisherige Datei immer überschreiben, es bleibt also immer nur die letzte Laufzeit bestehen, während die F-PRINT Funktion zwar in die bestehende Datei integriert, aber nicht mit String-Parametern belegt werden kann...
Eine Idee von mir war, die bestehende "DATEI123.TXT" mittels FILECOPY zur "LAUFZEIT.TXT" zu kopieren, dann mit F-PRINT die nächste Laufzeit zu schreiben, und dann wieder als "DATEI123.TXT" zu sichern.
Das funktioniert aber leider nicht beim ersten Durchlauf, weil es die "DATEI123.TXT" da ja noch nicht gibt.
Ich bräuchte also eine dieser Möglichkeiten:
- Eine Abfrage, ob eine Datei vorhanden ist oder nicht
- Eine Funktion eine neue leere .TXT zu erstellen
- Eine Funktion F-PRINT mit QS zu belegen
Lieber Schwindl, du hast doch auch dafür bestimmt eine Lösung parat, oder?
Gruß, Lucas