add support for cost basis accounting

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1572 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1999-01-06 06:43:45 +00:00
parent 425ea64501
commit 3046bea8a1
4 changed files with 10 additions and 0 deletions

View File

@ -453,6 +453,7 @@ xaccAccountRecomputeBalance( Account * acc )
split -> cleared_balance = dcleared_balance;
split -> reconciled_balance = dreconciled_balance;
}
split -> cost_basis = dbalance;
last_split = split;
i++;

View File

@ -101,6 +101,7 @@ xaccInitSplit( Split * split )
split->share_balance = 0.0;
split->share_cleared_balance = 0.0;
split->share_reconciled_balance = 0.0;
split->cost_basis = 0.0;
split->tickee = 0;
}
@ -304,6 +305,12 @@ double xaccSplitGetShareBalance (Split *s)
return s->share_balance;
}
double xaccSplitGetCostBasis (Split *s)
{
if (!s) return 0.0;
return s->cost_basis;
}
/********************************************************************\
* xaccInitTransaction
* Initialize a transaction structure

View File

@ -356,6 +356,7 @@ double xaccSplitGetBalance (Split *);
double xaccSplitGetClearedBalance (Split *);
double xaccSplitGetReconciledBalance (Split *);
double xaccSplitGetShareBalance (Split *);
double xaccSplitGetCostBasis (Split *);
double xaccSplitGetBaseValue (Split *s, char *base_currency);

View File

@ -116,6 +116,7 @@ struct _split
double share_cleared_balance;
double share_reconciled_balance;
double cost_basis;
/* no tickee no washee */
int tickee;
};