removed way of finding old checks.
This commit is contained in:
@@ -121,20 +121,3 @@
|
|||||||
yodlee-account-id->bank-account-id (by :yodlee-account-id :bank-account-id all-bank-accounts)]
|
yodlee-account-id->bank-account-id (by :yodlee-account-id :bank-account-id all-bank-accounts)]
|
||||||
(import-transactions transactions yodlee-account-id->company yodlee-account-id->bank-account-id)))
|
(import-transactions transactions yodlee-account-id->company yodlee-account-id->bank-account-id)))
|
||||||
|
|
||||||
#_(defn match-old-checks []
|
|
||||||
(let [transactions (transactions/get-unmatched)]
|
|
||||||
(doseq [transaction transactions]
|
|
||||||
(when-let (transaction->check-id transaction
|
|
||||||
(:check-number transaction)
|
|
||||||
(:company-id transaction)
|
|
||||||
(:band-account-id transaction)
|
|
||||||
(:amount transaction))
|
|
||||||
(transactions/upsert!
|
|
||||||
{:id id
|
|
||||||
:check-id check-id})
|
|
||||||
(when check-id
|
|
||||||
(checks/update! {:id check-id :status "cleared"}))
|
|
||||||
)
|
|
||||||
)
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|
|||||||
Reference in New Issue
Block a user