Bugfix Commit
This commit is contained in:
@ -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"
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
@ -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>": {
|
||||||
|
@ -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
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user