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

Revert "Likely improves performance of import ledger"

Browse Source 
This reverts commit ece217ad78.
This commit is contained in:
Bryce Covert
2023-03-10 17:58:07 -08:00
parent bb268cd810
commit dcf8adc273
1 changed files with 8 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -292,14 +292,12 @@
(defn import-ledger [context args _] (defn import-ledger [context args _]
(assert-admin (:id context)) (assert-admin (:id context))
(let [used-vendor-names (set (map :vendor_name (:entries args))) (let [all-vendors (mu/trace ::get-all-vendors
all-vendors (mu/trace ::get-all-vendors
[] []
(->> (d/q '[:find [?e ...] (->> (d/q '[:find [?e ...]
:in $ [?name ...] :in $
:where [?e :vendor/name ?name]] :where [?e :vendor/name]]
(d/db conn) (d/db conn))
used-vendor-names)
(d/pull-many (d/db conn) d-vendors/default-read) (d/pull-many (d/db conn) d-vendors/default-read)
(by :vendor/name))) (by :vendor/name)))
all-clients (by :client/code (d-clients/get-all )) all-clients (by :client/code (d-clients/get-all ))
@@ -333,13 +331,10 @@
_ (mu/trace ::upsert-new-vendors _ (mu/trace ::upsert-new-vendors
[] []
(audit-transact-batch (vec (vals new-hidden-vendors)) (:id context))) (audit-transact-batch (vec (vals new-hidden-vendors)) (:id context)))
all-vendors (->> (->> (d/q '[:find [?e ...] all-vendors (->> (d/q '[:find [?e ...]
:in $ [?name ...] :in $
:where [?e :vendor/name ?name]] :where [?e :vendor/name]]
(d/db conn) (d/db conn))
used-vendor-names)
(d/pull-many (d/db conn) d-vendors/default-read)
(by :vendor/name))
(d/pull-many (d/db conn) d-vendors/default-read) (d/pull-many (d/db conn) d-vendors/default-read)
(by :vendor/name)) (by :vendor/name))
all-accounts (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts)) all-accounts (transduce (map (comp str :account/numeric-code)) conj #{} (a/get-accounts))