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

100
LSL2/STPROC/WO_MAT_QA_SERVICES.txt
View File

@ -422,22 +422,24 @@ end service
Service GetQAMetComplete(WOMatKey) Service GetQAMetComplete(WOMatKey)
If WOMatKey NE '' then If WOMatKey NE '' then
Response = '' If Rowexists('WO_MAT_QA', WOMatKey) then
QAMetRec = Xlate('WO_MAT_QA', WOMatKey, '', 'X') Response = ''
Stages = QAMetRec<WO_MAT_QA_STAGE$> QAMetRec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatKey, '', True$, 0, False$)
Results = QAMetRec<WO_MAT_QA_RESULT$> Stages = QAMetRec<WO_MAT_QA_STAGE$>
StageCount = Count(Stages, @VM) Results = QAMetRec<WO_MAT_QA_RESULT$>
For I = 1 to StageCount StageCount = Count(Stages, @VM)
If Results<1,I> EQ '' then For I = 1 to StageCount
Response = False$ If Results<1,I> EQ '' then
Response = False$
end
Until Response EQ False$
Next I
If Response = '' then
Response = Wo_Mat_Qa_Services('GetMUWaferQAComplete', WOMatKey)
end end
Next I end else
MUQAComp = Wo_Mat_Qa_Services('GetMUWaferQAComplete', WOMatKey)
If (Response EQ '') AND (MUQAComp EQ True$) then
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,37 +450,47 @@ end service
Service GetMUWaferQAComplete(WOMatKey) Service GetMUWaferQAComplete(WOMatKey)
Response = True$ If WOMatKey NE '' then
WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey, True$, 0, False$) Response = True$
MUBoxes = '' WOMatRec = Database_Services('ReadDataRow', 'WO_MAT', WoMatKey, True$, 0, False$)
MUBoxesResults = '' If Error_Services('NoError') then
MUWafers = WOMatRec<WO_MAT_SLOT_MOVED_FROM$> MUBoxes = ''
If Count(MUWafers, @VM) GT 0 then MUBoxesResults = ''
for each BoxNumber in MUWafers using @VM setting OrigIndex MUWafers = WOMatRec<WO_MAT_SLOT_MOVED_FROM$>
if BoxNumber NE '' then Counter = 0
MUCassId = FIELD(BoxNumber,'.',1,2)
Locate MUCassId in MUBoxesResults using @VM setting BoxIndex then If Count(MUWafers, @VM) GT 0 then
MUThkResult = WOMatRec<WO_MAT_MU_WAFER_THK_RESULT$, OrigIndex> for each BoxNumber in MUWafers using @VM setting OrigIndex
If MUThkResult NE '' then if BoxNumber NE '' then
MUBoxesResults<BoxIndex, 2> = True$ MUCassId = FIELD(BoxNumber,'.',1,2)
end Locate MUCassId in MUBoxesResults using @VM setting BoxIndex then
end else MUThkResult = WOMatRec<WO_MAT_MU_WAFER_THK_RESULT$, OrigIndex>
MUBoxNewIndex = DCount(MUBoxesResults, @FM) If MUThkResult NE '' then
MUBoxesResults<MUBoxNewIndex> = MUCassID MUBoxesResults<BoxIndex, 2> = True$
MUThkResult = WOMatRec<WO_MAT_MU_WAFER_THK_RESULT$, OrigIndex> end
If MUThkResult NE '' then end else
MUBoxesResults<MUBoxNewIndex, 2> = True$ Counter += 1
end MUBoxesResults<Counter> = MUCassID
end MUThkResult = WOMatRec<WO_MAT_MU_WAFER_THK_RESULT$, OrigIndex>
end If MUThkResult NE '' then
Next BoxNumber MUBoxesResults<Counter, 2> = True$
end
for each Box in MUBoxesResults using @FM end
if Box<1,2> EQ '' then end
Response = False$ Next BoxNumber
end
Until Response = False$ for each Box in MUBoxesResults using @FM
Next Box if Box<1,2> EQ '' then
Response = False$
end
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
end service end service