updated reactor print dialog form to allow users to select printer
This commit is contained in:
@ -425,6 +425,38 @@ Service PrintReactorLabel(ReactNo, LoadLockSide=LOAD_LOCK_SIDE)
|
||||
end service
|
||||
|
||||
|
||||
Service GetReactorLabelZPL(ReactNo, LoadLockSide=LOAD_LOCK_SIDE)
|
||||
|
||||
If ( (ReactNo NE '') and (LoadLockSide NE '') ) then
|
||||
BaseZpl = '^XA^MD30^PR1^LH10,10^FO35,5^BY2^B3N,,80,N^FD10SR{ReactNo}.{LoadLockSidePrefix}^FS^FO10,105^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 'Left' in ZplLeft
|
||||
ZplRight = BaseZpl
|
||||
LoadLockSidePrefix = 'R'
|
||||
Swap '{ReactNo}' with ReactNo in ZplRight
|
||||
Swap '{LoadLockSidePrefix}' with LoadLockSidePrefix in ZplRight
|
||||
Swap '{LoadLockSide}' with 'Right' 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
|
||||
Response = Zpl
|
||||
end else
|
||||
Error_Services('Add', 'Error in ':Service:' service. Null ReactNo or LoadLockSide passed in.')
|
||||
end
|
||||
|
||||
end service
|
||||
|
||||
|
||||
Service GetReturnToFabLabelZPL(RTFId)
|
||||
|
||||
ZPLStringLabel = ''
|
||||
@ -460,5 +492,3 @@ Service GetReturnToFabLabelZPL(RTFId)
|
||||
|
||||
end service
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user