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

fixed bug in ordercreate that corrupted the dbf

Browse Source
This commit is contained in:
Horacio Dario Roldan Kasimatis
2000-10-11 16:39:40 +00:00
parent 3ab2725de0
commit eeb4b2fb29
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -3746,10 +3746,12 @@ static ERRCODE hb_cdxOrderCreate( CDXAREAP pAreaCdx, LPDBORDERCREATEINFO pOrderI
pFileName = hb_fsFNameSplit( pAreaCdx->szDataFileName );
hb_strncpyUpper( szFileName, pFileName->szName, CDX_MAXTAGNAMELEN );
hb_xfree( pFileName );
hb_fsSeek( pAreaCdx->hDataFile, 0, FS_SET );
if( strcmp( szFileName, szTagName ) == 0 && hb_fsRead( pAreaCdx->hDataFile,
( BYTE * ) &pHeader, sizeof( DBFHEADER ) ) == sizeof( DBFHEADER ) )
{
pHeader.bHasTags = 1;
hb_fsSeek( pAreaCdx->hDataFile, 0, FS_SET );
hb_fsWrite( pAreaCdx->hDataFile, ( BYTE * ) &pHeader, sizeof( DBFHEADER ) );
}
}