diff --git a/src/clj/auto_ap/ledger.clj b/src/clj/auto_ap/ledger.clj index 391da7f6..8d8af541 100644 --- a/src/clj/auto_ap/ledger.clj +++ b/src/clj/auto_ap/ledger.clj @@ -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