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

Final changes post UAT.

Browse Source
This commit is contained in:
Infineon\Mitchem
2025-04-17 11:41:48 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent b334574cac
commit 5d31e6f84c
3 changed files with 5189 additions and 955 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
LSL2/STPROC/LABELING_SERVICES.txt
View File

@ -84,44 +84,44 @@ Service PrintCalibrationLabel(EquipmentID, LastCalibration, NextCalibration, Cal
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'
// Print Params 1x2
ZPLString := '^XA'
ZPLString := '^LH0,0'
ZPLString := '^PR1'
ZPLString := '^LL406'
ZPLString := '^PW406'
ZPLString := '^MD22'
ZPLString := '^MMT'
ZPLString := '^FO125,15^A025,25^FDCalibration^FS'
ZPLString := '^FO30,50^FW^A020,20^FDEquip ID:^FS'
ZPLString := '^FO125,50,2^FW^A020,20^FD<EquipmentID>^FS'
ZPLString := '^FO30,80,2^FW^A020,20^FDLast Cal:^FS'
ZPLString := '^FO125,80^FW^A020,20^FD<LastCalibration>^FS'
ZPLString := '^FO30,110^FW^A020,20^FDNext Cal:^FS'
ZPLString := '^FO125,110^FW^A020,20^FD<NextCalibration>^FS'
ZPLString := '^FO30,140^FW^A020,20^FDCal By:^FS'
ZPLString := '^FO125,140^FW^A020,20^FD<CalibratedBy>^FS'
ZPLString := '^FO30,170^FW^A020,20^FDCal Freq:^FS'
ZPLString := '^FO125,170^FW^A020,20^FD<FreqVal>^FS'
ZPLString := '^FO145,170,2^FW^A020,20^FD<FreqUnit>^FS'
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
* SRP_Set_Clipboard(ZPLString)
If PrinterSelect NE '' then
Labeling_Services('PrintLabel', ZPLString, PrinterSelect)