notid/integreat
1
0
Fork 0
Code Issues Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Sample ledger show

Browse Source
This commit is contained in:
Bryce
2025-05-23 17:25:18 -07:00
parent 495d290a46
commit 96934b12fd
3 changed files with 37 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
iol_ion/src/iol_ion/query.clj
View File

@@ -241,7 +241,7 @@
([db client-id ^java.util.Date end ^java.util.Date start]
(for [running-balance-set (account-sets db client-id)
:let [{:keys [account-id client-id location current-balance debits credits count]}
:let [{:keys [account-id client-id location current-balance debits credits count sample]}
(->> running-balance-set
(filter (fn until-end [^Line l]
(let [^java.util.Date d (.-date l)]
@@ -259,13 +259,15 @@
:current-balance (.-running-balance l)
:account-id (.-account-id l)
:client-id (.-client-id l)
:location (.-location l)))
:location (.-location l)
:sample (.-id l)))
(transient {:count 0
:debits 0.0
:credits 0.0
:current-balance 0.0})))]
:when client-id]
[client-id account-id location debits credits current-balance count])))
(do
[client-id account-id location debits credits current-balance count sample]))))
(comment