error
This commit is contained in:
@@ -490,19 +490,6 @@
|
||||
[0.0 []]
|
||||
(:dirty-entries account-needing-refresh)))))
|
||||
|
||||
(let [db (dc/db conn)
|
||||
account-needing-rebuild
|
||||
{:account (pull-id (dc/db conn) [:bank-account/code "SCCB-2888CB"])
|
||||
:client (pull-id (dc/db conn) [:client/code "SCCB"])
|
||||
:location "A"}
|
||||
|
||||
result (-> account-needing-rebuild
|
||||
(assoc :dirty-entries (get-entries-to-refresh account-needing-rebuild db))
|
||||
(assoc :account-type (:account_type ((build-account-lookup (:client account-needing-rebuild)) (:account account-needing-rebuild))))
|
||||
(compute-running-balance))]
|
||||
(alog/info ::recomputed-entries-with-new-sum :count (count result))
|
||||
result)
|
||||
|
||||
(defn refresh-running-balance-accounts [accounts-needing-rebuild clients c i db]
|
||||
|
||||
(mu/log ::found-accounts-needing-rebuild
|
||||
|
||||
Reference in New Issue
Block a user