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

reports/example/* untabify/delete-trailing-whitespace

Browse Source
This commit is contained in:
Christopher Lam 2023-04-20 09:00:04 +08:00
parent 8a8960c43a
commit 415438d0d7
3 changed files with 64 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gnucash/report/reports/example/average-balance.scm
View File

@ -290,8 +290,8 @@
(document (gnc:make-html-document))
(commodity-list #f)
(exchange-fn #f)
(commodity-list #f)
(exchange-fn #f)
(all-zeros? #t))
;;(warn commodity-list)
@ -307,28 +307,28 @@
;; routine needs to send progress reports, or the price
;; lookup should be distributed and done when actually
;; needed so as to amortize the cpu time properly.
(gnc:report-percent-done 1)
(set! commodity-list (gnc:accounts-get-commodities
(gnc:report-percent-done 1)
(set! commodity-list (gnc:accounts-get-commodities
accounts report-currency))
(gnc:report-percent-done 5)
(set! exchange-fn (gnc:case-exchange-time-fn
(gnc:report-percent-done 5)
(set! exchange-fn (gnc:case-exchange-time-fn
price-source report-currency
commodity-list enddate
5 20))
(gnc:report-percent-done 20)
5 20))
(gnc:report-percent-done 20)
;; initialize the query to find splits in the right
;; date range and accounts
(qof-query-set-book query (gnc-get-current-book))
;; for balance purposes, we don't need to do this, but it cleans up
;; the table display.
;; for balance purposes, we don't need to do this, but it cleans up
;; the table display.
(xaccQueryAddClearedMatch
query (logand CLEARED-ALL (lognot CLEARED-VOIDED)) QOF-QUERY-AND)
;; add accounts to the query (include subaccounts
;; if requested)
(gnc:report-percent-done 25)
(gnc:report-percent-done 25)
(xaccQueryAddAccountMatch query accounts QOF-GUID-MATCH-ANY QOF-QUERY-AND)
@ -336,11 +336,11 @@
(xaccQueryAddDateMatchTT
query #t begindate #t enddate QOF-QUERY-AND)
(qof-query-set-sort-order query
(list SPLIT-TRANS TRANS-DATE-POSTED)
(list QUERY-DEFAULT-SORT)
'())
(list SPLIT-TRANS TRANS-DATE-POSTED)
(list QUERY-DEFAULT-SORT)
'())
(gnc:report-percent-done 40)
(gnc:report-percent-done 40)
(let* ((splits (qof-query-run query))
(daily-dates (gnc:make-date-list begindate enddate DayDelta))
@ -451,7 +451,7 @@
report-title (gnc:report-id report-obj))))))
;; make a table (optionally)
(gnc:report-percent-done 80)
(gnc:report-percent-done 80)
(if show-table?
(let ((table (gnc:make-html-table))
(scu (gnc-commodity-get-fraction report-currency)))
@ -481,7 +481,7 @@
(gnc:html-document-add-object!
document
(gnc:html-make-no-account-warning
report-title (gnc:report-id report-obj))))
report-title (gnc:report-id report-obj))))
(gnc:report-finished)
document))

6
gnucash/report/reports/example/daily-reports.scm
View File

@ -171,8 +171,8 @@
;; routine needs to send progress reports, or the price
;; lookup should be distributed and done when actually
;; needed so as to amortize the cpu time properly.
(gnc:report-percent-done 1)
(set! commodity-list (gnc:accounts-get-commodities
(gnc:report-percent-done 1)
(set! commodity-list (gnc:accounts-get-commodities
(gnc-accounts-and-all-descendants accounts)
report-currency))
(gnc:report-percent-done 5)
@ -212,7 +212,7 @@
;; get the query results
(set! splits (qof-query-run query))
(qof-query-destroy query)
(gnc:report-percent-done 40)
(gnc:report-percent-done 40)
;; each split is analyzed... the amount is converted to
;; report-currency, and the date modulo 7 used to find

2
gnucash/report/reports/example/sample-report.scm
View File

@ -169,7 +169,7 @@
"c" opthelp-report-title (N_ "Report Title Default"))
;; Setting a default section is optional but set in most reports.
;; If not set, the default section will be the first section.
;; If not set, the default section will be the first section.
(gnc:options-set-default-section options "Tab B")
(GncOptionDBPtr-set-default-section optiondb "Tab B")
;; We still need to return the function wrapper instead of the GncOptionDBPtr for all of the options functions in the reports system.