From e5431b6807bebca67bfbbdb2429e767c4b4a2d76 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Fri, 28 Jun 2002 05:04:56 +0000 Subject: [PATCH] Set the query to limit searches to splits that belong to the customer (or vendor) in question. This way you can have multiple customers sharing an A/R account and report on just an individual customer. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7043 57a11ea4-9604-0410-9ed3-97b8803252fd --- .../business-reports/owner-report.scm | 20 +++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/src/business/business-reports/owner-report.scm b/src/business/business-reports/owner-report.scm index bee5d0ee8b..d32b30391e 100644 --- a/src/business/business-reports/owner-report.scm +++ b/src/business/business-reports/owner-report.scm @@ -489,8 +489,8 @@ (let* ((trans (gnc:split-get-parent split)) (invoice (gnc:invoice-get-invoice-from-txn trans)) - (q (gnc:malloc-query)) (temp-owner (gnc:owner-create)) + (q (gnc:malloc-query)) (owner #f)) (if invoice @@ -511,7 +511,23 @@ (check-splits (cdr splits))))) (check-splits split-list))) - ;; XXX: Need to add checks for the ownership... + (let ((guid (gnc:owner-get-guid (gnc:owner-get-end-owner owner)))) + (gnc:query-add-guid-match + q + (list gnc:split-trans gnc:invoice-from-txn gnc:invoice-owner + gnc:owner-parentg) + guid 'query-or) + (gnc:query-add-guid-match + q + (list gnc:split-lot gnc:owner-from-lot gnc:owner-parentg) + guid 'query-or) + (gnc:query-add-guid-match + q + (list gnc:split-lot gnc:invoice-from-lot gnc:invoice-owner + gnc:owner-parentg) + guid 'query-or) + ) + (gnc:query-add-single-account-match q account 'query-and) (gnc:query-set-book q (gnc:get-current-book))