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)]
|
||||
(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