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

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

@@ -528,11 +528,20 @@
:client-index i :client-index i
:client-count (count clients))))))) :client-count (count clients)))))))
(defn refresh-running-balance-cache (defn clients-needing-refresh []
([] (refresh-running-balance-cache (shuffle (map first (map first
(dc/q '[:find (pull ?c [:client/code :db/id]) (dc/q '[:find (pull ?c [:client/code :db/id])
:where [?c :client/code]] :in $ $recent
(dc/db conn)))))) :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
([] (refresh-running-balance-cache (shuffle (clients-needing-refresh))))
([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