notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

prepare dashboard

Browse Source
This commit is contained in:
Bryce
2024-04-26 22:42:32 -07:00
parent c8f438f616
commit 3e4a2b7322
3 changed files with 52 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/clj/auto_ap/import/plaid.clj
View File

@@ -14,7 +14,8 @@
[digest :as di]
[manifold.deferred :as de]
[manifold.executor :as ex]
[clojure.string :as str]))
[clojure.string :as str]
[auto-ap.ezcater.core :as e]))
(defn get-plaid-accounts
([db]
@@ -84,6 +85,30 @@
{"id" (:db/id result)
"name" (:plaid-merchant/name result)}))))
(defn upsert-accounts []
(try
(doseq [[bank-account-id client-id external-id access-token] (get-plaid-accounts (dc/db conn))
]
(try
(let [accounts (p/get-accounts access-token)]
@(dc/transact
conn
(for [a (:accounts accounts)]
{:plaid-account/external-id (:account_id a)
:plaid-account/balance (or (some-> a
:balances
:current
double)
0.0) }))
)
(catch Exception e
(alog/warn ::couldnt-upsert-account :error e))))
(catch Exception e
(alog/warn ::couldnt-upsert-accounts :error e))))
(defn import-plaid-int []
(let [import-batch (t/start-import-batch :import-source/plaid "Automated plaid user")
end (atime/local-now)

5
src/clj/auto_ap/ssr/dashboard.clj
View File

@@ -24,7 +24,9 @@
{:bank-account/intuit-bank-account [:intuit-bank-account/current-balance
[ :intuit-bank-account/last-synced :xform clj-time.coerce/from-date]]}
{:bank-account/yodlee-account [:yodlee-account/available-balance
[:yodlee-account/last-synced :xform clj-time.coerce/from-date]]}]}]
[:yodlee-account/last-synced :xform clj-time.coerce/from-date]]}
{:bank-account/plaid-account [:plaid-account/balance
#_[:yodlee-account/last-synced :xform clj-time.coerce/from-date]]}]}]
(:db/id c)))]
[:div.flex.flex-col.p-4.border-l-2
[:div (:client/name c)]
@@ -35,6 +37,7 @@
(#(str "Synced " %))) ]
[:div.inline-flex.justify-between [:div "Source Balance"] (format "$%,.2f" (or (-> b :bank-account/intuit-bank-account :intuit-bank-account/current-balance)
(-> b :bank-account/yodlee-account :yodlee-account/available-balance)
(-> b :bank-account/plaid-account :plaid-account/balance)
0.0))]
[:div.inline-flex.justify-end.text-xs.text-gray-400.it (or (some-> (:bank-account/intuit-bank-account b)
(:intuit-bank-account/last-synced)

22
src/clj/user.fiddle
View File

@@ -367,3 +367,25 @@
(ffirst (dc/q '[:find ?v :where [?v :vendor/name "CCP Doordash"]] db))))
:separator \tab)
(def taptelis-clients (->> (dc/q '[:find ?c
:where [?u :user/name ?n]
[?u :user/clients ?c]
[?c :client/code ?cc]
[(clojure.string/includes? ?n "Nick Taptelis")]]
(dc/db conn))
(map first)
set))
(clojure.data.csv/write-csv *out* (dc/q '[:find ?v ?cnt
:in $ [?c ...]
:where [?vu :vendor-usage/vendor ?v]
[?vu :vendor-usage/client ?c]
[?vu :vendor-usage/count ?cnt]
[(> ?cnt 0)]]
(dc/db conn)
taptelis-clients)
:separator \tab)