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/invoices.clj
+++ b/src/clj/auto_ap/datomic/invoices.clj
@@ -105,6 +105,12 @@
                                             '[(.contains ^String ?invoice-number ?invoice-number-like)]]}
                             :args [(:invoice-number-like args)]})

+               (seq (:location args))
+               (merge-query {:query {:in ['?location]
+                                     :where ['[?e :invoice/expense-accounts ?eas]
+                                             '[?eas :invoice-expense-account/location ?location]]}
+                             :args [(:location args)]})
+
               (:sort args) (add-sorter-fields {"client" ['[?e :invoice/client ?c]
                                                          '[?c :client/name ?sort-client]]
                                                "vendor" ['[?e :invoice/vendor ?v]