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

53
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -2064,36 +2064,28 @@ 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) Mode = NEXT_CUR$
Mode = NEXT_CUR$ Flag = ''
Flag = '' Cursor = ''
Cursor = '' GoSub ClearCursors
GoSub ClearCursors 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 EOF = False$
Open TableName to hTable then Loop
EOF = False$ Readnext KeyId using Cursor by AT else EOF = True$
Loop Until EOF
Readnext KeyId using Cursor by AT else EOF = True$ Response<0, -1> = KeyId
Until EOF Repeat
Response<0, -1> = KeyId end else
Repeat ErrorMsg = 'Error in ':Service:' service. Error selecting ':TableName:' table.'
end else end
ErrorMsg = 'Error in ':Service:' service. Error opening ':TableName:' table.' end else
end ErrorMsg = 'Error in ':Service:' service. Error calling Reduce'
end else end
ErrorMsg = 'Error in ':Service:' service. Error selecting ':TableName:' table.'
end
end else
ErrorMsg = 'Error in ':Service:' service. Error calling Reduce'
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