From cb49f1cab6fdca9422992e4d220ed4a13525bcb3 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Tue, 18 Feb 2003 20:03:56 +0000 Subject: [PATCH] 2003-02-18 23:05 UTC+0300 Alexander Kresin --- harbour/ChangeLog | 4 ++++ harbour/source/rdd/dbfntx/dbfntx1.c | 2 ++ 2 files changed, 6 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a660ad7928..c6aabbc807 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-02-18 23:05 UTC+0300 Alexander Kresin + * source/rdd/dbfntx/dbfntx1.c + ! Stupid bug is fixed, which was introduced recently + 2003-02-18 09:15 UTC+0300 Alexander Kresin * contrib/rdd_ads/adsfunc.c * Few type casts for MSVC diff --git a/harbour/source/rdd/dbfntx/dbfntx1.c b/harbour/source/rdd/dbfntx/dbfntx1.c index 6a66a7e2d6..12aeb7fa61 100644 --- a/harbour/source/rdd/dbfntx/dbfntx1.c +++ b/harbour/source/rdd/dbfntx/dbfntx1.c @@ -2986,12 +2986,14 @@ static ERRCODE ntxGoTop( NTXAREAP pArea ) LPTAGINFO pTag = pArea->lpCurTag; if( pTag->topScope ) + { ntxSeek( pArea, 1, pTag->topScope, 0 ); if( pTag->TagEOF ) { hb_ntxGoEof( pArea ); return SUCCESS; } + } else hb_ntxTagKeyGoTo( pTag, TOP_RECORD, NULL ); SELF_GOTO( ( AREAP ) pArea, pTag->CurKeyInfo->Xtra );