you can add overrides.
This commit is contained in:
Bryce Covert
@@ -33,26 +33,26 @@
|
||||
(map first)
|
||||
first))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::selected-override
|
||||
(fn [db]
|
||||
(::selected-override db)))
|
||||
|
||||
(re-frame/reg-event-db
|
||||
::override-selected
|
||||
(fn [db [_ which]]
|
||||
(assoc db ::selected-override which)))
|
||||
|
||||
(re-frame/reg-event-db
|
||||
::override-added
|
||||
(fn [db [_ z]]
|
||||
(println "selected" z)
|
||||
(assoc db ::selected-override "101")))
|
||||
|
||||
(re-frame/reg-event-fx
|
||||
::started
|
||||
(fn [{:keys [db]} [_ vendor]]
|
||||
(println vendor)
|
||||
{:db (-> db (forms/start-form ::vendor-form (-> vendor
|
||||
(update :account-overrides #(mapv
|
||||
(fn [ao]
|
||||
{:id (:id ao)
|
||||
:client (:client ao)
|
||||
:override (:account ao)})
|
||||
%))
|
||||
|
||||
(update :terms-overrides #(mapv
|
||||
(fn [to]
|
||||
{:id (:id to)
|
||||
:client (:client to)
|
||||
:override (:terms to)})
|
||||
%))
|
||||
(update :hidden #(if (nil? %)
|
||||
false
|
||||
%))
|
||||
@@ -72,23 +72,67 @@
|
||||
(re-frame/reg-event-fx
|
||||
::save
|
||||
[with-user (forms/triggers-loading ::vendor-form) (forms/in-form ::vendor-form)]
|
||||
(fn [{:keys [user] {:keys [data]} :db} _]
|
||||
(fn [{:keys [user] {{:keys [name hidden print-as terms invoice-reminder-schedule primary-contact secondary-contact address default-account terms-overrides account-overrides id] :as data} :data} :db} _]
|
||||
(when (s/valid? ::entity/vendor data)
|
||||
{ :graphql
|
||||
{:token user
|
||||
:query-obj {:venia/operation {:operation/type :mutation
|
||||
:operation/name "UpsertVendor"}
|
||||
:venia/queries [{:query/data [:upsert-vendor
|
||||
{:vendor (-> data
|
||||
(assoc :default-account-id (:id (:default-account data)))
|
||||
(dissoc :default-account))}
|
||||
{:vendor {:id id
|
||||
:name name
|
||||
:hidden hidden
|
||||
:print-as print-as
|
||||
:terms terms
|
||||
:terms-overrides (mapv
|
||||
(fn [{:keys [client override id]}]
|
||||
{:id id
|
||||
:client-id (:id client)
|
||||
:terms override})
|
||||
terms-overrides)
|
||||
:default-account-id (:id default-account)
|
||||
:account-overrides (mapv
|
||||
(fn [{:keys [client override id]}]
|
||||
{:id id
|
||||
:client-id (:id client)
|
||||
:account-id (:id override)})
|
||||
account-overrides)
|
||||
:address address
|
||||
:primary-contact primary-contact
|
||||
:secondary-contact secondary-contact
|
||||
:invoice-reminder-schedule invoice-reminder-schedule}}
|
||||
events/vendor-query]}]}
|
||||
:on-success [::save-complete]
|
||||
:on-error [::forms/save-error ::vendor-form]}})))
|
||||
|
||||
(defn form-content [{:keys [data change-event selected-override]}]
|
||||
(defn default-with-overrides [{:keys [override-key override-value-key change-event default-key data]} template]
|
||||
(let [clients @(re-frame/subscribe [::subs/clients])]
|
||||
[:div
|
||||
[horizontal-field
|
||||
[:label.label "Default"]
|
||||
[bind-field
|
||||
(assoc-in template [1 :field ] default-key)]]
|
||||
[horizontal-field
|
||||
[:label.label "Overrides"]
|
||||
(for [[i overrides] (map vector (range) (conj (override-key data) {}))]
|
||||
^{:key i}
|
||||
[:div
|
||||
[:div.columns
|
||||
[:div.column
|
||||
[bind-field
|
||||
[typeahead-entity {:matches clients
|
||||
:match->text :name
|
||||
:type "typeahead-entity"
|
||||
:field [override-key i :client]
|
||||
:event change-event
|
||||
:subscription data}]]]
|
||||
[:div.column
|
||||
[bind-field
|
||||
(assoc-in template [1 :field ] [override-key i :override])]]]])]]))
|
||||
|
||||
(defn form-content [{:keys [data change-event]}]
|
||||
(let [chooseable-expense-accounts @(re-frame/subscribe [::subs/chooseable-expense-accounts])
|
||||
root-path (cond-> [] selected-override (into [:overrides selected-override]))]
|
||||
clients @(re-frame/subscribe [::subs/clients])]
|
||||
[:div
|
||||
[horizontal-field
|
||||
[:label.label "Name"]
|
||||
@@ -96,7 +140,7 @@
|
||||
[bind-field
|
||||
[:input.input {:type "text"
|
||||
:auto-focus true
|
||||
:field (conj root-path :name)
|
||||
:field :name
|
||||
:spec ::entity/name
|
||||
:event change-event
|
||||
:subscription data}]]]]
|
||||
@@ -106,46 +150,44 @@
|
||||
[:div.control
|
||||
[bind-field
|
||||
[:input.input {:type "text"
|
||||
:field (conj root-path :print-as)
|
||||
:field :print-as
|
||||
:spec ::entity/print-as
|
||||
:event change-event
|
||||
:subscription data}]]]]
|
||||
|
||||
[horizontal-field
|
||||
[:label.label "Terms"]
|
||||
[:div.control
|
||||
[bind-field
|
||||
[:input.input {:type "number"
|
||||
:step "1"
|
||||
:field (conj root-path :terms)
|
||||
:spec ::entity/terms
|
||||
:event change-event
|
||||
:subscription data}]]]]
|
||||
|
||||
[horizontal-field
|
||||
[:label.label "Hidden"]
|
||||
[:div.control
|
||||
[bind-field
|
||||
[:input {:type "checkbox"
|
||||
:field (conj root-path :hidden)
|
||||
:field :hidden
|
||||
:spec ::entity/hidden
|
||||
:event change-event
|
||||
:subscription data}]]]]
|
||||
|
||||
[:h2.subtitle "Terms"]
|
||||
[default-with-overrides {:data data :change-event change-event
|
||||
:default-key :terms
|
||||
:override-key :terms-overrides}
|
||||
[:input.input {:type "number"
|
||||
:step "1"
|
||||
:style {:width "4em"}
|
||||
:size 3
|
||||
:spec ::entity/terms
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
|
||||
[:h2.subtitle "Expense Accounts"]
|
||||
[horizontal-field
|
||||
[:label.label "Default"]
|
||||
|
||||
[bind-field
|
||||
[typeahead-entity {:matches chooseable-expense-accounts
|
||||
:match->text (fn [x ] (str (:numeric-code x) " - " (:name x)))
|
||||
:type "typeahead-entity"
|
||||
:field (conj root-path :default-account)
|
||||
:event change-event
|
||||
:subscription data}]]]
|
||||
[default-with-overrides {:data data :change-event change-event
|
||||
:default-key :default-account
|
||||
:override-key :account-overrides}
|
||||
[typeahead-entity {:matches chooseable-expense-accounts
|
||||
:match->text (fn [x ] (str (:numeric-code x) " - " (:name x)))
|
||||
:type "typeahead-entity"
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
|
||||
[:h2.subtitle "Address"]
|
||||
[address-field {:field (conj root-path :address)
|
||||
[address-field {:field [:address]
|
||||
:event change-event
|
||||
:subscription data}]
|
||||
[:h2.subtitle "Contact"]
|
||||
@@ -154,7 +196,7 @@
|
||||
[:div.control.has-icons-left
|
||||
[bind-field
|
||||
[:input.input.is-expanded {:type "text"
|
||||
:field (into root-path [:primary-contact :name])
|
||||
:field [:primary-contact :name]
|
||||
:spec ::contact/name
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
@@ -166,7 +208,7 @@
|
||||
[:i.fa.fa-envelope]]
|
||||
[bind-field
|
||||
[:input.input {:type "email"
|
||||
:field (into root-path [:primary-contact :email])
|
||||
:field [:primary-contact :email]
|
||||
:spec ::contact/email
|
||||
:event change-event
|
||||
:subscription data}]]]
|
||||
@@ -174,7 +216,7 @@
|
||||
[:div.control.has-icons-left
|
||||
[bind-field
|
||||
[:input.input {:type "phone"
|
||||
:field (into root-path [:primary-contact :phone])
|
||||
:field [:primary-contact :phone]
|
||||
:spec ::contact/phone
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
@@ -185,7 +227,7 @@
|
||||
[:div.control.has-icons-left
|
||||
[bind-field
|
||||
[:input.input.is-expanded {:type "text"
|
||||
:field (into root-path [:secondary-contact :name])
|
||||
:field [:secondary-contact :name]
|
||||
:spec ::contact/name
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
@@ -196,14 +238,14 @@
|
||||
[:i.fa.fa-envelope]]
|
||||
[bind-field
|
||||
[:input.input {:type "email"
|
||||
:field (into root-path [:secondary-contact :email])
|
||||
:field [:secondary-contact :email]
|
||||
:spec ::contact/email
|
||||
:event change-event
|
||||
:subscription data}]]]
|
||||
[:div.control.has-icons-left
|
||||
[bind-field
|
||||
[:input.input {:type "phone"
|
||||
:field (into root-path [:secondary-contact :phone])
|
||||
:field [:secondary-contact :phone]
|
||||
:spec ::contact/phone
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
@@ -217,7 +259,7 @@
|
||||
[:input {:type "radio"
|
||||
:name "schedule"
|
||||
:value "Weekly"
|
||||
:field (conj root-path :invoice-reminder-schedule)
|
||||
:field :invoice-reminder-schedule
|
||||
:spec ::entity/invoice-reminder-schedule
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
@@ -228,7 +270,7 @@
|
||||
[:input {:type "radio"
|
||||
:name "schedule"
|
||||
:value "Never"
|
||||
:field (conj root-path :invoice-reminder-schedule)
|
||||
:field :invoice-reminder-schedule
|
||||
:spec ::entity/invoice-reminder-schedule
|
||||
:event change-event
|
||||
:subscription data}]]
|
||||
@@ -237,7 +279,6 @@
|
||||
(defn vendor-dialog [{:keys [save-event] }]
|
||||
(let [clients @(re-frame/subscribe [::subs/clients])
|
||||
all-vendors @(re-frame/subscribe [::subs/vendors])
|
||||
selected-override @(re-frame/subscribe [::selected-override])
|
||||
{:keys [data error ] :as f} @(re-frame/subscribe [::forms/form ::vendor-form])
|
||||
change-event [::forms/change ::vendor-form]]
|
||||
[action-modal {:id ::dialog
|
||||
@@ -255,32 +296,5 @@
|
||||
:save-event [::save]
|
||||
:can-submit? (s/valid? ::entity/vendor data)}
|
||||
[:div
|
||||
[:div.level
|
||||
[:div.level-left
|
||||
[:div.tabs
|
||||
[:ul
|
||||
[:li {:class (active-when selected-override = nil)}
|
||||
[:a {:on-click (dispatch-event [::override-selected nil])} "All"]]
|
||||
[:li {:class (active-when selected-override = "123")}
|
||||
[:a {:on-click (dispatch-event [::override-selected "123"])}
|
||||
[:span "Campbell Brewing Company"]]]
|
||||
]]]
|
||||
[:div.level-right
|
||||
[drop-down {:id [::add-new-override]
|
||||
:is-right? true
|
||||
:header [:a.button.badge {:aria-haspopup true
|
||||
:on-click (dispatch-event [::events/toggle-menu [::add-new-override]])}
|
||||
[:span.icon
|
||||
[:span.icon-add]]
|
||||
[:span "Override"]]}
|
||||
[drop-down-contents
|
||||
[:div
|
||||
[:div.field
|
||||
[:label.label "Client"]
|
||||
[typeahead-entity {:matches clients
|
||||
:match->text :name
|
||||
:type "typeahead-entity"
|
||||
:event [:override-added]}]]]]]]]
|
||||
[form-content {:data data :change-event change-event
|
||||
:selected-override selected-override}]]]))
|
||||
[form-content {:data data :change-event change-event}]]]))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user