From 08da7a41fbb4a3222e008c5384340b7ef1e516c1 Mon Sep 17 00:00:00 2001
From: Luis Krause <kaddath@gmail.com>
Date: Thu, 4 Dec 2003 01:10:08 +0000
Subject: [PATCH] 2003-12-03 17:28 UTC-0800 Luis Krause Mantilla

---
 harbour/ChangeLog          | 5 +++++
 harbour/source/rdd/dbcmd.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 92a5be8172..27345c117a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-12-03 17:28 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
+  * source/rdd/dbcmd.c
+    ! Fixed OrdKeyNo() bug that set RecNo() to LastRec() + 1
+      reported by Roberto López - borrowed from xharbour
+
 2003-12-03 14:24 UTC-0800 Luis Krause Mantilla <lkrausem /*at*/ shaw /*dot*/ ca>
   * include/hbapirdd.h
   * source/rdd/dbcmd.c
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 91e56d6fa4..dcf729b347 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -2643,7 +2643,7 @@ HB_FUNC( ORDKEYNO )
          pOrderInfo.itmOrder = hb_param( 1, HB_IT_NUMERIC );
       pOrderInfo.atomBagName = hb_param( 2, HB_IT_STRING );
       /* Either or both may be NIL */
-
+      pOrderInfo.itmNewVal = NULL;
       pOrderInfo.itmResult = hb_itemPutNL( NULL, 0 );
       SELF_ORDINFO( ( AREAP ) s_pCurrArea->pArea, DBOI_POSITION, &pOrderInfo );
       hb_retnl( hb_itemGetNL( pOrderInfo.itmResult ) );