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

* Nathan Neulinger's patch to gnc-split-reg.[ch] to implement

Browse Source 
a summary-bar "Projected minimum balance".  Somewhat fixes #102440.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7896 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2003-01-30 17:42:55 +00:00
parent c037893ce7
commit eb62e27fd5
3 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -2,6 +2,9 @@
* po/np.po -- add the proper "Plural" header so it builds again.
* Nathan Neulinger's patch to gnc-split-reg.[ch] to implement
a summary-bar "Projected minimum balance". Somewhat fixes #102440.
2003-01-29 Matthew Vanecek <mevanecek@yahoo.com>
* src/backend/postgres/Makefile.am: Changed the .sql.c target to

54
src/gnome/gnc-split-reg.c
View File

@ -94,6 +94,7 @@ static void gnc_split_reg_change_style (GNCSplitReg *gsr, SplitRegisterStyle sty
static GNCPlaceholderType gnc_split_reg_get_placeholder( GNCSplitReg *gsr );
static gnc_numeric gsr_account_present_balance( Account *account );
static gnc_numeric gsr_account_projectedminimum_balance( Account *account );
static gncUIWidget gnc_split_reg_get_parent( GNCLedgerDisplay *ledger );
static void gsr_create_menus( GNCSplitReg *gsr );
@ -690,6 +691,9 @@ gsr_redraw_all_cb (GnucashRegister *g_reg, gpointer data)
gsr_update_summary_label( gsr->future_label,
(AmountGetterFn)xaccAccountGetBalance,
leader, print_info, commodity, reverse, euro );
gsr_update_summary_label( gsr->projectedminimum_label,
(AmountGetterFn)gsr_account_projectedminimum_balance,
leader, print_info, commodity, reverse, euro );
if (gsr->shares_label != NULL)
{
@ -1756,6 +1760,7 @@ gsr_create_summary_bar( GNCSplitReg *gsr )
gsr->balance_label = NULL;
gsr->reconciled_label = NULL;
gsr->future_label = NULL;
gsr->projectedminimum_label = NULL;
gsr->shares_label = NULL;
gsr->value_label = NULL;
@ -1792,6 +1797,7 @@ gsr_create_summary_bar( GNCSplitReg *gsr )
gsr->future_label = add_summary_label (summarybar, _("Future:"));
gsr->cleared_label = add_summary_label (summarybar, _("Cleared:"));
gsr->reconciled_label = add_summary_label (summarybar, _("Reconciled:"));
gsr->projectedminimum_label = add_summary_label (summarybar, _("Projected Minimum:"));
}
else
{
@ -2095,6 +2101,54 @@ gsr_account_present_balance (Account *account)
return gnc_numeric_zero ();
}
/**
* A utility function which retreives the present balance from an Account.
* This should move somewhere more general?
**/
static
gnc_numeric
gsr_account_projectedminimum_balance (Account *account)
{
GList *list;
GList *node;
time_t today;
struct tm *tm;
gnc_numeric lowest = gnc_numeric_zero ();
int seen_a_transaction = 0;
if (!account)
return gnc_numeric_zero ();
today = time (NULL);
tm = localtime (&today);
tm->tm_hour = 23;
tm->tm_min = 59;
tm->tm_sec = 59;
tm->tm_isdst = -1;
today = mktime (tm);
list = xaccAccountGetSplitList (account);
for (node = g_list_last (list); node; node = node->prev)
{
Split *split = node->data;
if (!seen_a_transaction)
{
lowest = xaccSplitGetBalance (split);
seen_a_transaction = 1;
}
if ( gnc_numeric_compare(xaccSplitGetBalance (split), lowest) < 0 )
lowest = xaccSplitGetBalance (split);
if (xaccTransGetDate (xaccSplitGetParent (split)) <= today)
return lowest;
}
return lowest;
}
static
gncUIWidget
gnc_split_reg_get_parent( GNCLedgerDisplay *ledger )

1
src/gnome/gnc-split-reg.h
View File

@ -112,6 +112,7 @@ struct _GNCSplitReg {
GtkWidget *cleared_label;
GtkWidget *reconciled_label;
GtkWidget *future_label;
GtkWidget *projectedminimum_label;
GtkWidget *shares_label;
GtkWidget *value_label;