putting the right fields onto the balance sheet.
This commit is contained in:
@@ -142,24 +142,12 @@
|
|||||||
(->graphql
|
(->graphql
|
||||||
{:balance-sheet-groupings
|
{:balance-sheet-groupings
|
||||||
(-> []
|
(-> []
|
||||||
(into (->> (get accounts "Assets")
|
|
||||||
(map (fn [[n accounts]]
|
|
||||||
{:name n
|
|
||||||
:grouping-type "Assets"
|
|
||||||
:accounts accounts}
|
|
||||||
))))
|
|
||||||
|
|
||||||
(into (->> (get accounts "Expenses")
|
(into (->> (get accounts "Expenses")
|
||||||
(map (fn [[n accounts]]
|
(map (fn [[n accounts]]
|
||||||
{:name n
|
{:name n
|
||||||
:grouping-type "Expenses"
|
:grouping-type "Expenses"
|
||||||
:accounts accounts}
|
:accounts accounts}
|
||||||
))))
|
|
||||||
(into (->> (get accounts "Liabilities")
|
|
||||||
(map (fn [[n accounts]]
|
|
||||||
{:name n
|
|
||||||
:grouping-type "Liabilities"
|
|
||||||
:accounts accounts}
|
|
||||||
)))))})))
|
)))))})))
|
||||||
|
|
||||||
#_(get-profit-and-loss nil {:client_id [:client/code "CBC"]
|
#_(get-profit-and-loss nil {:client_id [:client/code "CBC"]
|
||||||
|
|||||||
@@ -200,12 +200,8 @@
|
|||||||
(if @(re-frame/subscribe [::loading])
|
(if @(re-frame/subscribe [::loading])
|
||||||
[:div [:i.icon.fa.fa-spin.fa-spinner]]
|
[:div [:i.icon.fa.fa-spin.fa-spinner]]
|
||||||
[:div
|
[:div
|
||||||
[:h2.title "Assets"]
|
|
||||||
[grouping @(re-frame/subscribe [::assets])]
|
|
||||||
[:h2.title "Expenses"]
|
[:h2.title "Expenses"]
|
||||||
[grouping @(re-frame/subscribe [::expenses])]
|
[grouping @(re-frame/subscribe [::expenses])]])
|
||||||
[:h2.title "Liabilities"]
|
|
||||||
[grouping @(re-frame/subscribe [::liabilities])]])
|
|
||||||
]))
|
]))
|
||||||
{:component-will-mount #(re-frame/dispatch-sync [::params-change {:from-date (date->str (t/minus (local-now) (t/period :years 1)) standard)
|
{:component-will-mount #(re-frame/dispatch-sync [::params-change {:from-date (date->str (t/minus (local-now) (t/period :years 1)) standard)
|
||||||
:to-date (date->str (local-now) standard)}]) }))
|
:to-date (date->str (local-now) standard)}]) }))
|
||||||
|
|||||||
Reference in New Issue
Block a user