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

Merged PR 11840: Added MFS logic to ensure notes data cannot be removed.

Browse Source 
Added MFS logic to ensure notes data cannot be removed.

Related work items: #231781
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-03-03 20:19:19 +01:00
parent 15495aa7ef
commit 6fd0d30717
4 changed files with 10584 additions and 1609 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
LSL2/STPROC/COMM_REACTOR_LOG.txt
View File

@ -371,9 +371,12 @@ Write:
Set_Property(@Window:'.CHECK_BOX_ROTR', 'CHECK', True$)
end
end
IOOptions = Get_Property(@Window, 'IOOPTIONS')
IOOptions<6> = True$
Set_Property(@Window, 'IOOPTIONS', IOOptions)
Reactor_Log_Events(@Window, 'WRITE')
Reactor_Log_Events(@Window, 'READ')
Result = 1
RETURN
@ -676,7 +679,7 @@ TechSign:
If Valid then
SuccessfulSign = Reactor_Log_Services('SignReactorLog', ReactorLogNo, @USER4)
If SuccessfulSign EQ 0 then
If Not(SuccessfulSign) then
Error_Services('DisplayError')
ActiveRlNicaOrderIds = Nica_Orders_Services('GetActiveOrders', 'REACTOR_LOG', ReactorLogNo)
ActiveChecklist = (ActiveRlNicaOrderIds NE '')
@ -1399,7 +1402,7 @@ PostItems:
RLNo = Vals[1,@RM]
PostBy = Vals[COL2()+1,@RM]
PostDTM = Vals[COL2()+1,@RM]
Reactor_Log_Events(@WINDOW, 'WRITE')
CurrRLRec = Get_Property (@Window, "ATRECORD")
Database_Services('WriteDataRow', 'REACTOR_LOG', RLNo, CurrRLRec, 1, 0, 1)
Set_Property(@Window, 'SAVEWARN', 0)
@ -1658,5 +1661,3 @@ ColorRemRiTable:
return