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

cost basis bug fixes

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1585 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1999-01-08 07:57:36 +00:00
parent 2faa2d40b3
commit 2a9767e8fb
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/engine/Account.c
View File

@ -511,7 +511,7 @@ xaccAccountRecomputeCostBasis( Account * acc )
xaccQueuePushHead (q, split);
} else
if (0.0 > amt) {
xaccQueuePopTailShares (q, amt);
xaccQueuePopTailShares (q, -amt);
}
split->cost_basis = xaccQueueGetValue (q);

12
src/engine/Queue.c
View File

@ -356,7 +356,7 @@ double
xaccQueueGetShares (Queue *q)
{
Split **list;
int shrs = 0.0;
double shrs = 0.0;
int i, len, tail;
if (!q) return 0.0;
@ -376,20 +376,20 @@ double
xaccQueueGetValue (Queue *q)
{
Split **list;
int shrs = 0.0;
double val = 0.0;
int i, len, tail;
if (!q) return 0.0;
shrs += q->head_amount * q->head_price;
shrs += q->tail_amount * q->tail_price;
val += q->head_amount * q->head_price;
val += q->tail_amount * q->tail_price;
len = q->head_split - q->tail_split + 1;
list = q->split_list;
tail = q->tail_split;
for (i=0; i<len; i++) {
shrs += list[i]->damount * list[i]->share_price;
val += list[i]->damount * list[i]->share_price;
}
return shrs;
return val;
}
/* ================ END OF FILE ==================== */