Adds the ability to suppress transactions

2021-12-16 07:26:02 -08:00
parent a76b84fd8d
commit 1d312dd55d
7 changed files with 27 additions and 13 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -148,7 +148,8 @@
                 true
                 (merge-query {:query {:find ['?sort-default '?e]
                                       :where ['[?e :transaction/id]
-                                               '[?e :transaction/date ?sort-default]]}}))]
+                                               '[?e :transaction/date ?sort-default]
+                                               '(not [?e :transaction/approval-status :transaction-approval-status/suppressed])]}}))]
     (log/info "query is" query)
     (cond->> query
       true (d/query)