Produkt: | Elvis |
Version: | ab 2.0 |
Stand: | 2005-02-10 |
Zusammenfassung
Zeitprogramme können über eine kleine Berechnung deaktiviert und aktiviert werden.
Einzelheiten
Leider kann nicht das Zeitprogramm als ganzes deaktiviert werden, sondern nur die in einem Zeitprogramm enthaltenen Einträge (schedule.item). Deshalb werden also alle Items nacheinander deaktiviert oder aktiviert.
Beispielprojekt: schedule_disable.zip (108 KB)
Die Berechnung wird in einem Datenpunkt abgelegt:
//CODE:vb:Dim schedules As Object
Dim schedule As Object
Dim i As Integer
Dim bActive As Boolean
bActive = @(ZP_Active).NominalValue
Set schedules = Database.Schedule(„ZP1“).Schedules
For i = 1 To schedules.Count
Set schedule = schedules.Item(i)
schedule.Enabled = bActive
schedule.Save
Set schedule = Nothing
Next i
Result = bActive
Database.RestartSchedules