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

remove some cruft from advanced portfolio

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16632 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Andrew Sackville-West 2007-12-10 19:01:53 +00:00
parent 099a5d7681
commit 5decaf456b
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,7 +41,6 @@
(define optname-price-source (N_ "Price Source")) (define optname-price-source (N_ "Price Source"))
(define optname-shares-digits (N_ "Share decimal places")) (define optname-shares-digits (N_ "Share decimal places"))
(define optname-zero-shares (N_ "Include accounts with no shares")) (define optname-zero-shares (N_ "Include accounts with no shares"))
;;(define optname-include-gains (N_ "Include gains and losses"))
(define optname-show-symbol (N_ "Show ticker symbols")) (define optname-show-symbol (N_ "Show ticker symbols"))
(define optname-show-listing (N_ "Show listings")) (define optname-show-listing (N_ "Show listings"))
(define optname-show-price (N_ "Show prices")) (define optname-show-price (N_ "Show prices"))
@ -102,15 +101,6 @@
(N_ "Prefer use of price editor pricing over transactions, where applicable.") (N_ "Prefer use of price editor pricing over transactions, where applicable.")
#t)) #t))
;; this option is currently unimplemented
;; (gnc:register-option
;; options
;; (gnc:make-simple-boolean-option
;; gnc:pagename-general optname-include-gains "g"
;; (N_ "Include splits with no shares for calculating money-in and money-out")
;; #f))
(gnc:register-option (gnc:register-option
options options
(gnc:make-simple-boolean-option (gnc:make-simple-boolean-option
@ -327,7 +317,6 @@
(let* ((row-style (if odd-row? "normal-row" "alternate-row")) (let* ((row-style (if odd-row? "normal-row" "alternate-row"))
(current (car accounts)) (current (car accounts))
(rest (cdr accounts)) (rest (cdr accounts))
(name (xaccAccountGetName current))
;; commodity is the actual stock/thing we are looking at ;; commodity is the actual stock/thing we are looking at
(commodity (xaccAccountGetCommodity current)) (commodity (xaccAccountGetCommodity current))
(ticker-symbol (gnc-commodity-get-mnemonic commodity)) (ticker-symbol (gnc-commodity-get-mnemonic commodity))
@ -335,8 +324,6 @@
(unit-collector (gnc:account-get-comm-balance-at-date (unit-collector (gnc:account-get-comm-balance-at-date
current to-date #f)) current to-date #f))
(units (cadr (unit-collector 'getpair commodity #f))) (units (cadr (unit-collector 'getpair commodity #f)))
;; (totalunits 0.0) ;; these two items do nothing, but are in a debug below,
;; (totalunityears 0.0);; so I'm leaving it. asw
;; Counter to keep track of stuff ;; Counter to keep track of stuff
(unitscoll (gnc:make-commodity-collector)) (unitscoll (gnc:make-commodity-collector))
@ -375,8 +362,6 @@
(seen_split '()) (seen_split '())
) )
;; (gnc:debug "---" name "---")
(for-each (for-each
;; we're looking at each split we find in the account. these splits ;; we're looking at each split we find in the account. these splits
;; could refer to the same transaction, so we have to examine each ;; could refer to the same transaction, so we have to examine each
@ -495,7 +480,6 @@
((equal? commod-currency (xaccAccountGetCommodity (xaccSplitGetAccount s))) ((equal? commod-currency (xaccAccountGetCommodity (xaccSplitGetAccount s)))
(begin (begin
(gnc:debug "adjsting the moneyin/out " split-value) (gnc:debug "adjsting the moneyin/out " split-value)
;;(unitscoll 'add commodity split-units)
(if (gnc-numeric-negative-p split-value) (if (gnc-numeric-negative-p split-value)
(moneyincoll 'add commod-currency (moneyincoll 'add commod-currency
(gnc-numeric-neg split-value)) (gnc-numeric-neg split-value))
@ -531,8 +515,6 @@
) )
(xaccAccountGetSplitList current) (xaccAccountGetSplitList current)
) )
;; (gnc:debug "totalunits" totalunits)
;; (gnc:debug "totalunityears" totalunityears)
;; now we determine which price data to use, the pricelist or the txn ;; now we determine which price data to use, the pricelist or the txn
;; and if we have a choice, use whichever is newest. ;; and if we have a choice, use whichever is newest.
@ -677,9 +659,6 @@
gnc:optname-reportname)) gnc:optname-reportname))
(include-empty (get-option gnc:pagename-accounts (include-empty (get-option gnc:pagename-accounts
optname-zero-shares)) optname-zero-shares))
;; unimplemented option
;; (include-gains (get-option gnc:pagename-general
;; optname-include-gains))
(show-symbol (get-option gnc:pagename-display (show-symbol (get-option gnc:pagename-display
optname-show-symbol)) optname-show-symbol))
(show-listing (get-option gnc:pagename-display (show-listing (get-option gnc:pagename-display