16 lines
817 B
Plaintext
16 lines
817 B
Plaintext
(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))
|
|
|