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