141 lines
6.3 KiB
Clojure
141 lines
6.3 KiB
Clojure
(ns auto-ap.views.pages.transactions
|
|
(:require [auto-ap.effects.forward :as forward]
|
|
[auto-ap.forms :as forms]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.utils :refer [replace-by]]
|
|
[auto-ap.views.components.layouts
|
|
:refer
|
|
[appearing-side-bar side-bar-layout]]
|
|
[auto-ap.views.pages.data-page :as data-page]
|
|
[auto-ap.views.pages.transactions.common :refer [transaction-read]]
|
|
[auto-ap.views.pages.transactions.form :as edit]
|
|
[auto-ap.views.pages.transactions.manual :as manual]
|
|
[auto-ap.views.pages.transactions.side-bar :as side-bar]
|
|
[auto-ap.views.pages.transactions.table :as table]
|
|
[auto-ap.views.utils :refer [dispatch-event with-user]]
|
|
[clojure.set :as set]
|
|
[re-frame.core :as re-frame]
|
|
[reagent.core :as reagent]
|
|
[vimsical.re-frame.fx.track :as track]
|
|
[auto-ap.status :as status]))
|
|
|
|
|
|
|
|
(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)
|
|
:bank-account-id (:id (:bank-account params))
|
|
:amount-gte (:amount-gte (:amount-range params))
|
|
:amount-lte (:amount-lte (:amount-range params))
|
|
:description (:description params)
|
|
:approval-status (condp = @(re-frame/subscribe [::subs/active-page])
|
|
:transactions nil
|
|
:unapproved-transactions :unapproved
|
|
:requires-feedback-transactions :requires-feedback
|
|
:excluded-transactions :excluded
|
|
:approved-transactions :approved)})
|
|
|
|
(re-frame/reg-event-fx
|
|
::params-change
|
|
[with-user]
|
|
(fn [{:keys [user db ]} [_ params]]
|
|
{:graphql {:token user
|
|
:owns-state {:single [::data-page/page ::page]}
|
|
:query-obj {:venia/queries [[:transaction_page
|
|
(data-params->query-params params)
|
|
[[:transactions transaction-read]
|
|
:total
|
|
:start
|
|
:end]]]}
|
|
:on-success (fn [result]
|
|
[::data-page/received ::page (set/rename-keys (first (:transaction-page result))
|
|
{:transactions :data})])}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::unapprove-all
|
|
(fn [cofx [_ params]]
|
|
|
|
{:db (-> (:db cofx)
|
|
(assoc-in [:status :loading] true))
|
|
:graphql {:token (-> cofx :db :user)
|
|
:owns-state {:single ::unapprove-all}
|
|
:query-obj
|
|
{:venia/operation {:operation/type :mutation
|
|
:operation/name "UnapproveTransactions"}
|
|
:venia/queries [{:query/data
|
|
[:unapprove-transactions
|
|
(data-params->query-params params)
|
|
[[:transactions transaction-read]
|
|
:total
|
|
:start
|
|
:end]]}]}
|
|
:on-success (fn [result]
|
|
[::data-page/received ::page (set/rename-keys (first (:unapprove-transactions result))
|
|
{:transactions :data})])}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::unmounted
|
|
(fn [{:keys [db]} _]
|
|
{:dispatch-n [[::data-page/dispose ::page]
|
|
[::status/dispose-single ::manual-import]]
|
|
::track/dispose {:id ::params}
|
|
::forward/dispose [{:id ::updated}
|
|
{:id ::manual-import}]}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::mounted
|
|
(fn [{:keys [db]} _]
|
|
{::track/register {:id ::params
|
|
:subscription [::data-page/params ::page]
|
|
:event-fn (fn [params]
|
|
[::params-change params])}
|
|
::forward/register [{:id ::updated
|
|
:events #{::edit/edited}
|
|
:event-fn (fn [[_ edited-transaction]]
|
|
[::data-page/updated-entity ::page edited-transaction])}
|
|
{:id ::manual-import
|
|
:events #{::manual/import-completed}
|
|
:event-fn (fn [[_ {:keys [imported errors] :as result}]]
|
|
[::status/info ::manual-import (str "Successfully imported " imported " transactions")])}]}))
|
|
|
|
|
|
(defn content []
|
|
(let [user @(re-frame/subscribe [::subs/user])
|
|
params @(re-frame/subscribe [::data-page/params ::page])]
|
|
[:div
|
|
[:h1.title "Transactions"]
|
|
[status/status-notification {:statuses [[::status/single ::unapprove-all]
|
|
[::status/single ::manual-import]]}]
|
|
(when (= "admin" (:user/role user))
|
|
[:div.is-pulled-right
|
|
[:div.buttons
|
|
[:button.button.is-outlined.is-primary {:on-click (dispatch-event [::manual/opening])}
|
|
"Manual Yodlee Import"]
|
|
[:button.button.is-outlined.is-danger {:on-click (dispatch-event [::unapprove-all params])
|
|
:class (status/class-for @(re-frame/subscribe [::status/single ::unapprove-all]))
|
|
:disabled (status/disabled-for @(re-frame/subscribe [::status/single ::unapprove-all]))}
|
|
"Unapprove all"]]])
|
|
[table/table {:id :transactions
|
|
:data-page ::page}]]))
|
|
|
|
|
|
(defn transactions-page [{:keys [approval-status]}]
|
|
(reagent/create-class
|
|
{:display-name "transaction-page"
|
|
:component-will-unmount #(re-frame/dispatch [::unmounted])
|
|
:component-did-mount #(re-frame/dispatch [::mounted])
|
|
:reagent-render
|
|
(fn []
|
|
(let [{transaction-bar-active? :active?} @(re-frame/subscribe [::forms/form ::edit/form])]
|
|
[side-bar-layout
|
|
{:side-bar [side-bar/side-bar {:data-page ::page}]
|
|
:main [:div ^{:key approval-status}
|
|
[content]]
|
|
:right-side-bar [appearing-side-bar
|
|
{:visible? transaction-bar-active?}
|
|
[edit/form]]}]))}))
|
|
|