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

fixed material track report, Mona_Services HTTP call, and COC file generation

Browse Source
This commit is contained in:
MESOISYSADMIN
2024-09-05 15:06:46 -07:00
committed by Infineon\StieberD
parent 7762b129af
commit a8a9e91d04
83 changed files with 64689 additions and 47974 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
LSL2/STPROC/MITCHEM_TEST_EVENTS.txt
View File

@ -1,46 +1,46 @@
Compile Function MITCHEM_TEST_Events(CtrlEntId, Event, @PARAMS)
#pragma precomp SRP_PreCompiler
#window MITCHEM_TEST
Declare function Get_Property, Reactor_Services, Database_Services
Declare subroutine Set_Property, RList, Msg , Reactor_Services, End_Window, Post_Event
$Insert APP_INSERTS
$Insert EVENT_SETUP
$Insert REACTOR_EQUATES
$insert logical
$Insert RLIST_EQUATES
$Insert REACTOR_MODES_EQUATES
$Insert REACT_MODE_NG_EQUATES
$Insert MSG_EQUATES
// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
If Event EQ 'OLE' then
Transfer Event to OIEvent
Transfer Param1 to Event
Transfer Param2 to Param1
Transfer Param3 to Param2
Transfer Param4 to Param3
Transfer Param5 to Param4
Transfer Param6 to Param5
Transfer Param7 to Param6
Transfer Param8 to Param7
end
GoToEvent Event for CtrlEntId else
// Event not implemented
end
Return EventFlow or 1
Event WINDOW.CREATE(CreateParam)
debug
Set_Property(@Window, 'BACKCOLOR', -2)
Color = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
//Set_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR', -2)
Color = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
EventFlow = 1
End Event
Compile Function MITCHEM_TEST_Events(CtrlEntId, Event, @PARAMS)
#pragma precomp SRP_PreCompiler
#window MITCHEM_TEST
Declare function Get_Property, Reactor_Services, Database_Services
Declare subroutine Set_Property, RList, Msg , Reactor_Services, End_Window, Post_Event
$Insert APP_INSERTS
$Insert EVENT_SETUP
$Insert REACTOR_EQUATES
$insert logical
$Insert RLIST_EQUATES
$Insert REACTOR_MODES_EQUATES
$Insert REACT_MODE_NG_EQUATES
$Insert MSG_EQUATES
// Update the arguments so that the OpenInsight OLE event will treate the ActiveX event as a native event handler.
If Event EQ 'OLE' then
Transfer Event to OIEvent
Transfer Param1 to Event
Transfer Param2 to Param1
Transfer Param3 to Param2
Transfer Param4 to Param3
Transfer Param5 to Param4
Transfer Param6 to Param5
Transfer Param7 to Param6
Transfer Param8 to Param7
end
GoToEvent Event for CtrlEntId else
// Event not implemented
end
Return EventFlow or 1
Event WINDOW.CREATE(CreateParam)
debug
Set_Property(@Window, 'BACKCOLOR', -2)
Color = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
//Set_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR', -2)
Color = Get_Property(@Window:'.EB_SPEC_SUBSTRATE', 'BACKCOLOR')
EventFlow = 1
End Event