phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improvements suggested by Daniel.

Browse Source
This commit is contained in:
Infineon\Mitchem
2025-08-18 10:43:33 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent 3561b41a7b
commit 60522d74c1
1 changed files with 56 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
LSL2/STPROC/WO_MAT_QA_SERVICES.txt
View File

@ -422,8 +422,9 @@ end service
Service GetQAMetComplete(WOMatKey) Service GetQAMetComplete(WOMatKey)
If WOMatKey NE '' then If WOMatKey NE '' then
If Rowexists('WO_MAT_QA', WOMatKey) then
Response = '' Response = ''
QAMetRec = Xlate('WO_MAT_QA', WOMatKey, '', 'X') QAMetRec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatKey, '', True$, 0, False$)
Stages = QAMetRec<WO_MAT_QA_STAGE$> Stages = QAMetRec<WO_MAT_QA_STAGE$>
Results = QAMetRec<WO_MAT_QA_RESULT$> Results = QAMetRec<WO_MAT_QA_RESULT$>
StageCount = Count(Stages, @VM) StageCount = Count(Stages, @VM)
@ -431,13 +432,14 @@ Service GetQAMetComplete(WOMatKey)
If Results<1,I> EQ '' then If Results<1,I> EQ '' then
Response = False$ Response = False$
end end
Until Response EQ False$
Next I Next I
If Response = '' then
MUQAComp = Wo_Mat_Qa_Services('GetMUWaferQAComplete', WOMatKey) Response = Wo_Mat_Qa_Services('GetMUWaferQAComplete', WOMatKey)
If (Response EQ '') AND (MUQAComp EQ True$) then end
end else
Response = True$ Response = True$
end end
end else end else
Error_Services('Add', 'Missing WOMatKey parameter.') Error_Services('Add', 'Missing WOMatKey parameter.')
end end
@ -448,11 +450,15 @@ end service
Service GetMUWaferQAComplete(WOMatKey) Service GetMUWaferQAComplete(WOMatKey)
If WOMatKey NE '' then
Response = True$ Response = True$
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey, True$, 0, False$) WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey, True$, 0, False$)
If Error_Services('NoError') then
MUBoxes = '' MUBoxes = ''
MUBoxesResults = '' MUBoxesResults = ''
MUWafers = WOMatRec<WO_MAT_SLOT_MOVED_FROM$> MUWafers = WOMatRec<WO_MAT_SLOT_MOVED_FROM$>
Counter = 0
If Count(MUWafers, @VM) GT 0 then If Count(MUWafers, @VM) GT 0 then
for each BoxNumber in MUWafers using @VM setting OrigIndex for each BoxNumber in MUWafers using @VM setting OrigIndex
if BoxNumber NE '' then if BoxNumber NE '' then
@ -463,11 +469,11 @@ Service GetMUWaferQAComplete(WOMatKey)
MUBoxesResults<BoxIndex, 2> = True$ MUBoxesResults<BoxIndex, 2> = True$
end end
end else end else
MUBoxNewIndex = DCount(MUBoxesResults, @FM) Counter += 1
MUBoxesResults<MUBoxNewIndex> = MUCassID MUBoxesResults<Counter> = MUCassID
MUThkResult = WOMatRec<WO_MAT_MU_WAFER_THK_RESULT$, OrigIndex> MUThkResult = WOMatRec<WO_MAT_MU_WAFER_THK_RESULT$, OrigIndex>
If MUThkResult NE '' then If MUThkResult NE '' then
MUBoxesResults<MUBoxNewIndex, 2> = True$ MUBoxesResults<Counter, 2> = True$
end end
end end
end end
@ -480,6 +486,12 @@ Service GetMUWaferQAComplete(WOMatKey)
Until Response = False$ Until Response = False$
Next Box Next Box
end end
end else
Error_Services('Add', 'Failed to open WO_MAT record.')
end
end else
Error_Services('Add', 'Missing WOMatKey parameter.')
end
end service end service