Added additional steps if WO_MAT_QA rec is blank.

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

File diff suppressed because it is too large Load Diff

View File

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