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

Bugfix Commit

Browse Source
This commit is contained in:
Infineon\Ouellette
2025-09-17 12:01:08 -07:00
parent 9dcead4eff
commit 537d46ba21
5 changed files with 120 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LSL2/STPROC/NDW_LOAD_UNLOAD_EXTRA_EVENTS.txt
View File

@ -63,6 +63,7 @@ Event PUB_SIGN_UNLOAD_EX_1.CLICK()
end event
Event PUB_SIGN_LOAD_EX_1.CLICK()
RDSNo = Get_Property(@Window : '.EDL_RDS', 'TEXT')
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
OldReactorNo = RDSRec<RDS_REACTOR$>
@ -406,3 +407,4 @@ return

17
LSL2/STPROC/RDS_ACTIONS.txt
View File

@ -624,6 +624,7 @@ return
WRITE_RECORD_PRE:
ErrorMsg = ''
StartTick = GetTickCount()
MetricName = 'WriteRecordPre'
@ -779,7 +780,7 @@ WRITE_RECORD_PRE:
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
// User is attempting to erase data that is prohibited from being erased Set the FS104 error and block the write.
Error_Services('Add', 'Reactor number cannot be changed or removed once the unload signature is set!')
ErrorMsg = 'Reactor number cannot be changed or removed once the unload signature is set!'
OrigFileError = 104:': Reactor number cannot be changed or removed once the unload signature is set!'
Status = 0
Record = ''
@ -796,7 +797,7 @@ WRITE_RECORD_PRE:
LogData<4> = 'Signature datetime is greater than current datetime!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
Error_Services('Add', 'Signature datetime is greater than current datetime!')
ErrorMsg = 'Signature datetime is greater than current datetime!'
OrigFileError = 104:': Signature datetime is greater than current datetime!'
Status = 0
Record = ''
@ -817,7 +818,7 @@ WRITE_RECORD_PRE:
LogData<4> = 'Signature datetime is less than a previous signature datetime!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
Error_Services('Add', 'Signature datetime is less than a previous signature datetime!')
ErrorMsg = 'Signature datetime is less than a previous signature datetime!'
OrigFileError = 104:': Signature datetime is less than a previous signature datetime!'
Status = 0
Record = ''
@ -832,7 +833,7 @@ WRITE_RECORD_PRE:
LogData<4> = 'Cassette runtime exceeds three days!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
Error_Services('Add', 'Cassette runtime exceeds three days!')
ErrorMsg = 'Cassette runtime exceeds three days!'
OrigFileError = 104:': Cassette runtime exceeds three days!'
Status = 0
Record = ''
@ -846,11 +847,15 @@ WRITE_RECORD_PRE:
EndTick = GetTickCount()
Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
return
WRITE_RECORD:
StartTick = GetTickCount()
MetricName = 'WriteRecord'
@ -1013,5 +1018,3 @@ Restore_System_Variables:
return

