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

Fixed an issue which was preventing work orders without received material from being scheduled.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-26 13:40:16 -07:00
parent edd09af821
commit 2036ed3289
2 changed files with 36 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
LSL2/STPROC/NDW_SCHEDULER_EVENTS.txt
View File

@ -723,6 +723,7 @@ Event OLE_SCHEDULE.OnContextMenuClick(Item, UserData)
Description = AddEventDetails<5>
WaferQty = AddEventDetails<6>
NewApptID = Schedule_Services('AddSchedEvent', ReactorNo, WorkOrder, StartDTM, StopDTM, Description, WaferQty)
If Error_Services('NoError') then
NewAppt = Schedule_Services('GetScheduleEvent', NewApptID)
If Error_Services('NoError') then
GoSub RefreshReactor
@ -733,6 +734,9 @@ Event OLE_SCHEDULE.OnContextMenuClick(Item, UserData)
end else
Error_Services('DisplayError')
end
end else
Error_Services('DisplayError')
end
GoSub HideWaitMessage
end

15
LSL2/STPROC/SCHEDULE_SERVICES.txt
View File

@ -2331,7 +2331,12 @@ Service AddSchedEvent(ReactorNo, WorkOrderNo, StartDTM, StopDTM, Description, Wa
If EpiPro then
For CassNo = StartCass to StopCass
WMIKey = WorkOrderNo:'*1*':CassNo
If RowExists('WM_IN', WMIKey) then
WMIRec = Database_Services('ReadDataRow', 'WM_IN', WMIKey)
end else
// Material not received yet
WMIRec = ''
end
If Error_Services('NoError') then
Voided = WMIRec<WM_IN_VOID$>
If Not(Voided) then
@ -2408,12 +2413,19 @@ Service AddSchedEvent(ReactorNo, WorkOrderNo, StartDTM, StopDTM, Description, Wa
end else
For CassNo = StartCass to StopCass
DtmOut = ''
WOMatKey = WorkOrderNo:'*':CassNo
If RowExists('WO_MAT', WOMatKey) then
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatKey)
end else
// Material not received yet
WOMatRec = ''
end
If Error_Services('NoError') then
Voided = WOMatRec<WO_MAT_VOID$>
If Not(Voided) then
RDSKey = WOMatRec<WO_MAT_RDS_NO$>
If (RDSKey NE '') then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSKey)
If Error_Services('NoError') then
DateOut = RDSRec<RDS_DATE_OUT$>
@ -2426,12 +2438,13 @@ Service AddSchedEvent(ReactorNo, WorkOrderNo, StartDTM, StopDTM, Description, Wa
ErrorMsg = Error_Services('GetMessage')
end
end
end
end else
ErrorMsg = Error_Services('GetMessage')
end
If (ErrorMsg EQ '') then
If DtmOut NE '' then
If (DtmOut NE '') then
LastUnloadedRDS = RDSKey
Locate CassNo in EventProcCassList using @VM setting Dummy else
EventProcCassList<0, -1> = CassNo