Modified REACT_RUN and RDS to align shift nomenclature
This commit is contained in:
committed by
Stieber Daniel (CSC FI SPS MESLEO)
parent
35027d4786
commit
9119e91998
@ -297,6 +297,21 @@ READ_RECORD:
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
If Num({SHIFT}) then
|
||||
Begin Case
|
||||
Case {SHIFT} EQ 1
|
||||
Record<REACT_RUN_SHIFT$> = 'A'
|
||||
Case {SHIFT} EQ 2
|
||||
Record<REACT_RUN_SHIFT$> = 'B'
|
||||
Case {SHIFT} EQ 3
|
||||
Record<REACT_RUN_SHIFT$> = 'C'
|
||||
Case {SHIFT} EQ 4
|
||||
Record<REACT_RUN_SHIFT$> = 'D'
|
||||
Case Otherwise$
|
||||
Null
|
||||
End Case
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
READONLY_RECORD_PRE:
|
||||
@ -314,12 +329,43 @@ READONLY_RECORD:
|
||||
// OrigFileError = 100 : @FM : KeyID
|
||||
// Status = 0
|
||||
// Record = ''
|
||||
If Num({SHIFT}) then
|
||||
Begin Case
|
||||
Case {SHIFT} EQ 1
|
||||
Record<REACT_RUN_SHIFT$> = 'A'
|
||||
Case {SHIFT} EQ 2
|
||||
Record<REACT_RUN_SHIFT$> = 'B'
|
||||
Case {SHIFT} EQ 3
|
||||
Record<REACT_RUN_SHIFT$> = 'C'
|
||||
Case {SHIFT} EQ 4
|
||||
Record<REACT_RUN_SHIFT$> = 'D'
|
||||
Case Otherwise$
|
||||
Null
|
||||
End Case
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
WRITE_RECORD_PRE:
|
||||
|
||||
If Num({SHIFT}) then
|
||||
Begin Case
|
||||
Case {SHIFT} EQ 1
|
||||
Record<REACT_RUN_SHIFT$> = 'A'
|
||||
Case {SHIFT} EQ 2
|
||||
Record<REACT_RUN_SHIFT$> = 'B'
|
||||
Case {SHIFT} EQ 3
|
||||
Record<REACT_RUN_SHIFT$> = 'C'
|
||||
Case {SHIFT} EQ 4
|
||||
Record<REACT_RUN_SHIFT$> = 'D'
|
||||
Case Otherwise$
|
||||
Null
|
||||
End Case
|
||||
end
|
||||
SaveRecord = Record
|
||||
|
||||
If OrigRecord NE Record then
|
||||
|
||||
|
||||
RDSNo = Name
|
||||
ProdTWs = ''
|
||||
GaNRunID = Record<REACT_RUN_GAN_RUN_ID$>
|
||||
@ -420,14 +466,6 @@ WRITE_RECORD:
|
||||
null
|
||||
end
|
||||
//JRO 10/22/2020
|
||||
|
||||
* If OrigRecord NE Record then
|
||||
* Material_Services('PostRDSUpdateRequest', Name)
|
||||
* end
|
||||
|
||||
* If OrigRecord NE Record then
|
||||
* Material_Services('UpdateRDSStatus', Name)
|
||||
* end
|
||||
|
||||
return
|
||||
|
||||
@ -497,3 +535,4 @@ Restore_System_Variables:
|
||||
@FILE.ERROR = OrigFileError
|
||||
|
||||
return
|
||||
|
||||
|
Reference in New Issue
Block a user