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

2009-04-28 21:43 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/rddads/ads1.c
    ! fixed two typos in last modification - thanks for the info to Mindaugas
      and Rossine.
This commit is contained in:
Przemyslaw Czerpak
2009-04-28 19:35:27 +00:00
parent e12013d2ff
commit 9a96ffb434
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-04-28 21:43 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/rddads/ads1.c
! fixed two typos in last modification - thanks for the info to Mindaugas
and Rossine.
2009-04-28 19:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/ChangeLog
* removed TOVERIFY note - Viktor checked it.

4
harbour/contrib/rddads/ads1.c
View File

@@ -1849,8 +1849,8 @@ static HB_ERRCODE adsFieldInfo( AREAP pArea, USHORT uiIndex, USHORT uiType, PHB_
#if ADS_LIB_VERSION >= 900
if( pField->uiTypeExtended == ADS_VARCHAR_FOX )
hb_itemPutC( pItem, "V" );
#endif
else
#endif
hb_itemPutC( pItem, "Q" );
break;
@@ -2024,7 +2024,7 @@ static HB_ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
#endif
{
#if ADS_LIB_VERSION >= 600
AdsGetFieldRaw( pArea->hTable, ADSFIELD( uiIndex ), pBuffer, &u32Length ) == AE_NO_CURRENT_RECORD )
if( AdsGetFieldRaw( pArea->hTable, ADSFIELD( uiIndex ), pBuffer, &u32Length ) == AE_NO_CURRENT_RECORD )
{
u32Length = pField->uiType == HB_FT_STRING ? pField->uiLen : 0;
memset( pBuffer, ' ', u32Length );