From 5de56f6b41ed01dcc2db40c4014d757c668c984e Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 30 Apr 2007 20:48:35 +0000 Subject: [PATCH] IndexKey() minor fix --- harbour/contrib/adordd/adordd.prg | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index f33946b479..99850814ae 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -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