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

2000-09-24 21:24 UTC+0800 Brian Hays <bhays@abacuslaw.com>

Browse Source
This commit is contained in:
Brian Hays
2000-09-25 04:27:19 +00:00
parent 807f1e918a
commit 921d276423
2 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-09-24 21:24 UTC+0800 Brian Hays <bhays@abacuslaw.com>
* contrib/rdd_ads/ads1.c
! Fixed retrieval of logical fields
NOTICE!! before, logical fields returned incorrect values!
2000-09-23 10:10 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.l
* Removed TODO 4 Char abbreviation (done few weeks back).

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

@@ -256,6 +256,7 @@ static ERRCODE adsGoTo( ADSAREAP pArea, ULONG ulRecNo )
pArea->fValidBuffer = FALSE;
AdsGotoRecord( pArea->hTable, ulRecNo );
hb_adsCheckBofEof( pArea );
HB_TRACE(HB_TR_ALWAYS, ("afterCheckBE: %lu %lu ", pArea->ulRecNo, ulRecNo ));
return SUCCESS;
}
@@ -513,10 +514,10 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
break;
case HB_IT_LOGICAL:
hb_itemPutL( pItem, pArea->pRecord[ pArea->pFieldOffset[ uiIndex ] ] == 'T' ||
pArea->pRecord[ pArea->pFieldOffset[ uiIndex ] ] == 't' ||
pArea->pRecord[ pArea->pFieldOffset[ uiIndex ] ] == 'Y' ||
pArea->pRecord[ pArea->pFieldOffset[ uiIndex ] ] == 'y' );
hb_itemPutL( pItem, pArea->pRecord[ pArea->pFieldOffset[ uiIndex - 1 ] ] == 'T' ||
pArea->pRecord[ pArea->pFieldOffset[ uiIndex - 1 ] ] == 't' ||
pArea->pRecord[ pArea->pFieldOffset[ uiIndex - 1 ] ] == 'Y' ||
pArea->pRecord[ pArea->pFieldOffset[ uiIndex - 1 ] ] == 'y' );
break;
case HB_IT_MEMO:
@@ -589,6 +590,7 @@ static ERRCODE adsPutValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
// AdsGetRecordNum( pArea->hTable, ADS_IGNOREFILTERS,
// (UNSIGNED32 *)&(pArea->ulRecNo) );
hb_adsCheckBofEof( pArea );
// xxx can't call this here-- it may skip!!!
}
if( uiIndex > pArea->uiFieldCount || pArea->fEof )
@@ -598,6 +600,7 @@ static ERRCODE adsPutValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
szText = pArea->pRecord + pArea->pFieldOffset[ uiIndex - 1 ];
bError = TRUE;
AdsGetFieldName( pArea->hTable, uiIndex, szName, &pusBufLen );
switch( pField->uiType )
{
case HB_IT_STRING:
@@ -1151,7 +1154,7 @@ static ERRCODE adsOrderCreate( ADSAREAP pArea, LPDBORDERCREATEINFO pOrderInfo )
}
ulRetVal = AdsCreateIndex( pArea->hTable, pOrderInfo->abBagName,
pOrderInfo->atomBagName, (UCHAR*)hb_itemGetCPtr( pItem ),
pOrderInfo->atomBagName, (UCHAR*)hb_itemGetCPtr( pItem ),
( pArea->lpdbOrdCondInfo && pArea->lpdbOrdCondInfo->abFor )? (UCHAR*)pArea->lpdbOrdCondInfo->abFor:(UCHAR*)"",
(UCHAR*)"", ulOptions, &phIndex);
if ( ulRetVal != AE_SUCCESS )