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/OIEVENT/MENU/RDS.MENU.UNLOAD%002FLOAD_EXTRA.SIGNATURE_INFO.json
View File

@ -5,7 +5,7 @@
}, },
"body": { "body": {
"record1": { "record1": {
"<1>": "\r\ndeclare function dialog_box\r\n\r\nRDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT')\r\nReturnVal = dialog_box( 'NDW_LOAD_UNLOAD_EXTRA', @window, RDSNo)\r\n/*\r\nVoid = set_property( @window, '@ExSigWrite', 0 )\r\nOrigExSigInfo = get_property( @window, '@ExSigInfo' )\r\nReturnVal = dialog_box( 'RDS_UNLOAD_LOAD_EX', @window, OrigExSigInfo )\r\nif ReturnVal <> 'CANCEL' and ( ReturnVal <> OrigExSigInfo ) then\r\n Void = set_property( @window, '@ExSigInfo', ReturnVal )\r\n Void = set_property( @window, '@ExSigWrite', 1 )\r\n @@window->savewarn = 1\r\nend\r\n*/\r\nRETURN 0\r\n" "<1>": "\r\ndeclare function dialog_box, Get_Property\r\ndeclare subroutine Send_Event, Post_Event, Set_Property\r\n\r\nATRECORD = Get_Property(@Window, 'ATRECORD')\r\nRecCheck = @Record\r\n\r\nRDSNo = Get_Property(@Window : '.RDS_NO', 'TEXT')\r\n\r\nIf ATRECORD NE RecCheck then\r\n OrigIOOptions = Get_Property (@Window, \"IOOPTIONS\")\r\n TempIOOptions = OrigIOOptions\r\n TempIOOptions<6> = 1\r\n Set_Property(@Window, 'IOOPTIONS', TempIOOptions)\r\n Send_Event(@Window, 'WRITE')\r\n Set_Property(@Window, 'IOOPTIONS', OrigIOOptions)\r\nend\r\n\r\nReturnVal = dialog_box( 'NDW_LOAD_UNLOAD_EXTRA', @window, RDSNo)\r\nSet_Property(@window, 'SAVEWARN', 0)\r\nPost_Event(@Window, 'READ')\r\n/*\r\nVoid = set_property( @window, '@ExSigWrite', 0 )\r\nOrigExSigInfo = get_property( @window, '@ExSigInfo' )\r\nReturnVal = dialog_box( 'RDS_UNLOAD_LOAD_EX', @window, OrigExSigInfo )\r\nif ReturnVal <> 'CANCEL' and ( ReturnVal <> OrigExSigInfo ) then\r\n Void = set_property( @window, '@ExSigInfo', ReturnVal )\r\n Void = set_property( @window, '@ExSigWrite', 1 )\r\n @@window->savewarn = 1\r\nend\r\n*/\r\nRETURN 0\r\n"
} }
} }
} }

8
LSL2/OIWIN/RDS.json
View File

