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

Found issue where iterator was being overridden by a nested foreach loop

Browse Source
This commit is contained in:
Infineon\Ouellette 2024-09-18 14:19:10 -07:00
parent 379abc36c7
commit e1442352c0
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
LSL2/STPROC/OBJ_RDS.txt
View File

@ -280,7 +280,7 @@ If ErrorMsg NE '' then
Return Return
end end
RDSNo = NextKey('RDS') RDSNo = NextKey('RDS')
errCode = '' errCode = ''
If RDSNo EQ '' or RDSNo EQ 0 or Error_Services('HasError') or Get_Status(errCode) then If RDSNo EQ '' or RDSNo EQ 0 or Error_Services('HasError') or Get_Status(errCode) then
@ -310,11 +310,11 @@ For each Layer in Layers using ','
// Look for related RDS_TEST records and delete them first // Look for related RDS_TEST records and delete them first
RDSTestKeys = Xlate('RDS_LAYER', RDSLayerKey, 'RDS_TEST_KEYS', 'X') RDSTestKeys = Xlate('RDS_LAYER', RDSLayerKey, 'RDS_TEST_KEYS', 'X')
If RDSTestKeys NE '' then If RDSTestKeys NE '' then
For each RDSTestKey in RDSTestKeys using @VM setting vPos For each RDSTestKey in RDSTestKeys using @VM
// Look for related TW_USE records and delete them first // Look for related TW_USE records and delete them first
TWKeys = Xlate('RDS_TEST', RDSTestKey, 'TW_USE_ID', 'X') TWKeys = Xlate('RDS_TEST', RDSTestKey, 'TW_USE_ID', 'X')
If TWKeys NE '' then If TWKeys NE '' then
For each TWKey in TWKeys using @VM setting vPos For each TWKey in TWKeys using @VM
Database_Services('DeleteDataRow', 'TW_USE', TWKey, True$, True$) Database_Services('DeleteDataRow', 'TW_USE', TWKey, True$, True$)
Next TWKey Next TWKey
end end
@ -349,7 +349,7 @@ Next Layer
If RowExists('REACT_RUN', RDSNo) then If RowExists('REACT_RUN', RDSNo) then
// Delete old CLEAN_INSP record(s) if they exist // Delete old CLEAN_INSP record(s) if they exist
CIKeys = Xlate('REACT_RUN', RDSNo, 'CI_NO', 'X') CIKeys = Xlate('REACT_RUN', RDSNo, 'CI_NO', 'X')
For each CIKey in CIKeys using @VM setting vPos For each CIKey in CIKeys using @VM
If RowExists('CLEAN_INSP', CIKey) then If RowExists('CLEAN_INSP', CIKey) then
Database_Services('DeleteDataRow', 'CLEAN_INSP', CIKey, True$, False$) Database_Services('DeleteDataRow', 'CLEAN_INSP', CIKey, True$, False$)
If Error_Services('NoError') then If Error_Services('NoError') then
@ -1471,3 +1471,4 @@ END
RETURN RETURN