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

Makes refresh much faster

Browse Source
This commit is contained in:
Bryce
2023-10-31 12:52:52 -07:00
parent 7796e34834
commit f8690edbb8
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/clj/auto_ap/ledger.clj
View File

@@ -528,16 +528,25 @@
:client-index i :client-index i
:client-count (count clients))))))) :client-count (count clients)))))))
(defn clients-needing-refresh []
(map first
(dc/q '[:find (pull ?c [:client/code :db/id])
:in $ $recent
:where [$recent ?jel :journal-entry-line/dirty true]
[$ ?je :journal-entry/line-items ?jel]
[$ ?je :journal-entry/client ?c]]
(dc/db conn)
(dc/since
(dc/db conn)
(c/to-date (t/plus (t/now) (t/hours -4)))))))
(defn refresh-running-balance-cache (defn refresh-running-balance-cache
([] (refresh-running-balance-cache (shuffle (map first ([] (refresh-running-balance-cache (shuffle (clients-needing-refresh))))
(dc/q '[:find (pull ?c [:client/code :db/id])
:where [?c :client/code]]
(dc/db conn))))))
([clients] ([clients]
(doseq [[c i] (map vector clients (range))] (doseq [[c i] (map vector clients (range))]
(mu/trace ::building-running-balance (mu/trace ::building-running-balance
[:client c] [:client c]
(mu/with-context {:client c (mu/with-context {:client c
:client-index i :client-index i
:client-count (count clients)} :client-count (count clients)}
(mu/log ::searching-for-accounts) (mu/log ::searching-for-accounts)