Fixed an issue which was preventing work orders without received material from being scheduled.
This commit is contained in:
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user