Adds little indicator on bank account form

2024-03-08 19:19:22 -08:00
parent 9dc9078a0d
commit 7b622b945a
8 changed files with 149 additions and 33 deletions
--- a/src/clj/auto_ap/plaid/core.fiddle
+++ b/src/clj/auto_ap/plaid/core.fiddle
@@ -0,0 +1,15 @@
+(let [client-code "NGKG-CH2231"
+      [[external-id token]] (seq (dc/q '[:find ?external-id ?t
+                                         :in $ ?ba
+                                         :where
+                                         [?ba :bank-account/plaid-account ?pa]
+                                         [?pa :plaid-account/external-id ?external-id]
+                                         [?pi :plaid-item/accounts ?pa]
+                                         [?pi :plaid-item/access-token ?t]]
+                                       (dc/db conn)
+                                       [:bank-account/code client-code]))
+        end                       (atime/local-now)
+        start                     (clj-time.core/plus end (clj-time.core/days -30))
+      ]
+  (get-transactions token start end))
+