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

2006-04-10 00:50 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rdd/dbfntx/dbfntx1.c
    ! fixed skip back after updating last record
This commit is contained in:
Przemyslaw Czerpak
2006-04-09 22:51:25 +00:00
parent 6b48bcaafc
commit ba694969f5
2 changed files with 8 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 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* do not report error when empty structure table is passed to DBCREATE()
CL5.3 allow to create even DBF files without any fields and because
I can imagine some valid code which use it as a feature then I also
allow it in DBF RDD.
Authors of RDDs which do not allow to create tables without fields
should add to their low level RDD code necessary RT error.

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

@@ -2877,7 +2877,6 @@ static BOOL hb_ntxTagKeyAdd( LPTAGINFO pTag, LPKEYINFO pKey )
return FALSE;
}
}
pTag->CurKeyInfo = hb_ntxKeyCopy( pTag->CurKeyInfo, pKey, pTag->KeyLength );
iLevel = pTag->stackLevel - 1;
if( fBottom )
@@ -2898,6 +2897,8 @@ static BOOL hb_ntxTagKeyAdd( LPTAGINFO pTag, LPKEYINFO pKey )
}
}
pTag->CurKeyInfo = hb_ntxKeyCopy( pTag->CurKeyInfo, pKey, pTag->KeyLength );
while( iLevel >= 0 && pKey )
{
if( pPage )
@@ -3159,7 +3160,7 @@ static BOOL hb_ntxCurKeyRefresh( LPTAGINFO pTag )
if( !pArea->fPositioned )
{
pTag->stackLevel = 0;
pTag->TagEOF = TRUE;
pTag->TagBOF = pTag->TagEOF = TRUE;
pTag->CurKeyInfo->Xtra = 0;
return FALSE;
}
@@ -3199,6 +3200,7 @@ static BOOL hb_ntxCurKeyRefresh( LPTAGINFO pTag )
hb_ntxKeyFree( pKey );
return( pTag->CurKeyInfo->Xtra != 0 && pTag->CurKeyInfo->Xtra == pArea->ulRecNo );
}
pTag->TagBOF = pTag->TagEOF = FALSE;
return TRUE;
}