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

1115
LSL2/OIWIN/PROVE_IN_OVERRIDE.json
View File

File diff suppressed because it is too large Load Diff

36
LSL2/STPROC/PROVE_IN_OVERRIDE_EVENTS.txt
View File

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