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

ledger params.

Browse Source
This commit is contained in:
Bryce Covert
2020-08-22 08:10:36 -07:00
parent e8301b071d
commit 9f765fd493
6 changed files with 96 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
src/cljs/auto_ap/views/pages/ledger.cljs
View File

@@ -20,36 +20,29 @@
[re-frame.core :as re-frame]
[reagent.core :as reagent]
[auto-ap.status :as status]
[vimsical.re-frame.fx.track :as track]))
(re-frame/reg-sub
::ledger-page
(fn [db]
(-> db ::ledger-page)))
(re-frame/reg-sub
::params
:<- [::subs/client]
:<- [::side-bar/filter-params]
:<- [::table/table-params]
(fn [[client filter-params table-params]]
(cond-> {}
client (assoc :client-id (:id client))
(seq filter-params) (merge filter-params)
(seq table-params) (merge table-params))))
[vimsical.re-frame.fx.track :as track]
[auto-ap.views.pages.data-page :as data-page]
[clojure.set :as set]))
(defn data-params->query-params [params]
{:start (:start params 0)
:sort (:sort params)
:client-id (:id @(re-frame/subscribe [::subs/client]))
:vendor-id (:id (:vendor params))
:date-range (:date-range params)
:account-id (:id (:account params))
:bank-account-id (:id (:bank-account params))
:amount-gte (:amount-gte (:amount-range params))
:amount-lte (:amount-lte (:amount-range params))})
(re-frame/reg-event-fx
::params-change
[with-user]
(fn [{:keys [user db]} [_ params]]
{:graphql {:token user
:owns-state {:single ::page}
:owns-state {:single [::data-page/page ::page]}
:query-obj {:venia/queries [[:ledger-page
params
(data-params->query-params params)
[[:journal-entries [:id
:source
:amount
@@ -66,35 +59,30 @@
:total
:start
:end]]]}
:on-success [::received]}
:set-uri-params (dissoc params :status :client-id)}))
:on-success (fn [result]
[::data-page/received ::page (set/rename-keys (:ledger-page result)
{:journal-entries :data})])}}))
(re-frame/reg-event-fx
::unmounted
(fn [{:keys [db]} _]
{:db (dissoc db ::table/table-params ::side-bar/filters ::ledger-page)
::track/dispose {:id ::params}}))
{::track/dispose {:id ::params}}))
(re-frame/reg-event-fx
::mounted
(fn [{:keys [db]} _]
{::track/register {:id ::params
:subscription [::params]
:subscription [::data-page/params ::page]
:event-fn (fn [params] [::params-change params])}}))
(re-frame/reg-event-db
::received
(fn [db [_ data]]
(-> db
(assoc ::ledger-page (:ledger-page data)))))
(defn ledger-content []
(let [current-client @(re-frame/subscribe [::subs/client])]
[:div
[:h1.title "Ledger"]
[table/table {:id :ledger
:ledger-page @(re-frame/subscribe [::ledger-page])
:status @(re-frame/subscribe [::status/single ::page])}]]))
:data-page ::page}]]))
(defn ledger-page []
@@ -106,9 +94,8 @@
:reagent-render
(fn []
(if (not= "manager" (:user/role @user))
(let [params @(re-frame/subscribe [::params])]
[side-bar-layout
{:side-bar [ledger-side-bar]
:main [ledger-content]}])
[side-bar-layout
{:side-bar [ledger-side-bar {:data-page ::page}]
:main [ledger-content]}]
[:div "Not authorized"]))})))