117 lines
4.6 KiB
Clojure
117 lines
4.6 KiB
Clojure
(ns auto-ap.views.pages.payments
|
|
(:require [re-frame.core :as re-frame]
|
|
[auto-ap.entities.clients :as client]
|
|
[auto-ap.entities.vendors :as vendor]
|
|
[reagent.core :as reagent]
|
|
[goog.string :as gstring]
|
|
[clojure.spec.alpha :as s]
|
|
[vimsical.re-frame.cofx.inject :as inject]
|
|
[auto-ap.views.components.sorter :refer [sorted-column]]
|
|
[auto-ap.views.components.date-range-filter :refer [date-range-filter]]
|
|
[auto-ap.views.components.layouts :refer [side-bar-layout]]
|
|
[auto-ap.views.components.typeahead :refer [typeahead]]
|
|
[auto-ap.views.components.paginator :refer [paginator]]
|
|
[auto-ap.views.components.sort-by-list :refer [sort-by-list]]
|
|
[auto-ap.events :as events]
|
|
[auto-ap.views.utils :refer [dispatch-event date->str bind-field nf with-user]]
|
|
[auto-ap.utils :refer [by]]
|
|
[auto-ap.views.pages.payments.side-bar :as side-bar]
|
|
[auto-ap.views.pages.payments.table :as table]
|
|
[auto-ap.views.pages.check :as check]
|
|
[auto-ap.subs :as subs]))
|
|
|
|
|
|
|
|
|
|
(re-frame/reg-sub
|
|
::payment-page
|
|
(fn [db]
|
|
(-> db ::payment-page)))
|
|
|
|
(re-frame/reg-sub
|
|
::params
|
|
:<- [::subs/client]
|
|
:<- [::side-bar/filter-params]
|
|
:<- [::table/table-params]
|
|
(fn [[client filter-params table-params]]
|
|
(re-frame/dispatch [::params-change])
|
|
(cond-> {}
|
|
client (assoc :client-id (:id client))
|
|
(seq filter-params) (merge filter-params)
|
|
(seq table-params) (merge @(re-frame/subscribe [::table/table-params])))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::params-change
|
|
[with-user (re-frame/inject-cofx ::inject/sub [::params])]
|
|
(fn [{:keys [user db ::params]}[_ ]]
|
|
(when (not= (::last-params db) params)
|
|
{:db (-> db
|
|
(assoc-in [:status :loading] true)
|
|
(assoc-in [::last-params] params))
|
|
:graphql {:token user
|
|
:query-obj {:venia/queries [[:payment_page
|
|
params
|
|
[[:payments [:id :status :amount :type :check_number :s3_url
|
|
[:bank-account [:name]]
|
|
:date [:vendor [:name :id]] [:client [:name :id]]]]
|
|
:total
|
|
:start
|
|
:end]]]}
|
|
:on-success [::received]
|
|
:on-error [::events/page-failed]}})))
|
|
|
|
(re-frame/reg-event-fx
|
|
::void-check
|
|
(fn [{:keys [db]} [_ payment]]
|
|
{:graphql
|
|
{:token (-> db :user)
|
|
:query-obj {:venia/operation {:operation/type :mutation
|
|
:operation/name "VoidPayment"}
|
|
:venia/queries [{:query/data [:void-payment
|
|
{:payment-id (:id payment)}
|
|
[:id :status [:bank-account [:name]] :amount :check_number :s3_url :date [:vendor [:name :id]] [:client [:name :id]]]]}]}
|
|
:on-success [::payment-voided]}}))
|
|
|
|
(re-frame/reg-event-db
|
|
::payment-voided
|
|
(fn [db [_ {:keys [void-payment]}]]
|
|
(-> db
|
|
(update-in [::payment-page :payments] (fn [payments]
|
|
(mapv (fn [c]
|
|
(if (= (:id c) (:id void-payment))
|
|
(assoc void-payment :class "live-removed")
|
|
c))
|
|
payments))))))
|
|
|
|
(re-frame/reg-event-db
|
|
::received
|
|
(fn [db [_ data]]
|
|
(-> db
|
|
(update ::payment-page merge (first (:payment-page data)))
|
|
(assoc-in [:status :loading] false))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::unmounted
|
|
(fn [{:keys [db]} _]
|
|
{:db (dissoc db ::last-params ::table/table-params ::side-bar/filters ::payment-page)}))
|
|
|
|
(defn content []
|
|
(let [params @(re-frame/subscribe [::params])]
|
|
[:div
|
|
[:h1.title "Payments"]
|
|
[table/table {:id :payments
|
|
:payment-page (re-frame/subscribe [::payment-page])
|
|
:status (re-frame/subscribe [::subs/status])
|
|
:void-event [::void-check]}]]))
|
|
|
|
|
|
(defn payments-page []
|
|
(reagent/create-class
|
|
{:display-name "payments-page"
|
|
:component-did-mount #(re-frame/dispatch [::params-change {}])
|
|
:component-will-unmount #(re-frame/dispatch [::unmounted])
|
|
:reagent-render
|
|
(fn []
|
|
[side-bar-layout {:side-bar [side-bar/side-bar]
|
|
:main [content]}])}))
|