diff --git a/gnucash/report/reports/standard/net-charts.scm b/gnucash/report/reports/standard/net-charts.scm index 6f5928098d..2c72da5e30 100644 --- a/gnucash/report/reports/standard/net-charts.scm +++ b/gnucash/report/reports/standard/net-charts.scm @@ -444,14 +444,19 @@ (cond ((eq? export-type 'csv) - (gnc:html-document-set-export-string - document - (gnc:lists->csv - (cons (if inc-exp? - (map G_ '("Date" "Income" "Expense" "Net Profit")) - (map G_ '("Date" "Assets" "Liabilities" "Net Worth"))) - (map list date-string-list minuend-balances - subtrahend-balances difference-balances))))))) + (let ((old-fmt (qof-date-format-get))) + (qof-date-format-set QOF-DATE-FORMAT-ISO) + (gnc:html-document-set-export-string + document + (gnc:lists->csv + (cons (if inc-exp? + (map G_ '("Date" "Income" "Expense" "Net Profit")) + (map G_ '("Date" "Assets" "Liabilities" "Net Worth"))) + (map list + (map qof-print-date dates-list) + minuend-balances + subtrahend-balances difference-balances)))) + (qof-date-format-set old-fmt))))) (gnc:html-document-add-object! document (gnc:html-make-empty-data-warning @@ -463,6 +468,9 @@ (gnc:html-make-no-account-warning report-title (gnc:report-id report-obj)))) + (unless (gnc:html-document-export-string document) + (gnc:html-document-set-export-error document (G_ "No exportable data"))) + (gnc:report-finished) document))