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

Handle stocks that become worthless in the Advanced Portfolio report

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@23762 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Mike Alexander 2014-01-25 03:42:12 +00:00
parent 66cc55cf42
commit 7a576912cb
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/report/standard-reports/advanced-portfolio.scm
View File

@ -317,7 +317,10 @@
(let* ((current-units (units-basis b-list)) (let* ((current-units (units-basis b-list))
(units-ratio (gnc-numeric-div (gnc-numeric-add b-units current-units GNC-DENOM-AUTO GNC-RND-ROUND) (units-ratio (gnc-numeric-div (gnc-numeric-add b-units current-units GNC-DENOM-AUTO GNC-RND-ROUND)
current-units GNC-DENOM-AUTO GNC-RND-ROUND)) current-units GNC-DENOM-AUTO GNC-RND-ROUND))
(value-ratio (gnc-numeric-div (gnc:make-gnc-numeric 1 1) units-ratio GNC-DENOM-AUTO GNC-RND-ROUND))) ;; If the units ratio is zero the stock is worthless and the value should be zero too
(value-ratio (if (gnc-numeric-zero-p units-ratio)
(gnc-numeric-zero)
(gnc-numeric-div (gnc:make-gnc-numeric 1 1) units-ratio GNC-DENOM-AUTO GNC-RND-ROUND))))
(gnc:debug "blist is " b-list " current units is " (gnc:debug "blist is " b-list " current units is "
(gnc-numeric-to-string current-units) (gnc-numeric-to-string current-units)
@ -667,20 +670,24 @@
(not (gnc-numeric-zero-p (xaccSplitGetAmount (xaccSplitGetOtherSplit s))))) (not (gnc-numeric-zero-p (xaccSplitGetAmount (xaccSplitGetOtherSplit s)))))
(begin (gnc:debug "Money in 2 " (gnc-numeric-to-string split-value)) (begin (gnc:debug "Money in 2 " (gnc-numeric-to-string split-value))
(moneyincoll 'add commod-currency split-value))) (moneyincoll 'add commod-currency split-value)))
(if (gnc-numeric-negative-p split-value) ;; Split value is zero or negative. If it's zero it's either a stock split/merge
;; Split value is negative, money is going out of stock account ;; or the stock has become worthless (which looks like a merge where the number
(let* ((new-basis (sum-basis basis-list currency-frac)) ;; of shares goes to zero). If the value is negative then it's a disposal of some sort.
;; Capital gain is money out minus change in basis (let ((new-basis (sum-basis basis-list currency-frac)))
(gain (gnc-numeric-sub (gnc-numeric-abs split-value-currency) (if (or (gnc-numeric-zero-p new-basis)
(gnc-numeric-sub orig-basis new-basis (gnc-numeric-negative-p split-value))
currency-frac GNC-RND-ROUND) ;; Split value is negative or new basis is zero (stock is worthless),
currency-frac GNC-RND-ROUND))) ;; Capital gain is money out minus change in basis
(gnc:debug "Old basis=" (gnc-numeric-to-string orig-basis) (let ((gain (gnc-numeric-sub (gnc-numeric-abs split-value-currency)
" New basis=" (gnc-numeric-to-string new-basis) (gnc-numeric-sub orig-basis new-basis
" Gain=" (gnc-numeric-to-string gain)) currency-frac GNC-RND-ROUND)
(gaincoll 'add currency gain) currency-frac GNC-RND-ROUND)))
(gnc:debug "Money out 2 " (gnc-numeric-to-string (gnc-numeric-neg split-value))) (gnc:debug "Old basis=" (gnc-numeric-to-string orig-basis)
(moneyoutcoll 'add commod-currency (gnc-numeric-neg split-value))))) " New basis=" (gnc-numeric-to-string new-basis)
" Gain=" (gnc-numeric-to-string gain))
(gaincoll 'add currency gain)
(gnc:debug "Money out 2 " (gnc-numeric-to-string (gnc-numeric-neg split-value)))
(moneyoutcoll 'add commod-currency (gnc-numeric-neg split-value))))))
) )
) )
) )