merged.
This commit is contained in:
@@ -9,9 +9,10 @@
|
||||
|
||||
|
||||
|
||||
(defn transaction->check-id [_ check-number company-id]
|
||||
(defn transaction->check-id [_ check-number company-id bank-account-id]
|
||||
(when check-number
|
||||
(-> (checks/get-graphql {:company-id company-id
|
||||
:bank-account-id bank-account-id
|
||||
:check-number check-number})
|
||||
first
|
||||
:id)))
|
||||
@@ -50,10 +51,11 @@
|
||||
status :status}
|
||||
transaction
|
||||
transaction (if (= 0 (rand-int 3))
|
||||
(assoc-in transaction [:description :original] (str "check xxx" (rand-nth ["6789" "1234" "6790"])))
|
||||
(assoc-in transaction [:description :original] (str "check xxx1236"))
|
||||
transaction)
|
||||
check-number (extract-check-number transaction)
|
||||
company-id (account->company account-id) ]]
|
||||
company-id (account->company account-id)
|
||||
bank-account-id (yodlee-account-id->bank-account-id account-id)]]
|
||||
|
||||
(try
|
||||
(transactions/upsert!
|
||||
@@ -69,7 +71,7 @@
|
||||
:company-id company-id
|
||||
:check-number check-number
|
||||
:bank-account-id (yodlee-account-id->bank-account-id account-id)
|
||||
:check-id (transaction->check-id transaction check-number company-id)
|
||||
:check-id (transaction->check-id transaction check-number company-id bank-account-id)
|
||||
})
|
||||
(catch Exception e
|
||||
(println e))))))
|
||||
|
||||
Reference in New Issue
Block a user