pre cutover push
This commit is contained in:
Infineon\StieberD
@ -77,11 +77,12 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
|
||||
If Record EQ '' then Record = Database_Services('ReadDataRow', 'WO_MAT_QA', KeyID)
|
||||
If Error_Services('NoError') then
|
||||
@DICT = Database_Services('GetTableHandle', 'DICT.WO_MAT_QA')
|
||||
@ID = KeyID
|
||||
@RECORD = Record
|
||||
@DICT = Database_Services('GetTableHandle', 'DICT.WO_MAT_QA')
|
||||
@ID = KeyID
|
||||
@RECORD = Record
|
||||
objJSON = ''
|
||||
If SRP_JSON(objJSON, 'New', 'Object') then
|
||||
|
||||
objWOMatQA = ''
|
||||
If SRP_JSON(objWOMatQA, 'New', 'Object') then
|
||||
SRP_JSON(objWOMatQA, 'SetValue', 'keyId', @ID)
|
||||
Stages = {STAGE}
|
||||
@ -107,8 +108,10 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
PhaseMins = {PHASE_MIN}
|
||||
FailReasons = {FAIL_REASON}
|
||||
If Stages NE '' then
|
||||
objTestArray = ''
|
||||
If SRP_JSON(objTestArray, 'New', 'Array') then
|
||||
For each Stage in Stages using @VM setting vPos
|
||||
objTest = ''
|
||||
If SRP_JSON(objTest, 'New', 'Object') then
|
||||
SRP_JSON(objTest, 'SetValue', 'stage', Stage)
|
||||
SRP_JSON(objTest, 'SetValue', 'profile', Profiles<0, vPos>)
|
||||
@ -126,6 +129,7 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
SRP_JSON(objTest, 'SetValue', 'specStdDev', SpecStdDevs<0, vPos>)
|
||||
SRP_JSON(objTest, 'SetValue', 'testStdDev', TestStdDevs<0, vPos>)
|
||||
SRP_JSON(objTest, 'SetValue', 'specWfrQty', SpecWfrQty<0, vPos>)
|
||||
objDataArray = ''
|
||||
If SRP_JSON(objDataArray, 'New', 'Array') then
|
||||
DataPoints = TestData<0, vPos>
|
||||
For each Row in DataPoints using @SVM
|
||||
@ -134,7 +138,6 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
SRP_JSON(objTest, 'Set', 'dataPoints', objDataArray)
|
||||
SRP_JSON(objDataArray, 'Release')
|
||||
end
|
||||
* SRP_JSON(objTest, 'SetValueArray', 'dataPoints', TestData<0, vPos>, @SVM)
|
||||
SRP_JSON(objTest, 'SetValueArray', 'testResultMin', TestMins<0, vPos>, @SVM)
|
||||
SRP_JSON(objTest, 'SetValueArray', 'testResultMax', TestMaxes<0, vPos>, @SVM)
|
||||
SRP_JSON(objTest, 'SetValue', 'testOutOfSpec', OutOfSpec<0, vPos>, 'Boolean')
|
||||
@ -156,8 +159,10 @@ Service ConvertRecordToJSON(KeyID, Record, ItemURL)
|
||||
// The itemURL was passed in so add HAL+JSON properties.
|
||||
|
||||
// Create the _links property and then all link objects needed for this resource.
|
||||
objLinks = ''
|
||||
If SRP_JSON(objLinks, 'New', 'Object') then
|
||||
// Create a self link.
|
||||
objLink = ''
|
||||
If SRP_JSON(objLink, 'New', 'Object') then
|
||||
SRP_JSON(objLink, 'SetValue', 'href', ItemURL, 'String')
|
||||
SRP_JSON(objLink, 'SetValue', 'title', 'Self', 'String')
|
||||
@ -318,26 +323,66 @@ Service UpdateQAMet(WOMatKey)
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service ClearSignatureByStage(WOMatQaKey, StageToClear)
|
||||
if WOMatQAKey NE '' OR StageToClear NE '' then
|
||||
|
||||
If ( (WOMatQAKey NE '') and (StageToClear NE '') ) then
|
||||
WOMatQaRec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatQaKey)
|
||||
for each Stage in WOMatQaRec<WO_MAT_QA_STAGE$> using @VM setting sPos
|
||||
if Stage EQ StageToClear then
|
||||
WOMatQaRec<WO_MAT_QA_SIG$,sPos> = ''
|
||||
WOMatQaRec<WO_MAT_QA_SIG_DTM$,sPos> = ''
|
||||
If Error_Services('NoError') then
|
||||
Stages = WOMatQaRec<WO_MAT_QA_STAGE$>
|
||||
If Stages NE '' then
|
||||
For each Stage in Stages using @VM setting sPos
|
||||
If Stage EQ StageToClear then
|
||||
WOMatQaRec<WO_MAT_QA_SIG$,sPos> = ''
|
||||
WOMatQaRec<WO_MAT_QA_SIG_DTM$,sPos> = ''
|
||||
end
|
||||
Next Stage
|
||||
Database_Services('WriteDataRow', 'WO_MAT_QA', WOMatQaKey, WOMatQaRec, True$, False$, True$)
|
||||
If Error_Services('HasError') then
|
||||
Error_Services('Add', 'Error in ' :Service : ' service. Error writing WO_MAT_QA record. ' : WOMatQaKey)
|
||||
end
|
||||
end else
|
||||
Error_Services('Add', 'Error in ' :Service : ' service. WO_MAT_QA_STAGE column is null!')
|
||||
end
|
||||
Next Stage
|
||||
Database_Services('WriteDataRow', 'WO_MAT_QA', WOMatQaKey, WOMatQaRec, True$, False$, True$)
|
||||
if Error_Services('HasError') then
|
||||
Error_Services('Add' , 'Error writing WO_MAT_QA record. ' : WOMatQaKey)
|
||||
end
|
||||
end else
|
||||
Error_Services('Add' , 'Missing parameter in ' : service : ' service. WOOMatQaKey = ' WOMatQaKey : ', StageToClear = ' : StageToClear)
|
||||
Error_Services('Add', 'Missing parameter in ' : service : ' service. WOOMatQaKey = ' WOMatQaKey : ', StageToClear = ' : StageToClear)
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service ClearResultsByStage(WOMatQaKey, StageToClear)
|
||||
|
||||
If ( (WOMatQAKey NE '') and (StageToClear NE '') ) then
|
||||
WOMatQaRec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatQaKey)
|
||||
If Error_Services('NoError') then
|
||||
Stages = WOMatQaRec<WO_MAT_QA_STAGE$>
|
||||
If Stages NE '' then
|
||||
For each Stage in Stages using @VM setting sPos
|
||||
If Stage EQ StageToClear then
|
||||
WOMatQaRec<WO_MAT_QA_RESULT$, sPos> = ''
|
||||
WOMatQaRec<WO_MAT_QA_SIG$, sPos> = ''
|
||||
WOMatQaRec<WO_MAT_QA_SIG_DTM$, sPos> = ''
|
||||
end
|
||||
Next Stage
|
||||
Database_Services('WriteDataRow', 'WO_MAT_QA', WOMatQaKey, WOMatQaRec, True$, False$, True$)
|
||||
If Error_Services('HasError') then
|
||||
Error_Services('Add', 'Error in ' :Service : ' service. Error writing WO_MAT_QA record. ' : WOMatQaKey)
|
||||
end
|
||||
end else
|
||||
Error_Services('Add', 'Error in ' :Service : ' service. WO_MAT_QA_STAGE column is null!')
|
||||
end
|
||||
end
|
||||
end else
|
||||
Error_Services('Add', 'Missing parameter in ' : service : ' service. WOOMatQaKey = ' WOMatQaKey : ', StageToClear = ' : StageToClear)
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service AllWafersWereTested(WoMatQAKey, StageToInspect)
|
||||
|
||||
if WOMatQAKey NE '' and StageToInspect NE '' then
|
||||
WOMatQaRec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatQaKey)
|
||||
WoMatRec = Database_Services('ReadDataRow', 'WO_MAT', WOMatQaKey)
|
||||
@ -352,6 +397,7 @@ Service AllWafersWereTested(WoMatQAKey, StageToInspect)
|
||||
//This is a MU box and probably has less than the WoWaferQty. For some reason that field is a static value =(
|
||||
WoWaferQty = 0
|
||||
Slots = XLATE('WO_MAT', WOMatQAKey, 'SLOT_WAFER_ID', 'X')
|
||||
Slot = ''
|
||||
for each Slot in Slots using @VM setting sPos
|
||||
If Slot NE '' then
|
||||
WoWaferQty = WoWaferQty + 1
|
||||
@ -363,14 +409,13 @@ Service AllWafersWereTested(WoMatQAKey, StageToInspect)
|
||||
ThicknessValue = WoMatRec<WO_MAT_MU_WAFER_THK_RESULT$, WaferIdx>
|
||||
If ThicknessValue NE '' then WafersWithValues += 1
|
||||
Next WaferIdx
|
||||
if WafersWithValues EQ WoWaferQty then Response = True$
|
||||
if WafersWithValues GE WoWaferQty then Response = True$
|
||||
end
|
||||
Until Response EQ True$
|
||||
Next stageIdx
|
||||
end
|
||||
if Response NE True$ then Response = False$
|
||||
|
||||
end service
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user