Makes plaid merchants automatically assigned when first set up
This commit is contained in:
@@ -361,14 +361,18 @@
|
||||
(when missing-locations
|
||||
(throw (ex-info (str "Location '" (str/join ", " missing-locations) "' not found on client.") {})) )
|
||||
|
||||
(audit-transact [[:upsert-transaction {:db/id id
|
||||
:transaction/vendor vendor_id
|
||||
:transaction/approval-status (some->> approval_status
|
||||
name
|
||||
snake->kebab
|
||||
(keyword "transaction-approval-status"))
|
||||
:transaction/accounts (map transaction-account->entity accounts)
|
||||
:transaction/forecast-match forecast_match}]]
|
||||
(audit-transact (cond-> [[:upsert-transaction {:db/id id
|
||||
:transaction/vendor vendor_id
|
||||
:transaction/approval-status (some->> approval_status
|
||||
name
|
||||
snake->kebab
|
||||
(keyword "transaction-approval-status"))
|
||||
:transaction/accounts (map transaction-account->entity accounts)
|
||||
:transaction/forecast-match forecast_match}]]
|
||||
(and (:transaction/plaid-merchant existing-transaction)
|
||||
(not (pull-attr (dc/db conn) :vendor/plaid-merchant vendor_id)))
|
||||
(conj {:db/id vendor_id
|
||||
:vendor/plaid-merchant (-> existing-transaction :transaction/plaid-merchant :db/id)}))
|
||||
(:id context))
|
||||
(solr/touch-with-ledger id)
|
||||
(-> (d-transactions/get-by-id id)
|
||||
|
||||
Reference in New Issue
Block a user