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

2009-12-04 03:41 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/rddads/ads1.c
    ! fixed ordSkipUnique() to properly update BOF/EOF flags, skip over
      ADS BOF phantom record and respect not optimized local filters
This commit is contained in:
Przemyslaw Czerpak
2009-12-04 02:41:49 +00:00
parent d5324d0861
commit ea5521b0ee
2 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-12-04 03:41 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/rddads/ads1.c
! fixed ordSkipUnique() to properly update BOF/EOF flags, skip over
ADS BOF phantom record and respect not optimized local filters
2009-12-03 18:03 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/hbide.ch
* contrib/hbide/hbide.prg

7
harbour/contrib/rddads/ads1.c
View File

@@ -4470,8 +4470,15 @@ static HB_ERRCODE adsOrderInfo( ADSAREAP pArea, USHORT uiIndex, LPDBORDERINFO pO
LONG lToSkip = pOrderInfo->itmNewVal && HB_IS_NUMERIC( pOrderInfo->itmNewVal ) ?
hb_itemGetNL( pOrderInfo->itmNewVal ) : 1;
if( hIndex )
{
hb_itemPutL( pOrderInfo->itmResult,
AdsSkipUnique( hIndex, lToSkip >= 0 ? 1 : -1 ) == AE_SUCCESS );
hb_adsUpdateAreaFlags( pArea );
/* Force relational movement in child WorkAreas */
if( pArea->area.lpdbRelations )
SELF_SYNCCHILDREN( ( AREAP ) pArea );
SELF_SKIPFILTER( ( AREAP ) pArea, lToSkip );
}
else
hb_itemPutL( pOrderInfo->itmResult,
SELF_SKIP( ( AREAP ) pArea, lToSkip ) == HB_SUCCESS );