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

[taxtxf] set export-string for export-type='csv

Browse Source
This commit is contained in:
Christopher Lam 2020-08-10 12:58:28 +08:00
parent 0891e117c9
commit b0ab79bed7
1 changed files with 26 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
gnucash/report/reports/locale-specific/us/taxtxf.scm
View File

@ -2899,69 +2899,32 @@
))
(if (not tax-mode?) ; Do Txf mode
(if tax-entity-type-valid?
(if file-name ; cancel TXF if no file selected
(let ((port (catch #t ;;e.g., system-error
(lambda () (open-output-file file-name))
(lambda (key . args)
(let ((msg (format #f "Could not open the file: ~a. The error is: ~a - ~a"
file-name key (caaddr args))))
(gnc:gui-error msg msg)
#f)))))
(if port ;; port opened successfully
(let* ((output (map (lambda (form-line-acct)
(handle-tax-code form-line-acct))
selected-accounts-sorted-by-form-line-acct))
(output-txf
(list
"V042" crlf
"AGnuCash " gnc:version crlf
today-date crlf
"^" crlf
output
(if (or
(gnc-numeric-zero-p tax-code-USD-total)
(not prior-account))
'()
(render-txf-account
prior-account
(if (= 4 (get-acct-txf-info
'format
(xaccAccountGetType
prior-account)
(gnc:account-get-txf-code
prior-account)))
(gnc-numeric-neg
tax-code-cap-gain-sales-USD-total)
tax-code-USD-total-as-dr)
#f #f #f #f
(xaccAccountGetType prior-account)
(gnc:account-get-txf-code
prior-account)
prior-account-copy
tax-entity-type #f))
))
)
;; prior-account can be #f if selected accounts are
;; marked as 'tax-related' in the account edit
;; dialog but not actually assigned to a tax code
;; using the 'Tax Options' dialog (UI bug?).
;; An empty file is unfortunately put out with
;; no user warning other than message on report.
(if prior-account
(gnc:display-report-list-item output-txf port
"taxtxf.scm - ")
#f)
(close-output-port port)
#t
) ; end of let
;; Could not open port successfully
#t ;; to prevent 2nd error dialog in
;; gnc_plugin_page_report_export_cb
) ;; end of if
) ;; end of let*
#f) ;;end of if
#f) ;;end of if
(begin
(if tax-entity-type-valid?
(gnc:html-document-set-export-string
doc
(call-with-output-string
(lambda (port)
(gnc:display-report-list-item
(list
"V042" crlf "AGnuCash " gnc:version crlf
today-date crlf "^" crlf
(map handle-tax-code selected-accounts-sorted-by-form-line-acct)
(if (or (zero? tax-code-USD-total) (not prior-account))
'()
(render-txf-account
prior-account
(if (= 4 (get-acct-txf-info
'format (xaccAccountGetType prior-account)
(gnc:account-get-txf-code prior-account)))
(- tax-code-cap-gain-sales-USD-total)
tax-code-USD-total-as-dr)
#f #f #f #f (xaccAccountGetType prior-account)
(gnc:account-get-txf-code prior-account)
prior-account-copy tax-entity-type #f)))
port "taxtxf.scm - "))))
(gnc:html-document-set-export-error doc "tax-entity-type is invalid"))
doc)
(begin ; else do tax report
(gnc:html-document-set-style!
doc "header-just-top"