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

2002-09-19 00:35 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
+ added support for DBI_FULLPATH and DBI_SHARED,
          sent by Gianluca Piemonte.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2002-09-19 03:47:21 +00:00
parent 73330fe5b0
commit b2812a466e
1 changed files with 19 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
harbour/source/rdd/dbf1.c
View File

@@ -1248,6 +1248,17 @@ ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
else
uiError = EDBF_DATATYPE;
}
// Must precede HB_IS_NUMERIC() because a DATE is also a NUMERIC. (xHarbour)
else if( HB_IS_DATE( pItem ) )
{
if( pField->uiType == HB_IT_DATE )
{
hb_itemGetDS( pItem, szBuffer );
memcpy( pArea->pRecord + pArea->pFieldOffset[ uiIndex ], szBuffer, 8 );
}
else
uiError = EDBF_DATATYPE;
}
else if( HB_IS_NUMERIC( pItem ) )
{
if( pField->uiType == HB_IT_LONG )
@@ -1297,16 +1308,6 @@ ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
else
uiError = EDBF_DATATYPE;
}
else if( HB_IS_DATE( pItem ) )
{
if( pField->uiType == HB_IT_DATE )
{
hb_itemGetDS( pItem, szBuffer );
memcpy( pArea->pRecord + pArea->pFieldOffset[ uiIndex ], szBuffer, 8 );
}
else
uiError = EDBF_DATATYPE;
}
else if( HB_IS_LOGICAL( pItem ) )
{
if( pField->uiType == HB_IT_LOGICAL )
@@ -1680,6 +1681,14 @@ ERRCODE hb_dbfInfo( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
case DBI_MEMOEXT:
hb_itemPutC( pItem, DBF_MEMOEXT );
break;
case DBI_FULLPATH:
hb_itemPutC( pItem, pArea->szDataFileName);
break;
case DBI_SHARED:
hb_itemPutL( pItem, pArea->fShared );
break;
}
return SUCCESS;