From ce59253b2b57f25b8022fb792a2b1f60d8a2d15d Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Fri, 16 Oct 2026 22:11:41 +0800
Subject: [PATCH] Bug 799833 - RFE - Add Options preference to Aging Report to
 hide inactive Vendors & Customers

---
 gnucash/report/reports/standard/new-aging.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnucash/report/reports/standard/new-aging.scm b/gnucash/report/reports/standard/new-aging.scm
index 399a362c5c..d234e5d332 100644
--- a/gnucash/report/reports/standard/new-aging.scm
+++ b/gnucash/report/reports/standard/new-aging.scm
@@ -40,6 +40,7 @@
 (define optname-sort-by (N_ "Sort By"))
 (define optname-sort-order (N_ "Sort Order"))
 (define optname-show-zeros (N_ "Show zero balance items"))
+(define optname-show-inactive? (N_ "Show all owners including inactive"))
 (define optname-date-driver (N_ "Due or Post Date"))
 
 ;; Display tab options
@@ -105,6 +106,10 @@ exist but have no suitable transactions."))
       (N_ "Show all vendors/customers even if they have a zero balance.")
       #f)
 
+    (gnc-register-simple-boolean-option
+     options gnc:pagename-general optname-show-inactive? "j5"
+     (N_ "Show all vendors/customers including inactive ones") #f)
+
     (gnc-register-multichoice-option
      options gnc:pagename-general optname-date-driver "k" (N_ "Leading date.")
      "duedate"
@@ -197,6 +202,11 @@ exist but have no suitable transactions."))
          (query (qof-query-create-for-splits))
          (document (gnc:make-html-document)))
 
+    (define split-owner-must-be-hidden?
+      (if (op-value gnc:pagename-general optname-show-inactive?)
+          (const #f)
+          (compose not gncOwnerGetActive split->owner)))
+
     (define (sort-aging<? a b)
       (match-let* (((own1 aging1 aging-total1) a)
                    ((own2 aging2 aging-total2) b)
@@ -364,6 +374,9 @@ exist but have no suitable transactions."))
                        (cons (list (G_ "Payment has no owner") this) invalid-splits)
                        owners-and-aging))
 
+                  (((? split-owner-must-be-hidden?) . rest)
+                   (lp rest acc-totals invalid-splits owners-and-aging))
+
                   ((this . _)
                    (match-let* ((owner (split->owner this))
                                 ((owner-splits . other-owner-splits)