From 55cebe9f3ae8da86f100a913ced283070239a9d9 Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Thu, 30 Oct 2025 11:24:27 -0700
Subject: [PATCH] Modified auto scheduler logic to prevent it from re-opening
 an event that was manually marked closed

---
 LSL2/STPROC/SCHEDULE_SERVICES.txt | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/LSL2/STPROC/SCHEDULE_SERVICES.txt b/LSL2/STPROC/SCHEDULE_SERVICES.txt
index 62f826e..6dc9280 100644
--- a/LSL2/STPROC/SCHEDULE_SERVICES.txt
+++ b/LSL2/STPROC/SCHEDULE_SERVICES.txt
@@ -1211,7 +1211,7 @@ Service AdjustScheduleEvents(ReactNo)
 					end
 					
 				Next EventIndex
-				
+
 				LogData    = ''
 				LogData<1> = OConv(Datetime(), 'DT2/^H')
 				LogData<2> = '4'
@@ -1287,8 +1287,10 @@ Service AdjustScheduleEvents(ReactNo)
 						EventRec<SCHED_DET_NG.EVENT_TOTAL_WFRS$>  = EventWfrs
 						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)
-						Schedule_Services('UpdateEventCassLists', EventKey)
+						If Not(EventRec<SCHED_DET_NG.EVENT_COMP$>) then 	
+							// 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)
 						UnprocessedCass = EventRec<SCHED_DET_NG.UNPROCESSED_CASS$>
@@ -3721,7 +3723,7 @@ end service
 
 
 Service AdjustWorkOrderScheduleQty(WONo, ModifyQty)
-    
+
     ErrorMsg = ''
     Begin Case
         Case (WONo EQ '')