141
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -1456,6 +1456,8 @@ end service
Service SignUnloadExtra1(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1465,18 +1467,24 @@ Service SignUnloadExtra1(RDSNo, LSLUserName)
RDSRec<RDS_OP_OUT_EX1_DATE$> = SRP_Date('Today')
RDSRec<RDS_OP_OUT_EX1_TIME$> = SRP_Time('Now')
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
If Error_Services('NoError') then
Reactor = RDSRec<RDS_REACTOR$>
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Unload Extra 1 is not able to be signed at this stage')
ErrorMsg = 'Unload Extra 1 is not able to be signed at this stage'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Sign Unload Extra 1 routine')
ErrorMsg = 'Invalid user passed to Sign Unload Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', 'Error signing Unload Extra 1 : ' : ErrorMsg)
end
end service
@ -1484,6 +1492,8 @@ end service
Service UnsignUnloadExtra1(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1496,26 +1506,32 @@ Service UnsignUnloadExtra1(RDSNo, LSLUserName)
RDSRec<RDS_OP_OUT_EX1$> = ''
RDSRec<RDS_OP_OUT_EX1_DATE$> = ''
RDSRec<RDS_OP_OUT_EX1_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Unsign Load Extra 1 is not able to be unsigned.')
ErrorMsg = 'Unsign Load Extra 1 is not able to be unsigned.'
end
end else
Error_Services('Add', 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.')
ErrorMsg = 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.'
end
end else
Error_Services('Add', 'RDS is not assigned to a reactor.')
ErrorMsg = 'RDS is not assigned to a reactor.'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Unsign Load Extra 1 routine')
ErrorMsg = 'Invalid user passed to Unsign Load Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
end service
@ -1523,6 +1539,8 @@ end service
Service SignLoadExtra1(RDSNo,LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1538,22 +1556,28 @@ Service SignLoadExtra1(RDSNo,LSLUserName)
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Load Extra 1 is not able to be signed at this stage')
ErrorMsg = 'Load Extra 1 is not able to be signed at this stage'
end
end else
Error_Services('Add', 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.')
ErrorMsg = 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.'
end
end else
Error_Services('Add', 'RDS is not assigned to a reactor.')
ErrorMsg = 'RDS is not assigned to a reactor.'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Sign Unload Extra 1 routine')
ErrorMsg = 'Invalid user passed to Sign Unload Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('GetMessage')
end
end service
@ -1561,6 +1585,8 @@ end service
Service UnsignLoadExtra1(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1569,19 +1595,25 @@ Service UnsignLoadExtra1(RDSNo, LSLUserName)
RDSRec<RDS_OP_IN_EX2$> = ''
RDSRec<RDS_OP_IN_EX2_DATE$> = ''
RDSRec<RDS_OP_IN_EX2_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Unsign Load Extra 1 is not able to be unsigned.')
ErrorMsg = 'Unsign Load Extra 1 is not able to be unsigned.'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Unsign Load Extra 1 routine')
ErrorMsg = 'Invalid user passed to Unsign Load Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
end service
@ -1589,6 +1621,8 @@ end service
Service SignUnloadExtra2(RDSNo,LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1598,18 +1632,24 @@ Service SignUnloadExtra2(RDSNo,LSLUserName)
RDSRec<RDS_OP_OUT_EX2_DATE$> = SRP_Date('Today')
RDSRec<RDS_OP_OUT_EX2_TIME$> = SRP_Time('Now')
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
If Error_Services('NoError') then
Reactor = RDSRec<RDS_REACTOR$>
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Unload Extra 2 is not able to be signed at this stage')
ErrorMsg = 'Unload Extra 2 is not able to be signed at this stage'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Sign Unload Extra 1 routine')
ErrorMsg = 'Invalid user passed to Sign Unload Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
end service
@ -1617,6 +1657,8 @@ end service
Service UnsignUnloadExtra2(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1629,26 +1671,32 @@ Service UnsignUnloadExtra2(RDSNo, LSLUserName)
RDSRec<RDS_OP_OUT_EX2$> = ''
RDSRec<RDS_OP_OUT_EX2_DATE$> = ''
RDSRec<RDS_OP_OUT_EX2_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Unsign Load Extra 2 is not able to be unsigned.')
ErrorMsg = 'Unsign Load Extra 2 is not able to be unsigned.'
end
end else
Error_Services('Add', 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.')
ErrorMsg = 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.'
end
end else
Error_Services('Add', 'RDS is not assigned to a reactor.')
ErrorMsg = 'RDS is not assigned to a reactor.'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Unsign Unload Extra 1 routine')
ErrorMsg = 'Invalid user passed to Unsign Unload Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
end service
@ -1656,6 +1704,8 @@ end service
Service SignLoadExtra2(RDSNo,LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1671,21 +1721,27 @@ Service SignLoadExtra2(RDSNo,LSLUserName)
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Load Extra 2 is not able to be signed at this stage')
ErrorMsg = 'Load Extra 2 is not able to be signed at this stage'
end
end else
Error_Services('Add', 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.')
ErrorMsg = 'Reactor #' : Reactor : ' does not currently have the capacity to be loaded. Unload a lot to allow.'
end
end else
Error_Services('Add', 'RDS is not assigned to a reactor.')
ErrorMsg = 'RDS is not assigned to a reactor.'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Sign Unload Extra 2 routine')
ErrorMsg = 'Invalid user passed to Sign Unload Extra 2 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
end service
@ -1693,6 +1749,8 @@ end service
Service UnsignLoadExtra2(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1701,19 +1759,25 @@ Service UnsignLoadExtra2(RDSNo, LSLUserName)
RDSRec<RDS_OP_IN_EX3$> = ''
RDSRec<RDS_OP_IN_EX3_DATE$> = ''
RDSRec<RDS_OP_IN_EX3_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end
end else
Error_Services('Add', 'Unsign Load Extra 2 is not able to be unsigned.')
ErrorMsg = 'Unsign Load Extra 2 is not able to be unsigned.'
end
end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.')
ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end
end else
Error_Services('Add', 'Invalid user passed to Unsign Unload Extra 1 routine')
ErrorMsg = 'Invalid user passed to Unsign Unload Extra 1 routine'
end
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
end service
@ -2442,3 +2506,4 @@ ClearCursors:
return