renamed company to client.
This commit is contained in:
@@ -43,7 +43,7 @@
|
||||
nil))
|
||||
nil))
|
||||
|
||||
(defn import-transactions [transactions transaction->company transaction->bank-account-id]
|
||||
(defn import-transactions [transactions transaction->client transaction->bank-account-id]
|
||||
(doseq [transaction transactions
|
||||
:let [{post-date :postDate
|
||||
account-id :accountId
|
||||
@@ -62,7 +62,7 @@
|
||||
(- amount)
|
||||
amount)
|
||||
check-number (extract-check-number transaction)
|
||||
client-id (transaction->company transaction)
|
||||
client-id (transaction->client transaction)
|
||||
bank-account-id (transaction->bank-account-id transaction)
|
||||
check-id (transaction->check-id transaction check-number client-id bank-account-id amount)]]
|
||||
(try
|
||||
@@ -125,7 +125,7 @@
|
||||
:yodlee-account-id yodlee-account-id}))
|
||||
(:client/bank-accounts c)))
|
||||
(d-clients/get-all))
|
||||
transaction->company (comp (by :yodlee-account-id :client-id all-bank-accounts) :accountId)
|
||||
transaction->client (comp (by :yodlee-account-id :client-id all-bank-accounts) :accountId)
|
||||
transaction->bank-account-id (comp (by :yodlee-account-id :bank-account-id all-bank-accounts) :accountId)]
|
||||
(import-transactions transactions transaction->company transaction->bank-account-id)))
|
||||
(import-transactions transactions transaction->client transaction->bank-account-id)))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user