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

makes it load the right value again

Browse Source
This commit is contained in:
Bryce
2024-09-27 17:03:22 -07:00
parent e25e2bfc46
commit 35609e44bf
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -397,7 +397,7 @@
(dorun
(for [{client :db/id code :client/code bank-accounts :client/bank-accounts} clients
{bank-account :db/id bac :bank-account/code} bank-accounts]
(let [{[_ _ _ _ _ running-balance] :v} (->> (dc/index-range db :journal-entry-line/running-balance-tuple [client bank-account "A"] [client bank-account "A" #inst "2050-01-01"])
(let [{[_ _ _ _ _ _ running-balance] :v} (->> (dc/index-range db :journal-entry-line/running-balance-tuple [client bank-account "A"] [client bank-account "A" #inst "2050-01-01"])
seq
(sort-by (fn [{id :e [_ _ _ current-date] :v}]
[current-date id]))
@@ -472,6 +472,8 @@
(comment
(pull-id (dc/db conn) [:client/code "SCCB"])
(mark-all-clients-dirty)
(clients-needing-refresh (dc/db conn))