source filtering and making it so 0s get deleted

2022-03-03 09:18:32 -08:00
parent 223a3749ec
commit 7d0320dfcc
6 changed files with 37 additions and 13 deletions
--- a/src/clj/auto_ap/datomic/ledger.clj
+++ b/src/clj/auto_ap/datomic/ledger.clj
@@ -64,6 +64,11 @@
                                              '[(.contains ^String ?external-id ?external-id-like)]]}
                              :args [(:external-id-like args)]})

+                (seq (:source args))
+                (merge-query {:query {:in    ['?source]
+                                      :where ['[?e :journal-entry/source ?source]]}
+                              :args  [(:source args)]})
+
                (:vendor-id args) 
                (merge-query {:query {:in ['?vendor-id]
                                      :where ['[?e :journal-entry/vendor ?vendor-id]]}