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

vendors have codes on them; making sqs for processing.

Browse Source
This commit is contained in:
Bryce Covert
2018-04-05 20:17:19 -07:00
parent 33cfc395de
commit 81263332df
13 changed files with 315 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/cljs/auto_ap/views/pages/admin/companies.cljs
View File

@@ -10,8 +10,7 @@
[bidi.bidi :as bidi]))
(defn companies-table []
(let [companies (re-frame/subscribe [::subs/companies])
admin-companies (re-frame/subscribe [::subs/admin-companies])
editing-company (:editing @admin-companies)]
editing-company (:company @(re-frame/subscribe [::subs/admin]))]
[:table {:class "table", :style {:width "100%"}}
[:thead
[:tr
@@ -32,9 +31,7 @@
[:div.hero-body
[:div.container
(let [companies (re-frame/subscribe [::subs/companies])
admin-companies (re-frame/subscribe [::subs/admin-companies])
editing-company (:editing @admin-companies)]
(println editing-company)
editing-company (:company @(re-frame/subscribe [::subs/admin]))]
[:div
[:h1.title "Companies"]

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

@@ -4,15 +4,13 @@
[reagent.core :as reagent]
[auto-ap.subs :as subs]
[auto-ap.events.admin.vendors :as events]
[auto-ap.views.utils :refer [login-url dispatch-value-change]]
[auto-ap.views.utils :refer [login-url dispatch-value-change dispatch-event]]
[cljs.reader :as edn]
[auto-ap.routes :as routes]
[bidi.bidi :as bidi]))
(defn vendors-table []
(let [vendors (re-frame/subscribe [::subs/vendors])
admin-vendors (re-frame/subscribe [::subs/admin-vendors])
editing-vendor (:editing @admin-vendors)]
(println @vendors)
editing-vendor (:editing @(re-frame/subscribe [::subs/admin]))]
[:table {:class "table", :style {:width "100%"}}
[:thead
[:tr
@@ -27,6 +25,70 @@
[:td email]
[:td invoice-reminder-schedule]])]]))
(defn edit-dialog []
(let [{:keys [name email invoice-reminder-schedule id code] :as editing-vendor} (:vendor @(re-frame/subscribe [::subs/admin]))]
[:div.modal.is-active
[:div.modal-background {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]
[:div.modal-card
[:header.modal-card-head
[:p.modal-card-title
(if id
(str "Edit " (or name "<vendor>"))
(str "Add " (or name "<new vendor>")))]
[:button.delete {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]]
[:section.modal-card-body
[:div.field
[:label.label "Name"]
[:div.control
[:input.input {:type "text" :value name
:on-change (dispatch-value-change [::events/change [:name]])}]]]
[:div.field
[:label.label "Code"]
[:div.control
[:input.input {:type "text" :value code
:on-change (dispatch-value-change [::events/change [:code]])}]]
[:p.help "The vendor code is used for invoice parsing. Only one vendor at a time can use a code"]]
[:div.field
[:label.label "Email"]
[:div.control
[:input.input {:type "email"
:value email
:on-change (dispatch-value-change [::events/change [:email]])}]]]
[:div.field
[:labal.label "Invoice Reminders"]
[:div.control
[:label.radio
[:input {:type "radio"
:name "schedule"
:value "Weekly"
:checked (if (= "Weekly" invoice-reminder-schedule)
"checked"
"")
:on-change (dispatch-value-change [::events/change [:invoice-reminder-schedule]])}]
" Send weekly"]]
[:div.control
[:label.radio
[:input {:type "radio"
:name "schedule"
:value "Never"
:checked (if (= "Never" invoice-reminder-schedule)
"checked"
"")
:on-change (dispatch-value-change [::events/change [:invoice-reminder-schedule]])}]
" Never"]]]
(when (:saving? editing-vendor) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]
[:footer.modal-card-foot
[:a.button.is-primary {:on-click (fn [] (re-frame/dispatch [::events/save]))}
[:span "Save"]
(when (:saving? editing-vendor)
[:span.icon
[:i.fa.fa-spin.fa-spinner]])]]]]))
(defn admin-vendors-page []
[(with-meta
(fn []
@@ -35,68 +97,16 @@
[:div.hero-body
[:div.container
(let [vendors (re-frame/subscribe [::subs/vendors])
admin-vendors (re-frame/subscribe [::subs/admin-vendors])
editing-vendor (:editing @admin-vendors)]
editing-vendor (:vendor @(re-frame/subscribe [::subs/admin]))]
[:div
[:h1.title "Vendors"]
[vendors-table]
[:a.button.is-primary.is-large {:on-click (dispatch-event [::events/new])} "New vendor"]
(when editing-vendor
[:div.modal.is-active
[:div.modal-background {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]
[:div.modal-card
[:header.modal-card-head
[:p.modal-card-title
(str "Edit " (:name editing-vendor))]
[:button.delete {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]]
[:section.modal-card-body
[:div.field
[:label.label "Name"]
[:div.control
[:input.input {:type "text" :value (:name editing-vendor)
:on-change (dispatch-value-change [::events/change [:name]])}]]]
[:div.field
[:label.label "Email"]
[:div.control
[:input.input {:type "email"
:value (:email editing-vendor)
:on-change (dispatch-value-change [::events/change [:email]])}]]]
[:div.field
[:labal.label "Invoice Reminders"]
[:div.control
[:label.radio
[:input {:type "radio"
:name "schedule"
:value "Weekly"
:checked (if (= "Weekly" (:invoice-reminder-schedule editing-vendor))
"checked"
"")
:on-change (dispatch-value-change [::events/change [:invoice-reminder-schedule]])}]
" Send weekly"]]
[:div.control
[:label.radio
[:input {:type "radio"
:name "schedule"
:value "Never"
:checked (if (= "Never" (:invoice-reminder-schedule editing-vendor))
"checked"
"")
:on-change (dispatch-value-change [::events/change [:invoice-reminder-schedule]])}]
" Never"]]]
(when (:saving? editing-vendor) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]
[:footer.modal-card-foot
[:a.button.is-primary {:on-click (fn [] (re-frame/dispatch [::events/save]))}
[:span "Save"]
(when (:saving? editing-vendor)
[:span.icon
[:i.fa.fa-spin.fa-spinner]])]]]])])]]]])
[edit-dialog]
)])]]]])
{:component-did-mount (fn []
(re-frame/dispatch [::events/mounted]))})])

6
src/cljs/auto_ap/views/utils.cljs
View File

@@ -11,4 +11,10 @@
(defn dispatch-value-change [event]
(fn [e]
(.preventDefault e)
(re-frame/dispatch (conj event (.. e -target -value)))))
(defn dispatch-event [event]
(fn [e]
(.preventDefault e)
(re-frame/dispatch event)))