remove excluded from ledger.

2019-05-19 08:06:21 -07:00
parent 9396bbb7eb
commit cf2319b681
19 changed files with 3508 additions and 144 deletions
--- a/src/clj/auto_ap/datomic/transactions.clj
+++ b/src/clj/auto_ap/datomic/transactions.clj
@@ -66,6 +66,11 @@
                                              '[(<= ?date ?end-date)]]}
                              :args [(coerce/to-date (:end (:date-range args)))]})

+                (:approval-status args)
+                (merge-query {:query {:in ['?approval-status]
+                                      :where ['[?e :transaction/approval-status ?approval-status]]}
+                              :args [(:approval-status args)]}) 
+
                (:client-code args) 
                (merge-query {:query {:in ['?client-code]
                                      :where ['[?e :transaction/client ?client-id]