Revert "Revert "pnl""

This reverts commit 53fba14831.
This commit is contained in:
Bryce Covert
2021-10-18 06:34:23 -07:00
parent d81096b8bc
commit 2d52c2b6a7
3 changed files with 28 additions and 13 deletions

View File

@@ -174,7 +174,7 @@
vector))
:periods (mapv (fn [[start end] ] {:start (date->str start standard) :end (date->str end standard)} )
(:periods (:data db)))}
[[:periods [[:accounts [:name :amount :account-type :id :count :numeric-code :location]]]]]]]}
[[:periods [[:accounts [:name :amount :client_id :account-type :id :count :numeric-code :location]]]]]]]}
:on-success [::received]}
:set-uri-params {:periods (mapv (fn [[start end title]]
[(date->str start standard)
@@ -424,7 +424,10 @@
{:key (str "between-" i)}))]))
;; reimplement include-deltas. Are numbers even correct? support actually using more than 1 client.
(defn grouping [{:keys [header type groupings location periods all-accounts]}]
(let [params @(re-frame/subscribe [::params])]
[:<>
(doall
@@ -833,7 +836,8 @@
(fn [dt]
(str->date dt standard))
period))))
:client (:client qp)})
:client (:client qp)
:include-deltas true})
::track/register {:id ::ledger-params
:subscription [::data-page/params ::ledger]
:event-fn (fn [params] [::ledger-params-change params])}})))