From e0de2ca1f6afb5856457716307c207b36a9f1973 Mon Sep 17 00:00:00 2001 From: "Infineon\\Ouellette" Date: Wed, 30 Oct 2024 16:14:19 -0700 Subject: [PATCH] Incorrect calendar start date in GetShiftByDate. --- LSL2/STPROC/LSL_USERS_SERVICES.txt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/LSL2/STPROC/LSL_USERS_SERVICES.txt b/LSL2/STPROC/LSL_USERS_SERVICES.txt index 761aa3b..43feb71 100644 --- a/LSL2/STPROC/LSL_USERS_SERVICES.txt +++ b/LSL2/STPROC/LSL_USERS_SERVICES.txt @@ -163,7 +163,6 @@ end service Service GetOnShiftUsersByClass(Class, IncludeNextShift) - DatetimeNow = OConv(SRP_DateTime("Now"), 'DT') NextShiftTime = OConv(SRP_Datetime('AddHours', Datetime(), 12) , 'DT') CurrentShift = Lsl_Users_Services('GetShiftByDate', DatetimeNow) @@ -195,7 +194,6 @@ end service Service GetOnShiftUsers() - DatetimeNow = OConv(SRP_DateTime("Now"), 'DT') CurrentShift = Lsl_Users_Services('GetShiftByDate', DatetimeNow) Open 'DICT.LSL_USERS' to DictLSLUsers then @@ -217,14 +215,13 @@ end service Service GetShiftByDate(Date, GenerateFlag) - OnShift = ''; *Return Value if Date EQ '' then Error_Services('Add', 'Error in LSL_USERS_SERVICES. No Date Supplied.') return end DateConv = Iconv(Date, "DT") - CalStartDate = 18998; *Arbitrary Start Date to base calendar off of. Jan 5, 2020 Beginning of short shift 1 + CalStartDate = 19005; *Arbitrary Start Date to base calendar off of. Jan 12, 2020 Beginning of short shift 1 DaysSinceStart = SRP_DateTime("DaySpan", CalStartDate, DateConv, 0) WeeksSinceStart = SRP_Math("FLOOR", DaysSinceStart / 7) WeekType = '' @@ -462,3 +459,4 @@ Service UpdateNotificationGroups() end service +