153 lines
5.7 KiB
Clojure
153 lines
5.7 KiB
Clojure
(ns auto-ap.views.pages.transactions
|
|
(:require [auto-ap.events :as events]
|
|
[auto-ap.forms :as forms]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.views.components.bank-account-filter :refer [bank-account-filter]]
|
|
[auto-ap.views.components.layouts :refer [appearing-side-bar side-bar-layout]]
|
|
[auto-ap.views.components.modal :refer [action-modal]]
|
|
[auto-ap.views.components.paginator :refer [paginator]]
|
|
[auto-ap.views.components.sorter :refer [sorted-column]]
|
|
[auto-ap.views.pages.transactions.form :as edit]
|
|
[auto-ap.views.pages.transactions.table :as table]
|
|
[auto-ap.utils :refer [replace-by]]
|
|
[auto-ap.views.pages.transactions.manual :as manual]
|
|
[auto-ap.views.utils :refer [bind-field date->str dispatch-event nf]]
|
|
[goog.string :as gstring]
|
|
[re-frame.core :as re-frame]))
|
|
|
|
(def transaction-read
|
|
[:id
|
|
:amount
|
|
[:vendor [:name :id]]
|
|
:date
|
|
:post_date
|
|
:status
|
|
:description_original
|
|
[:payment [:check_number :s3_url]]
|
|
[:client [:name :id]]
|
|
[:bank-account [:name :yodlee-account-id]]])
|
|
|
|
(re-frame/reg-event-db
|
|
::edit-completed
|
|
(fn [db [_ edit-transaction]]
|
|
(-> db
|
|
(update-in [::transaction-page :transactions]
|
|
replace-by :id (assoc edit-transaction :class "live-added")))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::manual-import-completed
|
|
(fn [{:keys [db]} [_ {:keys [imported errors]}]]
|
|
{:dispatch [::params-change {}]
|
|
:db (-> db
|
|
(assoc-in [::notification :message] (str "Successfully imported " imported " transactions"))
|
|
(assoc-in [::notification :errors] errors))}))
|
|
|
|
(re-frame/reg-sub
|
|
::transaction-page
|
|
(fn [db]
|
|
(-> db ::transaction-page)))
|
|
|
|
(re-frame/reg-sub
|
|
::params
|
|
(fn [db]
|
|
(-> db (::params {}))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::params-change
|
|
(fn [cofx [_ params]]
|
|
|
|
{:db (-> (:db cofx)
|
|
(assoc-in [:status :loading] true)
|
|
(assoc-in [::params] params))
|
|
:graphql {:token (-> cofx :db :user)
|
|
:query-obj {:venia/queries [[:transaction_page
|
|
(assoc params :client-id (:id @(re-frame/subscribe [::subs/client])))
|
|
[[:transactions transaction-read]
|
|
:total
|
|
:start
|
|
:end]]]}
|
|
:on-success [::received]}}))
|
|
|
|
(re-frame/reg-event-db
|
|
::received
|
|
(fn [db [_ data]]
|
|
(-> db
|
|
(assoc ::transaction-page (first (:transaction-page data)))
|
|
(assoc-in [:status :loading] false))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::invalidated
|
|
(fn [cofx [_ params]]
|
|
{:dispatch [::params-change @(re-frame/subscribe [::params])]}))
|
|
|
|
|
|
(re-frame/reg-event-db
|
|
::change-selected-bank-account
|
|
(fn [db [_ key value]]
|
|
(let [[key] key
|
|
updated (assoc-in db [::transaction-page :bank-account-filter key] value)]
|
|
(if (and (= key :id)
|
|
(not= value (get-in db [::params :bank-account-id])))
|
|
(do
|
|
(re-frame/dispatch [::params-change (assoc (::params updated) :bank-account-id value)])
|
|
(assoc-in updated [::params :bank-account-id] value))
|
|
updated))))
|
|
|
|
(re-frame/reg-sub
|
|
::notification
|
|
(fn [db]
|
|
(-> db ::notification)))
|
|
|
|
(def transactions-content
|
|
|
|
(with-meta
|
|
(fn []
|
|
(let [notification (re-frame/subscribe [::notification])
|
|
current-client @(re-frame/subscribe [::subs/client])
|
|
user @(re-frame/subscribe [::subs/user])]
|
|
[:div
|
|
[:h1.title "Transactions"]
|
|
(when (= "admin" (:user/role user))
|
|
(list
|
|
(when (:message @notification)
|
|
(list
|
|
[:div.notification
|
|
(:message @notification)]
|
|
(when (seq (:errors @notification))
|
|
[:div.notification.is-danger
|
|
[:h3 (count (:errors @notification)) " errors:"]
|
|
[:ul
|
|
(for [transaction (:errors @notification)
|
|
error (:errors transaction)]
|
|
[:li (:description-original transaction) "-" (:details error)])]])))
|
|
[:div.is-pulled-right
|
|
[:div.buttons
|
|
[:button.button.is-danger {:on-click (dispatch-event [::manual/opening])}
|
|
"Manage Rules"]
|
|
[:button.button.is-danger {:on-click (dispatch-event [::manual/opening])}
|
|
"Manual Yodlee Import"]]]))
|
|
[table/table {:id :transactions
|
|
:params (re-frame/subscribe [::params])
|
|
:transaction-page (re-frame/subscribe [::transaction-page])
|
|
:status (re-frame/subscribe [::subs/status])
|
|
:on-params-change (fn [params]
|
|
(re-frame/dispatch [::params-change params]))}]
|
|
[manual/modal {:import-completed [::manual-import-completed ]}]]))
|
|
{:component-will-mount #(re-frame/dispatch-sync [::params-change {}]) }))
|
|
|
|
(defn transactions-page []
|
|
(let [{transaction-bar-active? :active?} @(re-frame/subscribe [::forms/form ::edit/edit-transaction])]
|
|
[side-bar-layout
|
|
{:side-bar [:div
|
|
[:p.menu-label "Bank Account"]
|
|
[:div
|
|
[bank-account-filter
|
|
{:on-change-event [::change-selected-bank-account]
|
|
:value (:bank-acount-filter @(re-frame/subscribe [::transaction-page]))
|
|
:bank-accounts @(re-frame/subscribe [::subs/bank-accounts])}]]]
|
|
:main [transactions-content]
|
|
:right-side-bar [appearing-side-bar
|
|
{:visible? transaction-bar-active?}
|
|
[edit/form {:edit-completed [::edit-completed]}]]}]))
|
|
|