From 0dca189289de0984f3f4a9dc6a76c1cff44ce79d Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Mon, 8 Jul 2002 03:17:26 +0000 Subject: [PATCH] See changelog 2002-07-08 00:18 UTC-0300 --- harbour/contrib/rdd_ads/ads1.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c index 30d6ebf461..c1cc3b1ff1 100644 --- a/harbour/contrib/rdd_ads/ads1.c +++ b/harbour/contrib/rdd_ads/ads1.c @@ -1213,7 +1213,7 @@ static ERRCODE adsPutValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) if( pField->uiDec ) ulRetVal = AdsSetDouble( pArea->hTable, szName, hb_itemGetND( pItem ) ); else - ulRetVal = AdsSetLong( pArea->hTable, szName, hb_itemGetNL( pItem ) ); + ulRetVal = AdsSetDouble( pArea->hTable, szName, hb_itemGetND( pItem ) ); if( ulRetVal != AE_DATA_TOO_LONG ) bError = FALSE; }