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