[Gnucash-changes] r13425 - gnucash/trunk/src/register/ledger-core -
Make register use engine-provided
xaccTransGetAccountBalance() instead
Chris Shoemaker
chris at cvs.gnucash.org
Tue Feb 28 14:46:20 EST 2006
Author: chris
Date: 2006-02-28 14:46:19 -0500 (Tue, 28 Feb 2006)
New Revision: 13425
Trac: http://svn.gnucash.org/trac/changeset/13425
Modified:
gnucash/trunk/src/register/ledger-core/split-register-model.c
Log:
Make register use engine-provided xaccTransGetAccountBalance() instead
of writing its own.
Modified: gnucash/trunk/src/register/ledger-core/split-register-model.c
===================================================================
--- gnucash/trunk/src/register/ledger-core/split-register-model.c 2006-02-28 19:38:29 UTC (rev 13424)
+++ gnucash/trunk/src/register/ledger-core/split-register-model.c 2006-02-28 19:46:19 UTC (rev 13425)
@@ -341,48 +341,17 @@
return xaccTransGetAccountAmount(trans, account);
}
-static Split *
-get_trans_last_split (SplitRegister *reg, Transaction *trans)
+static gnc_numeric
+get_trans_total_balance (SplitRegister *reg, Transaction *trans)
{
- GList *node;
Account *account;
- Split *last_split = NULL;
account = gnc_split_register_get_default_account (reg);
+ if (!trans || !account) return gnc_numeric_zero();
- if (!account)
- return last_split;
-
- for (node = xaccTransGetSplitList (trans); node; node = node->next)
- {
- Split *split = node->data;
-
- if (xaccSplitGetAccount (split) != account)
- continue;
-
- if (!last_split)
- {
- last_split = split;
- continue;
- }
-
- if (xaccSplitDateOrder (last_split, split) < 0)
- last_split = split;
- }
-
- return last_split;
+ return xaccTransGetAccountBalance(trans, account);
}
-static gnc_numeric
-get_trans_total_balance (SplitRegister *reg, Transaction *trans)
-{
- Split *last_split;
-
- last_split = get_trans_last_split (reg, trans);
-
- return xaccSplitGetBalance (last_split);
-}
-
static guint32
gnc_split_register_get_shares_fg_color (VirtualLocation virt_loc,
gpointer user_data)
More information about the gnucash-changes
mailing list