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

15
LSL2/STPROC/SCHEDULE_SERVICES.txt
View File

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