From a4dddd9b13763c6845c5f9a5d7b1b7553cd507d5 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 30 Apr 2007 20:31:11 +0000 Subject: [PATCH] Modified IndexKey( n ) --- harbour/contrib/adordd/adordd.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/harbour/contrib/adordd/adordd.prg b/harbour/contrib/adordd/adordd.prg index e6ba1dd9fd..f33946b479 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -430,8 +430,8 @@ 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 ] ):Columns:Count - aOrderInfo[ UR_ORI_RESULT ] = s_aCatalogs[ nWA ]:Tables( s_aTableNames[ nWA ] ):Columns( aOrderInfo[ UR_ORI_TAG ] ):Name + 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 else aOrderInfo[ UR_ORI_RESULT ] = "" endif