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] delete unused exports code.

Browse Source
This commit is contained in:
Christopher Lam 2019-09-17 22:17:50 +08:00
parent 6ae7cdc8f2
commit 5344cbc7ae
3 changed files with 9 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnucash/report/standard-reports/balance-sheet.scm
View File

@ -282,7 +282,7 @@
;; requested, export it to a file
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (balance-sheet-renderer report-obj choice filename)
(define (balance-sheet-renderer report-obj)
(define (get-option pagename optname)
(gnc:option-value
(gnc:lookup-option
@ -725,14 +725,7 @@
doc ;;(gnc:html-markup-p)
(gnc:html-make-exchangerates
report-commodity exchange-fn accounts)))
(gnc:report-percent-done 100)
;; if sending the report to a file, do so now
(if filename
(let* ((port (open-output-file filename)))
(gnc:display-report-list-item
(list doc) port " balance-sheet.scm ")
(close-output-port port)))))
(gnc:report-percent-done 100)))
(gnc:report-finished)
@ -744,11 +737,7 @@
'report-guid "c4173ac99b2b448289bf4d11c731af13"
'menu-path (list gnc:menuname-asset-liability)
'options-generator balance-sheet-options-generator
'renderer (lambda (report-obj)
(balance-sheet-renderer report-obj #f #f))
'export-types #f
'export-thunk (lambda (report-obj choice filename)
(balance-sheet-renderer report-obj #f filename)))
'renderer balance-sheet-renderer)
;; END

17
gnucash/report/standard-reports/budget-balance-sheet.scm
View File

@ -250,7 +250,7 @@
;; requested, export it to a file
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (budget-balance-sheet-renderer report-obj choice filename)
(define (budget-balance-sheet-renderer report-obj)
(define (get-option pagename optname)
(gnc:option-value
(gnc:lookup-option
@ -899,14 +899,7 @@
doc ;;(gnc:html-markup-p)
(gnc:html-make-exchangerates
report-commodity exchange-fn accounts)))
(gnc:report-percent-done 100)
;; if sending the report to a file, do so now
(if filename
(let* ((port (open-output-file filename)))
(gnc:display-report-list-item
(list doc) port " budget-balance-sheet.scm ")
(close-output-port port)))))))
(gnc:report-percent-done 100)))))
(gnc:report-finished)
@ -918,8 +911,4 @@
'report-guid "ecc35ea9dbfa4e20ba389fc85d59cb69"
'menu-path (list gnc:menuname-budget)
'options-generator budget-balance-sheet-options-generator
'renderer (lambda (report-obj)
(budget-balance-sheet-renderer report-obj #f #f))
'export-types #f
'export-thunk (lambda (report-obj choice filename)
(budget-balance-sheet-renderer report-obj #f filename)))
'renderer budget-balance-sheet-renderer)

17
gnucash/report/standard-reports/equity-statement.scm
View File

@ -206,7 +206,7 @@
;; requested, export it to a file
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (equity-statement-renderer report-obj choice filename)
(define (equity-statement-renderer report-obj)
(define (get-option pagename optname)
(gnc:option-value
(gnc:lookup-option
@ -673,14 +673,7 @@
)
)
(gnc:report-percent-done 100)
;; if sending the report to a file, do so now
(if filename
(let* ((port (open-output-file filename)))
(gnc:display-report-list-item
(list doc) port " equity-statement.scm ")
(close-output-port port)))))
(gnc:report-percent-done 100)))
(gnc:report-finished)
@ -694,11 +687,7 @@
'report-guid "c2a996c8970f43448654ca84f17dda24"
'menu-path (list gnc:menuname-income-expense)
'options-generator equity-statement-options-generator
'renderer (lambda (report-obj)
(equity-statement-renderer report-obj #f #f))
'export-types #f
'export-thunk (lambda (report-obj choice filename)
(equity-statement-renderer report-obj #f filename)))
'renderer equity-statement-renderer)
;; END