99 lines
4.0 KiB
Clojure
99 lines
4.0 KiB
Clojure
(ns auto-ap.views.pages.ledger
|
|
(:require
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.views.components.layouts :refer [side-bar-layout]]
|
|
[auto-ap.views.pages.data-page :as data-page]
|
|
[auto-ap.views.pages.ledger.side-bar
|
|
:as side-bar
|
|
:refer [ledger-side-bar]]
|
|
[auto-ap.views.pages.ledger.table :as table]
|
|
[auto-ap.views.utils :refer [with-user date->str standard]]
|
|
[cljs-time.core :as time]
|
|
[clojure.set :as set]
|
|
[re-frame.core :as re-frame]
|
|
[reagent.core :as reagent]
|
|
[vimsical.re-frame.fx.track :as track]))
|
|
|
|
(defn data-params->query-params [params]
|
|
{:start (:start params 0)
|
|
:sort (:sort params)
|
|
:per-page (:per-page params)
|
|
:client-id (:id @(re-frame/subscribe [::subs/client]))
|
|
:vendor-id (:id (:vendor params))
|
|
:date-range (:date-range params)
|
|
:account-id (:id (:account params))
|
|
:location (:location 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]} [_ params]]
|
|
{:graphql {:token user
|
|
:owns-state {:single [::data-page/page ::page]}
|
|
:query-obj {:venia/queries [[:ledger-page
|
|
{:filters (data-params->query-params params)}
|
|
[[:journal-entries [:id
|
|
:source
|
|
:original-entity
|
|
:amount
|
|
:note
|
|
:cleared-against
|
|
:alternate-description
|
|
[:vendor
|
|
[:name :id]]
|
|
[:client
|
|
[:name :id]]
|
|
[:line-items
|
|
[:id :debit :credit :location :running-balance
|
|
[:account [:id :name]]]]
|
|
:date]]
|
|
:total
|
|
:start
|
|
:end]]]}
|
|
:on-success (fn [result]
|
|
[::data-page/received ::page (set/rename-keys (:ledger-page result)
|
|
{:journal-entries :data})])}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::unmounted
|
|
(fn [_ _]
|
|
{:dispatch [::data-page/dispose ::page]
|
|
::track/dispose {:id ::params}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::mounted
|
|
(fn [{:keys [db]} _]
|
|
{:db (assoc-in db [::data-page/settled-filters ::page :date-range] {:start (date->str (time/plus (time/now) (time/months -1))
|
|
standard)})
|
|
::track/register {:id ::params
|
|
:subscription [::data-page/params ::page]
|
|
:event-fn (fn [params] [::params-change params])}}))
|
|
|
|
|
|
|
|
(defn ledger-content []
|
|
[:div
|
|
[:h1.title "Ledger"]
|
|
[table/table {:id :ledger
|
|
:data-page ::page}]])
|
|
|
|
|
|
(defn ledger-page []
|
|
(let [user (re-frame/subscribe [::subs/user])]
|
|
(reagent/create-class
|
|
{:display-name "ledger-page"
|
|
:component-did-mount #(re-frame/dispatch [::mounted])
|
|
:component-will-unmount #(re-frame/dispatch [::unmounted])
|
|
:reagent-render
|
|
(fn []
|
|
(if (not= "manager" (:user/role @user))
|
|
[side-bar-layout
|
|
{:side-bar [ledger-side-bar {:data-page ::page}]
|
|
:main [ledger-content]}]
|
|
[:div "Not authorized"]))})))
|
|
|