adding invoices works correctly again.

2018-08-16 19:36:50 -07:00
parent 1208f972ef
commit bcb839aaa8
7 changed files with 123 additions and 79 deletions
--- a/src/clj/auto_ap/datomic/vendors.clj
+++ b/src/clj/auto_ap/datomic/vendors.clj
@@ -14,3 +14,19 @@
                          (map (fn [ba]
                                 (update ba :bank-account/type :db/ident ))
                               bas)))))))
+
+(defn get-by-id [id]
+  
+  (->> (d/q '[:find (pull ?e [*])
+              :in $ ?e
+              :where [?e]]
+            (d/db (d/connect uri))
+            (Long/parseLong id))
+       (map first)
+       (first)
+       #_(map (fn [c]
+                (update c :client/bank-accounts
+                        (fn [bas]
+                          (map (fn [ba]
+                                 (update ba :bank-account/type :db/ident ))
+                               bas)))))))