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/trial-balance.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-12-19 23:14:16 +08:00
parent ecdea5dd5e
commit b1a73291d4
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
gnucash/report/standard-reports/trial-balance.scm
View File

@ -302,9 +302,9 @@
(start-date-printable (gnc:date-option-absolute-time (start-date-printable (gnc:date-option-absolute-time
(get-option gnc:pagename-general (get-option gnc:pagename-general
optname-start-date))) optname-start-date)))
(start-date-tp (gnc:timepair-end-day-time (start-date (gnc:time64-end-day-time
(gnc:timepair-previous-day start-date-printable))) (gnc:time64-previous-day start-date-printable)))
(end-date-tp (gnc:timepair-end-day-time (end-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-end-date)))) optname-end-date))))
@ -384,13 +384,13 @@
(doc (gnc:make-html-document)) (doc (gnc:make-html-document))
;; exchange rates calculation parameters ;; exchange rates calculation parameters
(exchange-fn (exchange-fn
(gnc:case-exchange-fn price-source report-commodity end-date-tp)) (gnc:case-exchange-fn price-source report-commodity end-date))
(terse-period? #t) (terse-period? #t)
(period-for (if terse-period? (period-for (if terse-period?
(string-append " " (_ "for Period")) (string-append " " (_ "for Period"))
(sprintf #f (string-append ", " (_ "%s to %s")) (sprintf #f (string-append ", " (_ "%s to %s"))
(gnc-print-date start-date-printable) (qof-print-date start-date-printable)
(gnc-print-date end-date-tp)) (qof-print-date end-date))
)) ))
) )
@ -398,12 +398,12 @@
doc (if (equal? report-variant 'current) doc (if (equal? report-variant 'current)
(sprintf #f (string-append "%s %s %s") (sprintf #f (string-append "%s %s %s")
company-name report-title company-name report-title
(gnc-print-date end-date-tp)) (qof-print-date end-date))
(sprintf #f (string-append "%s %s " (sprintf #f (string-append "%s %s "
(_ "For Period Covering %s to %s")) (_ "For Period Covering %s to %s"))
company-name report-title company-name report-title
(gnc-print-date start-date-printable) (qof-print-date start-date-printable)
(gnc-print-date end-date-tp)) (qof-print-date end-date))
) )
) )
@ -523,7 +523,7 @@
(unrealized-gain-collector (gnc:make-commodity-collector)) (unrealized-gain-collector (gnc:make-commodity-collector))
(cost-fn (gnc:case-exchange-fn 'average-cost (cost-fn (gnc:case-exchange-fn 'average-cost
report-commodity report-commodity
end-date-tp)) end-date))
(value #f) (value #f)
(cost #f)) (cost #f))
@ -533,7 +533,7 @@
(lambda (acct) (lambda (acct)
(book-balance 'merge (book-balance 'merge
(gnc:account-get-comm-balance-at-date (gnc:account-get-comm-balance-at-date
acct end-date-tp #f) acct end-date #f)
#f)) #f))
all-accounts) all-accounts)
@ -573,7 +573,7 @@
(set! table-env (set! table-env
(list (list
(list 'start-date #f) (list 'start-date #f)
(list 'end-date end-date-tp) (list 'end-date end-date)
(list 'display-tree-depth (list 'display-tree-depth
(if (integer? depth-limit) depth-limit #f)) (if (integer? depth-limit) depth-limit #f))
(list 'depth-limit-behavior 'flatten) (list 'depth-limit-behavior 'flatten)
@ -710,7 +710,7 @@
(list 'regexp closing-regexp) (list 'regexp closing-regexp)
(list 'closing #t) (list 'closing #t)
) )
start-date-tp end-date-tp start-date end-date
)) ))
(adjusting (adjusting
(gnc:account-get-trans-type-balance-interval-with-closing (gnc:account-get-trans-type-balance-interval-with-closing
@ -719,7 +719,7 @@
(list 'cased adjusting-cased) (list 'cased adjusting-cased)
(list 'regexp adjusting-regexp) (list 'regexp adjusting-regexp)
) )
start-date-tp end-date-tp start-date end-date
)) ))
(is? (member acct all-is-accounts)) (is? (member acct all-is-accounts))
(ga-or-is? (or (member acct all-ga-accounts) is?)) (ga-or-is? (or (member acct all-ga-accounts) is?))
@ -733,7 +733,7 @@
(list 'regexp adjusting-regexp) (list 'regexp adjusting-regexp)
(list 'positive #t) (list 'positive #t)
) )
start-date-tp end-date-tp start-date end-date
) )
)) ))
(neg-adjusting (neg-adjusting
@ -1136,9 +1136,7 @@
(gnc:report-finished) (gnc:report-finished)
doc doc))
)
)
(gnc:define-report (gnc:define-report
'version 1 'version 1
@ -1153,4 +1151,3 @@
(trial-balance-renderer report-obj #f filename))) (trial-balance-renderer report-obj #f filename)))
;; END ;; END