Modified ApplyQA100PercentADE service to delete the @VM delimited test instead of just clearing it.
This commit is contained in:
@ -646,7 +646,7 @@ MakeUpClick:
|
||||
Set_Property(@WINDOW,'SAVEWARN', False$)
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
If (CheckValue EQ True$) then
|
||||
Wo_Mat_Services('MakeupFlagOn', RDSNo)
|
||||
Wo_Mat_Services('MakeupFlagOn', WOMatKey)
|
||||
end
|
||||
end
|
||||
end else
|
||||
@ -815,3 +815,4 @@ BatchFixit:
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
@ -827,7 +827,8 @@ AddMakeup:
|
||||
ErrMsg('Unable to set makeup flag until Unload stage is signed.')
|
||||
Return
|
||||
END else
|
||||
Wo_Mat_Services('MakeupFlagOn', RDSNo)
|
||||
Wo_Mat_Services('MakeupFlagOn', WOMatKey)
|
||||
If Error_Services('HasError') then ErrMsg(Error_Services('GetMessage'))
|
||||
end
|
||||
end
|
||||
|
||||
@ -1064,7 +1065,8 @@ MakeUpLot:
|
||||
Set_Property(@WINDOW,'SAVEWARN', False$)
|
||||
Send_Event(@WINDOW,'CLEAR')
|
||||
If (CheckValue EQ True$) then
|
||||
Wo_Mat_Services('MakeupFlagOn', RDSNo)
|
||||
Wo_Mat_Services('MakeupFlagOn', WOMatKey)
|
||||
If Error_Services('HasError') then ErrMsg(Error_Services('GetMessage'))
|
||||
end
|
||||
end
|
||||
end else
|
||||
|
@ -1802,52 +1802,117 @@ Service ApplyQA100PercentADE(RDSNo)
|
||||
|
||||
WoMatQaStages = WoMatQaRec<WO_MAT_QA_STAGE$>
|
||||
WoMatQaProfiles = WoMatQaRec<WO_MAT_QA_PROFILE$>
|
||||
WoMatQaSlots = WoMatQaRec<WO_MAT_QA_SLOT$>
|
||||
WoMatQaWfrQtys = WoMatQaRec<WO_MAT_QA_WFR_QTY$>
|
||||
WoMatQaProps = WoMatQaRec<WO_MAT_QA_PROP$>
|
||||
WoMatQaToolClasses = WoMatQaRec<WO_MAT_QA_TOOL_CLASS$>
|
||||
WoMatQaRecipes = WoMatQaRec<WO_MAT_QA_RECIPE$>
|
||||
WoMatQaRecipePatterns = WoMatQaRec<WO_MAT_QA_RECIPE_PATTERN$>
|
||||
WoMatQaMin = WoMatQaRec<WO_MAT_QA_MIN$>
|
||||
WoMatQaMax = WoMatQaRec<WO_MAT_QA_MAX$>
|
||||
WoMatQaSlots = WoMatQaRec<WO_MAT_QA_SLOT$>
|
||||
WoMatQaSlotTests = WoMatQaRec<WO_MAT_QA_SLOT_TEST$>
|
||||
WoMatQaResults = WoMatQaRec<WO_MAT_QA_RESULT$>
|
||||
WoMatQaStdMaxes = WoMatQaRec<WO_MAT_QA_STD_MAX$>
|
||||
WoMatQaStdResults = WoMatQaRec<WO_MAT_QA_STD_RESULT$>
|
||||
WoMatQaSigs = WoMatQaRec<WO_MAT_QA_SIG$>
|
||||
WoMatQaSigDtms = WoMatQaRec<WO_MAT_QA_SIG_DTM$>
|
||||
WoMatQaWfrQtys = WoMatQaRec<WO_MAT_QA_WFR_QTY$>
|
||||
WoMatQaWfrTypes = WoMatQaRec<WO_MAT_QA_WFR_TYPE$>
|
||||
WoMatQaReactScheds = WoMatQaRec<WO_MAT_QA_REACT_SCHED$>
|
||||
WoMatQaShipDocs = WoMatQaRec<WO_MAT_QA_SHIP_DOC$>
|
||||
WoMatQaDataPoints = WoMatQaRec<WO_MAT_QA_DATA_POINTS$>
|
||||
WoMatQaMinResults = WoMatQaRec<WO_MAT_QA_MIN_RESULT$>
|
||||
WoMatQaMaxResults = WoMatQaRec<WO_MAT_QA_MAX_RESULT$>
|
||||
WoMatQaRngResults = WoMatQaRec<WO_MAT_QA_RANGE_PCT_RESULT$>
|
||||
WoMatQaEdgeResults = WoMatQaRec<WO_MAT_QA_EDGE_MEAN_RESULT$>
|
||||
WoMatQa5mmResults = WoMatQaRec<WO_MAT_QA_5MM_PCT_RESULT$>
|
||||
WoMatQaOOS = WoMatQaRec<WO_MAT_QA_OUT_OF_SPEC$>
|
||||
WoMatQaPhaseMins = WoMatQaRec<WO_MAT_QA_PHASE_MIN$>
|
||||
WoMatQaFailReasons = WoMatQaRec<WO_MAT_QA_FAIL_REASON$>
|
||||
|
||||
StageCount = DCount(WoMatQaStages, @VM)
|
||||
StageIdxToDelete = ''
|
||||
For stageIdx = 1 to StageCount
|
||||
If (WoMatQaStages<0, stageIdx> _EQC 'QA') and (WoMatQaProfiles<0, stageIdx> _EQC '1ADE') then
|
||||
Slot = WoMatQaSlots<0, stageIdx>
|
||||
If (Slot _NEC 'L') then
|
||||
WoMatQaSlots<0, stageIdx> = 'A'
|
||||
WoMatQaWfrQtys<0, stageIdx> = WoWaferQty
|
||||
WoMatQaSigs<0, stageIdx> = ''
|
||||
WoMatQaSigDtms<0, stageIdx> = ''
|
||||
WoMatQaResults<0, stageIdx> = ''
|
||||
WoMatQaDataPoints<0, stageIdx> = ''
|
||||
WoMatQaMinResults<0, stageIdx> = ''
|
||||
WoMatQaMaxResults<0, stageIdx> = ''
|
||||
WoMatQaRngResults<0, stageIdx> = ''
|
||||
WoMatQaEdgeResults<0, stageIdx> = ''
|
||||
WoMatQa5mmResults<0, stageIdx> = ''
|
||||
end
|
||||
If (Slot _EQC 'L') then
|
||||
WoMatQaStages<0, stageIdx> = ''
|
||||
WoMatQaProfiles<0, stageIdx> = ''
|
||||
WoMatQaSlots<0, stageIdx> = ''
|
||||
WoMatQaWfrQtys<0, stageIdx> = ''
|
||||
WoMatQaProps<0, stageIdx> = ''
|
||||
WoMatQaToolClasses<0, stageIdx> = ''
|
||||
WoMatQaRecipes<0, stageIdx> = ''
|
||||
WoMatQaRecipePatterns<0, stageIdx> = ''
|
||||
WoMatQaMin<0, stageIdx> = ''
|
||||
WoMatQaMax<0, stageIdx> = ''
|
||||
WoMatQaOOS<0, stageIdx> = ''
|
||||
StageIdxToDelete = stageIdx
|
||||
end
|
||||
end
|
||||
Next stageIdx
|
||||
|
||||
If (StageIdxToDelete NE '') then
|
||||
WoMatQaStages = Delete(WoMatQaStages, 0, StageIdxToDelete, 0)
|
||||
WoMatQaProfiles = Delete(WoMatQaProfiles, 0, StageIdxToDelete, 0)
|
||||
WoMatQaProps = Delete(WoMatQaProps, 0, StageIdxToDelete, 0)
|
||||
WoMatQaToolClasses = Delete(WoMatQaToolClasses, 0, StageIdxToDelete, 0)
|
||||
WoMatQaRecipes = Delete(WoMatQaRecipes, 0, StageIdxToDelete, 0)
|
||||
WoMatQaRecipePatterns = Delete(WoMatQaRecipePatterns, 0, StageIdxToDelete, 0)
|
||||
WoMatQaMin = Delete(WoMatQaMin, 0, StageIdxToDelete, 0)
|
||||
WoMatQaMax = Delete(WoMatQaMax, 0, StageIdxToDelete, 0)
|
||||
WoMatQaSlots = Delete(WoMatQaSlots, 0, StageIdxToDelete, 0)
|
||||
WoMatQaSlotTests = Delete(WoMatQaSlotTests, 0, StageIdxToDelete, 0)
|
||||
WoMatQaResults = Delete(WoMatQaResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQaSigs = Delete(WoMatQaSigs, 0, StageIdxToDelete, 0)
|
||||
WoMatQaSigDtms = Delete(WoMatQaSigDtms, 0, StageIdxToDelete, 0)
|
||||
WoMatQaStdMaxes = Delete(WoMatQaStdMaxes, 0, StageIdxToDelete, 0)
|
||||
WoMatQaStdResults = Delete(WoMatQaStdResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQaWfrQtys = Delete(WoMatQaWfrQtys, 0, StageIdxToDelete, 0)
|
||||
WoMatQaWfrTypes = Delete(WoMatQaWfrTypes, 0, StageIdxToDelete, 0)
|
||||
WoMatQaReactScheds = Delete(WoMatQaReactScheds, 0, StageIdxToDelete, 0)
|
||||
WoMatQaShipDocs = Delete(WoMatQaShipDocs, 0, StageIdxToDelete, 0)
|
||||
WoMatQaDataPoints = Delete(WoMatQaDataPoints, 0, StageIdxToDelete, 0)
|
||||
WoMatQaMinResults = Delete(WoMatQaMinResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQaMaxResults = Delete(WoMatQaMaxResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQaRngResults = Delete(WoMatQaRngResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQaEdgeResults = Delete(WoMatQaEdgeResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQa5mmResults = Delete(WoMatQa5mmResults, 0, StageIdxToDelete, 0)
|
||||
WoMatQaOOS = Delete(WoMatQaOOS, 0, StageIdxToDelete, 0)
|
||||
WoMatQaPhaseMins = Delete(WoMatQaPhaseMins, 0, StageIdxToDelete, 0)
|
||||
WoMatQaFailReasons = Delete(WoMatQaFailReasons, 0, StageIdxToDelete, 0)
|
||||
end
|
||||
|
||||
WoMatQaRec<WO_MAT_QA_STAGE$> = WoMatQaStages
|
||||
WoMatQaRec<WO_MAT_QA_PROFILE$> = WoMatQaProfiles
|
||||
WoMatQaRec<WO_MAT_QA_SLOT$> = WoMatQaSlots
|
||||
WoMatQaRec<WO_MAT_QA_WFR_QTY$> = WoMatQaWfrQtys
|
||||
WoMatQaRec<WO_MAT_QA_PROP$> = WoMatQaProps
|
||||
WoMatQaRec<WO_MAT_QA_TOOL_CLASS$> = WoMatQaToolClasses
|
||||
WoMatQaRec<WO_MAT_QA_RECIPE$> = WoMatQaRecipes
|
||||
WoMatQaRec<WO_MAT_QA_RECIPE_PATTERN$> = WoMatQaRecipePatterns
|
||||
WoMatQaRec<WO_MAT_QA_MIN$> = WoMatQaMin
|
||||
WoMatQaRec<WO_MAT_QA_MAX$> = WoMatQaMax
|
||||
WoMatQaRec<WO_MAT_QA_SLOT$> = WoMatQaSlots
|
||||
WoMatQaRec<WO_MAT_QA_SLOT_TEST$> = WoMatQaSlotTests
|
||||
WoMatQaRec<WO_MAT_QA_RESULT$> = WoMatQaResults
|
||||
WoMatQaRec<WO_MAT_QA_SIG$> = WoMatQaSigs
|
||||
WoMatQaRec<WO_MAT_QA_SIG_DTM$> = WoMatQaSigDtms
|
||||
WoMatQaRec<WO_MAT_QA_STD_MAX$> = WoMatQaStdMaxes
|
||||
WoMatQaRec<WO_MAT_QA_STD_RESULT$> = WoMatQaStdResults
|
||||
WoMatQaRec<WO_MAT_QA_WFR_QTY$> = WoMatQaWfrQtys
|
||||
WoMatQaRec<WO_MAT_QA_WFR_TYPE$> = WoMatQaWfrTypes
|
||||
WoMatQaRec<WO_MAT_QA_REACT_SCHED$> = WoMatQaReactScheds
|
||||
WoMatQaRec<WO_MAT_QA_SHIP_DOC$> = WoMatQaShipDocs
|
||||
WoMatQaRec<WO_MAT_QA_DATA_POINTS$> = WoMatQaDataPoints
|
||||
WoMatQaRec<WO_MAT_QA_MIN_RESULT$> = WoMatQaMinResults
|
||||
WoMatQaRec<WO_MAT_QA_MAX_RESULT$> = WoMatQaMaxResults
|
||||
WoMatQaRec<WO_MAT_QA_RANGE_PCT_RESULT$> = WoMatQaRngResults
|
||||
WoMatQaRec<WO_MAT_QA_EDGE_MEAN_RESULT$> = WoMatQaEdgeResults
|
||||
WoMatQaRec<WO_MAT_QA_5MM_PCT_RESULT$> = WoMatQa5mmResults
|
||||
WoMatQaRec<WO_MAT_QA_OUT_OF_SPEC$> = WoMatQaOOS
|
||||
WoMatQaRec<WO_MAT_QA_SIG$> = ''
|
||||
WoMatQaRec<WO_MAT_QA_SIG_DTM$> = ''
|
||||
WoMatQaRec<WO_MAT_QA_RESULT$> = ''
|
||||
WoMatQaRec<WO_MAT_QA_PHASE_MIN$> = WoMatQaPhaseMins
|
||||
WoMatQaRec<WO_MAT_QA_FAIL_REASON$> = WoMatQaFailReasons
|
||||
|
||||
Database_Services('WriteDataRow', 'WO_MAT_QA', WoMatQaKey, WoMatQaRec, True$, False$, False$)
|
||||
If Error_Services('HasError') then ErrorMsg = Error_Services('GetMessage')
|
||||
end else
|
||||
@ -2506,4 +2571,3 @@ ClearCursors:
|
||||
|
||||
return
|
||||
|
||||
|
||||
|
@ -547,8 +547,13 @@ Service SetWoMatVoidFlag(WoMatKey, Username)
|
||||
end service
|
||||
|
||||
|
||||
Service MakeupFlagOn(RDSNo)
|
||||
Service MakeupFlagOn(WOMatKey)
|
||||
|
||||
ErrorMsg = ''
|
||||
If (WOMatKey NE '') then
|
||||
If RowExists('WO_MAT', WOMatKey) then
|
||||
RDSNo = Database_Services('ReadDataColumn', 'WO_MAT', WOMatKey, WO_MAT_RDS_NO$)
|
||||
If Error_Services('NoError') then
|
||||
EpiCheck = Rds_Services('IsEpiPro', RDSNo)
|
||||
BioRadDown = False$
|
||||
Bio4Down = False$
|
||||
@ -575,6 +580,16 @@ Service MakeupFlagOn(RDSNo)
|
||||
Rds_Services('ApplyQA100PercentADE', RDSNo)
|
||||
end
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Error reading RDS_NO from WO_MAT record ':WOMatKey:'. '
|
||||
ErrorMsg := 'Error message: ':Error_Services('GetMessage')
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. WO_MAT record ':WOMatKey:' does not exist.'
|
||||
end
|
||||
end else
|
||||
ErrorMsg = 'Error in ':Service:' service. Null WOMatKey passed into service.'
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
@ -697,6 +712,3 @@ Service VerifyWOLogWOMatKeyColumn(WOMatKey)
|
||||
|
||||
end service
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user