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

fixed runtime error in MFS

Browse Source
This commit is contained in:
Infineon\StieberD 2024-10-09 16:33:12 -07:00
parent d786776905
commit 962b53db72
3 changed files with 66 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
LSL2/STPROC/NCR_ACTIONS.txt
View File

@ -152,17 +152,19 @@ READ_RECORD:
// OrigFileError = 100 : @FM : KeyID // OrigFileError = 100 : @FM : KeyID
// Status = 0 // Status = 0
// Record = '' // Record = ''
If {SHIFT} then
Shift = Record<NCR_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<NCR_SHIFT$> = 'A' Record<NCR_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<NCR_SHIFT$> = 'B' Record<NCR_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<NCR_SHIFT$> = 'C' Record<NCR_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<NCR_SHIFT$> = 'D' Record<NCR_SHIFT$> = 'D'
Case {SHIFT} EQ 5 Case Shift EQ 5
Record<NCR_SHIFT$> = '5' Record<NCR_SHIFT$> = '5'
Case Otherwise$ Case Otherwise$
Null Null
@ -186,23 +188,25 @@ READONLY_RECORD:
// OrigFileError = 100 : @FM : KeyID // OrigFileError = 100 : @FM : KeyID
// Status = 0 // Status = 0
// Record = '' // Record = ''
If {SHIFT} then Shift = Record<NCR_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<NCR_SHIFT$> = 'A' Record<NCR_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<NCR_SHIFT$> = 'B' Record<NCR_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<NCR_SHIFT$> = 'C' Record<NCR_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<NCR_SHIFT$> = 'D' Record<NCR_SHIFT$> = 'D'
Case {SHIFT} EQ 5 Case Shift EQ 5
Record<NCR_SHIFT$> = '5' Record<NCR_SHIFT$> = '5'
Case Otherwise$ Case Otherwise$
Null Null
End Case End Case
end end
return return
WRITE_RECORD_PRE: WRITE_RECORD_PRE:
@ -211,22 +215,25 @@ WRITE_RECORD_PRE:
CassNo = {WO_MAT_CASS_NO} CassNo = {WO_MAT_CASS_NO}
WoMatKey = WorkOrderNo : '*' : CassNo WoMatKey = WorkOrderNo : '*' : CassNo
SAPBatchNo = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X') SAPBatchNo = Xlate('WO_MAT', WOMatKey, 'SAP_BATCH_NO', 'X')
If {SHIFT} then Shift = Record<NCR_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<NCR_SHIFT$> = 'A' Record<NCR_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<NCR_SHIFT$> = 'B' Record<NCR_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<NCR_SHIFT$> = 'C' Record<NCR_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<NCR_SHIFT$> = 'D' Record<NCR_SHIFT$> = 'D'
Case {SHIFT} EQ 5 Case Shift EQ 5
Record<NCR_SHIFT$> = '5' Record<NCR_SHIFT$> = '5'
Case Otherwise$ Case Otherwise$
Null Null
End Case End Case
end end
SaveRecord = Record
If SAPBatchNo NE '' then If SAPBatchNo NE '' then
NCRNo = Name NCRNo = Name
OrigRejQty = Sum(obj_NCR('RejQty',NCRNo:@RM:OrigRecord)) OrigRejQty = Sum(obj_NCR('RejQty',NCRNo:@RM:OrigRecord))
@ -808,5 +815,3 @@ LogRecord:
return return

39
LSL2/STPROC/RDS_ACTIONS.txt
View File

