tweaks

2020-06-14 08:29:23 -07:00
parent ad4054d820
commit bd17cd3caa
9 changed files with 126 additions and 70 deletions
--- a/src/clj/auto_ap/datomic/ledger.clj
+++ b/src/clj/auto_ap/datomic/ledger.clj
@@ -67,6 +67,12 @@
                                              '[?li :journal-entry-line/account ?a]]}
                              :args [(:bank-account-id args)]})

+                (:account-id args) 
+                (merge-query {:query {:in ['?a2]
+                                      :where ['[?e :journal-entry/line-items ?li2]
+                                              '[?li2 :journal-entry-line/account ?a2]]}
+                              :args [(:account-id args)]})
+
                (:to-numeric-code args) 
                (merge-query {:query {:in ['?to-numeric-code]
                                      :where ['[?e :journal-entry/line-items ?li]