169 lines
6.4 KiB
Clojure
169 lines
6.4 KiB
Clojure
(ns auto-ap.views.pages.payments.side-bar
|
|
(:require [auto-ap.routes :as routes]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.views.utils :refer [active-when]]
|
|
[auto-ap.views.components.vendor-filter :refer [vendor-filter]]
|
|
[auto-ap.views.components.date-range-filter :refer [date-range-filter]]
|
|
[auto-ap.views.components.number-filter :refer [number-filter]]
|
|
[auto-ap.views.components.bank-account-filter :refer [bank-account-filter]]
|
|
[auto-ap.views.components.typeahead :refer [typeahead-entity]]
|
|
[bidi.bidi :as bidi]
|
|
[re-frame.core :as re-frame]))
|
|
|
|
(re-frame/reg-sub
|
|
::specific-filters
|
|
(fn [db ]
|
|
(::filters db {})))
|
|
|
|
(re-frame/reg-sub
|
|
::filters
|
|
:<- [::specific-filters]
|
|
:<- [::subs/vendors-by-id]
|
|
:<- [::subs/query-params]
|
|
(fn [[specific-filters vendors-by-id query-params] ]
|
|
(let [url-filters (-> query-params
|
|
(select-keys #{:vendor-id
|
|
:amount-gte
|
|
:amount-lte
|
|
:date-range
|
|
:check-number-like
|
|
:invoice-number}))
|
|
url-filters {:vendor (when-let [vendor-id (:vendor-id url-filters)]
|
|
{:id (str vendor-id)
|
|
:name (get-in vendors-by-id [(str vendor-id) :name] "Loading...")})
|
|
:date-range (:date-range url-filters)
|
|
:amount-range {:raw {:amount-gte (:amount-gte url-filters)
|
|
:amount-lte (:amount-lte url-filters)}
|
|
:settled {:amount-gte (:amount-gte url-filters)
|
|
:amount-lte (:amount-lte url-filters)}}
|
|
:check-number-like {:raw (:check-number-like url-filters)
|
|
:settled (:check-number-like url-filters)}
|
|
:invoice-number {:raw (:invoice-number url-filters)
|
|
:settled (:invoice-number url-filters)}}]
|
|
(println "URL filters" url-filters)
|
|
(merge url-filters specific-filters ))))
|
|
|
|
(re-frame/reg-sub
|
|
::filter
|
|
:<- [::filters]
|
|
(fn [filters [_ which]]
|
|
(filters which)))
|
|
|
|
(re-frame/reg-sub
|
|
::filter-params
|
|
:<- [::filters]
|
|
(fn [filters]
|
|
{:vendor-id (:id (:vendor filters))
|
|
:date-range (:date-range filters)
|
|
:amount-gte (:amount-gte (:settled (:amount-range filters)))
|
|
:amount-lte (:amount-lte (:settled (:amount-range filters)))
|
|
:check-number-like (:settled (:check-number-like filters))
|
|
:invoice-number (:settled (:invoice-number filters))}))
|
|
|
|
|
|
(re-frame/reg-event-fx
|
|
::filter-changed
|
|
(fn [{:keys [db]} [_ & params]]
|
|
(let [[a b c] params
|
|
[which val] (if (= 3 (count params))
|
|
[(into [a] b) c]
|
|
[[a] b])]
|
|
{:db (assoc-in db (into [::filters] which) val)})))
|
|
|
|
(re-frame/reg-event-fx
|
|
::check-number-like-settled
|
|
[(re-frame/path [::filters :check-number-like])]
|
|
(fn [{:keys [db]} [_ description]]
|
|
{:db (assoc db :settled description)
|
|
:dispatch [::filter-changed :check-number-like [:settled] description]}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::invoice-number-settled
|
|
[(re-frame/path [::filters :invoice-number])]
|
|
(fn [{:keys [db]} [_ description]]
|
|
{:db (assoc db :settled description)
|
|
:dispatch [::filter-changed :invoice-number [:settled] description]}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::amount-range-settled
|
|
[(re-frame/path [::filters :amount-range])]
|
|
(fn [{:keys [db]} [_ which value]]
|
|
{:db (assoc-in db [:settled which] value)
|
|
:dispatch [::filter-changed :amount-range [:settled] (assoc (:settled db) which value)]}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::check-number-like-changed
|
|
[(re-frame/path [::filters :check-number-like])]
|
|
(fn [{:keys [db]} [_ description]]
|
|
{:dispatch-debounce
|
|
{:event [::check-number-like-settled description]
|
|
:time 500
|
|
:key ::check-number-like}
|
|
:db (assoc db :raw description)}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::invoice-number-changed
|
|
[(re-frame/path [::filters :invoice-number])]
|
|
(fn [{:keys [db]} [_ description]]
|
|
{:dispatch-debounce
|
|
{:event [::invoice-number-settled description]
|
|
:time 500
|
|
:key ::invoice-number}
|
|
:db (assoc db :raw description)}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::amount-range-changed
|
|
[(re-frame/path [::filters :amount-range])]
|
|
(fn [{:keys [db]} [_ [which] value]]
|
|
{:dispatch-debounce
|
|
{:event [::amount-range-settled which value]
|
|
:time 500
|
|
:key ::amount-range}
|
|
:db (assoc-in db [:raw which] value)}))
|
|
|
|
(defn check-number-filter []
|
|
[:div.field
|
|
[:div.control [:input.input {:placeholder "10001"
|
|
:value (:raw @(re-frame/subscribe [::filter :check-number-like]))
|
|
:on-change (fn [x]
|
|
(re-frame/dispatch [::check-number-like-changed (.. x -target -value) ]))} ]]])
|
|
|
|
(defn invoice-number-filter []
|
|
[:div.field
|
|
[:div.control [:input.input {:placeholder "SJ-12345"
|
|
:value (:raw @(re-frame/subscribe [::filter :invoice-number]))
|
|
:on-change (fn [x]
|
|
(re-frame/dispatch [::invoice-number-changed (.. x -target -value) ]))} ]]])
|
|
|
|
(defn side-bar []
|
|
(let [ap @(re-frame/subscribe [::subs/active-page])
|
|
user @(re-frame/subscribe [::subs/user])]
|
|
[:div
|
|
[:div
|
|
[:p.menu-label "Vendor"]
|
|
[:div
|
|
[typeahead-entity {:matches @(re-frame/subscribe [::subs/vendors])
|
|
:on-change #(re-frame/dispatch [::filter-changed :vendor %])
|
|
:match->text :name
|
|
:type "typeahead-entity"
|
|
:value @(re-frame/subscribe [::filter :vendor])}]]
|
|
|
|
[:p.menu-label "Date Range"]
|
|
[:div
|
|
[date-range-filter
|
|
{:on-change-event [::filter-changed :date-range]
|
|
:value @(re-frame/subscribe [::filter :date-range])}]]
|
|
|
|
[:p.menu-label "Amount"]
|
|
[:div
|
|
(println (:raw @(re-frame/subscribe [::filter :amount-range])))
|
|
[number-filter
|
|
{:on-change-event [::amount-range-changed]
|
|
:value (:raw @(re-frame/subscribe [::filter :amount-range]))}]]
|
|
|
|
[:p.menu-label "Check #"]
|
|
[:div [check-number-filter]]
|
|
|
|
[:p.menu-label "Invoice #"]
|
|
[:div [invoice-number-filter]]]]))
|