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

TP->T64: gnucash/report/standard-reports/budget-balance-sheet.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-15 19:22:24 +08:00
parent f2e1b9fb48
commit a7eb1bcc77
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -310,7 +310,7 @@
(company-name (get-option gnc:pagename-general optname-party-name))
(budget (get-option gnc:pagename-general optname-budget))
(budget-valid? (and budget (not (null? budget))))
(date-tp (if budget-valid? (gnc:budget-get-start-date budget) #f))
(date-t64 (if budget-valid? (gnc:budget-get-start-date budget) #f))
(report-form? (get-option gnc:pagename-general
optname-report-form))
(accounts (get-option gnc:pagename-accounts
@ -379,7 +379,7 @@
;; exchange rates calculation parameters
(exchange-fn
(gnc:case-exchange-fn price-source report-commodity date-tp))
(gnc:case-exchange-fn price-source report-commodity date-t64))
)
;; Wrapper to call gnc:html-table-add-labeled-amount-line!
@ -652,7 +652,7 @@
(
(get-total-value-fn
(lambda (account)
(gnc:account-get-comm-value-at-date account date-tp #f)))
(gnc:account-get-comm-value-at-date account date-t64 #f)))
(asset-basis
(gnc:accounts-get-comm-total-assets
asset-accounts get-total-value-fn))