Made changes to Load Signature to exlude epipro
This commit is contained in:
@ -744,17 +744,23 @@ Service IsValidSubLot(RDSNo, RDSType, SupplierLot)
|
||||
end service
|
||||
|
||||
Service IsTWLoggingReqd(RDSNo)
|
||||
Response = False$
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo, True$, 0, False$)
|
||||
IsHGCVReqd = obj_RDS('MetPropFlag', RDSNo:@RM:RDSRec:@RM:'CRES')
|
||||
If IsHGCVReqd EQ True$ then
|
||||
ExistingTWKeys = Test_Run_Services('GetTestRunKeysByRDS', RDSNo)
|
||||
If ExistingTWKeys EQ '' then
|
||||
Response = True$
|
||||
Response = False$
|
||||
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo, True$, 0, False$)
|
||||
ReactorNo = RDSRec<RDS_REACTOR$>
|
||||
ReactorType = Database_Services('ReadDataColumn', 'REACTOR', ReactorNo, REACTOR_REACT_TYPE$)
|
||||
If ReactorType NE 'EPP' then
|
||||
IsHGCVReqd = obj_RDS('MetPropFlag', RDSNo:@RM:RDSRec:@RM:'CRES')
|
||||
If IsHGCVReqd EQ True$ then
|
||||
ExistingTWKeys = Test_Run_Services('GetTestRunKeysByRDS', RDSNo)
|
||||
If ExistingTWKeys EQ '' then
|
||||
Response = True$
|
||||
end else
|
||||
Response = False$
|
||||
end
|
||||
|
||||
end else
|
||||
Response = False$
|
||||
end
|
||||
|
||||
end else
|
||||
Response = False$
|
||||
end
|
||||
@ -1696,3 +1702,4 @@ return
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user