Adds the ability to find unresolved transactions

2020-12-16 08:09:54 -08:00
parent c2407a73c6
commit 1534175608
4 changed files with 22 additions and 2 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -101,6 +101,12 @@
                                               '[?tas :transaction-account/location ?location]]}
                               :args [(:location args)]})

+                 (:unresolved args) 
+                 (merge-query {:query {:where ['(or-join [?e]
+                                                 (not [?e :transaction/accounts])
+                                                 (and [?e :transaction/accounts ?tas]
+                                                      (not [?tas :transaction-account/account])))]}})
+
                 (:description args) 
                 (merge-query {:query {:in ['?description]
                                       :where ['[?e :transaction/description-original ?do]