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

supporting transaction automation

Browse Source
This commit is contained in:
Bryce Covert
2019-05-16 13:45:14 -07:00
parent 6d85c2d67c
commit 26fbb89345
9 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/datomic/transaction_rules.clj
View File

@@ -11,7 +11,7 @@
(def default-read '[*
{:transaction-rule/client [:client/name :db/id :client/code]}
{:transaction-rule/bank-account [*]}
{:transaction-rule/yodlee-merchant [*]}
{:transaction-rule/yodlee-merchant [:db/id :yodlee-merchant/name :yodlee-merchant/yodlee-id]}
{:transaction-rule/transaction-approval-status [:db/id :db/ident]}
{:transaction-rule/vendor [:vendor/name :db/id :vendor/default-account]}
{:transaction-rule/accounts [:transaction-rule-account/percentage

2
src/clj/auto_ap/datomic/yodlee_merchants.clj
View File

@@ -5,7 +5,7 @@
(defn get-merchants [args]
;; TODO admin?
(let [query {:query {:find ['(pull ?e [:yodlee-merchant/name :yodlee-merchant/yodlee-id])]
(let [query {:query {:find ['(pull ?e [:yodlee-merchant/name :yodlee-merchant/yodlee-id :db/id])]
:in ['$]
:where [['?e :yodlee-merchant/name]]}
:args [(d/db (d/connect uri))]}]

5
src/clj/auto_ap/graphql.clj
View File

@@ -539,6 +539,7 @@
:note {:type 'String}
:bank_account_id {:type :id}
:client_id {:type :id}
:yodlee_merchant_id {:type :id}
:amount_lte {:type :money}
:amount_gte {:type :money}
:dom_lte {:type 'Int}
@@ -851,7 +852,9 @@
(catch Exception e
(if-let [v (:validation-error (ex-data e))]
(println "validation error" v)
(println e))
(do
(.printStackTrace e)
(println e )))
(throw e)))))

3
src/clj/auto_ap/graphql/transaction_rules.clj
View File

@@ -36,7 +36,7 @@
:account account_id
:location location}))
;; TODO ASSERT ADMIN
(defn upsert-transaction-rule [context {{:keys [id description note client_id bank_account_id amount_lte amount_gte vendor_id accounts transaction_approval_status ]} :transaction_rule :as z} value]
(defn upsert-transaction-rule [context {{:keys [id description yodlee_merchant_id note client_id bank_account_id amount_lte amount_gte vendor_id accounts transaction_approval_status ]} :transaction_rule :as z} value]
#_(assert-admin (:id context))
(let [existing-transaction (tr/get-by-id id)
deleted (deleted-accounts existing-transaction accounts)
@@ -53,6 +53,7 @@
:note note
:client client_id
:bank-account bank_account_id
:yodlee-merchant yodlee_merchant_id
:amount-lte amount_lte
:amount-gte amount_gte
:vendor vendor_id