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

updated 100% stratus to auto calculate std dev

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-19 11:43:27 -07:00
committed by Stieber Daniel (IT FI MES)
parent b0b127cd87
commit 2dc8a264c2
8 changed files with 24560 additions and 3666 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
LSL2/STPROC/OBJ_WO_MAT_QA.txt
View File

@ -280,6 +280,17 @@ FOR WOStepNo = 1 TO StepCnt
WOMatQARec<WO_MAT_QA_SHIP_DOC$,MetLine> = QAMetData<COL$QA_MET_SHIP_DOC,StageNo> ;* StageRec<PRS_STAGE_MET_SHIP_DOC$,StageNo>
WOMatQARec<WO_MAT_QA_PHASE_MIN$,MetLine> = QAMetData<COL$QA_MET_PHASE_MIN,StageNo>
MetTest = QAMetData<COL$QA_MET_TEST,StageNo>
IF MetTest = 'ADE' THEN
MetSpecSlot = QAMetData<COL$QA_MET_SLOT,StageNo>
MetWfrQty = QAMetData<COL$QA_MET_WFR_QTY,StageNo>
IF ( (MetSpecSlot = 'A') OR (MetWfrQty = 'A') OR (MetWfrQty > 5) ) THEN
* Standard Deviation Required
MetStdMax = ((MetMin + MetMax) / 2) * (0.02)
MetStdMax = ICONV(MetStdMax,'MD3')
WOMatQARec<WO_MAT_QA_STD_MAX$> = MetStdMax
END
END ;* End of check for ADE test
* Retrieve any existing results from the WO_MAT record
@ -600,6 +611,7 @@ NEXT I
otParms = 'WO_MAT_QA':@RM:WONo:'*':CassNo
WOMatQARec = obj_Tables('ReadRec',otParms)
errCode = ''
IF Get_Status(errCode) THEN
RETURN
END