diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 22eb7372cb..08e9ce18f8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-22 13:42 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
+   * source/rdd/dbfcdx/dbfcdx1.c
+     + added support for DBOI_NUMBER, for indexord() support
+     + added support for DBOI_ORDERCOUNT, for ordlistadd() support
+
 2001-10-22 01:28 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
    * utils\hbmake\hbmake.prg
      * corrected a couple of typos.
diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c
index 79fde23247..6bea7b3969 100644
--- a/harbour/source/rdd/dbfcdx/dbfcdx1.c
+++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c
@@ -964,6 +964,30 @@ ERRCODE hb_cdxOrderInfo( CDXAREAP pArea, USHORT uiIndex, LPDBORDERINFO pOrderInf
 
          break;
 
+      case DBOI_NUMBER:
+         if (pArea->lpIndexes)
+            hb_itemPutNI( pOrderInfo->itmResult, pArea->lpIndexes->uiTag );
+         else
+            hb_itemPutNI( pOrderInfo->itmResult, 0 );
+         break;
+
+      case DBOI_ORDERCOUNT:
+         uiTag = 0;
+         if (pArea->lpIndexes)
+         {
+            pTag = pArea->lpIndexes->TagList;
+            while( pTag )
+            {
+               uiTag++;
+               pTag = pTag->pNext;
+            }
+         }
+         hb_itemPutNI( pOrderInfo->itmResult, uiTag );
+         break;
+
+      default:
+         return SUPER_ORDINFO( ( AREAP ) pArea, uiIndex, pOrderInfo );
+
    }
    return SUCCESS;
 }