error
This commit is contained in:
@@ -490,19 +490,6 @@
|
|||||||
[0.0 []]
|
[0.0 []]
|
||||||
(:dirty-entries account-needing-refresh)))))
|
(: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]
|
(defn refresh-running-balance-accounts [accounts-needing-rebuild clients c i db]
|
||||||
|
|
||||||
(mu/log ::found-accounts-needing-rebuild
|
(mu/log ::found-accounts-needing-rebuild
|
||||||
|
|||||||
Reference in New Issue
Block a user