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:48:35 +00:00
parent a4dddd9b13
commit 5de56f6b41
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -431,7 +431,7 @@ STATIC FUNCTION ADO_ORDINFO( nWA, iIndex, aOrderInfo )
do case
case iIndex == 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:Item( aOrderInfo[ UR_ORI_TAG ] ):Name
aOrderInfo[ UR_ORI_RESULT ] = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Indexes( aOrderInfo[ UR_ORI_TAG ] - 1 ):Name
else
aOrderInfo[ UR_ORI_RESULT ] = ""
endif