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

2002-04-24 00:42 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/workarea.c
     ! fixed bug with set relation to, found by Walter Negro.
This commit is contained in:
Horacio Dario Roldan Kasimatis
2002-04-24 03:54:11 +00:00
parent 37af635b6d
commit d00a2d5cdf
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/source/rdd/workarea.c
View File

@@ -609,7 +609,7 @@ ERRCODE hb_waEval( AREAP pArea, LPDBEVALINFO pEvalInfo )
return SUCCESS;
}
if( !pEvalInfo->dbsci.itmCobWhile &&
if( !pEvalInfo->dbsci.itmCobWhile &&
(!pEvalInfo->dbsci.fRest || !hb_itemGetL( pEvalInfo->dbsci.fRest ) ) &&
!pEvalInfo->dbsci.lNext )
SELF_GOTOP( pArea );
@@ -719,14 +719,19 @@ ERRCODE hb_waSyncChildren( AREAP pArea )
ERRCODE hb_waClearRel( AREAP pArea )
{
LPDBRELINFO lpdbRelation, lpdbRelPrev;
int iCurrArea;
HB_TRACE(HB_TR_DEBUG, ("hb_waClearRel(%p)", pArea ));
iCurrArea = hb_rddGetCurrentWorkAreaNumber();
/* Free all relations */
lpdbRelation = pArea->lpdbRelations;
while( lpdbRelation )
{
hb_rddSelectWorkAreaNumber( lpdbRelation->lpaChild->uiArea);
SELF_CHILDEND( lpdbRelation->lpaChild, lpdbRelation );
hb_rddSelectWorkAreaNumber( iCurrArea );
if( lpdbRelation->itmCobExpr )
{