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

Modified exisitng shipping label routines to account for new VM Fields in EpiPart

Browse Source
This commit is contained in:
Infineon\Ouellette
2024-10-07 10:54:51 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent b443f237a1
commit 35027d4786
2 changed files with 21 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
LSL2/STPROC/PRINT_SAP_CASS_SHIP_LABEL.txt
View File

@ -515,15 +515,15 @@ FOR I = 1 TO CassCnt
END
GOSUB PrintLabel
PrintSpectrumLabel = False$
EpiPartNo = XLATE('WO_LOG', WONo, WO_LOG_EPI_PART_NO$, 'X')
CustReshipPartNo = XLATE('WO_MAT', WONo : '*' : CassNo, WO_MAT_RESHIP_CUST_EPI_PART_NO$, 'X')
PrintSpectrumLabel = False$
EpiPartNo = XLATE('WO_LOG', WONo, WO_LOG_EPI_PART_NO$, 'X')
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')
GenerateSpectrumLabel = XLATE('EPI_PART', EpiPartNo, EPI_PART_GENERATE_SPECTRUM_LABEL$, 'X')
end else
ZPVMMatNum = XLATE('EPI_PART', CustReshipPartNo, EPI_PART_VARM_PART_NO$, 'X')
GenerateSpectrumLabel = XLATE('EPI_PART', CustReshipPartNo, EPI_PART_GENERATE_SPECTRUM_LABEL$, 'X')
end
PrintSpectrumLabel = ZPVMMatNum NE '' AND (Indexc(PrintPath, 'MESZBRPRT011', 1) OR Indexc(PrintPath, 'MESZBRPRT004', 1))
PrintSpectrumLabel = GenerateSpectrumLabel AND (Indexc(PrintPath, 'MESZBRPRT011', 1) OR Indexc(PrintPath, 'MESZBRPRT004', 1))
If PrintSpectrumLabel then
Sap_Services('PrintSpectrumLabel', WONo, WOStep, CassNo)
If Error_Services('NoError') then
@ -741,3 +741,4 @@ RETURN