mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
TP->T64: gnucash/report/standard-reports/account-summary.scm
This commit is contained in:
parent
4dcf7a5351
commit
bca83e8480
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user