update scheduler messaging frequency
This commit is contained in:
parent
19fb71d733
commit
18f97077e1
@ -2075,7 +2075,7 @@ Service AdjustScheduleEvents(ReactNo)
|
|||||||
Schedule_Services('LogActivity', ReactNo, LogData)
|
Schedule_Services('LogActivity', ReactNo, LogData)
|
||||||
|
|
||||||
end
|
end
|
||||||
Messaging_Services('SendMessage', 'RefreshSchedule', 'Response', @User4, 'All', @User4, 'EventHandler', 'NDW_SCHEDULER' : ',OMNIEVENT,@MESSAGE,@ARGUMENTS')
|
Schedule_Services('SendRefreshMessage')
|
||||||
|
|
||||||
Unlock hSysLists, ServiceKeyID:'*':ReactNo else Null
|
Unlock hSysLists, ServiceKeyID:'*':ReactNo else Null
|
||||||
end
|
end
|
||||||
@ -3347,6 +3347,21 @@ Service NotifySupervisorsIfSameDayChange(NewRec, OrigRec)
|
|||||||
end service
|
end service
|
||||||
|
|
||||||
|
|
||||||
|
Service SendRefreshMessage()
|
||||||
|
|
||||||
|
SendUpdate = True$
|
||||||
|
LastRefreshDtm = Xlate('APP_INFO', 'AUTO_SCHEDULER_LAST_REFRESH', '', 'X')
|
||||||
|
If LastRefreshDtm NE '' then
|
||||||
|
ElapMinutes = SRP_Datetime('MinuteSpan', LastRefreshDtm, Datetime(), True$)
|
||||||
|
SendUpdate = (ElapMinutes GT 5)
|
||||||
|
end
|
||||||
|
If SendUpdate then
|
||||||
|
Messaging_Services('SendMessage', 'RefreshSchedule', 'Response', @User4, 'All', @User4, 'EventHandler', 'NDW_SCHEDULER' : ',OMNIEVENT,@MESSAGE,@ARGUMENTS')
|
||||||
|
Database_Services('WriteDataRow', 'APP_INFO', 'AUTO_SCHEDULER_LAST_REFRESH', Datetime(), True$, False$, True$)
|
||||||
|
end
|
||||||
|
|
||||||
|
end service
|
||||||
|
|
||||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
// Internal GoSubs
|
// Internal GoSubs
|
||||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
Loading…
x
Reference in New Issue
Block a user