SetTimerEvent() und mehrere Anweisungen

[Manfred]

Hi,

ich bin mir nicht sicher, ob wir das thema schonmal hatten, gefunden habe ich jedenfalls nichts hier.

Ich habe ein SetTimerEvent() um mir die Uhrzeit anzeigen zu lassen. Das klappt auch.

Code: Alles auswählen

SetTimerEvent(100,{|| oUhrzeit:setData(Time())})

Jetzt hatte ich die Idee, noch etwas damit zu verbinden:

Das scheint aber nicht wirklich zu klappen. Ist das so nicht möglich? Oder sagen wir mal anders, es läuft nicht so, wie ich es mir vorstelle. Die Uhrzeit ist falsch und die Funktion wird auch nur 1x aufgerufen, wie es scheint.

Code: Alles auswählen

SetTimerEvent(100,{|| oUhrzeit:setData(Time(),pruefemanuell(oThread,oDatenbank))})

[brandelh]

die Uhrzeit wird jede Sekunde aufgerufen, ist da die Prüfung schon erledigt ?
sonst geht sie doppelt los ...

[AUGE_OHR]

die Uhrzeit wird jede Sekunde aufgerufen, ist da die Prüfung schon erledigt ?

der Zugriff auf eine DBF jede Sekunde ... ist die DBF "share" ?

ich würde es so abändern:

Code: Alles auswählen

SetTimerEvent(100,{|| Machmal(oUhrzeit,oThread,oDatenbank) })

PROCEDURE Machmal(oUhrzeit,oThread,oDatenbank)
LOCAL cTime := TIME()
   oUhrzeit:setData(cTime)
   IF SUBSTR(cTime,6,2) = "00" // jede Minute
      pruefemanuell(oThread,oDatenbank))
   ENDIF
RETURN

sonst geht sie doppelt los ...

Nope ! ein Thread der "läuft" wird nicht noch mal gestartet !

[Manfred]

Sorry,

Code: Alles auswählen

********************************************************************************
PROCEDURE pruefeManuell(oThread,oDatenbank)
          STATIC cStartZeit := ""

          MEMVAR oSysPara

          IF ! Empty(cStartZeit)
             IF TimeToSec() - TimeToSec(cStartZeit) >= 10 //60                       // es soll alle 60 Sekunden geprüft werden
                cStartZeit := ""
                IF FILE(oSysPara:cDatenPfad + "\74_web\exportmanuell.txt")
                   PostAppEvent(xbeP_Activate,,,oThread:oPbStart)      // jetzt wird der Manuell Button für Wache gedrückt
                   oDatenbank:loesche_Datei(oSysPara:cDatenPfad + "\exportmanuell.txt")
                ENDIF
             ENDIF
          ELSE
             cStartzeit := Time()                                               // jetzt wird das Interevall gestartet
          ENDIF
          RETURN

so sieht der Rest aus. Ist also nicht spektakulär

Ich habe die Sache mit der Uhrzeit entfernt und den Zähler auf 6000 gesetzt und das klappt dann wohl.