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