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

updated reactor print dialog form to allow users to select printer

Browse Source
This commit is contained in:
Infineon\StieberD
2025-10-16 14:58:44 -07:00
parent 712cec903a
commit cbb52c469b
2 changed files with 55 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
LSL2/STPROC/NDW_PRINT_REACTOR_LABELS_EVENTS.txt
View File

@ -36,7 +36,7 @@ $Insert APP_INSERTS
$Insert EVENT_SETUP
$Insert MSG_EQUATES
Declare function Reactor_Services
Declare function Reactor_Services, Labeling_Services, Printer_Select
Declare subroutine PlaceDialog, Labeling_Services
GoToEvent Event for CtrlEntId else
@ -77,15 +77,30 @@ end event
Event PUB_PRINT.CLICK()
ErrorMsg = ''
ReactNo = Get_Property(@Window:'.COB_REACTOR', 'TEXT')
LLSide = Get_Property(@Window:'.COB_LOAD_LOCK_SIDE', 'TEXT')
Def = ""
Def<MTEXT$> = "Printing label..."
Def<MTYPE$> = "U"
MsgUp = Msg(@window, Def) ;* display the processing message
Labeling_Services('PrintReactorLabel', ReactNo, LLSide)
Msg(@window, MsgUp) ;* take down the processing message
If Error_Services('HasError') then Error_Services('DisplayError')
ReactorZpl = Labeling_Services('GetReactorLabelZPL', ReactNo, LLSide)
If Error_Services('NoError') then
PrintPath = Printer_Select()
If PrintPath NE '' then
Def = ""
Def<MTEXT$> = "Printing label..."
Def<MTYPE$> = "U"
MsgUp = Msg(@window, Def) ;* display the processing message
Msg(@window, MsgUp) ;* take down the processing message
Labeling_Services('PrintLabel', ReactorZpl, PrintPath)
If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage')
end
end
end else
ErrorMsg = Error_Services('GetMessage')
end
If ErrorMsg NE '' then
Msg(@Window, '', 'OK', '', 'Print Error':@FM:ErrorMsg)
end
end event