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

Bug 157247 - Asset account's "total" value should use most recent transaction prices

Browse Source 
Add price database entry for accounts (e.g., stock accounts) which don't have a price cell
in their register tables.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23583 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
John Ralls 2013-12-20 00:44:35 +00:00
parent 28c2f62034
commit f694000ba5
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/register/ledger-core/split-register.c
View File

@ -2042,6 +2042,37 @@ recalculate_value (Split *split, SplitRegister *reg,
}
}
static void
record_price (SplitRegister *reg, Account *account, gnc_numeric value)
{
Transaction *trans = gnc_split_register_get_current_trans (reg);
QofBook *book = qof_instance_get_book (QOF_INSTANCE (account));
GNCPriceDB *pricedb = gnc_pricedb_get_db (book);
gnc_commodity *comm = xaccAccountGetCommodity (account);
gnc_commodity *curr = xaccTransGetCurrency (trans);
GNCPrice *price;
Timespec ts;
BasicCell *cell;
/* Only record the price for account types that don't have a
* "rate" cell. They'll get handled later by
* gnc_split_register_handle_exchange.
*/
if (gnc_split_reg_has_rate_cell (reg->type))
return;
cell = gnc_table_layout_get_cell (reg->table->layout, DATE_CELL);
gnc_date_cell_get_date ((DateCell*)cell, &ts);
price = gnc_price_create (book);
gnc_price_begin_edit (price);
gnc_price_set_commodity (price, comm);
gnc_price_set_currency (price, curr);
gnc_price_set_time (price, ts);
gnc_price_set_source (price, "user:split-register");
gnc_price_set_value (price, value);
gnc_pricedb_add_price (pricedb, price);
gnc_price_commit_edit (price);
}
static gboolean
gnc_split_register_auto_calc (SplitRegister *reg, Split *split)
{
@ -2211,6 +2242,8 @@ gnc_split_register_auto_calc (SplitRegister *reg, Split *split)
if (recalc_value)
recalculate_value (split, reg, price, amount, shares_changed);
if (price_changed)
record_price (reg, account, price);
return TRUE;
}