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

Allows making rules by client group

Browse Source
This commit is contained in:
Bryce
2024-02-08 15:56:46 -08:00
parent a5e6b0549d
commit c290c34ec7
8 changed files with 75 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -22,6 +22,7 @@
:transaction-rule/amount-gte
:transaction-rule/dom-lte
:transaction-rule/dom-gte
:transaction-rule/client-group
{:transaction-rule/client [:client/name :db/id :client/code]}
{:transaction-rule/bank-account [:db/id :bank-account/name]}
{:transaction-rule/yodlee-merchant [:db/id :yodlee-merchant/name :yodlee-merchant/yodlee-id]}
@@ -117,7 +118,10 @@
[?e :transaction-rule/transaction-approval-status]
(or-join [?e ?c]
[?e :transaction-rule/client ?c]
(not [?e :transaction-rule/client]))]
(and [?c :client/groups ?g]
[?e :transaction-rule/client-group ?g])
(and (not [?e :transaction-rule/client])
(not [?e :transaction-rule/client-group])))]
(dc/db conn)
client-id
default-read)))
default-read)))

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

@@ -231,7 +231,7 @@
(defn get-by-id [id]
(->
(dc/pull (dc/db conn)
'[* {:transaction/client [:client/name :db/id :client/code :client/locations]
'[* {:transaction/client [:client/name :db/id :client/code :client/locations :client/groups]
:transaction/approval-status [:db/ident :db/id]
:transaction/bank-account [:bank-account/name :bank-account/code :bank-account/yodlee-account-id :db/id :bank-account/locations :bank-account/current-balance]
:transaction/vendor [:db/id :vendor/name]