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

Added backend support for RTF Labeling

Browse Source
This commit is contained in:
Infineon\Ouellette
2025-01-16 23:18:31 -07:00
committed by Ouellette Jonathan (CSC FI SPS MESLEO)
parent 9f3dfbfe12
commit 9673fffee1
2 changed files with 71 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
LSL2/STPROC/LABELING_SERVICES.txt
View File

@ -8,6 +8,7 @@ Declare subroutine Error_Services, Labeling_Services, Lot_Services
$insert LOGICAL
$Insert LOT_EQUATES
$Insert TEST_WAFER_PROD_EQUATES
$Insert RETURN_TO_FAB_LOTS_EQUATES
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\LabelPrinting'
LogDate = Oconv(Date(), 'D4/')
@ -217,5 +218,39 @@ Service PrintReactorLabel(ReactNo, LoadLockSide=LOAD_LOCK_SIDE)
end service
Service GetReturnToFabLabelZPL(RTFId)
ZPLStringLabel = ''
LotRec = Database_Services('ReadDataRow', 'RETURN_TO_FAB_LOTS', RTFId)
CassId = LotRec<RETURN_TO_FAB_LOTS_CASS_ID$>
CassType = LotRec<RETURN_TO_FAB_LOTS_LOT_TYPE$>
ReturnToFabReason = LotRec<RETURN_TO_FAB_LOTS_REASON$>
CassIdText = CassId
BarcodeText = ""
Begin Case
Case CassType EQ 'RDS'
BarcodeText = '1T' : CassId
Case CassType EQ 'WM_OUT'
swap '*' with '.' in CassId
CassIdText = CassId
BarcodeText = 'O' : CassId
End Case
ZPLStringLabel := '^XA'
ZPLStringLabel := '^LH0,0'
ZPLStringLabel := '^PR1'
ZPLStringLabel := '^LL406'
ZPLStringLabel := '^PW900'
ZPLStringLabel := '^MD22'
ZPLStringLabel := '^MMT'
ZPLStringLabel := '^FO25,25^A070,75^FDReturn To Fab^FS^FX(Title)^FS'
ZPLStringLabel := '^FO25,100^A045,70,40^FD(1T)Lot Number:':CassIdText:' ^FS^FX(Lot Number Title)^FS'
ZPLStringLabel := '^FB780,5,0,L^FO25,180^A045,30,30^FD':ReturnToFabReason:'^FS'
ZPLStringLabel := '^FO60,325^BY2^B3,,50,N^FD':BarcodeText:'^FS^FX(Lot Number 1D Barcode)^FS'
ZPLStringLabel := '^FO500,105^CI28'
ZPLStringLabel := '^XZ'
Response = ZPLStringLabel
end service