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

Removed unnecessary code in GetRDSKeys

Browse Source
This commit is contained in:
Infineon\StieberD
2025-09-12 11:32:07 -07:00
parent 3acaf60a5f
commit 487246af46
1 changed files with 23 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -2064,7 +2064,6 @@ Service GetRDSKeys(WONo)
ErrorMsg = '' ErrorMsg = ''
If (WONo NE '') then If (WONo NE '') then
If RowExists('WO_LOG', WONo) then If RowExists('WO_LOG', WONo) then
Open 'DICT.RDS' to hDict then
TableName = 'RDS' TableName = 'RDS'
SortList = 'RUN_ORDER_NUM' SortList = 'RUN_ORDER_NUM'
ReduceScript = 'WITH {WO} EQ ':Quote(WONo) ReduceScript = 'WITH {WO} EQ ':Quote(WONo)
@ -2075,25 +2074,18 @@ Service GetRDSKeys(WONo)
Reduce(ReduceScript, SortList, Mode, TableName, Cursor, Flag) Reduce(ReduceScript, SortList, Mode, TableName, Cursor, Flag)
If Flag then If Flag then
Select TableName by SortList using Cursor then Select TableName by SortList using Cursor then
Open TableName to hTable then
EOF = False$ EOF = False$
Loop Loop
Readnext KeyId using Cursor by AT else EOF = True$ Readnext KeyId using Cursor by AT else EOF = True$
Until EOF Until EOF
Response<0, -1> = KeyId Response<0, -1> = KeyId
Repeat Repeat
end else
ErrorMsg = 'Error in ':Service:' service. Error opening ':TableName:' table.'
end
end else end else
ErrorMsg = 'Error in ':Service:' service. Error selecting ':TableName:' table.' ErrorMsg = 'Error in ':Service:' service. Error selecting ':TableName:' table.'
end end
end else end else
ErrorMsg = 'Error in ':Service:' service. Error calling Reduce' ErrorMsg = 'Error in ':Service:' service. Error calling Reduce'
end end
end else
ErrorMsg = 'Error in ':Service:' service. Error opening DICT.RDS'
end
end else end else
ErrorMsg = 'Error in ':Service:' service. WO_LOG ':WONo:' does not exist.' ErrorMsg = 'Error in ':Service:' service. WO_LOG ':WONo:' does not exist.'
end end
@ -2449,3 +2441,4 @@ ClearCursors:
Next counter Next counter
return return