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

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
LSL2/STPROC/PRINT_COC_BACK.txt
View File

@ -1,4 +1,4 @@
COMPILE SUBROUTINE Print_Coc_Back( PrintRDSNos, WMOutKeys, Prelim, EmailAddresses, PrintOnly, ShipDt, HideUI)
COMPILE SUBROUTINE Print_Coc_Back( PrintRDSNos, WMOutKeys, Prelim, EmailAddresses, PrintOnly, ShipDt, HideUI, ShipNo)
#pragma precomp SRP_PreCompiler
DECLARE FUNCTION FieldCount, Msg, Key_Sort, Set_Printer, obj_RDS
@ -70,8 +70,9 @@ SuppliedBy = XLATE('PROD_SPEC',PSNo,'SUB_SUPPLIED_BY','X' )
* * * 11/19/2015 JCH - Changed to get Spec data from Cust_Epi_Part table * * * * *
CustNo = WORec<WO_LOG_CUST_NO$>
EpiPartNo = WORec<WO_LOG_EPI_PART_NO$>
CustNo = Xlate('COC', Shipno, 'WO_CUST_NO_EX', 'X')
EpiPartNo = Xlate('COC', ShipNo, 'EPI_PART_NO_EX', 'X')
CustEpiPartRec = Xlate('CUST_EPI_PART',CustNo:'*':EpiPartNo,'','X')
CustSpecIDs = CustEpiPartRec<CUST_EPI_PART_SPEC_NO$>
@ -417,7 +418,7 @@ IF Prelim THEN
END ELSE
IF FirstResUnits = 'ê/Ü' THEN
IF FirstResUnits = 'ê/Ü' THEN
ResLabel = 'Sheet Rho' ;* ohms squared label sheetRHO
END ELSE
ResLabel = 'Resistivity'
@ -511,7 +512,7 @@ END ELSE
ThickAvg = OCONV( TestRec<RDS_TEST_THICK_AVG$>, 'MD2' )
ThickStdDev = OCONV( TestRec<RDS_TEST_THICK_STDV$>, 'MD4' )
IF FirstResUnits = 'ê/Ü' THEN
IF FirstResUnits = 'ê/Ü' THEN
ResAvg = OCONV( TestRec<RDS_TEST_SHEETRHO_AVG$>,'MD3')
ResStdDev = OCONV( TestRec<RDS_TEST_SHEETRHO_STDV$>,'MD4')
END ELSE
@ -542,7 +543,7 @@ END ELSE
ThickAvg = OCONV( TestRec<RDS_TEST_THICK_AVG$>, 'MD2' )
ThickStdDev = OCONV( TestRec<RDS_TEST_THICK_STDV$>, 'MD4' )
IF FirstResUnits = 'ê/Ü' THEN
IF FirstResUnits = 'ê/Ü' THEN
ResAvg = OCONV( TestRec<RDS_TEST_SHEETRHO_AVG$>,'MD3')
ResStdDev = OCONV( TestRec<RDS_TEST_SHEETRHO_STDV$>,'MD4')
END ELSE
@ -574,7 +575,7 @@ END ELSE
ThickAvg = OCONV( TestRec<RDS_TEST_THICK_AVG$>, 'MD2' )
ThickStdDev = OCONV( TestRec<RDS_TEST_THICK_STDV$>, 'MD4' )
IF FirstResUnits = 'ê/Ü' THEN
IF FirstResUnits = 'ê/Ü' THEN
ResAvg = OCONV( TestRec<RDS_TEST_SHEETRHO_AVG$>,'MD3')
ResStdDev = OCONV( TestRec<RDS_TEST_SHEETRHO_STDV$>,'MD4')
END ELSE
@ -771,4 +772,3 @@ END
RETURN