removed dead code
This commit is contained in:
@ -114,7 +114,7 @@ end service
|
||||
|
||||
|
||||
Service CheckQALabelStatus(WOMatKey)
|
||||
|
||||
|
||||
rec = Xlate('WO_MAT', WoMatKey,'', '')
|
||||
locRec = rec<WO_MAT_INV_LOCATION$>
|
||||
actionRec = rec<WO_MAT_INV_ACTION$>
|
||||
@ -282,7 +282,7 @@ end service
|
||||
|
||||
|
||||
Service GetSigInfo(WOMatKey, Stage, UseCaching, RDSNo)
|
||||
|
||||
|
||||
If UseCaching EQ '' then UseCaching = True$
|
||||
Signature = ''
|
||||
SigDTM = ''
|
||||
@ -2010,20 +2010,17 @@ Service QASigReady(RDSNo)
|
||||
* Verify Unload Stage QA Metrology Tests *
|
||||
******************************************
|
||||
If ErrorMessage EQ '' then
|
||||
DevelopmentFlag = Xlate('DEVELOPMENT', 'HGCV', 'STATUS', 'X')
|
||||
If (DevelopmentFlag EQ True$) then
|
||||
WOMatQAKey = WOMatKey
|
||||
WOMatQARec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatQAKey)
|
||||
OutOfSpec = WOMatQARec<WO_MAT_QA_OUT_OF_SPEC$>
|
||||
OutOfSpec = Sum(OutOfSpec)
|
||||
If OutOfSpec GT 0 then
|
||||
FailReasons = WOMatQARec<WO_MAT_QA_FAIL_REASON$>
|
||||
ErrorMessage = 'Error in ':Service:' service. '
|
||||
For each FailReason in FailReasons using @VM
|
||||
ErrorMessage := FailReason:' '
|
||||
Next FailReason
|
||||
end
|
||||
end
|
||||
WOMatQAKey = WOMatKey
|
||||
WOMatQARec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatQAKey)
|
||||
OutOfSpec = WOMatQARec<WO_MAT_QA_OUT_OF_SPEC$>
|
||||
OutOfSpec = Sum(OutOfSpec)
|
||||
If OutOfSpec GT 0 then
|
||||
FailReasons = WOMatQARec<WO_MAT_QA_FAIL_REASON$>
|
||||
ErrorMessage = 'Error in ':Service:' service. '
|
||||
For each FailReason in FailReasons using @VM
|
||||
ErrorMessage := FailReason:' '
|
||||
Next FailReason
|
||||
end
|
||||
end
|
||||
|
||||
************************************************************************
|
||||
@ -2844,4 +2841,3 @@ GetMostRecentSig:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user