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

[report-utilities] bugfix: overpayment works for AP accounts

Browse Source 
and fix comment from 5f6b9946d.
This commit is contained in:
Christopher Lam
2019-12-11 22:14:16 +08:00
parent cac155a97c
commit 1c605a6b10
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1166,7 +1166,7 @@ flawed. see report-utilities.scm. please update reports.")
(lp (cdr splits))))
;; next split is a payment. analyse its sister APAR splits. any
;; split whose lot-balance is negative is an overpayment.
;; split whose lot has no invoice is an overpayment.
((eqv? (xaccTransGetTxnType (xaccSplitGetParent (car splits)))
TXN-TYPE-PAYMENT)
(let* ((txn (xaccSplitGetParent (car splits)))
@@ -1181,7 +1181,7 @@ flawed. see report-utilities.scm. please update reports.")
0 splitlist)))
(gnc:msg "next " (gnc:strify (car splits)) " payment " payment
" overpayment " overpayment)
(addbucket! (1- num-buckets) (- overpayment))
(addbucket! (1- num-buckets) (if receivable? (- overpayment) overpayment))
(lp (cdr splits))))
;; not invoice/prepayment. regular or payment split.