@ -565,15 +565,17 @@ READ_RECORD:
// OrigFileError = 100 : @FM : KeyID // OrigFileError = 100 : @FM : KeyID
// Status = 0 // Status = 0
// Record = '' // Record = ''
If Num({SHIFT}) then
Shift = Record<RDS_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<RDS_SHIFT$> = 'A' Record<RDS_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<RDS_SHIFT$> = 'B' Record<RDS_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<RDS_SHIFT$> = 'C' Record<RDS_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<RDS_SHIFT$> = 'D' Record<RDS_SHIFT$> = 'D'
Case Otherwise$ Case Otherwise$
Null Null
@ -597,15 +599,17 @@ READONLY_RECORD:
// OrigFileError = 100 : @FM : KeyID // OrigFileError = 100 : @FM : KeyID
// Status = 0 // Status = 0
// Record = '' // Record = ''
If Num({SHIFT}) then
Shift = Record<RDS_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<RDS_SHIFT$> = 'A' Record<RDS_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<RDS_SHIFT$> = 'B' Record<RDS_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<RDS_SHIFT$> = 'C' Record<RDS_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<RDS_SHIFT$> = 'D' Record<RDS_SHIFT$> = 'D'
Case Otherwise$ Case Otherwise$
Null Null
@ -616,15 +620,16 @@ return
WRITE_RECORD_PRE: WRITE_RECORD_PRE:
If Num({SHIFT}) then Shift = Record<RDS_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<RDS_SHIFT$> = 'A' Record<RDS_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<RDS_SHIFT$> = 'B' Record<RDS_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<RDS_SHIFT$> = 'C' Record<RDS_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<RDS_SHIFT$> = 'D' Record<RDS_SHIFT$> = 'D'
Case Otherwise$ Case Otherwise$
Null Null
@ -978,7 +983,3 @@ Restore_System_Variables:
return return

35
LSL2/STPROC/REACT_RUN_ACTIONS.txt
View File

@ -297,15 +297,17 @@ READ_RECORD:
// OrigFileError = 100 : @FM : KeyID // OrigFileError = 100 : @FM : KeyID
// Status = 0 // Status = 0
// Record = '' // Record = ''
If Num({SHIFT}) then
Shift = Record<REACT_RUN_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<REACT_RUN_SHIFT$> = 'A' Record<REACT_RUN_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<REACT_RUN_SHIFT$> = 'B' Record<REACT_RUN_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<REACT_RUN_SHIFT$> = 'C' Record<REACT_RUN_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<REACT_RUN_SHIFT$> = 'D' Record<REACT_RUN_SHIFT$> = 'D'
Case Otherwise$ Case Otherwise$
Null Null
@ -329,15 +331,17 @@ READONLY_RECORD:
// OrigFileError = 100 : @FM : KeyID // OrigFileError = 100 : @FM : KeyID
// Status = 0 // Status = 0
// Record = '' // Record = ''
If Num({SHIFT}) then
Shift = Record<REACT_RUN_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<REACT_RUN_SHIFT$> = 'A' Record<REACT_RUN_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<REACT_RUN_SHIFT$> = 'B' Record<REACT_RUN_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<REACT_RUN_SHIFT$> = 'C' Record<REACT_RUN_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<REACT_RUN_SHIFT$> = 'D' Record<REACT_RUN_SHIFT$> = 'D'
Case Otherwise$ Case Otherwise$
Null Null
@ -348,15 +352,16 @@ return
WRITE_RECORD_PRE: WRITE_RECORD_PRE:
If Num({SHIFT}) then Shift = Record<REACT_RUN_SHIFT$>
If Num(Shift) then
Begin Case Begin Case
Case {SHIFT} EQ 1 Case Shift EQ 1
Record<REACT_RUN_SHIFT$> = 'A' Record<REACT_RUN_SHIFT$> = 'A'
Case {SHIFT} EQ 2 Case Shift EQ 2
Record<REACT_RUN_SHIFT$> = 'B' Record<REACT_RUN_SHIFT$> = 'B'
Case {SHIFT} EQ 3 Case Shift EQ 3
Record<REACT_RUN_SHIFT$> = 'C' Record<REACT_RUN_SHIFT$> = 'C'
Case {SHIFT} EQ 4 Case Shift EQ 4
Record<REACT_RUN_SHIFT$> = 'D' Record<REACT_RUN_SHIFT$> = 'D'
Case Otherwise$ Case Otherwise$
Null Null