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

further optimized wip status forms

Browse Source
This commit is contained in:
Infineon\StieberD
2025-01-20 20:47:09 -07:00
parent 49f61982de
commit c8da9ee695
3 changed files with 60 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LSL2/STPROC/WO_DAILY_SCHED_ALL_COMM.txt
View File

@ -164,6 +164,7 @@ FORM_CREATE:
IQSData = Database_Services('ReadDataRow', 'CONFIG', 'IQS_VIOL_DATA')
FOR I = StartReact TO EndReact STEP 2
ReactRec = Xlate('REACTOR',I,'','X')
LLDisabled = ReactRec<REACTOR_LL_DISABLED$>
ReactAssign = ReactRec<REACTOR_REACT_ASSIGNMENT$>
@ -248,7 +249,7 @@ FORM_CREATE:
RPanelTitle := ' - PP'
END
Status_ProveIn = Reactor_Services('GetProveInActive', I)
Status_ProveIn = Xlate('REACTOR', I, REACTOR_PROVE_IN_ACTIVE$, 'X')
Status_0311 = XLATE('REACTOR', I, REACTOR_0311_ACTIVE$, 'X')
@ -265,10 +266,11 @@ FORM_CREATE:
If Status_0311 EQ True$ then
Set_Property(Window:'.OLE_PIC_':I, 'OLE.Image', '.\BMPS\Active_0311.png')
end
CurrModeKey = Xlate('REACTOR_CHILD_KEY_IDS_NG', I, 'REACT_MODE_KEY_IDS', 'X')
CurrModeKey = CurrModeKey[-1, 'B':@VM]
CurrRLKey = Xlate('REACT_MODE_NG', CurrModeKey, 'START_RL_ID', 'X')
Status_ReactorPM = Reactor_Log_Services('GetRlChecklistActive', CurrRLKey)
Status_ReactorPM = Xlate('REACTOR_LOG', CurrRLKey, REACTOR_LOG_CHECKLIST_ACTIVE$, 'X')
If Status_ReactorPM EQ '' then Status_ReactorPM = False$
@ -276,7 +278,7 @@ FORM_CREATE:
Set_Property(Window:'.OLE_PIC_':I, 'OLE.Image', '.\BMPS\ActiveReactorPM.png')
end
Status_HgCV_Alarm = (Nica_Orders_Services('GetActiveOrders', 'REACTOR', I, 'IQS_HGCV_ALARM') NE '')
Status_HgCV_Alarm = Xlate('REACTOR', I, REACTOR_HGCV_CHECKLIST_ACTIVE$, 'X')
If Status_HgCV_Alarm EQ True$ then
Set_Property(Window:'.OLE_PIC_':I, 'OLE.Image', '.\BMPS\ActiveProveIn.png')
@ -333,3 +335,4 @@ return