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

[trial-balance] fix qof-query-destroy

Browse Source 
qof-query-destroy inv-query never previously triggered. fix. also map
output is discarded, it's more readable to use for-each.
This commit is contained in:
Christopher Lam 2019-09-13 20:09:08 +08:00
parent 26a9ccc181
commit 355d28e721
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnucash/report/standard-reports/trial-balance.scm
View File

@ -356,10 +356,10 @@
(let ((inv-query (qof-query-invert str-query)))
(qof-query-merge-in-place
sign-query inv-query QOF-QUERY-AND)
qof-query-destroy inv-query)))
(qof-query-destroy inv-query))))
(qof-query-destroy str-query)
(map
(for-each
(lambda (split)
(let* ((shares (xaccSplitGetAmount split))
(acct-comm (xaccAccountGetCommodity