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

9
LSL2/STPROC/OBJ_WO_MAT_QA.txt
View File

@ -15,7 +15,7 @@ COMPILE FUNCTION obj_WO_Mat_QA(Method,Parms)
#pragma precomp SRP_PreCompiler
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, ErrMsg, Btree.Extract, Database_Services, Logging_Services
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, ErrMsg, Btree.Extract, Database_Services, Logging_Services, PSN_Services
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, obj_WO_Log, NextKey, obj_WO_Mat_QA, Environment_Services
DECLARE FUNCTION obj_Prod_Spec, obj_RDS_Test, SRP_Math, Database_Services, Error_Services, Logging_Services
@ -424,6 +424,7 @@ WOMatKey = WONo:'*':CassNo
HaveLock = Database_Services('GetKeyIDLock', 'WO_MAT_QA', WOMatKey, True$)
If HaveLock then
WOMatQARec = Database_Services('ReadDataRow', 'WO_MAT_QA', WOMatKey, True$, 0, False$)
if WOMatQARec NE '' then
WOMatRec = XLATE('WO_MAT',WOMatKey,'','X')
AllQAMetKeysStruct = obj_WO_Mat_QA('GetQAMetKeys',WOMatKey:@RM:WOMatQARec) ;* All QAMetSort Keys Specified for this Work Order Returns Keys in <1> and Sequence numbers = <2>
@ -496,6 +497,11 @@ If HaveLock then
END ;* End of SpecLine LOCATE
END
end else
//Record is blank, create new from spec.
PSN_Services('UpdateAllQAMetrologyRecord', WOMatKey)
end
end else
LogData = ''
LogData<1> = LoggingDTM;//Defined at entry of subroutine
@ -749,3 +755,4 @@ Next I
RETURN

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