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

Bug 797462 - gnc:strify reports the amount and value incorrectly

Browse Source 
amt and val were incorrectly labelled. swap to match label.
This commit is contained in:
Christopher Lam 2019-10-18 18:29:16 +08:00
parent 1a8c2f2801
commit c7c76c2e0b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnucash/report/report-system/report-utilities.scm
View File

@ -1113,15 +1113,15 @@ flawed. see report-utilities.scm. please update reports.")
(format #f "Split<d:~a,acc:~a,amt:~a,val:~a>" (format #f "Split<d:~a,acc:~a,amt:~a,val:~a>"
(qof-print-date (xaccTransGetDate txn)) (qof-print-date (xaccTransGetDate txn))
(xaccAccountGetName (xaccSplitGetAccount spl)) (xaccAccountGetName (xaccSplitGetAccount spl))
(gnc:monetary->string
(gnc:make-gnc-monetary
(xaccTransGetCurrency txn)
(xaccSplitGetValue spl)))
(gnc:monetary->string (gnc:monetary->string
(gnc:make-gnc-monetary (gnc:make-gnc-monetary
(xaccAccountGetCommodity (xaccAccountGetCommodity
(xaccSplitGetAccount spl)) (xaccSplitGetAccount spl))
(xaccSplitGetAmount spl)))))) (xaccSplitGetAmount spl)))
(gnc:monetary->string
(gnc:make-gnc-monetary
(xaccTransGetCurrency txn)
(xaccSplitGetValue spl))))))
(define (trans->str txn) (define (trans->str txn)
(format #f "Txn<d:~a>" (qof-print-date (xaccTransGetDate txn)))) (format #f "Txn<d:~a>" (qof-print-date (xaccTransGetDate txn))))
(define (account->str acc) (define (account->str acc)