From eeb4b2fb292275cd83beb6b338d7826988a6976d Mon Sep 17 00:00:00 2001 From: Horacio Dario Roldan Kasimatis Date: Wed, 11 Oct 2000 16:39:40 +0000 Subject: [PATCH] fixed bug in ordercreate that corrupted the dbf --- harbour/source/rdd/dbfcdx/dbfcdx1.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/harbour/source/rdd/dbfcdx/dbfcdx1.c b/harbour/source/rdd/dbfcdx/dbfcdx1.c index c526875d84..4b142645c8 100644 --- a/harbour/source/rdd/dbfcdx/dbfcdx1.c +++ b/harbour/source/rdd/dbfcdx/dbfcdx1.c @@ -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 ) ); } }