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

[equity-statement] remove dead code

Browse Source 
* 'balance' in add-report-line was defined but never used
* capital/drawing accounts are not defined. remove.
This commit is contained in:
Christopher Lam 2019-09-30 15:21:50 +08:00
parent 99b5d79a44
commit c21d173c06
1 changed files with 9 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gnucash/report/standard-reports/equity-statement.scm
View File

@ -265,19 +265,12 @@
(equity-accounts
(assoc-ref split-up-accounts ACCT-TYPE-EQUITY))
;; N.B.: equity-accounts will also contain drawing accounts
;; these must still be split-out and itemized separately
(capital-accounts #f)
(drawing-accounts #f)
(closing-pattern
(list (list 'str closing-str)
(list 'cased closing-cased)
(list 'regexp closing-regexp)
(list 'positive #f)
(list 'closing #t)
)
)
(list 'closing #t)))
(doc (gnc:make-html-document))
;; exchange rates calculation parameters
@ -364,13 +357,6 @@
(gnc:accounts-get-comm-total-assets
equity-accounts get-end-balance-fn))
;; these variables wont be used until gnucash gets
;; conta account types
(start-capital-balance #f)
(end-capital-balance #f)
(start-drawing-balance #f)
(end-drawing-balance #f)
(start-book-balance
(gnc:collector+ start-asset-balance
neg-start-liability-balance
@ -440,31 +426,17 @@
(define (add-report-line
table pos-label neg-label amount col
exchange-fn rule? row-style)
(let* ((neg? (and amount
neg-label
(gnc-numeric-negative-p
(let* ((neg? (and amount neg-label
(negative?
(gnc:gnc-monetary-amount
(gnc:sum-collector-commodity
amount report-commodity exchange-fn)))))
(label (if neg? (or neg-label pos-label) pos-label))
(pos-bal (if neg?
(gnc:collector- amount)
amount))
(bal (gnc:sum-collector-commodity
pos-bal report-commodity exchange-fn))
(balance
(cond
((gnc:uniform-commodity? pos-bal report-commodity) bal)
(show-fcur? (gnc-commodity-table
pos-bal report-commodity exchange-fn))
(else bal)))
(column (or col 0)))
(pos-bal (if neg? (gnc:collector- amount) amount)))
(gnc:html-table-add-labeled-amount-line!
table 3 row-style rule?
label 0 1 "text-cell"
bal (+ col 1) 1 "number-cell")
)
)
table 3 row-style rule? label 0 1 "text-cell"
(gnc:sum-collector-commodity pos-bal report-commodity exchange-fn)
(1+ col) 1 "number-cell")))
(gnc:report-percent-done 30)