From c7d2e8a0f48baf28682345b67e4df164c9fb7525 Mon Sep 17 00:00:00 2001
From: Mindaugas Kavaliauskas <dbtopas@dbtopas.lt>
Date: Fri, 4 Dec 2009 13:57:10 +0000
Subject: [PATCH] 2009-12-04 15:55 UTC+0200 Mindaugas Kavaliauskas
 (dbtopas/at/dbtopas.lt)   * harbour/src/rdd/dbf1.c     ! fixed variable
 length field setting after DBCREATE()

---
 harbour/ChangeLog      | 4 ++++
 harbour/src/rdd/dbf1.c | 1 +
 2 files changed, 5 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d52fce3ea7..72688d3ef4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-12-04 15:55 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
+  * harbour/src/rdd/dbf1.c
+    ! fixed variable length field setting after DBCREATE()
+
 2009-12-04 10:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbwin/tests/testprn.prg
     ! Fixed to fit all examples on the page.
diff --git a/harbour/src/rdd/dbf1.c b/harbour/src/rdd/dbf1.c
index aa049dccfb..bfd3a815d2 100644
--- a/harbour/src/rdd/dbf1.c
+++ b/harbour/src/rdd/dbf1.c
@@ -3113,6 +3113,7 @@ static HB_ERRCODE hb_dbfCreate( DBFAREAP pArea, LPDBOPENINFO pCreateInfo )
       uiCount = ( pArea->uiNullCount + 7 ) >> 3;
       pThisField->bLen = ( BYTE ) uiCount;
       pThisField->bDec = ( BYTE ) ( uiCount >> 8 );
+      pArea->uiNullOffset = pArea->uiRecordLen;
       pArea->uiRecordLen += uiCount;
       ulSize += sizeof( DBFFIELD );
    }