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

refactored PTO form to address freezing

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-23 16:21:45 -07:00
committed by Stieber Daniel (IT FI MES)
parent 37b912b801
commit ae4bfcbfe1
7 changed files with 1160 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
LSL2/STPROC/TEST_DANIEL3.txt
View File

@ -94,11 +94,15 @@ $Insert PS_EQUATES
Main:
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,REACTOR_SERVICES', '', '', '')
debug
ASMList = Reactor_Services('GetReactorNumbers', 'ASM')
ASMList := @FM : Reactor_Services('GetReactorNumbers', 'ASM+')
ASMList = SRP_Array('SortSimpleList', ASMList, 'AscendingNumbers', @FM)
response = Msg(@Window, '', 'OK', '', 'Test':@FM:'Test2')
return
* ASMList = Reactor_Services('GetReactorNumbers', 'ASM')
* ASMList := @FM : Reactor_Services('GetReactorNumbers', 'ASM+')
*
* ASMList = SRP_Array('SortSimpleList', ASMList, 'AscendingNumbers', @FM)
* LoadInstAckReq = Xlate('RDS', 646209, 'LOAD_INST_ACK_REQ', 'X')
* DefPrinter = Get_Printer( "CURRENTDEVICE")
@ -4306,3 +4310,4 @@ return
*