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

added reactor label printing form

Browse Source
This commit is contained in:
Infineon\StieberD
2025-01-13 15:09:08 -07:00
parent 860cab9f68
commit 59ee7c83fc
4 changed files with 2525 additions and 1323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
LSL2/STPROC/LABELING_SERVICES.txt
View File

@ -18,17 +18,21 @@ LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] :
Headers = 'Logging DTM' : @FM : 'Lot Id' : @FM : 'Username' : @FM : 'PrinterID' : @FM : 'Message'
objTWLabelPrinting = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', Headers, '', False$, False$)
GoToService
Return Response or ""
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Service Parameter Options
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Options LOAD_LOCK_SIDE = 'Left', 'Right', 'Both'
//-----------------------------------------------------------------------------
// SERVICES
//-----------------------------------------------------------------------------
Service PrintLabel(ZPLString, PrinterId)
SuccessfulPrint = False$
ErrorMessage = ''
If PrinterId EQ '' then
@ -68,9 +72,12 @@ Service PrintLabel(ZPLString, PrinterId)
If ErrorMessage NE '' then
Error_Services('Add', ErrorMessage)
end
end service
Service PrintTestWaferLotLabel(LotId, Username, PrinterId)
ErrorMessage = ''
If Username EQ '' then
Username = @User4
@ -121,9 +128,12 @@ Service PrintTestWaferLotLabel(LotId, Username, PrinterId)
end else
Error_Services('Add', ErrorMessage)
end
End Service
Service GetTestWaferLotZPL(LotId, Username)
ZPLStringLabel = ''
LotRec = Database_Services('ReadDataRow', 'LOT', LotId)
PartNoId = LotRec<LOT_PROD_ID$>
@ -150,9 +160,12 @@ Service GetTestWaferLotZPL(LotId, Username)
ZPLStringLabel := '^XZ'
Next LabelCnt
Response = ZPLStringLabel
end service
Service GetAllZebraPrinters()
Server = Environment_Services('GetServer')
ZebraPrinterList = ''
ZebraPrinterList<1> = 'MESZBRPRT002' : @VM : '10.95.30.247' : @VM : 9100
@ -167,10 +180,38 @@ Service GetAllZebraPrinters()
If Server EQ 'MESTSA01EC' OR Server EQ 'MESSA01EC' then
ZebraPrinterList<10> = 'JONATHAN_HOME_TEST' : @VM : '192.168.0.123' : @VM : 9100
end
Response = ZebraPrinterList
end service
Service PrintReactorLabel(ReactNo, LoadLockSide=LOAD_LOCK_SIDE)
If ( (ReactNo NE '') and (LoadLockSide NE '') ) then
BaseZpl = '^XA^LH10,10^FO70,20^BY2^B3N,,80,N^FD10SR{ReactNo}.{LoadLockSidePrefix}^FS^FO10,120^A045,90^FB400,1,,C^FDR{ReactNo} {LoadLockSide}^FS^XZ'
Convert 'R' to '' in ReactNo
If LoadLockSide _EQC 'Both' then
LoadLockSidePrefix = 'L'
ZplLeft = BaseZpl
Swap '{ReactNo}' with ReactNo in ZplLeft
Swap '{LoadLockSidePrefix}' with LoadLockSidePrefix in ZplLeft
Swap '{LoadLockSide}' with LoadLockSide in ZplLeft
ZplRight = BaseZpl
LoadLockSidePrefix = 'R'
Swap '{ReactNo}' with ReactNo in ZplRight
Swap '{LoadLockSidePrefix}' with LoadLockSidePrefix in ZplRight
Swap '{LoadLockSide}' with LoadLockSide in ZplRight
Zpl = ZplLeft:ZplRight
end else
LoadLockSidePrefix = LoadLockSide[1, 1]
Zpl = BaseZpl
Swap '{ReactNo}' with ReactNo in Zpl
Swap '{LoadLockSidePrefix}' with LoadLockSidePrefix in Zpl
Swap '{LoadLockSide}' with LoadLockSide in Zpl
end
Labeling_Services('PrintLabel', Zpl, '\\messp1003.infineon.com\MESZBRPRT008')
end
end service