From 01347ff3f56a59ef2e22e92833704a7cfa6cc039 Mon Sep 17 00:00:00 2001 From: Bryce Date: Mon, 2 Mar 2026 22:53:53 -0800 Subject: [PATCH] fixes balance sheet --- src/clj/auto_ap/ssr/ledger/balance_sheet.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/clj/auto_ap/ssr/ledger/balance_sheet.clj b/src/clj/auto_ap/ssr/ledger/balance_sheet.clj index 185faba3..adfc67e5 100644 --- a/src/clj/auto_ap/ssr/ledger/balance_sheet.clj +++ b/src/clj/auto_ap/ssr/ledger/balance_sheet.clj @@ -81,7 +81,7 @@ data (into [] (for [client-id client-ids d date - [client-id account-id location debits credits balance count] (iol-ion.query/detailed-account-snapshot (dc/db conn) client-id (coerce/to-date (time/plus d (time/days 1)))) + [client-id account-id location debits credits balance count] (iol-ion.query/detailed-account-snapshot (dc/db conn) client-id (coerce/to-date d)) :let [account ((or (lookup-account client-id) {}) account-id)]] {:client-id client-id :account-id account-id