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

Create PrintCalibrationLabel service in

Browse Source 
LABELING_SERVICES.
This commit is contained in:
Infineon\Mitchem 2025-04-08 15:07:06 -07:00 committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 2ab1c9cd9d
commit b334574cac
1 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
LSL2/STPROC/LABELING_SERVICES.txt
View File

@ -80,6 +80,62 @@ Service PrintLabel(ZPLString, PrinterId)
end service
Service PrintCalibrationLabel(EquipmentID, LastCalibration, NextCalibration, CalibratedBy, FrequencyVal, FrequencyUnit, PrinterSelect)
If (EquipmentID NE '') AND (LastCalibration NE '') AND (NextCalibration NE '') AND (CalibratedBy NE '') AND (FrequencyVal NE '') AND (FrequencyUnit NE '') then
ZPLString = ''
// Print Params
ZPLString := '^XA'
ZPLString := '^LH0,0'
ZPLString := '^PR1'
ZPLString := '^LL406'
ZPLString := '^PW900'
ZPLString := '^MD22'
ZPLString := '^MMT'
// Calibration Header
ZPLString := '^FO280,24,2^FWN^A050,50^FDCalibration^FS'
// Equipment ID
ZPLString := '^FO40,90,2^FWN^A035,35^FDEquipment ID:^FS'
ZPLString := '^FO280,90,2^FWN^A035,35^FD<EquipmentID>^FS'
// Last calibration
ZPLString := '^FO40,150,2^FWN^A035,35^FDLast Calibration:^FS'
ZPLString := '^FO280,150,2^FWN^A035,35^FD<LastCalibration>^FS'
// Next calibration
ZPLString := '^FO40,210,2^FWN^A035,35^FDNext Calibration:^FS'
ZPLString := '^FO280,210,2^FWN^A035,35^FD<NextCalibration>^FS'
// Calibrated by
ZPLString := '^FO40,270,2^FWN^A035,35^FDCalibrated By:^FS'
ZPLString := '^FO280,270,2^FWN^A035,35^FD<CalibratedBy>^FS'
// Calibration frequency
ZPLString := '^FO40,330,2^FWN^A035,35^FDCalibration Freq:^FS'
ZPLString := '^FO280,330,2^FWN^A035,35^FD<FreqVal>^FS'
ZPLString := '^FO460,330,2^FWN^A035,35^FD<FreqUnit>^FS'
// End
ZPLString := '^XZ'
Swap '<EquipmentID>' With EquipmentID in ZPLString
Swap '<LastCalibration>' With LastCalibration in ZPLString
Swap '<NextCalibration>' With NextCalibration in ZPLString
Swap '<CalibratedBy>' With CalibratedBy in ZPLString
Swap '<FreqVal>' With FrequencyVal in ZPLString
Swap '<FreqUnit>' With FrequencyUnit in ZPLString
If PrinterSelect NE '' then
Labeling_Services('PrintLabel', ZPLString, PrinterSelect)
end else
Labeling_Services('PrintLabel', ZPLString, Printer)
end
end else
Error_Services('Add', 'Missing parameter. EquipmentID, LastCalibration, NextCalibration, CalibratedBy, FrequencyVal, and FrequencyUnit are required fields.')
end
end service
Service ReprintHoldLabel(EntityType, LotID)
WOMatKey = ''
@ -404,3 +460,4 @@ Service GetReturnToFabLabelZPL(RTFId)
end service