pre cutover push
This commit is contained in:
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user