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

Should fix excel sheet.

Browse Source
This commit is contained in:
Bryce
2024-11-08 08:57:42 -08:00
parent 7e890cebee
commit 24cb9b10a2
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -190,15 +190,14 @@
(defn account-snapshot [db client-id ^java.util.Date end] (defn account-snapshot [db client-id ^java.util.Date end]
(for [running-balance-set (account-sets db client-id) (for [running-balance-set (account-sets db client-id)
:let [{id :e [client-id account-id location date _ _ current-balance] :v} :let [z
(->> running-balance-set (->> running-balance-set
(take-while (fn until-date [^Line l] (take-while (fn until-date [^Line l]
(let [^java.util.Date d (.-date l)] (let [^java.util.Date d (.-date l)]
(<= (.compareTo ^java.util.Date d end) 0)))) (<= (.compareTo ^java.util.Date d end) 0))))
last)] last) ]
:when id] :when (.-id z)]
[client-id account-id location date current-balance])) [(.-client-id z) (.-account-id z) (.-location z) (.-date z) (.-running-balance z)]))
(defn detailed-account-snapshot [db client-id ^java.util.Date end] (defn detailed-account-snapshot [db client-id ^java.util.Date end]
(for [running-balance-set (account-sets db client-id) (for [running-balance-set (account-sets db client-id)