DBF File type change after append blank with memo filed.

Hi,

REQUEST DBFCDX
*------------------------------------------------------------------------------*
Function Main()
*------------------------------------------------------------------------------*
Local aStru:={{'FIELD1','C', 4, 0},;
{'FIELD2','M',10, 0}}

RDDSetDefault('DBFCDX')

dbCreate('test',aStru)

Use test NEW

//First byte of dbf header contain 0xF5 (FoxPro 2.x (or earlier) with memo)

Append Blank

//Now first byte of dbf header contain 0x30 (Visual FoxPro)

Close

Return NIL

Is this correct behavior?
In Harbour this behavior doesn't occur.

Regards
Grzegorz

Hi,

I found the cause of the problem in \source\rdd\dbf1.c

I change from:

5239 case 0xF5: /* FoxPro w. memo file */
5240 pArea->bTableType = DB_DBF_VFP;
5241 pArea->fHasMemo = TRUE;
5242 pArea->bMemoType = DB_MEMO_FPT;
5243 break;

To:

5239 case 0xF5: /* FoxPro w. memo file */
5240 //pArea->bTableType = DB_DBF_VFP;
5241 pArea->fHasMemo = TRUE;
5242 pArea->bMemoType = DB_MEMO_FPT;
5243 break;

Can anyone confirm this and fix this.

Regards
Grzegorz

Hi,

I found cause of problem in \source\rdd\dbf1.c

I change from:

5239 case 0xF5: /* FoxPro w. memo file */
5240 pArea->bTableType = DB_DBF_VFP;
5241 pArea->fHasMemo = TRUE;
5242 pArea->bMemoType = DB_MEMO_FPT;
5243 break;

to:

5239 case 0xF5: /* FoxPro w. memo file */
5240 //pArea->bTableType = DB_DBF_VFP;
5241 pArea->fHasMemo = TRUE;
5242 pArea->bMemoType = DB_MEMO_FPT;
5243 break;

and works fine.
Can anybody confirm this and fix this.

Regards
Grzegorz