TP->T64: gnucash/report/standard-reports/account-summary.scm

This commit is contained in:
Christopher Lam 2017-11-21 06:50:40 +08:00
parent 4dcf7a5351
commit bca83e8480

View File

@ -161,9 +161,11 @@
ACCT-TYPE-EQUITY ACCT-TYPE-INCOME ACCT-TYPE-EXPENSE) ACCT-TYPE-EQUITY ACCT-TYPE-INCOME ACCT-TYPE-EXPENSE)
(gnc-account-get-descendants-sorted (gnc-get-current-root-account)))) (gnc-account-get-descendants-sorted (gnc-get-current-root-account))))
#f #t)) #f #t))
(gnc:options-add-account-levels! (gnc:options-add-account-levels!
options gnc:pagename-accounts optname-depth-limit options gnc:pagename-accounts optname-depth-limit
"b" opthelp-depth-limit 3) "b" opthelp-depth-limit 3)
(add-option (add-option
(gnc:make-multichoice-option (gnc:make-multichoice-option
gnc:pagename-accounts optname-bottom-behavior gnc:pagename-accounts optname-bottom-behavior
@ -267,7 +269,7 @@
(let* ( (let* (
(report-title (get-option gnc:pagename-general optname-report-title)) (report-title (get-option gnc:pagename-general optname-report-title))
(company-name (get-option gnc:pagename-general optname-party-name)) (company-name (get-option gnc:pagename-general optname-party-name))
(date-tp (gnc:timepair-end-day-time (report-date (gnc:time64-end-day-time
(gnc:date-option-absolute-time (gnc:date-option-absolute-time
(get-option gnc:pagename-general (get-option gnc:pagename-general
optname-date)))) optname-date))))
@ -320,12 +322,12 @@
depth-limit)) depth-limit))
;; exchange rates calculation parameters ;; exchange rates calculation parameters
(exchange-fn (exchange-fn
(gnc:case-exchange-fn price-source report-commodity date-tp)) (gnc:case-exchange-fn price-source report-commodity report-date))
) )
(gnc:html-document-set-title! (gnc:html-document-set-title!
doc (string-append company-name " " report-title " " doc (string-append company-name " " report-title " "
(gnc-print-date date-tp)) (qof-print-date report-date))
) )
(if (null? accounts) (if (null? accounts)
@ -346,11 +348,11 @@
(get-total-balance-fn (get-total-balance-fn
(lambda (account) (lambda (account)
(gnc:account-get-comm-balance-at-date (gnc:account-get-comm-balance-at-date
account date-tp #f))) account report-date #f)))
(table-env ;; parameters for :make- (table-env ;; parameters for :make-
(list (list
(list 'start-date #f) (list 'start-date #f)
(list 'end-date date-tp) (list 'end-date report-date)
(list 'display-tree-depth tree-depth) (list 'display-tree-depth tree-depth)
(list 'depth-limit-behavior bottom-behavior) (list 'depth-limit-behavior bottom-behavior)
(list 'report-commodity report-commodity) (list 'report-commodity report-commodity)
@ -501,8 +503,7 @@
) )
(gnc:report-finished) (gnc:report-finished)
doc) doc))
)
(gnc:define-report (gnc:define-report
'version 1 'version 1