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

partway through transaction rules

Browse Source
This commit is contained in:
Bryce Covert
2020-08-24 20:54:51 -07:00
parent 84137161bf
commit ace220672d
21 changed files with 118 additions and 105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/cljs/auto_ap/views/pages/admin/accounts.cljs
View File

@@ -69,9 +69,9 @@
(str/lower-case (:name-like params))))
(not-empty (:code-like params)) (filter #(str/starts-with? (str (or (:numeric-code %) ""))
(str/lower-case (:code-like params)))))]
(assoc (grid/virtual-paginate-controls (:start params ) matching-accounts)
(assoc (grid/virtual-paginate-controls (:start params ) (:per-page params) matching-accounts)
:data (grid/virtual-paginate (:start params)
(:per-page params)
(sort-by :numeric-code matching-accounts))))))
(defn accounts-table [{:keys [accounts]}]

4
src/cljs/auto_ap/views/pages/admin/clients.cljs
View File

@@ -66,8 +66,8 @@
(str/lower-case (:name params))))
(not-empty (:code params)) (filter #(= (str/lower-case (or (:code %) ""))
(str/lower-case (:code params)))))]
(assoc (grid/virtual-paginate-controls (:start params ) matching-clients)
:data (grid/virtual-paginate (:start params) matching-clients)))))
(assoc (grid/virtual-paginate-controls (:start params ) (:per-page params) matching-clients)
:data (grid/virtual-paginate (:start params) (:per-page params) matching-clients)))))
(def admin-clients-content

93
src/cljs/auto_ap/views/pages/admin/rules.cljs
View File

@@ -15,7 +15,10 @@
[auto-ap.utils :refer [replace-by merge-by]]
[re-frame.core :as re-frame]
[auto-ap.status :as status]
[auto-ap.effects.forward :as forward]))
[auto-ap.effects.forward :as forward]
[auto-ap.views.pages.data-page :as data-page]
[clojure.set :as set]
[auto-ap.views.components.buttons :as buttons]))
;; SUBS
@@ -28,88 +31,55 @@
;; EVENTS
(defn ungraphql-transaction-rule [x]
(-> x
(update :amount-lte #(some-> % js/parseFloat))
(update :amount-gte #(some-> % js/parseFloat))))
(re-frame/reg-event-db
::edit-completed
(fn [db [_ edit-transaction-rule]]
(-> db
(update-in [::page :transaction-rules]
replace-by :id
(-> edit-transaction-rule
ungraphql-transaction-rule
(assoc :class "live-added"))))))
(re-frame/reg-event-db
::received
(fn [db [_ data]]
(-> db
(update ::page merge
(-> data
:transaction-rule-page
(update :transaction-rules (fn [rules]
(mapv ungraphql-transaction-rule rules))))))))
(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))))
(re-frame/reg-event-fx
::params-change
[with-user ]
(fn [{:keys [db user] :as cofx} [_ params]]
{:graphql {:token user
:owns-state {:single ::page}
:owns-state {:single [::data-page/page ::page]}
:query-obj {:venia/queries [[:transaction_rule_page
(or params {})
{:vendor-id (:id (:vendor params))
:client-id (:id @(re-frame/subscribe [::subs/client]))}
[[:transaction-rules default-read]
:total
:start
:end]]]}
:on-success [::received]}
:set-uri-params (dissoc params
:client-id)}))
:on-success (fn [result]
[::data-page/received ::page
(set/rename-keys (:transaction-rule-page result)
{:transaction-rules :data})])}}))
(re-frame/reg-event-fx
::new-rule-clicked
(fn [{:keys [db]} _]
{:dispatch [::form/adding {:client @(re-frame/subscribe [::subs/client])}]}))
(re-frame/reg-event-db
::deleted-transaction-rule
[(re-frame/path [::page :transaction-rules])]
(fn [transaction-rules [_ {id :delete-transaction-rule}]]
(merge-by transaction-rules :id {:id id :class "live-removed"})))
(re-frame/reg-event-fx
::mounted
(fn [{:keys [db]}]
{:dispatch-n [[::events/yodlee-merchants-needed]]
::forward/register {:id ::page
:events #{::table/deleted-transaction-rule}
:event-fn (fn [[_ result]]
[::deleted-transaction-rule result])}
::forward/register [{:id ::page
:events #{::form/updated}
:event-fn (fn [[_ result]]
[::data-page/updated-entity ::page result])}
{:id ::deleted-transaction-rule
:events #{::table/deleted-transaction-rule }
:event-fn (fn [[_ result]]
[::data-page/deleted-entity ::page result])}]
::track/register {:id ::params
:subscription [::params]
:event-fn (fn [params] [::params-change params])}}))
:subscription [::data-page/params ::page]
:event-fn (fn [params]
[::params-change params])}}))
(re-frame/reg-event-fx
::unmounted
(fn [{:keys [db]}]
{::forward/dispose {:id ::page}
{:dispatch [::data-page/dispose ::page]
::forward/dispose [{:id ::page}
{:id ::deleted-transaction-rule}]
::track/dispose {:id ::params}}))
;; VIEWS
@@ -122,12 +92,11 @@
[:h1.title "Transaction Rules"]
(when (= "admin" (:user/role user))
[:div.is-pulled-right
[:button.button.is-outlined.is-primary {:on-click (dispatch-event [::new-rule-clicked])} "New Rule"]])
[table/table {:id :transactions
:params (re-frame/subscribe [::params])
:rule-page (re-frame/subscribe [::page])
:status @(re-frame/subscribe [::status/single ::page])}]
]))
[buttons/new-button {:event [::new-rule-clicked]
:class "is-primary"
:name "Transaction Rule"}]])
[table/table {:id :transaction-rules
:data-page ::page}]]))
{:component-did-mount (dispatch-event [::mounted ])
:component-will-unmount #(re-frame/dispatch-sync [::unmounted])}))
@@ -137,5 +106,5 @@
[side-bar/rule-side-bar]]
:main [rules-content]
:right-side-bar [appearing-side-bar {:visible? active?}
[form/form {:rule-saved [::edit-completed]}]]
[form/form {:data-page ::page}]]
:bottom [results-modal/test-results-modal]}]))

