phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Modified auto scheduler logic to prevent it from re-opening an event that was manually marked closed

Browse Source
This commit is contained in:
Infineon\StieberD
2025-10-30 11:24:27 -07:00
parent 0eed1a83f5
commit 55cebe9f3a
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/SCHEDULE_SERVICES.txt
View File

@ -1211,7 +1211,7 @@ Service AdjustScheduleEvents(ReactNo)
end end
Next EventIndex Next EventIndex
LogData = '' LogData = ''
LogData<1> = OConv(Datetime(), 'DT2/^H') LogData<1> = OConv(Datetime(), 'DT2/^H')
LogData<2> = '4' LogData<2> = '4'
@ -1287,8 +1287,10 @@ Service AdjustScheduleEvents(ReactNo)
EventRec<SCHED_DET_NG.EVENT_TOTAL_WFRS$> = EventWfrs EventRec<SCHED_DET_NG.EVENT_TOTAL_WFRS$> = EventWfrs
Database_Services('WriteDataRow', 'SCHED_DET_NG', EventKey, EventRec, True$, False$, True$) Database_Services('WriteDataRow', 'SCHED_DET_NG', EventKey, EventRec, True$, False$, True$)
// Check each cassette in the event to see if it is now processed or unprocessed (i.e., unload un-signed) If Not(EventRec<SCHED_DET_NG.EVENT_COMP$>) then
Schedule_Services('UpdateEventCassLists', EventKey) // Check each cassette in the event to see if it is now processed or unprocessed (i.e., unload un-signed)
Schedule_Services('UpdateEventCassLists', EventKey)
end
EventRec = Schedule_Services('GetScheduleDetail', EventKey) EventRec = Schedule_Services('GetScheduleDetail', EventKey)
UnprocessedCass = EventRec<SCHED_DET_NG.UNPROCESSED_CASS$> UnprocessedCass = EventRec<SCHED_DET_NG.UNPROCESSED_CASS$>
@ -3721,7 +3723,7 @@ end service
Service AdjustWorkOrderScheduleQty(WONo, ModifyQty) Service AdjustWorkOrderScheduleQty(WONo, ModifyQty)
ErrorMsg = '' ErrorMsg = ''
Begin Case Begin Case
Case (WONo EQ '') Case (WONo EQ '')