Makes pnl work for companies with parenthesis

2023-10-17 13:03:48 -07:00
parent fc8eefb8cb
commit bd9476544c
13 changed files with 269 additions and 487 deletions
--- a/src/clj/auto_ap/datomic/accounts.clj
+++ b/src/clj/auto_ap/datomic/accounts.clj
@@ -52,16 +52,6 @@
      (map first)
      (map <-datomic)))))

-(defn get-by-id [id]
-  (->>
-    (dc/q {:find [(list 'pull '?e default-read)]
-           :in   ['$ '?e]}
-          (dc/db conn )
-          id)
-    (map first)
-    (map <-datomic)
-    first))
-
 (defn get-for-vendor [vendor-id client-id]
  (if client-id 
    (->>