fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IndexKey() minor fix

Browse Source
This commit is contained in:
Antonio Linares
2007-04-30 20:52:33 +00:00
parent 5de56f6b41
commit 5d50597392
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/contrib/adordd/adordd.prg
View File

@@ -424,12 +424,12 @@ STATIC FUNCTION ADO_FLUSH( nWA )
RETURN SUCCESS
STATIC FUNCTION ADO_ORDINFO( nWA, iIndex, aOrderInfo )
STATIC FUNCTION ADO_ORDINFO( nWA, nIndex, aOrderInfo )
local oADO := USRRDD_AREADATA( nWA )[ 1 ]
do case
case iIndex == UR_ORI_TAG
case nIndex == UR_ORI_TAG
if aOrderInfo[ UR_ORI_TAG ] < s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Indexes:Count
aOrderInfo[ UR_ORI_RESULT ] = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Indexes( aOrderInfo[ UR_ORI_TAG ] - 1 ):Name
else