128 lines
5.3 KiB
Clojure
128 lines
5.3 KiB
Clojure
(ns auto-ap.views.pages.transactions.form
|
|
(:require [auto-ap.forms :as forms]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.views.components.typeahead :refer [typeahead]]
|
|
[auto-ap.views.utils :refer [bind-field]]
|
|
[re-frame.core :as re-frame]))
|
|
|
|
(re-frame/reg-event-db
|
|
::editing
|
|
(fn [db [_ which]]
|
|
(-> db
|
|
(forms/start-form ::edit-transaction {:id (:id which)
|
|
:vendor-id (:id (:vendor which))
|
|
:vendor-name (:name (:vendor which))}))))
|
|
|
|
(re-frame/reg-sub
|
|
::can-submit
|
|
:<- [::forms/form ::edit-transaction]
|
|
(fn [{:keys [data status]} _]
|
|
(not= :loading status)))
|
|
|
|
|
|
(re-frame/reg-event-fx
|
|
::edited
|
|
(fn [{:keys [db]} [_ edit-completed {:keys [edit-transaction]}]]
|
|
{:db (-> db
|
|
(forms/stop-form ::edit-transaction))
|
|
:dispatch (conj edit-completed edit-transaction)}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::saving
|
|
(fn [{:keys [db]} [_ edit-completed]]
|
|
(when @(re-frame/subscribe [::can-submit])
|
|
(let [{{:keys [id vendor-id]} :data :as data} @(re-frame/subscribe [::forms/form ::edit-transaction])]
|
|
|
|
{:db (forms/loading db ::edit-transaction )
|
|
:graphql
|
|
{:token (-> db :user)
|
|
:query-obj {:venia/operation {:operation/type :mutation
|
|
:operation/name "EditTransaction"}
|
|
|
|
:venia/queries [{:query/data [:edit-transaction
|
|
{:transaction {:id id :vendor-id vendor-id}}
|
|
|
|
[: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]]]]}]}
|
|
:on-success [::edited edit-completed]
|
|
:on-error [::forms/save-error ::edit-transaction]}}))))
|
|
|
|
|
|
(defn form [{:keys [edit-completed]}]
|
|
[forms/side-bar-form {:form ::edit-transaction }
|
|
(let [{:keys [data active? error id]} @(re-frame/subscribe [::forms/form ::edit-transaction])
|
|
data (assoc data :merchant-name "Hello") ;; TODO - just until merchant is added
|
|
current-client @(re-frame/subscribe [::subs/client])
|
|
change-event [::forms/change ::edit-transaction]]
|
|
^{:key id}
|
|
[:form { :on-submit (fn [e]
|
|
(when (.-stopPropagation e)
|
|
(.stopPropagation e)
|
|
(.preventDefault e))
|
|
(re-frame/dispatch-sync [::saving edit-completed]))}
|
|
[:h1.title.is-2 "Edit Transaction"]
|
|
|
|
[:div.notification
|
|
[:p "This transaction matches Invoice 'ABC' for 'DBI Beverages'. " [:a "Create payment and match"] "."]]
|
|
|
|
|
|
[:div.field
|
|
[:p.help "Merchant"]
|
|
[:div.control
|
|
[bind-field
|
|
[:input.input {:type "text"
|
|
:field [:merchant-name]
|
|
:disabled "disabled"
|
|
:subscription data}]]]]
|
|
|
|
|
|
[:div.field
|
|
[:p.help "Vendor"]
|
|
[:div.control
|
|
[bind-field
|
|
[typeahead {:matches (map (fn [x] [(:id x) (:name x)]) @(re-frame/subscribe [::subs/vendors]))
|
|
:type "typeahead"
|
|
:auto-focus true
|
|
:field [:vendor-id]
|
|
:text-field [:vendor-name]
|
|
:event change-event
|
|
:subscription data}]]]]
|
|
|
|
[:div.field
|
|
|
|
[:p.control
|
|
[:label.checkbox
|
|
[:input.checkbox {:type "checkbox"
|
|
:field [:always-map]
|
|
:subscription data}]
|
|
" Always match Merchant '" (:merchant-name data) "' to '" (:vendor-name data) "'" ]]]
|
|
|
|
[:div.field
|
|
[:p.help "Credit Account"]
|
|
[:div.control
|
|
[bind-field
|
|
[typeahead {:matches (map (fn [x] [(:id x) (str (:id x) " - " (:name x))]) @(re-frame/subscribe [::subs/chooseable-expense-accounts]))
|
|
:type "typeahead"
|
|
:field [:expense-account-id]
|
|
:event [::change id]
|
|
:subscription data}]]]]
|
|
|
|
(when error
|
|
^{:key error} [:div.notification.is-warning.animated.fadeInUp
|
|
error])
|
|
|
|
[:button.button.is-medium.is-primary.is-fullwidth {:disabled (if @(re-frame/subscribe [::can-submit])
|
|
""
|
|
"disabled")
|
|
:class (str @(re-frame/subscribe [::forms/loading-class ::edit-transaction])
|
|
(when error " animated shake"))} "Save"]
|
|
])])
|