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

some beuty touches tock prices

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1027 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1998-08-23 01:09:09 +00:00
parent d047edca35
commit 6edef836fa
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/SplitLedger.c
View File

@ -463,7 +463,7 @@ xaccSRLoadRegister (SplitRegister *reg, Split **slist,
Account *default_source_acc)
{
int i;
Split *split;
Split *split=NULL, *last_split=NULL;
Table *table;
int save_cursor_phys_row;
int num_phys_rows;
@ -630,6 +630,7 @@ printf ("load split %d at phys row %d \n", j, phys_row);
}
}
last_split = split;
i++;
split = slist[i];
}
@ -641,6 +642,8 @@ printf ("load split %d at phys row %d \n", j, phys_row);
split = (Split *) reg->user_hook;
} else {
Transaction *trans;
double last_price = 0.0;
trans = xaccMallocTransaction ();
xaccTransBeginEdit (trans);
xaccTransSetDateToday (trans);
@ -649,6 +652,13 @@ printf ("load split %d at phys row %d \n", j, phys_row);
xaccAccountInsertSplit (default_source_acc, split);
reg->user_hook = (void *) split;
reg->destroy = LedgerDestroy;
/* kind of a cheesy hack to get the price on the last split right
* when doing stock accounts. This will guess incorrectly for a
* ledger showing multiple stocks, but seems cool for a single stock.
*/
last_price = xaccSplitGetSharePrice (last_split);
xaccSplitSetSharePrice (split, last_price);
}
/* do the transaction row of the blank split */