notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Makes plaid merchants automatically assigned when first set up

Browse Source
This commit is contained in:
Bryce
2023-08-04 23:17:10 -07:00
parent 0427eca8a8
commit ed66805e8c
2 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -256,7 +256,8 @@
:account/location :account/location
{:account/client-overrides [:account-client-override/name {:account/client-overrides [:account-client-override/name
{:account-client-override/client [:db/id]}]}]}] {:account-client-override/client [:db/id]}]}]}]
:transaction/yodlee-merchant [:db/id :yodlee-merchant/yodlee-id :yodlee-merchant/name]}] :transaction/yodlee-merchant [:db/id :yodlee-merchant/yodlee-id :yodlee-merchant/name]
:transaction/plaid-merchant [:db/id :plaid-merchant/name]}]
id) id)
(update :transaction/date coerce/from-date) (update :transaction/date coerce/from-date)
(update :transaction/post-date coerce/from-date) (update :transaction/post-date coerce/from-date)

20
src/clj/auto_ap/graphql/transactions.clj
View File

@@ -361,14 +361,18 @@
(when missing-locations (when missing-locations
(throw (ex-info (str "Location '" (str/join ", " missing-locations) "' not found on client.") {})) ) (throw (ex-info (str "Location '" (str/join ", " missing-locations) "' not found on client.") {})) )
(audit-transact [[:upsert-transaction {:db/id id (audit-transact (cond-> [[:upsert-transaction {:db/id id
:transaction/vendor vendor_id :transaction/vendor vendor_id
:transaction/approval-status (some->> approval_status :transaction/approval-status (some->> approval_status
name name
snake->kebab snake->kebab
(keyword "transaction-approval-status")) (keyword "transaction-approval-status"))
:transaction/accounts (map transaction-account->entity accounts) :transaction/accounts (map transaction-account->entity accounts)
:transaction/forecast-match forecast_match}]] :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)) (:id context))
(solr/touch-with-ledger id) (solr/touch-with-ledger id)
(-> (d-transactions/get-by-id id) (-> (d-transactions/get-by-id id)