10. November 2010 16:38
10. November 2010 16:44
10. November 2010 16:47
Natalie hat geschrieben:Ihr könntet die Projektwarteschlange nutzen, sofern bei euch lizensiert. Die Projektwarteschlange erfordert den NAS.
10. November 2010 17:04
holger1076 hat geschrieben:Alternativ könnt ihr aber auch ohne Projektwarteschlange nur mit dem NAS das automatisieren.
10. November 2010 17:17
basstscho hat geschrieben:- allerdings weiß ich nicht, wie ich dann von diesem NAS-Dienst eine bestimmte Codeunit ausführen lassen kann - bei dieser Anleitung komme ich mit Schritt 10 nicht weiter.
CASE Parameter OF
...
'JOBQUEUE': CODEUNIT.RUN(...); // JOBQUEUE ist übrigens die Projektwarteschlange
'TASK2': CODEUNIT.RUN(...);
'TASK3': WasAuchImmer;
END;
10. November 2010 17:42
10. November 2010 17:46
IF NOT CODEUNIT.RUN(...) THEN BEGIN
// z.B. MESSAGE, die dann im Anwendungsprotokoll landen wird
END;
10. November 2010 18:27
OnRun()
CREATE(autNavisionTimer);
autNavisionTimer.Interval(10000); // this will trigger every 10 seconds
autNavisionTimer.Enabled(TRUE);
autNavisionTimer::Timer(Milliseconds : Integer)
DateiErstellt_l := FALSE;
Dateiname_l := 'D:\NASTEST\nastest.txt';
IF EXISTS(Dateiname_l) THEN
ERASE(Dateiname_l);
CLEAR(Datei_l);
Datei_l.TEXTMODE(TRUE);
IF NOT DateiErstellt_l THEN BEGIN
IF EXISTS(Dateiname_l+'.TMP') THEN
ERASE(Dateiname_l+'.TMP');
DateiErstellt_l := Datei_l.CREATE(Dateiname_l+'.TMP')
END;
Datei_l.WRITE(TIME);
IF DateiErstellt_l THEN
Datei_l.CLOSE;
RENAME(Dateiname_l+'.TMP',Dateiname_l);
COMMIT;
If there is an error in this code, the NAS will NOT crash. The timer-function of the global variable will restart the function as if no error has happened.
10. November 2010 18:47
SingleInstance=Yes