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

test

Browse Source
This commit is contained in:
Bryce Covert
2022-10-22 21:48:53 -07:00
parent 3777b19ef1
commit 824a12f4b0
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -544,15 +544,16 @@
:client_id client-id :client_id client-id
:location location :location location
:account account :account account
:journal_entries (reduce :journal_entries
(fn [[acc last-je] je] (first (reduce
(let [next-je (assoc je :running_balance (fn [[acc last-je] je]
(- (+ (or (:running_balance last-je 0.0) 0.0) (let [next-je (assoc je :running_balance
(or (:debit je 0.0) 0.0)) (- (+ (or (:running_balance last-je 0.0) 0.0)
(or (:credit je 0.0) 0.0)))] (or (:debit je 0.0) 0.0))
[(conj acc next-je) next-je])) (or (:credit je 0.0) 0.0)))]
[] [(conj acc next-je) next-je]))
journal-entries)})}) []
journal-entries))})})