@ -22604,10 +22604,10 @@
"<2>": { "<2>": {
"<2,1>": { "<2,1>": {
"<2,1,1>": { "<2,1,1>": {
"<2,1,1,1>": "SEND_MESSAGE.MESSAGE_W/ATTACHMENT", "<2,1,1,1>": "UNLOAD/LOAD_EXTRA.SIGNATURE_INFO",
"<2,1,1,2>": "PRINT.CUSTOMER_RDS", "<2,1,1,2>": "PRINT.FACTORY_LABELS",
"<2,1,1,3>": "PRINT.FACTORY_LABELS", "<2,1,1,3>": "PRINT.CUSTOMER_RDS",
"<2,1,1,4>": "UNLOAD/LOAD_EXTRA.SIGNATURE_INFO" "<2,1,1,4>": "SEND_MESSAGE.MESSAGE_W/ATTACHMENT"
} }
}, },
"<2,2>": { "<2,2>": {

2
LSL2/STPROC/NDW_LOAD_UNLOAD_EXTRA_EVENTS.txt
View File

@ -63,6 +63,7 @@ Event PUB_SIGN_UNLOAD_EX_1.CLICK()
end event end event
Event PUB_SIGN_LOAD_EX_1.CLICK() Event PUB_SIGN_LOAD_EX_1.CLICK()
RDSNo = Get_Property(@Window : '.EDL_RDS', 'TEXT') RDSNo = Get_Property(@Window : '.EDL_RDS', 'TEXT')
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
OldReactorNo = RDSRec<RDS_REACTOR$> 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: WRITE_RECORD_PRE:
ErrorMsg = ''
StartTick = GetTickCount() StartTick = GetTickCount()
MetricName = 'WriteRecordPre' MetricName = 'WriteRecordPre'
@ -779,7 +780,7 @@ WRITE_RECORD_PRE:
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) 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. // 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!' OrigFileError = 104:': Reactor number cannot be changed or removed once the unload signature is set!'
Status = 0 Status = 0
Record = '' Record = ''
@ -796,7 +797,7 @@ WRITE_RECORD_PRE:
LogData<4> = 'Signature datetime is greater than current datetime!' LogData<4> = 'Signature datetime is greater than current datetime!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) 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!' OrigFileError = 104:': Signature datetime is greater than current datetime!'
Status = 0 Status = 0
Record = '' Record = ''
@ -817,7 +818,7 @@ WRITE_RECORD_PRE:
LogData<4> = 'Signature datetime is less than a previous signature datetime!' LogData<4> = 'Signature datetime is less than a previous signature datetime!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) 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!' OrigFileError = 104:': Signature datetime is less than a previous signature datetime!'
Status = 0 Status = 0
Record = '' Record = ''
@ -832,7 +833,7 @@ WRITE_RECORD_PRE:
LogData<4> = 'Cassette runtime exceeds three days!' LogData<4> = 'Cassette runtime exceeds three days!'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) 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!' OrigFileError = 104:': Cassette runtime exceeds three days!'
Status = 0 Status = 0
Record = '' Record = ''
@ -846,11 +847,15 @@ WRITE_RECORD_PRE:
EndTick = GetTickCount() EndTick = GetTickCount()
Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick) Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
If ErrorMsg NE '' then
Error_Services('Add', ErrorMsg)
end
return return
WRITE_RECORD: WRITE_RECORD:
StartTick = GetTickCount() StartTick = GetTickCount()
MetricName = 'WriteRecord' MetricName = 'WriteRecord'
@ -1013,5 +1018,3 @@ Restore_System_Variables:
return return

141
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -1456,6 +1456,8 @@ end service
Service SignUnloadExtra1(RDSNo, LSLUserName) Service SignUnloadExtra1(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) 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_DATE$> = SRP_Date('Today')
RDSRec<RDS_OP_OUT_EX1_TIME$> = SRP_Time('Now') RDSRec<RDS_OP_OUT_EX1_TIME$> = SRP_Time('Now')
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$) Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor = RDSRec<RDS_REACTOR$>
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName) Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1484,6 +1492,8 @@ end service
Service UnsignUnloadExtra1(RDSNo, LSLUserName) Service UnsignUnloadExtra1(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1496,26 +1506,32 @@ Service UnsignUnloadExtra1(RDSNo, LSLUserName)
RDSRec<RDS_OP_OUT_EX1$> = '' RDSRec<RDS_OP_OUT_EX1$> = ''
RDSRec<RDS_OP_OUT_EX1_DATE$> = '' RDSRec<RDS_OP_OUT_EX1_DATE$> = ''
RDSRec<RDS_OP_OUT_EX1_TIME$> = '' RDSRec<RDS_OP_OUT_EX1_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$> Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor) Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else 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
end else end else
Error_Services('Add', 'RDS is not assigned to a reactor.') ErrorMsg = 'RDS is not assigned to a reactor.'
end end
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1523,6 +1539,8 @@ end service
Service SignLoadExtra1(RDSNo,LSLUserName) Service SignLoadExtra1(RDSNo,LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1538,22 +1556,28 @@ Service SignLoadExtra1(RDSNo,LSLUserName)
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$) Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor) Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else 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
end else end else
Error_Services('Add', 'RDS is not assigned to a reactor.') ErrorMsg = 'RDS is not assigned to a reactor.'
end end
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1561,6 +1585,8 @@ end service
Service UnsignLoadExtra1(RDSNo, LSLUserName) Service UnsignLoadExtra1(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1569,19 +1595,25 @@ Service UnsignLoadExtra1(RDSNo, LSLUserName)
RDSRec<RDS_OP_IN_EX2$> = '' RDSRec<RDS_OP_IN_EX2$> = ''
RDSRec<RDS_OP_IN_EX2_DATE$> = '' RDSRec<RDS_OP_IN_EX2_DATE$> = ''
RDSRec<RDS_OP_IN_EX2_TIME$> = '' RDSRec<RDS_OP_IN_EX2_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$> Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName) Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1589,6 +1621,8 @@ end service
Service SignUnloadExtra2(RDSNo,LSLUserName) Service SignUnloadExtra2(RDSNo,LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) 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_DATE$> = SRP_Date('Today')
RDSRec<RDS_OP_OUT_EX2_TIME$> = SRP_Time('Now') RDSRec<RDS_OP_OUT_EX2_TIME$> = SRP_Time('Now')
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$) Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$>
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor = RDSRec<RDS_REACTOR$>
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName) Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1617,6 +1657,8 @@ end service
Service UnsignUnloadExtra2(RDSNo, LSLUserName) Service UnsignUnloadExtra2(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1629,26 +1671,32 @@ Service UnsignUnloadExtra2(RDSNo, LSLUserName)
RDSRec<RDS_OP_OUT_EX2$> = '' RDSRec<RDS_OP_OUT_EX2$> = ''
RDSRec<RDS_OP_OUT_EX2_DATE$> = '' RDSRec<RDS_OP_OUT_EX2_DATE$> = ''
RDSRec<RDS_OP_OUT_EX2_TIME$> = '' RDSRec<RDS_OP_OUT_EX2_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$> Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor) Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else 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
end else end else
Error_Services('Add', 'RDS is not assigned to a reactor.') ErrorMsg = 'RDS is not assigned to a reactor.'
end end
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1656,6 +1704,8 @@ end service
Service SignLoadExtra2(RDSNo,LSLUserName) Service SignLoadExtra2(RDSNo,LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1671,21 +1721,27 @@ Service SignLoadExtra2(RDSNo,LSLUserName)
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$) Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor) Reactor_Services('AddRDSToReactorLoad', RDSNo, Reactor)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else 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
end else end else
Error_Services('Add', 'RDS is not assigned to a reactor.') ErrorMsg = 'RDS is not assigned to a reactor.'
end end
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -1693,6 +1749,8 @@ end service
Service UnsignLoadExtra2(RDSNo, LSLUserName) Service UnsignLoadExtra2(RDSNo, LSLUserName)
ErrorMsg = ''
IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then IF LSLUserName NE '' AND RowExists('LSL_USERS', LSLUserName) then
If RowExists('RDS', RDSNo) then If RowExists('RDS', RDSNo) then
RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo) RDSRec = Database_Services('ReadDataRow', 'RDS', RDSNo)
@ -1701,19 +1759,25 @@ Service UnsignLoadExtra2(RDSNo, LSLUserName)
RDSRec<RDS_OP_IN_EX3$> = '' RDSRec<RDS_OP_IN_EX3$> = ''
RDSRec<RDS_OP_IN_EX3_DATE$> = '' RDSRec<RDS_OP_IN_EX3_DATE$> = ''
RDSRec<RDS_OP_IN_EX3_TIME$> = '' RDSRec<RDS_OP_IN_EX3_TIME$> = ''
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
Reactor = RDSRec<RDS_REACTOR$> Reactor = RDSRec<RDS_REACTOR$>
Database_Services('WriteDataRow', 'RDS', RDSNo, RDSRec, True$, False$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName) Reactor_Services('RemoveRDSFromReactorLoad', RDSNo, Reactor, LSLUserName)
end else
ErrorMsg = Error_Services('GetMessage')
end end
end else 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
end else end else
Error_Services('Add', 'RDS ' : RDSNo : ' does not exist.') ErrorMsg = 'RDS ' : RDSNo : ' does not exist.'
end end
end else 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
end service end service
@ -2442,3 +2506,4 @@ ClearCursors:
return return