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

See changelog 2002-07-09 11:00 UTC-0300

Browse Source
This commit is contained in:
Luiz Rafael Culik
2002-07-09 14:01:23 +00:00
parent b2f3ec5a90
commit 832b131083
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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: