Adds location filter.

2020-10-01 08:04:57 -07:00
parent 5445d55063
commit 71c716e669
9 changed files with 37 additions and 0 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -95,6 +95,12 @@
                                               '[?c :client/original-id ?original-id]]}
                               :args [(:original-id args)]})

+                 (seq (:location args)) 
+                 (merge-query {:query {:in ['?location]
+                                       :where ['[?e :transaction/accounts ?tas]
+                                               '[?tas :transaction-account/location ?location]]}
+                               :args [(:location args)]})
+
                 (:description args) 
                 (merge-query {:query {:in ['?description]
                                       :where ['[?e :transaction/description-original ?do]