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

Modified REACT_RUN and RDS to align shift nomenclature

Browse Source
This commit is contained in:
Infineon\StieberD
2024-10-09 15:30:08 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 35027d4786
commit 9119e91998
5 changed files with 116 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
LSL2/STPROC/REACT_RUN_ACTIONS.txt
View File

@ -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