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

See ChangeLog entry 2000-09-11 13:45 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-09-11 17:49:08 +00:00
parent 2b4b9484ef
commit a4a8f47f11
2 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
2000-09-11 13:45 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rdd/dbf1.c
! Modified hb_dbfGetValue() and hb_dbfPutValue() to use double
conversions instead of long conversions when the length of a
numeric database field without any decimal places exceeds 9.
2000-09-08 03:50 UTC+0800 Ron Pinkas <ron@profit-master.com>
* config/dos/djgpp.cf
+ Added support for $(C_USER) and $(L_USER) /* Could someone please verify, that this is the correct way. */

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

@@ -1010,7 +1010,11 @@ ERRCODE hb_dbfGetValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
( int ) pField->uiLen - ( ( int ) pField->uiDec + 1 ),
( int ) pField->uiDec );
else
hb_itemPutNLLen( pItem, atol( szBuffer ), ( int ) pField->uiLen );
if( pField->uiLen > 9 )
hb_itemPutNDLen( pItem, atof( szBuffer ),
( int ) pField->uiLen, ( int ) pField->uiDec );
else
hb_itemPutNLLen( pItem, atol( szBuffer ), ( int ) pField->uiLen );
}
break;
@@ -1194,8 +1198,14 @@ ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
if( HB_IS_DOUBLE( pItem ) )
{
if( pField->uiDec == 0 )
uiSize = sprintf( szBuffer, "%*li", pField->uiLen,
{
if( pField->uiLen > 9 )
uiSize = sprintf( szBuffer, "%*.0f", pField->uiLen,
hb_numRound( hb_itemGetND( pItem ), 0 ) );
else
uiSize = sprintf( szBuffer, "%*li", pField->uiLen,
( LONG ) hb_numRound( hb_itemGetND( pItem ), 0 ) );
}
else
uiSize = sprintf( szBuffer, "%*.*f", pField->uiLen - pField->uiDec - 1,
pField->uiDec, hb_numRound( hb_itemGetND( pItem ),
@@ -1204,7 +1214,9 @@ ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
else
{
if( pField->uiDec == 0 )
{
uiSize = sprintf( szBuffer, "%*li", pField->uiLen, hb_itemGetNL( pItem ) );
}
else
uiSize = sprintf( szBuffer, "%*.*f", pField->uiLen,
pField->uiDec, hb_itemGetND( pItem ) );