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

minor bug fix for overriding multiple prove in type orders at once

Browse Source 
added error message if no orders found and removed intrusive maintenance checkbox from prove in override form as it is overridden elsewhere
This commit is contained in:
Infineon\StieberD 2025-04-08 13:49:17 -07:00
parent 8dd9cebc3e
commit 4b26d37a1c
2 changed files with 1447 additions and 904 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1113
LSL2/OIWIN/PROVE_IN_OVERRIDE.json
View File

File diff suppressed because it is too large Load Diff

20
LSL2/STPROC/PROVE_IN_OVERRIDE_EVENTS.txt
View File

@ -6,7 +6,7 @@ $Insert APP_INSERTS
$insert Message_Box_Equates
Declare subroutine Placedialog, Message_Box
Declare function Nica_Orders_Services
Declare function Nica_Orders_Services, Reactor_Services
GoToEvent Event for CtrlEntId else
// Event not implemented
@ -24,21 +24,25 @@ Event WINDOW.CREATE(CreateParam)
Placedialog(-2, -2)
ActiveOrders = Nica_Orders_Services('GetActiveOrders', 'REACTOR', ReactNo)
For each OrderType in ActiveOrders using @VM setting dummy
ActiveProveInOrders = Reactor_Services('GetActiveProveInOrderIds', ReactNo)
If ActiveProveInOrders NE '' then
OrderTypes = Xlate('NICA_ORDERS', ActiveProveInOrders, 'ORDER_TYPE', 'X')
For each OrderType in OrderTypes using @VM
Begin Case
Case OrderType _EQC 'changeover'
Case OrderType _EQC 'CHANGEOVER'
Set_Property(@Window:'.CHB_CHANGEOVER', 'ENABLED', True$)
Case OrderType _EQC 'initiate_idle'
Case OrderType _EQC 'INITIATE_IDLE'
Set_Property(@Window:'.CHB_IDLE_SHUTDOWN', 'ENABLED', True$)
Case OrderType _EQC 'idle'
Case OrderType _EQC 'IDLE'
Set_Property(@Window:'.CHB_IDLE_STARTUP', 'ENABLED', True$)
Case OrderType _EQC 'intrusive_maint'
Set_Property(@Window:'.CHB_INTRUSIVE_MAINT', 'ENABLED', True$)
Case Otherwise$
Null
End Case
Next OrderType
end else
ErrorMsg = 'No active prove in NICA orders found for reactor ':ReactNo:'.'
Msg(@Window, '', 'OK', '', 'Error':@FM:ErrorMsg)
end
End Event