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 798060 - Invoices are missing on Customer report after upgrade

Browse Source
This commit is contained in:
Christopher Lam 2021-01-01 10:28:25 +08:00
parent 3ba93a1943
commit 8c21e89565
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -739,6 +739,8 @@
(gnc:split-anchor-text split) (gnc:split-anchor-text split)
(gnc:make-gnc-monetary currency amount)))) (gnc:make-gnc-monetary currency amount))))
(define seen-txns (make-hash-table))
(let lp ((printed? #f) (let lp ((printed? #f)
(odd-row? #t) (odd-row? #t)
(splits splits) (splits splits)
@ -764,6 +766,9 @@
'attribute (list "cellpadding" 4)) 'attribute (list "cellpadding" 4))
table) table)
((hash-ref seen-txns (xaccSplitGetParent (car splits)))
(lp printed? odd-row? (cdr splits) invalid-splits total debit credit tax sale))
;; not an invoice/payment. skip transaction. ;; not an invoice/payment. skip transaction.
((not (or (txn-is-invoice? (xaccSplitGetParent (car splits))) ((not (or (txn-is-invoice? (xaccSplitGetParent (car splits)))
(txn-is-payment? (xaccSplitGetParent (car splits))))) (txn-is-payment? (xaccSplitGetParent (car splits)))))
@ -797,6 +802,7 @@
;; start printing txns. ;; start printing txns.
((txn-is-invoice? (xaccSplitGetParent (car splits))) ((txn-is-invoice? (xaccSplitGetParent (car splits)))
(hash-set! seen-txns (xaccSplitGetParent (car splits)) #t)
(let* ((split (car splits)) (let* ((split (car splits))
(txn (xaccSplitGetParent split)) (txn (xaccSplitGetParent split))
(date (xaccTransGetDate txn)) (date (xaccTransGetDate txn))
@ -831,6 +837,7 @@
(+ sale (CN-negate gncInvoiceGetTotalSubtotal))))) (+ sale (CN-negate gncInvoiceGetTotalSubtotal)))))
((txn-is-payment? (xaccSplitGetParent (car splits))) ((txn-is-payment? (xaccSplitGetParent (car splits)))
(hash-set! seen-txns (xaccSplitGetParent (car splits)) #t)
(let* ((split (car splits)) (let* ((split (car splits))
(txn (xaccSplitGetParent split)) (txn (xaccSplitGetParent split))
(date (xaccTransGetDate txn)) (date (xaccTransGetDate txn))
@ -1083,7 +1090,7 @@ invoices and amounts.")))))
(else (else
(setup-query query owner accounts end-date (eqv? GNC-OWNER-JOB type)) (setup-query query owner accounts end-date (eqv? GNC-OWNER-JOB type))
(let ((splits (xaccQueryGetSplitsUniqueTrans query))) (let ((splits (qof-query-run query)))
(qof-query-destroy query) (qof-query-destroy query)
(gnc:html-document-set-headline! (gnc:html-document-set-headline!