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

2003-07-03 11:46 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-07-03 07:47:35 +00:00
parent 95127f2e6a
commit f18878f9b5
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-07-03 11:46 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
! Bug fixed, which appeared after switching between orders and following skipping.
2003-07-03 10:54 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+ source/codepage/cdpsl437.c
+ source/lang/msgsl437.c

4
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -841,7 +841,7 @@ static BOOL hb_ntxTagGoToNextKey( LPTAGINFO pTag, BOOL lContinue )
LPNTXITEM p;
// pTag->blockNext = 0; pTag->keyNext = 0;
if( pTag->CurKeyInfo->Tag )
if( pTag->CurKeyInfo->Tag && ((ULONG)pTag->CurKeyInfo->Xtra) == pTag->Owner->Owner->ulRecNo )
{
pPage = hb_ntxPageLoad( pTag,pTag->CurKeyInfo->Tag );
pPage->CurKey = hb_ntxPageFindCurrentKey( pPage,pTag->CurKeyInfo->Xtra );
@@ -941,7 +941,7 @@ static BOOL hb_ntxTagGoToPrevKey( LPTAGINFO pTag, BOOL lContinue )
LPPAGEINFO pPage, pChildPage;
// pTag->blockPrev = 0; pTag->keyPrev = 0;
if( pTag->CurKeyInfo->Tag )
if( pTag->CurKeyInfo->Tag && ((ULONG)pTag->CurKeyInfo->Xtra) == pTag->Owner->Owner->ulRecNo )
{
pPage = hb_ntxPageLoad( pTag,pTag->CurKeyInfo->Tag );
pPage->CurKey = hb_ntxPageFindCurrentKey( pPage,pTag->CurKeyInfo->Xtra );