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

fixed tab order. stopped report generation when printer selection is canceled. cleaned up printer select code

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-09 16:27:59 -07:00
parent 93fb3477b8
commit bd08d486a1
4 changed files with 35 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
LSL2/STPROC/PRINT_REACTOR_MAINT1.txt
View File

@ -34,6 +34,7 @@ END
Params = Dialog_Box( 'REACTOR_LOG_SRPT1', @WINDOW, '*CENTER' )
IF Params = 'CANCEL' OR Params = '' THEN
RETURN
END
@ -129,6 +130,8 @@ PageSetup = '1' ;* Landscape = 1
PrintSetup = '2' ;* Preview Normal
PrintPath = Printer_Select()
If PrintPath EQ '' then return
stat = Set_Printer('INIT',FileName,Title,PageInfo,PageSetup,PrintSetup,PrintPath)
IF stat < 0 THEN GOTO OIPrintErr

10
LSL2/STPROC/TEST_DANIEL3.txt
View File

@ -93,9 +93,17 @@ $Insert PS_EQUATES
* equ REV_CREATE_ENGINE_NO_UI$ to 0x040
Main:
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,REACTOR_SERVICES', '', '', '')
debug
* LoadInstAckReq = Xlate('RDS', 646209, 'LOAD_INST_ACK_REQ', 'X')
DefPrinter = Get_Printer( "CURRENTDEVICE")
Printers = Get_Printer( "DEVICES" )
* SelPrinter = Printer_Select()
* Stage = Rds_Services('GetCurrentStage', 646209)
* CurrStage = Xlate('RDS', 646209, 'CURR_STAGE', 'X')
TaskID = RTI_Task_Submit('', 'TEST_DANIEL2', '', '', '')
*TaskID = RTI_Task_Submit('', 'TEST_DANIEL2', '', '', '')
* Slots = Xlate('WM_OUT', '173011*1*2', 'SLOT_WAFER_ID', 'X')
* RDSNos = Xlate('WM_OUT', '173011*1*3', 'RDS', 'X')