From 5b99835cb1f2a5623d3153673783aa0efecd5d38 Mon Sep 17 00:00:00 2001 From: christopherlam Date: Thu, 21 Sep 2017 19:51:03 +0800 Subject: [PATCH] Fix some (gnc:make-gnc-monetary) errors These errors didn't appear in the tracefile. They only appeared on Linux terminal. --- .../report/standard-reports/income-gst-statement.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/gnucash/report/standard-reports/income-gst-statement.scm b/gnucash/report/standard-reports/income-gst-statement.scm index 36a2ae8da4..a74092fde4 100644 --- a/gnucash/report/standard-reports/income-gst-statement.scm +++ b/gnucash/report/standard-reports/income-gst-statement.scm @@ -524,9 +524,10 @@ accounts must be of type ASSET for taxes paid on expenses, and type LIABILITY fo (let* ((calculator (vector-ref cell 1)) (reverse-column? (vector-ref cell 2)) (calculated (calculator split))) - (if (and sign-reverses? reverse-column? calculated) - (converted (gnc-numeric-neg calculated)) - (converted calculated)))) + (cond + ((and sign-reverses? reverse-column? calculated) (converted (gnc-numeric-neg calculated))) + (calculated (converted calculated)) + (else #f)))) cell-calculators)) (if (used-date column-vector) @@ -622,7 +623,7 @@ accounts must be of type ASSET for taxes paid on expenses, and type LIABILITY fo "number-cell" (gnc:html-transaction-anchor parent - (gnc:make-gnc-monetary report-currency cell)))) + cell))) (addto! row-contents (gnc:html-make-empty-cell)))) cells) @@ -1800,4 +1801,4 @@ for taxes paid on expenses, and type LIABILITY for taxes collected on sales.") 'name reportname 'report-guid "5bf27f249a0d11e7abc4cec278b6b50a" 'options-generator trep-options-generator - 'renderer trep-renderer) \ No newline at end of file + 'renderer trep-renderer)