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

attempt for the crazy

Browse Source
This commit is contained in:
Bryce Covert
2022-10-24 22:43:38 -07:00
parent fa8b9b0ab2
commit c8012555ff
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -511,7 +511,7 @@
c (d/pull (d/db conn) '[:client/locations] client-id) ]
location (:client/locations c)
category (:categories input)
:let [journal-entries (->> (get-ledger-page context
:let [all-journal-entries (->> (get-ledger-page context
{:filters {:client_id client-id
:location location
:date_range (:date_range input)
@@ -537,15 +537,15 @@
:description (or (:name (:vendor je))
(:alternate_description je))
:account (:account jel)
:location (:location jel)})))))
(group-by #(account-lookup (get-in % [:account :id]))))]
[account journal-entries] journal-entries
:location (:location jel)}))))))
journal-entries-by-account (group-by #(account-lookup (get-in % [:account :id])))]
[account journal-entries] (conj journal-entries-by-account [nil all-journal-entries])
:let [journal-entries (first (reduce
(fn [[acc last-je] je]
(let [next-je (assoc je :running_balance
(- (+ (or (:running_balance last-je 0.0) 0.0)
(or (:debit je 0.0) 0.0))
(or (:credit 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]))
[]
(sort-by :date journal-entries)))]]
@@ -553,9 +553,9 @@
:client_id client-id
:location location
:account account
:journal_entries (sort-by :date journal-entries)
:total (- (or (reduce + 0.0 (map #(or (:debit %) 0.0) journal-entries)) 0.0)
(or (reduce + 0.0 (map #(or (:credit %) 0.0) journal-entries)) 0.0))})})
:journal_entries (when account (sort-by :date journal-entries))
:total (- (or (reduce + 0.0 (map #(or (:credit %) 0.0) journal-entries)) 0.0)
(or (reduce + 0.0 (map #(or (:debit %) 0.0) journal-entries)) 0.0))})})