last attempt.
This commit is contained in:
@@ -547,9 +547,9 @@
|
||||
:journal_entries (reduce
|
||||
(fn [[acc last-je] je]
|
||||
(let [next-je (assoc je :running_balance
|
||||
(- (+ (:running_balance last-je 0.0)
|
||||
(:debit je 0.0))
|
||||
(:credit je 0.0)))]
|
||||
(- (+ (or (:running_balance last-je 0.0) 0.0)
|
||||
(or (:debit je 0.0) 0.0))
|
||||
(or (:credit je 0.0) 0.0)))]
|
||||
[(conj acc next-je) next-je]))
|
||||
[]
|
||||
journal-entries)})})
|
||||
|
||||
Reference in New Issue
Block a user