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

attempt.

Browse Source
This commit is contained in:
Bryce Covert
2022-11-16 12:58:15 -08:00
parent 20d729851a
commit aa1090e541
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -546,7 +546,7 @@
(- (or (reduce + 0.0 (map #(or (:credit %) 0.0) all-journal-entries)) 0.0) (- (or (reduce + 0.0 (map #(or (:credit %) 0.0) all-journal-entries)) 0.0)
(or (reduce + 0.0 (map #(or (:debit %) 0.0) all-journal-entries)) 0.0)) ) (or (reduce + 0.0 (map #(or (:debit %) 0.0) all-journal-entries)) 0.0)) )
journal-entries-by-account (group-by #(account-lookup (get-in % [:account :id])) all-journal-entries)] journal-entries-by-account (group-by #(account-lookup (get-in % [:account :id])) all-journal-entries)]
[account journal-entries] (conj journal-entries-by-account [nil all-journal-entries]) [account journal-entries] (conj (vec journal-entries-by-account) [nil all-journal-entries])
:let [journal-entries (first (reduce :let [journal-entries (first (reduce
(fn [[acc last-je] je] (fn [[acc last-je] je]
(let [next-je (assoc je :running_balance (let [next-je (assoc je :running_balance