Fixes P&L page to allow for specific locatiosn

2023-03-10 14:56:58 -08:00
parent b669984673
commit cdf9aa571f
4 changed files with 18 additions and 2 deletions
--- a/src/clj/auto_ap/datomic/ledger.clj
+++ b/src/clj/auto_ap/datomic/ledger.clj
@@ -98,6 +98,11 @@
                                      :where ['[?li :journal-entry-line/location ?location]]}
                              :args [(:location args)]})

+                (not-empty (:locations args)) 
+                (merge-query {:query {:in    ['[?location ...]]
+                                      :where ['[?li :journal-entry-line/location ?location]]}
+                              :args  [(:locations args)]})
+
                (limited-clients (:id args))
                (merge-query {:query {:in ['[?xx ...]]
                                      :where ['[?e :journal-entry/client ?xx]]}