From b7eadec13e65a2e32aced4ba8dcf18425ccbc099 Mon Sep 17 00:00:00 2001 From: Horacio Dario Roldan Kasimatis Date: Mon, 22 Oct 2001 16:50:15 +0000 Subject: [PATCH] 2001-10-22 13:42 GMT-3 Horacio Roldan * source/rdd/dbfcdx/dbfcdx1.c + added support for DBOI_NUMBER, for indexord() support + added support for DBOI_ORDERCOUNT, for ordlistadd() support, etc. --- harbour/ChangeLog | 5 +++++ harbour/source/rdd/dbfcdx/dbfcdx1.c | 24 ++++++++++++++++++++++++ 2 files changed, 29 insertions(+) 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 + * 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 * 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; }