IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

more new code

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8139 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2003-03-31 04:19:18 +00:00
parent a115451c52
commit 1808028f83
1 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
src/engine/Scrub2.c
View File

@ -245,33 +245,46 @@ xaccAccountScrubDoubleBalance (Account *acc)
if (!acc) return; if (!acc) return;
for (node = acc->lots; node; node=node->next) for (node = acc->lots; node; node=node->next)
{ {
gnc_commodity *currency = NULL; gnc_commodity *currency = NULL;
SplitList *snode; SplitList *snode;
GNCLot *lot = node->data; gnc_numeric zero = gnc_numeric_zero();
gnc_numeric value = zero;
GNCLot *lot = node->data;
/* We examine only closed lots */ /* We examine only closed lots */
if (FALSE == gnc_lot_is_closed (lot)) continue; if (FALSE == gnc_lot_is_closed (lot)) continue;
/* Check to make sure all splits in the lot have a common currency */
for (snode = lot->splits; snode; snode=snode->next) for (snode = lot->splits; snode; snode=snode->next)
{ {
Split *s = snode->data; Split *s = snode->data;
Transaction *trans = s->parent; Transaction *trans = s->parent;
if (NULL == currency)
{ /* Check to make sure all splits in the lot have a common currency */
currency = trans->common_currency; if (NULL == currency)
} {
if (FALSE == gnc_commodity_equiv (currency, trans->common_currency)) currency = trans->common_currency;
{ }
if (FALSE == gnc_commodity_equiv (currency, trans->common_currency))
{
/* Unhandled error condition. We should do something /* Unhandled error condition. We should do something
* graceful here. Don't know what. FIXME XXX */ * graceful here. Don't know what. FIXME XXX */
PERR ("currencies in lot are not equivalent"); PERR ("currencies in lot are not equivalent\n"
} "\ttrans=%s curr=%s\n", xaccTransGetDescription(trans),
} gnc_commodity_get_fullname(trans->common_currency));
}
/* Now, total up the values */ /* Now, total up the values */
} value = gnc_numeric_add (value, xaccSplitGetValue (s),
GNC_DENOM_AUTO, 0);
}
/* Is the value of the lot zero? If not, add a balancing split */
if (FALSE == gnc_numeric_equal (value, zero))
{
}
}
} }
/* =========================== END OF FILE ======================= */ /* =========================== END OF FILE ======================= */