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

fixes plaid issues.

Browse Source
This commit is contained in:
Bryce Covert
2022-06-10 15:49:47 -07:00
parent a8fb649dd6
commit ed8b343e75
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2,7 +2,7 @@
(:require (:require
[auto-ap.datomic :refer [conn]] [auto-ap.datomic :refer [conn]]
[auto-ap.plaid.core :as p] [auto-ap.plaid.core :as p]
[auto-ap.utils :refer [allow-once]] [auto-ap.utils :refer [allow-once by]]
[auto-ap.import.transactions :as t] [auto-ap.import.transactions :as t]
[clj-time.core :as time] [clj-time.core :as time]
[clojure.tools.logging :as log] [clojure.tools.logging :as log]
@@ -29,8 +29,10 @@
#:transaction {:description-original (:name t) #:transaction {:description-original (:name t)
:raw-id (:transaction_id t) :raw-id (:transaction_id t)
:id (digest/sha-256 (:transaction_id t)) :id (digest/sha-256 (:transaction_id t))
:amount (double (:amount t)) :amount (if (= "credit" (:type (:account t)))
:date (coerce/to-date (auto-ap.time/parse (:date t) auto-ap.time/iso-date)) (- (double (:amount t)))
(double (:amount t)))
:date (coerce/to-date (auto-ap.time/parse (:authorized_date t) auto-ap.time/iso-date))
:status "POSTED"}) :status "POSTED"})
@@ -41,9 +43,13 @@
start (time/plus end (time/days -30))] start (time/plus end (time/days -30))]
(try (try
(doseq [[bank-account-id client-id external-id access-token] (get-plaid-accounts (d/db conn)) (doseq [[bank-account-id client-id external-id access-token] (get-plaid-accounts (d/db conn))
transaction (:transactions (p/get-transactions access-token external-id start end))] :let [transaction-result (p/get-transactions access-token external-id start end)]
transaction (:transactions transaction-result)
accounts-by-id (by (:accounts transaction-result) :account_id)]
(when (not (:pending transaction)) (when (not (:pending transaction))
(t/import-transaction! import-batch (assoc (plaid->transaction transaction) (t/import-transaction! import-batch (assoc (plaid->transaction (assoc transaction
:account
(accounts-by-id (:account_id transaction))))
:transaction/bank-account bank-account-id :transaction/bank-account bank-account-id
:transaction/client client-id)))) :transaction/client client-id))))
(t/finish! import-batch) (t/finish! import-batch)