10
src/cljs/auto_ap/views/pages/admin/rules/form.cljs
View File

@@ -85,6 +85,11 @@
(assoc :bank-account-id (:id (:bank-account data))))}
default-read]}]}))
(defn ungraphql-transaction-rule [x]
(-> x
(update :amount-lte #(some-> % js/parseFloat))
(update :amount-gte #(some-> % js/parseFloat))))
(re-frame/reg-sub
::test-query
:<- [::forms/form ::form]
@@ -182,7 +187,8 @@
{:graphql
{:token user
:query-obj @(re-frame/subscribe [::query])
:on-success [::succeeded params]
:on-success (fn [result]
[::updated (:upsert-transaction-rule result)])
:on-error [::forms/save-error ::form]}}))
(re-frame/reg-event-fx
@@ -196,7 +202,7 @@
:on-error [::forms/save-error ::form]}}))
(re-frame/reg-event-fx
::succeeded
::updated
[(forms/triggers-stop ::form)]
(fn [{:keys [db]} [_ {:keys [rule-saved]} result]]
{:db (forms/start-form db ::form {:client @(re-frame/subscribe [::subs/client])})

17
src/cljs/auto_ap/views/pages/admin/rules/table.cljs
View File

@@ -14,7 +14,8 @@
[re-frame.core :as re-frame]
[reagent.core :as reagent]
[reagent.core :as r]
[auto-ap.views.components.modal :as modal]))
[auto-ap.views.components.modal :as modal]
[auto-ap.views.pages.data-page :as data-page]))
(re-frame/reg-event-fx
::run-clicked
@@ -100,17 +101,13 @@
(defn table* [{:keys [id rule-page params status]}]
(let [{:keys [transaction-rules start end count total]} @rule-page
(defn table* [{:keys [id data-page]}]
(let [{:keys [data]} @(re-frame/subscribe [::data-page/page data-page])
selected-client @(re-frame/subscribe [::subs/client])
opc (fn [p]
(re-frame/dispatch [::params-changed p]))
states @(re-frame/subscribe [::status/multi ::run])]
[grid/grid {:on-params-change opc
:params @(re-frame/subscribe [::table-params])
:status status
[grid/grid {:data-page data-page
:column-count 6}
[grid/controls {:start start :end end :count count :total total}]
[grid/controls data]
[grid/table {:fullwidth true }
[grid/header
[grid/row {}
@@ -134,7 +131,7 @@
[grid/header-cell {:style {:width (action-cell-width 3)}}]]]
[grid/body
(for [{:keys [client bank-account description amount-lte amount-gte note id] :as r} transaction-rules]
(for [{:keys [client bank-account description amount-lte amount-gte note id] :as r} (:data data)]
^{:key id}
[grid/row {:class (:class r)}
[grid/cell {} (:name client)]

4
src/cljs/auto_ap/views/pages/admin/users.cljs
View File

@@ -42,8 +42,8 @@
:<- [::params]
:<- [::users]
(fn [[params all-users]]
(assoc (grid/virtual-paginate-controls (:start params ) all-users)
:data (grid/virtual-paginate (:start params) all-users))))
(assoc (grid/virtual-paginate-controls (:start params ) (:per-page params) all-users )
:data (grid/virtual-paginate (:start params) (:per-page params) all-users))))
(re-frame/reg-event-fx
::mounted

4
src/cljs/auto_ap/views/pages/admin/vendors.cljs
View File

@@ -84,8 +84,8 @@
(let [matching-vendors (cond->> all-vendors
(:name-like params) (filter #(str/includes? (str/lower-case (or (:name %) ""))
(str/lower-case (:name-like params)))))]
(assoc (grid/virtual-paginate-controls (:start params ) matching-vendors)
:data (grid/virtual-paginate (:start params) matching-vendors)))))
(assoc (grid/virtual-paginate-controls (:start params ) (:per-page params) matching-vendors)
:data (grid/virtual-paginate (:start params) (:per-page params) matching-vendors)))))