fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2001-10-22 13:42 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/dbfcdx/dbfcdx1.c
     + added support for DBOI_NUMBER, for indexord() support
     + added support for DBOI_ORDERCOUNT, for ordlistadd() support, etc.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-10-22 16:50:15 +00:00
parent 4f52841632
commit b7eadec13e
2 changed files with 29 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -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.

24
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -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;
}