sales orders and transactions better.
This commit is contained in:
Bryce Covert
81
src/cljs/auto_ap/views/pages/sales_orders/form.cljs
Normal file
81
src/cljs/auto_ap/views/pages/sales_orders/form.cljs
Normal file
@@ -0,0 +1,81 @@
|
||||
(ns auto-ap.views.pages.sales-orders.form
|
||||
(:require
|
||||
[auto-ap.events :as events]
|
||||
[auto-ap.forms :as forms]
|
||||
[auto-ap.subs :as subs]
|
||||
[auto-ap.utils :refer [dollars=]]
|
||||
[auto-ap.views.components.dropdown :refer [drop-down]]
|
||||
[auto-ap.views.components.expense-accounts-field :as expense-accounts-field :refer [expense-accounts-field recalculate-amounts]]
|
||||
[auto-ap.views.components.layouts :as layouts]
|
||||
[auto-ap.views.components.money-field :refer [money-field]]
|
||||
[auto-ap.views.components.typeahead :refer [typeahead-entity]]
|
||||
[auto-ap.status :as status]
|
||||
[auto-ap.views.utils :refer [date->str date-picker dispatch-event standard with-user]]
|
||||
[cljs-time.core :as c]
|
||||
[clojure.spec.alpha :as s]
|
||||
[clojure.string :as str]
|
||||
[re-frame.core :as re-frame]))
|
||||
(re-frame/reg-sub
|
||||
::can-submit
|
||||
:<- [::forms/form ::form]
|
||||
(fn [{:keys [data status]} _]
|
||||
false))
|
||||
|
||||
(re-frame/reg-event-db
|
||||
::editing
|
||||
(fn [db [_ which]]
|
||||
(let [which (update which :date #(date->str % standard))]
|
||||
(forms/start-form db ::form which))))
|
||||
|
||||
(def sales-order-form (forms/vertical-form {:can-submit [::can-submit]
|
||||
:change-event [::forms/changed]
|
||||
:submit-event [::saving ]
|
||||
:id ::form}))
|
||||
|
||||
(defn form [{:keys [can-change-amount?] :as params}]
|
||||
[layouts/side-bar {:on-close (dispatch-event [::forms/form-closing ::form ])}
|
||||
(let [{:keys [data active? error id]} @(re-frame/subscribe [::forms/form ::form])
|
||||
{:keys [form-inline field raw-field error-notification submit-button ]} sales-order-form]
|
||||
(with-meta
|
||||
(form-inline (assoc params :title "Sales order")
|
||||
[:<>
|
||||
(when-not @(re-frame/subscribe [::subs/client])
|
||||
(field [:span "Client"
|
||||
[:span.has-text-danger " *"]]
|
||||
[typeahead-entity {:matches @(re-frame/subscribe [::subs/clients])
|
||||
:match->text :name
|
||||
:type "typeahead"
|
||||
:field [:client]
|
||||
:disabled true}]))
|
||||
|
||||
|
||||
(field "Date"
|
||||
[date-picker {:class-name "input"
|
||||
:class "input"
|
||||
:type "date"
|
||||
:disabled true
|
||||
:field [:date]}])
|
||||
(field "Total"
|
||||
[money-field {:type "money"
|
||||
:field [:total]
|
||||
:disabled true}])
|
||||
(field "Tax"
|
||||
[money-field {:type "money"
|
||||
:field [:tax]
|
||||
:disabled true}])
|
||||
(field "Tip"
|
||||
[money-field {:type "money"
|
||||
:field [:tip]
|
||||
:disabled true}])
|
||||
|
||||
[:h1.subtitle.is-4 "Charges"]
|
||||
[:ul
|
||||
(for [charge (:charges data)]
|
||||
[:li (:type-name charge) ": " (:total charge)])]
|
||||
|
||||
[:h1.subtitle.is-4 "Line Items"]
|
||||
[:ul
|
||||
(for [line-item (:line-items data)]
|
||||
[:li (:item-name line-item) ": " (:total line-item)])]])
|
||||
{:key (:id data)}))])
|
||||
|
||||
31
src/cljs/auto_ap/views/pages/sales_orders/side_bar.cljs
Normal file
31
src/cljs/auto_ap/views/pages/sales_orders/side_bar.cljs
Normal file
@@ -0,0 +1,31 @@
|
||||
(ns auto-ap.views.pages.sales-orders.side-bar
|
||||
(:require [auto-ap.routes :as routes]
|
||||
[auto-ap.subs :as subs]
|
||||
[auto-ap.views.utils :refer [active-when dispatch-value-change]]
|
||||
[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]
|
||||
[auto-ap.views.pages.data-page :as data-page]))
|
||||
|
||||
(defn side-bar [{:keys [data-page]}]
|
||||
(let [ap @(re-frame/subscribe [::subs/active-page])
|
||||
user @(re-frame/subscribe [::subs/user])]
|
||||
[:div
|
||||
[:div
|
||||
|
||||
|
||||
[:p.menu-label "Date Range"]
|
||||
[:div
|
||||
[date-range-filter
|
||||
{:on-change-event [::data-page/filter-changed data-page :date-range]
|
||||
:value @(re-frame/subscribe [::data-page/filter data-page :date-range])}]]
|
||||
|
||||
[:p.menu-label "Total"]
|
||||
[:div
|
||||
[number-filter
|
||||
{:on-change-event [::data-page/filter-changed data-page :total-range]
|
||||
:value @(re-frame/subscribe [::data-page/filter data-page :total-range])}]]]]))
|
||||
49
src/cljs/auto_ap/views/pages/sales_orders/table.cljs
Normal file
49
src/cljs/auto_ap/views/pages/sales_orders/table.cljs
Normal file
@@ -0,0 +1,49 @@
|
||||
(ns auto-ap.views.pages.sales-orders.table
|
||||
(:require [auto-ap.subs :as subs]
|
||||
[auto-ap.views.components.buttons :as buttons]
|
||||
[auto-ap.views.components.grid :as grid]
|
||||
[auto-ap.views.pages.data-page :as data-page]
|
||||
[auto-ap.views.pages.sales-orders.form :as form]
|
||||
[auto-ap.views.utils :refer [date->str nf]]
|
||||
[clojure.string :as str]
|
||||
[re-frame.core :as re-frame]))
|
||||
|
||||
(defn row [{sales-order :sales-order
|
||||
selected-client :selected-client}]
|
||||
(let [{:keys [client date total tax tip charges line-items]} sales-order]
|
||||
[grid/row {:class (:class sales-order)}
|
||||
(when-not selected-client
|
||||
[grid/cell {} (:name client)])
|
||||
[grid/cell {} (date->str date) ]
|
||||
[grid/cell {:class "has-text-right"} (nf total )]
|
||||
[grid/cell {:class "has-text-right"} (nf tax )]
|
||||
[grid/cell {:class "has-text-right"} (nf tip )]
|
||||
[grid/cell {} (str/join ", " (map :type-name charges))]
|
||||
[grid/cell {} (str/join ", " (map :item-name line-items))]
|
||||
[grid/button-cell {}
|
||||
[:div.buttons
|
||||
[buttons/fa-icon {:event [::form/editing sales-order] :icon "fa-pencil"}]]]]))
|
||||
|
||||
(defn table [{:keys [data-page]}]
|
||||
(let [selected-client @(re-frame/subscribe [::subs/client])
|
||||
{:keys [data status]} @(re-frame/subscribe [::data-page/page data-page])]
|
||||
[grid/grid {:data-page data-page
|
||||
:column-count (if selected-client 7 8)}
|
||||
[grid/controls data]
|
||||
[grid/table {:fullwidth true}
|
||||
[grid/header {}
|
||||
[grid/row {}
|
||||
(when-not selected-client
|
||||
[grid/sortable-header-cell {:sort-key "client" :sort-name "Client"} "Client"])
|
||||
[grid/sortable-header-cell {:sort-key "date" :sort-name "Date" :style {:width "8em"}} "Date"]
|
||||
[grid/sortable-header-cell {:sort-key "total" :sort-name "Total" :class "has-text-right" :style {:width "8em"}} "Total"]
|
||||
[grid/sortable-header-cell {:sort-key "tax" :sort-name "Tax" :class "has-text-right" :style {:width "7em"}} "Tax"]
|
||||
[grid/sortable-header-cell {:sort-key "tip" :sort-name "Tip" :class "has-text-right" :style {:width "7em"}} "Tip"]
|
||||
[grid/header-cell {} "Payment Methods"]
|
||||
[grid/header-cell {} "Line Items"]
|
||||
[grid/header-cell {:style {:width "4em"}}]]]
|
||||
[grid/body
|
||||
(for [sales-order (:data data)]
|
||||
^{:key (:id sales-order)}
|
||||
[row {:sales-order sales-order
|
||||
:selected-client selected-client}])]]]))
|
||||
Reference in New Issue
Block a user