From 698f10037e22b03669d45d4dbb608d3a63ce51ce Mon Sep 17 00:00:00 2001
From: Horacio Dario Roldan Kasimatis <harbour_ar@yahoo.com.ar>
Date: Fri, 9 Nov 2001 03:01:04 +0000
Subject: [PATCH] 2001-11-08 23:42 GMT-3 Horacio Roldan
 <harbour_ar@yahoo.com.ar>    * source/rdd/dbcmd.c      + added ordKeyVal()
 (need support by specifics RDDs)

---
 harbour/source/rdd/dbcmd.c | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index caa60cd780..15c271e5cd 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -2477,6 +2477,22 @@ HB_FUNC( ORDKEYNO )
       hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "ORDKEYNO" );
 
 }
+
+HB_FUNC( ORDKEYVAL )
+{
+   DBORDERINFO pOrderInfo;
+
+   if( s_pCurrArea )
+   {
+      pOrderInfo.itmOrder  = NULL;
+      pOrderInfo.itmResult = hb_itemNew( NULL );
+      SELF_ORDINFO( ( AREAP ) s_pCurrArea->pArea, DBOI_KEYVAL, &pOrderInfo );
+      hb_itemReturn( pOrderInfo.itmResult );
+      hb_itemRelease( pOrderInfo.itmResult );
+   }
+   else
+      hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "ORDKEYVAL" );
+}
 #endif
 
 HB_FUNC( ORDLISTADD )
@@ -3657,4 +3673,3 @@ HB_FUNC( __DBCOPY )
                      ISCHAR( 8 ) ? hb_parc( 8 ) : NULL ); /* RDD */
   }
 }
-