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/sx-summary.scm

Browse Source
This commit is contained in:
Christopher Lam 2017-11-22 21:18:46 +08:00
parent b2eb687c37
commit 78ea4545f3
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnucash/report/standard-reports/sx-summary.scm
View File

@ -5,6 +5,7 @@
;; Copyright 2004 David Montenegro <sunrise2000@comcast.net> ;; Copyright 2004 David Montenegro <sunrise2000@comcast.net>
;; Copyright 2001 Christian Stimming <stimming@tu-harburg.de> ;; Copyright 2001 Christian Stimming <stimming@tu-harburg.de>
;; Copyright 2000-2001 Bill Gribble <grib@gnumatic.com> ;; Copyright 2000-2001 Bill Gribble <grib@gnumatic.com>
;; Copyright 2017 Christopher Lam upgrade to time64
;; ;;
;; This program is free software; you can redistribute it and/or ;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as ;; modify it under the terms of the GNU General Public License as
@ -41,7 +42,6 @@
(gnc:module-load "gnucash/report/report-system" 0) (gnc:module-load "gnucash/report/report-system" 0)
(define reportname (N_ "Future Scheduled Transactions Summary")) (define reportname (N_ "Future Scheduled Transactions Summary"))
(define optname-report-title (N_ "Report Title")) (define optname-report-title (N_ "Report Title"))
@ -249,11 +249,11 @@
(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))
(from-date-tp (gnc:timepair-start-day-time (from-date (gnc:time64-start-day-time
(gnc:date-option-absolute-time (gnc:date-option-absolute-time
(get-option gnc:pagename-general (get-option gnc:pagename-general
optname-from-date)))) optname-from-date))))
(to-date-tp (gnc:timepair-end-day-time (to-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-to-date)))) optname-to-date))))
@ -306,7 +306,7 @@
depth-limit)) depth-limit))
;; exchange rates calculation parameters ;; exchange rates calculation parameters
(exchange-fn (exchange-fn
(gnc:case-exchange-fn price-source report-commodity to-date-tp)) (gnc:case-exchange-fn price-source report-commodity to-date))
) )
(gnc:html-document-set-title! (gnc:html-document-set-title!
@ -314,8 +314,8 @@
(string-append "%s %s " (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 from-date-tp) (qof-print-date from-date)
(gnc-print-date to-date-tp)) (qof-print-date to-date))
) )
(if (null? accounts) (if (null? accounts)
@ -330,14 +330,14 @@
;; otherwise, generate the report... ;; otherwise, generate the report...
(let* ( (let* (
(sx-value-hash (gnc-sx-all-instantiate-cashflow-all from-date-tp to-date-tp)) (sx-value-hash (gnc-sx-all-instantiate-cashflow-all from-date to-date))
(chart-table #f) ;; gnc:html-acct-table (chart-table #f) ;; gnc:html-acct-table
(hold-table (gnc:make-html-table)) ;; temporary gnc:html-table (hold-table (gnc:make-html-table)) ;; temporary gnc:html-table
(build-table (gnc:make-html-table)) ;; gnc:html-table reported (build-table (gnc:make-html-table)) ;; gnc:html-table reported
(table-env ;; parameters for :make- (table-env ;; parameters for :make-
(list (list
(list 'start-date from-date-tp) (list 'start-date from-date)
(list 'end-date to-date-tp) (list 'end-date to-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)
@ -506,8 +506,7 @@
) )
(gnc:report-finished) (gnc:report-finished)
doc) doc))
)
(gnc:define-report (gnc:define-report
'version 1 'version 1