updated schedule related services to account for voided cassettes
This commit is contained in:
@ -2579,6 +2579,56 @@ Service GetWoLogZpl(WoNo)
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetVoidedWaferCount(WorkOrderNo)
|
||||
|
||||
ErrorMsg = ''
|
||||
VoidedWaferCount = 0
|
||||
If WorkOrderNo NE '' then
|
||||
If RowExists('WO_LOG', WorkOrderNo) then
|
||||
ReactorType = Xlate('WO_LOG', WorkOrderNo, 'PS_REACTOR_TYPE', 'X')
|
||||
If ReactorType EQ 'EPP' then
|
||||
Query = 'SELECT WM_IN WITH WO_NO EQ ':WorkOrderNo:' AND WITH VOID EQ ':True$
|
||||
Rlist(Query, TARGET_ACTIVELIST$, '', '', '')
|
||||
ErrCode = ''
|
||||
If Not(Get_Status(ErrCode)) then
|
||||
EOF = False$
|
||||
Loop
|
||||
Readnext WmInKey else EOF = True$
|
||||
Until EOF
|
||||
VoidedWaferCount += Xlate('WM_IN', WmInKey, 'WFR_CNT', 'X')
|
||||
Repeat
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service: 'service. Error calling RList. Error code: ':ErrCode
|
||||
end
|
||||
end else
|
||||
Query = 'SELECT WO_MAT WITH WO_NO EQ ':WorkOrderNo:' AND WITH VOID EQ ':True$
|
||||
Rlist(Query, TARGET_ACTIVELIST$, '', '', '')
|
||||
ErrCode = ''
|
||||
If Not(Get_Status(ErrCode)) then
|
||||
EOF = False$
|
||||
Loop
|
||||
Readnext WoMatKey else EOF = True$
|
||||
Until EOF
|
||||
VoidedWaferCount += Xlate('WO_MAT', WoMatKey, 'WAFER_QTY', 'X')
|
||||
Repeat
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service: 'service. Error calling RList. Error code: ':ErrCode
|
||||
end
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service: 'service. WO_LOG ':WorkOrderNo:' does not exist.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service: 'service. Null WorkOrderNo passed into service.'
|
||||
end
|
||||
|
||||
If ErrorMsg NE '' then Error_Services('Add', ErrorMsg)
|
||||
Response = VoidedWaferCount
|
||||
|
||||
end service
|
||||
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
// Internal GoSubs
|
||||
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
Reference in New Issue
Block a user