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

[balance-sheet] remove dead code

Browse Source
This commit is contained in:
Christopher Lam 2019-09-30 15:19:30 +08:00
parent c21d173c06
commit e579f6af56
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gnucash/report/standard-reports/balance-sheet.scm
View File

@ -356,9 +356,7 @@
(gnc:sum-collector-commodity (gnc:sum-collector-commodity
signed-balance report-commodity exchange-fn))))) signed-balance report-commodity exchange-fn)))))
(label (if neg? (or neg-label pos-label) pos-label)) (label (if neg? (or neg-label pos-label) pos-label))
(balance (if neg? (balance (if neg? (gnc:collector- signed-balance) signed-balance)))
(gnc:collector- signed-balance)
signed-balance)))
(gnc:html-table-add-labeled-amount-line! (gnc:html-table-add-labeled-amount-line!
table (* tree-depth 2) "primary-subheading" #f label 0 1 "total-label-cell" table (* tree-depth 2) "primary-subheading" #f label 0 1 "total-label-cell"
(gnc:sum-collector-commodity balance report-commodity exchange-fn) (gnc:sum-collector-commodity balance report-commodity exchange-fn)
@ -475,9 +473,6 @@
(equity-table (equity-table
(gnc:make-html-acct-table/env/accts table-env equity-accounts))) (gnc:make-html-acct-table/env/accts table-env equity-accounts)))
(define (get-total-balance-fn account)
(gnc:account-get-comm-balance-at-date account reportdate #f))
(let ((wide (gnc:make-html-table-cell/markup "text-cell" #f))) (let ((wide (gnc:make-html-table-cell/markup "text-cell" #f)))
(gnc:html-table-cell-set-style! (gnc:html-table-cell-set-style!
wide "text-cell" 'attribute '("style" "min-width:60px")) wide "text-cell" 'attribute '("style" "min-width:60px"))