From 721cab056bcb41e42a3a2f0e0c507b8a21f53835 Mon Sep 17 00:00:00 2001 From: Bryce Date: Wed, 25 Sep 2024 22:24:32 -0700 Subject: [PATCH] error --- src/clj/auto_ap/ledger.clj | 13 ------------- 1 file changed, 13 deletions(-) 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