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 766052 - Job report payments wrong when payment contains splits

Browse Source 
APAR payment splits must choose from query splits only rather than all
txn splits.
This commit is contained in:
Christopher Lam
2021-06-29 22:36:04 +08:00
parent bcbe7f6ce6
commit 359cc5cad6
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
gnucash/report/reports/standard/new-owner-report.scm
View File

@@ -844,7 +844,10 @@
(let* ((split (car splits)) (let* ((split (car splits))
(txn (xaccSplitGetParent split)) (txn (xaccSplitGetParent split))
(date (xaccTransGetDate txn)) (date (xaccTransGetDate txn))
(orig-value (xaccTransGetAccountAmount txn acc)) (orig-value
(fold (lambda (a b)
(if (equal? txn (xaccSplitGetParent a))
(+ b (xaccSplitGetAmount a)) b)) 0 splits))
(value (AP-negate orig-value))) (value (AP-negate orig-value)))
(add-row (add-row