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

See changelog 2002-07-08 00:18 UTC-0300

Browse Source
This commit is contained in:
Luiz Rafael Culik
2002-07-08 03:17:26 +00:00
parent 05cc84872f
commit 0dca189289
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/contrib/rdd_ads/ads1.c
View File

@@ -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;
}