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

Makes transaction pencil much faster.

Browse Source
This commit is contained in:
Bryce Covert
2023-04-07 20:38:02 -07:00
parent a3ac3e825b
commit ed37b19d6a
5 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -16,7 +16,8 @@
[auto-ap.utils :refer [dollars=]]
[clj-time.coerce :as c]
[clojure.string :as str]
[datomic.client.api :as dc]))
[datomic.client.api :as dc]
[com.brunobonacci.mulog :as mu]))
(defn get-transaction-rule-page [context args _]
(let [args (assoc args :id (:id context))
@@ -27,8 +28,12 @@
(defn get-transaction-rule-matches [context args _]
(if (= "admin" (:user/role (:id context)))
(let [all-rules (tr/get-all)
transaction (update (d-transactions/get-by-id (:transaction_id args)) :transaction/date c/to-date)]
(let [transaction (update (d-transactions/get-by-id (:transaction_id args)) :transaction/date c/to-date)
all-rules (tr/get-all-for-client (:db/id (:transaction/client transaction)))
]
(mu/log ::counted
:count (count all-rules))
(map ->graphql (rm/get-matching-rules transaction all-rules)))
nil))