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

Added additional steps if WO_MAT_QA rec is blank.

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-12-02 13:53:17 -07:00
parent 56d992b961
commit 47a4257d95
2 changed files with 633 additions and 624 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1253
LSL2/STPROC/OBJ_WO_MAT_QA.txt
View File

File diff suppressed because it is too large Load Diff

4
LSL2/STPROC/PSN_SERVICES.txt
View File

@ -535,6 +535,7 @@ Service UpdateAllQAMetrologyRecord(WOMatQAKey, stageToUpdate)
WOMatQARec<1,vPos> = SpecQAMetData<1,vPos>
if SpecQAMetData<2,vPos> EQ 'ADE' then SpecQAMetData<2,vPos> = '1ADE'
if SpecQAMetData<2,vPos> EQ 'THICK_ONLY' then SpecQAMetData<2,vPos> = '1THICK_ONLY'
if SpecQAMetData<2,vPos> EQ 'CRES' then SpecQAMetData<2,vPos> = '1CRES'
WOMatQARec<2,vPos> = SpecQAMetData<2,vPos>
WOMatQARec<3,vPos> = SpecQAMetData<3,vPos>
WOMatQARec<4,vPos> = SpecQAMetData<4,vPos>
@ -549,7 +550,7 @@ Service UpdateAllQAMetrologyRecord(WOMatQAKey, stageToUpdate)
Next SpecTest
Database_Services('WriteDataRow', 'WO_MAT_QA', WOMatQAKey, WOMatQARec)
Database_Services('WriteDataRow', 'WO_MAT_QA', WOMatQAKey, WOMatQARec, True$, True$, True$)
end else
ErrorMsg = 'Null WOMatQAKey passed into service.'
end
@ -948,3 +949,4 @@ CheckAdHoc:
return