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

2011-10-08 00:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/rddbm/bmdbfx.c
    % simplified function used for resetting logical index position.
This commit is contained in:
Przemyslaw Czerpak
2011-10-07 22:31:07 +00:00
parent 3b8290ece9
commit 9d33b0d60a
2 changed files with 9 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-10-08 00:30 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/rddbm/bmdbfx.c
% simplified function used for resetting logical index position.
2011-10-06 08:02 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/xhb/xhb.hbx
* harbour/contrib/xhb/xhbinkey.prg

25
harbour/contrib/rddbm/bmdbfx.c
View File

@@ -238,27 +238,12 @@ static const RDDFUNCS * hb_bmGetRdd( HB_USHORT uiRddId )
static void hb_bmResetFilterOpt( AREAP pArea )
{
PHB_ITEM itmCobExpr, abFilterText;
HB_BOOL fOptimized, fFilter;
void * lpvCargo;
DBORDERINFO OrderInfo;
itmCobExpr = pArea->dbfi.itmCobExpr;
abFilterText = pArea->dbfi.abFilterText;
fOptimized = pArea->dbfi.fOptimized;
fFilter = pArea->dbfi.fFilter;
lpvCargo = pArea->dbfi.lpvCargo;
pArea->dbfi.itmCobExpr = NULL;
pArea->dbfi.abFilterText = NULL;
pArea->dbfi.lpvCargo = NULL;
SELF_CLEARFILTER( pArea );
pArea->dbfi.itmCobExpr = itmCobExpr;
pArea->dbfi.abFilterText = abFilterText;
pArea->dbfi.fOptimized = fOptimized;
pArea->dbfi.fFilter = fFilter;
pArea->dbfi.lpvCargo = lpvCargo;
memset( &OrderInfo, 0, sizeof( OrderInfo ) );
SELF_ORDINFO( pArea, DBOI_RESETPOS, &OrderInfo );
if( OrderInfo.itmResult )
hb_itemRelease( OrderInfo.itmResult );
}
static HB_BOOL hb_bmCheckRecordFilter( AREAP pArea, HB_ULONG ulRecNo )