supports location matches, adds invoice types

2019-10-10 20:09:47 -07:00
parent 1e37a71a4c
commit 8df6fb0279
8 changed files with 78 additions and 9 deletions
--- a/src/clj/auto_ap/datomic/clients.clj
+++ b/src/clj/auto_ap/datomic/clients.clj
@@ -8,6 +8,11 @@
              :where [?e :client/name]]
            (d/db (d/connect uri)))
       (map first)
+       (map (fn [c]
+              (update c :client/location-matches
+                      (fn [lms]
+                        
+                        (map #(assoc % :location-match/match (first (:location-match/matches %))) lms)))))
       (map (fn [c]
              (update c :client/bank-accounts
                      (fn [bas]