Fixing findage of duplicates

2022-01-06 17:00:11 -08:00
parent d553e6a683
commit 634e4f4820
1 changed files with 2 additions and 1 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -26,7 +26,8 @@
                :where
                [?tx :transaction/bank-account ?ba]
                [?tx :transaction/amount ?amount]
-                [?tx :transaction/date ?date]]
+                [?tx :transaction/date ?date]
+                (not [?tx :transaction/approval-status :transaction-approval-status/suppressed])]
              db
              (:bank-account-id args))
         (group-by (fn [[tx amount date]]