update scheduler messaging frequency

This commit is contained in:
Infineon\StieberD 2024-11-11 16:26:35 -07:00
parent 19fb71d733
commit 18f97077e1

View File

@ -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
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////