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

13
LSL2/STPROC/PRINT_SAP_CASS_SHIP_LABEL.txt
View File

@ -206,7 +206,7 @@ FOR I = 1 TO CassCnt
Begin Case
Case (RDSNo NE '' AND RDSType EQ 'SIC') OR (RDSNo NE '' AND ReactType<1,I> NE 'EPP' AND ReactType<1,I> NE 'GAN') ;* regular Epi
//if @UserName EQ 'DAN_CR' then debug
CassIDLabel = 'RDSNo: '
CassID = RDSNo
ReactType = ReactTypes<1,I>
@ -517,9 +517,13 @@ FOR I = 1 TO CassCnt
GOSUB PrintLabel
PrintSpectrumLabel = False$
EpiPartNo = XLATE('WO_LOG', WONo, WO_LOG_EPI_PART_NO$, 'X')
ZPVMMatNum = XLATE('EPI_PART', EpiPartNo, EPI_PART_VARM_PART_NO$, 'X')
PrintSpectrumLabel = ZPVMMatNum NE '' AND (PrintPath EQ '\\messp1002.na.infineon.com\MESZBRPRT011' OR PrintPath EQ '\\messp1003.na.infineon.com\MESZBRPRT011')
CustReshipPartNo = XLATE('WO_MAT', WONo : '*' : CassNo, WO_MAT_RESHIP_CUST_EPI_PART_NO$, 'X')
If CustReshipPartNo EQ '' then
ZPVMMatNum = XLATE('EPI_PART', EpiPartNo, EPI_PART_VARM_PART_NO$, 'X')
end else
ZPVMMatNum = XLATE('EPI_PART', CustReshipPartNo, EPI_PART_VARM_PART_NO$, 'X')
end
PrintSpectrumLabel = ZPVMMatNum NE '' AND (Indexc(PrintPath, 'MESZBRPRT011', 1) OR Indexc(PrintPath, 'MESZBRPRT004', 1))
If PrintSpectrumLabel then
Sap_Services('PrintSpectrumLabel', WONo, WOStep, CassNo)
If Error_Services('NoError') then
@ -736,3 +740,4 @@ RETURN