From 832b131083f203d1c539adee9c09dcfb0ef01e4f Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Tue, 9 Jul 2002 14:01:23 +0000 Subject: [PATCH] See changelog 2002-07-09 11:00 UTC-0300 --- harbour/contrib/rdd_ads/ads1.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 842fccb7a1..6083df1322 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -1033,6 +1033,7 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) UNSIGNED8 szName[ HARBOUR_MAX_RDD_FIELDNAME_LENGTH + 1 ]; UNSIGNED16 pusBufLen = HARBOUR_MAX_RDD_FIELDNAME_LENGTH; UNSIGNED32 pulLength; + DOUBLE dVal; HB_TRACE(HB_TR_DEBUG, ("adsGetValue(%p, %hu, %p)", pArea, uiIndex, pItem)); @@ -1063,12 +1064,13 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) memset( pBuffer, ' ', pField->uiLen ); pArea->fEof = TRUE; } + AdsGetDouble(pArea->hTable, szName,&dVal); if( pField->uiDec ) - hb_itemPutNDLen( pItem, atof( (char *) pBuffer ), + hb_itemPutNDLen( pItem, dVal, ( int ) pField->uiLen - ( ( int ) pField->uiDec + 1 ), ( int ) pField->uiDec ); else - hb_itemPutNDLen( pItem, atol( (char *) pBuffer ), ( int ) pField->uiLen ,0); + hb_itemPutNDLen( pItem, dVal, ( int ) pField->uiLen ,0); break; case HB_IT_DATE: