From 5d505973924447b9bbcc3ff2ed5ea20ce3d9e27b Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 30 Apr 2007 20:52:33 +0000 Subject: [PATCH] IndexKey() minor fix --- 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 99850814ae..27ee8d295a 100644 --- a/harbour/contrib/adordd/adordd.prg +++ b/harbour/contrib/adordd/adordd.prg @@ -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