915 lines
49 KiB
Clojure
915 lines
49 KiB
Clojure
(ns auto-ap.ssr.admin.vendors
|
|
(:require
|
|
[auto-ap.cursor :as cursor]
|
|
[auto-ap.datomic
|
|
:refer [add-sorter-fields
|
|
apply-pagination
|
|
apply-sort-3
|
|
audit-transact
|
|
conn
|
|
merge-query
|
|
pull-attr
|
|
pull-many
|
|
query2]]
|
|
[auto-ap.datomic.accounts :as d-accounts]
|
|
[auto-ap.logging :as alog]
|
|
[auto-ap.query-params :as query-params]
|
|
[auto-ap.routes.admin.vendors :as route]
|
|
[auto-ap.routes.utils
|
|
:refer [wrap-admin wrap-client-redirect-unauthenticated]]
|
|
[auto-ap.ssr-routes :as ssr-routes]
|
|
[auto-ap.ssr.components :as com]
|
|
[auto-ap.ssr.components.timeline :as timeline]
|
|
[auto-ap.ssr.form-cursor :as fc]
|
|
[auto-ap.ssr.grid-page-helper :as helper]
|
|
[auto-ap.ssr.hx :as hx]
|
|
[auto-ap.ssr.nested-form-params :refer [wrap-nested-form-params]]
|
|
[auto-ap.ssr.svg :as svg]
|
|
[auto-ap.ssr.utils
|
|
:refer [apply-middleware-to-all-handlers
|
|
entity-id
|
|
html-response
|
|
main-transformer
|
|
modal-response
|
|
ref->enum-schema
|
|
ref->select-options
|
|
schema-enforce-request
|
|
strip
|
|
temp-id
|
|
wrap-entity
|
|
wrap-form-4xx-2
|
|
wrap-schema-enforce]]
|
|
[bidi.bidi :as bidi]
|
|
[clojure.string :as str]
|
|
[datomic.api :as dc]
|
|
[hiccup.util :as hu]
|
|
[malli.core :as mc]
|
|
[malli.util :as mut]
|
|
[slingshot.slingshot :refer [try+]]
|
|
[malli.error :as me]
|
|
[auto-ap.solr :as solr]))
|
|
|
|
(defn filters [request]
|
|
[:form {"hx-trigger" "change delay:500ms, keyup changed from:.hot-filter delay:1000ms"
|
|
"hx-get" (bidi/path-for ssr-routes/only-routes
|
|
::route/table)
|
|
"hx-target" "#entity-table"
|
|
"hx-indicator" "#entity-table"}
|
|
|
|
[:fieldset.space-y-6
|
|
(com/field {:label "Name"}
|
|
(com/text-input {:name "name"
|
|
:id "name"
|
|
:class "hot-filter"
|
|
:value (:name (:parsed-query-params request))
|
|
:placeholder "Cash"
|
|
:size :small}))
|
|
(com/field {:label "Type"}
|
|
(com/radio {:size :small
|
|
:name "type"
|
|
:value (:type (:parsed-query-params request))
|
|
:options [{:value ""
|
|
:content "All"}
|
|
{:value "only-hidden"
|
|
:content "Only hidden"}
|
|
{:value "only-global"
|
|
:content "Only global"}
|
|
#_{:value "potential-duplicates"
|
|
:content "Potential duplicates"}]}))]])
|
|
|
|
(def default-read '[:db/id
|
|
:vendor/name
|
|
:vendor/print-as
|
|
:vendor/hidden
|
|
:vendor/terms
|
|
:vendor/legal-entity-tin
|
|
:vendor/legal-entity-name
|
|
:vendor/legal-entity-first-name
|
|
:vendor/legal-entity-middle-name
|
|
:vendor/legal-entity-last-name
|
|
{:vendor/primary-contact [:contact/email :contact/first-name :contact/middle-name :contact/last-name]
|
|
:vendor/address [:address/street1 :address/street2 :address/city :address/state :address/zip :db/id]
|
|
:vendor/terms-overrides [:vendor-terms-override/terms {:vendor-terms-override/client [:client/name :db/id]} :db/id]
|
|
:vendor/automatically-paid-when-due [:db/id :client/name]
|
|
:vendor/account-overrides [{:vendor-account-override/account [:account/name :db/id]
|
|
:vendor-account-override/client [:client/name :db/id]}
|
|
:db/id]
|
|
:vendor/default-account [:account/name :account/numeric-code :db/id]
|
|
[:vendor-usage/_vendor :as :vendor/usage] [:vendor-usage/client :vendor-usage/count]
|
|
[:vendor/legal-entity-1099-type :xform iol-ion.query/ident] [:db/ident]
|
|
[:vendor/legal-entity-tin-type :xform iol-ion.query/ident] [:db/ident]}])
|
|
|
|
(defn fetch-ids [db request]
|
|
(let [query-params (:parsed-query-params request)
|
|
query (cond-> {:query {:find []
|
|
:in '[$ ]
|
|
:where '[]}
|
|
:args [db ]}
|
|
(:sort query-params) (add-sorter-fields {"name" ['[?e :vendor/name ?n]
|
|
'[(clojure.string/upper-case ?n) ?sort-name]]}
|
|
query-params)
|
|
(some->> query-params :name not-empty)
|
|
(merge-query {:query {:find []
|
|
:in ['?ns]
|
|
:where ['[?e :vendor/name ?an]
|
|
'[(clojure.string/upper-case ?an) ?upper-an]
|
|
'[(clojure.string/includes? ?upper-an ?ns)]]}
|
|
:args [(str/upper-case (:name query-params))]})
|
|
|
|
(some->> query-params :type not-empty (= "only-hidden"))
|
|
(merge-query {:query {:find []
|
|
:in []
|
|
:where ['[?e :vendor/hidden true]
|
|
]}
|
|
:args []})
|
|
(some->> query-params :type not-empty (= "only-global"))
|
|
(merge-query {:query {:find []
|
|
:in []
|
|
:where ['[?e :vendor/hidden false]]}
|
|
:args []})
|
|
|
|
true
|
|
(merge-query {:query {:find ['?sort-default '?e]
|
|
:where ['[?e :vendor/name ?un]
|
|
'[(clojure.string/upper-case ?un) ?sort-default]]}}))]
|
|
(cond->> (query2 query)
|
|
true (apply-sort-3 query-params)
|
|
true (apply-pagination query-params))))
|
|
|
|
(defn hydrate-results [ids db _]
|
|
(let [results (->> (pull-many db default-read ids)
|
|
(group-by :db/id))
|
|
refunds (->> ids
|
|
(map results)
|
|
(map first))]
|
|
refunds))
|
|
|
|
(defn fetch-page [request]
|
|
(let [db (dc/db conn)
|
|
{ids-to-retrieve :ids matching-count :count} (fetch-ids db request)]
|
|
|
|
[(->> (hydrate-results ids-to-retrieve db request))
|
|
matching-count]))
|
|
|
|
(def grid-page
|
|
(helper/build {:id "entity-table"
|
|
:nav (com/admin-aside-nav)
|
|
:page-specific-nav filters
|
|
:fetch-page fetch-page
|
|
:parse-query-params (comp
|
|
(query-params/parse-key :code query-params/parse-long)
|
|
(helper/default-parse-query-params grid-page))
|
|
:action-buttons (fn [_]
|
|
[(com/button {:hx-get (str (bidi/path-for ssr-routes/only-routes
|
|
::route/new))
|
|
:color :primary}
|
|
"New Vendor")])
|
|
:row-buttons (fn [_ entity]
|
|
[(com/icon-button {:hx-get (str (bidi/path-for ssr-routes/only-routes
|
|
::route/edit
|
|
:db/id (:db/id entity)))}
|
|
svg/pencil)])
|
|
:breadcrumbs [[:a {:href (bidi/path-for ssr-routes/only-routes
|
|
:admin)}
|
|
"Admin"]
|
|
|
|
[:a {:href (bidi/path-for ssr-routes/only-routes
|
|
::route/page)}
|
|
"Vendors"]]
|
|
:title "Vendors"
|
|
:entity-name "Vendor"
|
|
:route ::route/table
|
|
:headers [{:key "name"
|
|
:name "Name"
|
|
:sort-key "name"
|
|
:render (fn [entity]
|
|
(let [client-usage (count (:vendor/usage entity))
|
|
total-usage (reduce + 0 (map :vendor-usage/count (:vendor/usage entity)))]
|
|
[:div.flex.gap-x-2.flex-wrap
|
|
[:div (:vendor/name entity)]
|
|
[:div (if (= client-usage 0)
|
|
(com/pill {:color :red}
|
|
"Unused")
|
|
|
|
(com/pill {:color :primary}
|
|
(format "Used by %d clients" client-usage)))]
|
|
(when (> client-usage 0)
|
|
[:div (com/pill {:color :secondary}
|
|
(format "Used %d times" total-usage))])]))}
|
|
{:key "email"
|
|
:name "Email"
|
|
:sort-key "email"
|
|
:render #(some-> % :vendor/primary-contact :contact/email)}
|
|
{:key "default-account"
|
|
:name "Default Account"
|
|
:sort-key "default-account"
|
|
:render #(some-> % :vendor/default-account :account/name)}]}))
|
|
|
|
(def row* (partial helper/row* grid-page))
|
|
(def table* (partial helper/table* grid-page))
|
|
|
|
(defn save [{:keys [form-params request-method] :as request}]
|
|
(let [entity (alog/peek (cond-> form-params
|
|
(= :post request-method) (assoc :db/id "new")
|
|
(not (some identity (vals (dissoc (:vendor/address form-params) :db/id)))) (assoc :vendor/address nil)))
|
|
{:keys [tempids]} (audit-transact [[:upsert-entity entity]]
|
|
(:identity request))
|
|
updated-vendor (dc/pull (dc/db conn)
|
|
default-read
|
|
(or (get tempids (:db/id entity)) (:db/id entity)))]
|
|
(solr/index-documents-raw
|
|
solr/impl
|
|
"vendors"
|
|
[{"id" (:db/id updated-vendor)
|
|
"name" (:vendor/name updated-vendor)
|
|
"hidden" (boolean (:vendor/hidden updated-vendor))}])
|
|
(html-response
|
|
(row* identity updated-vendor {:flash? true})
|
|
:headers (cond-> {"hx-trigger" "modalclose"}
|
|
(= :post request-method) (assoc "hx-retarget" "#entity-table tbody"
|
|
"hx-reswap" "afterbegin")
|
|
(= :put request-method) (assoc "hx-retarget" (format "#entity-table tr[data-id=\"%d\"]" (:db/id updated-vendor)))))))
|
|
|
|
(defn back-button []
|
|
[:a {"@click" "$dispatch('modalprevious')"
|
|
"class" "text-sm font-medium text-gray-700 cursor-pointer"}
|
|
"Back"])
|
|
|
|
;; TODO -
|
|
;; make new vendor work
|
|
;; generalize
|
|
|
|
|
|
|
|
;; TODO warn about usage on the vendor based on the thing
|
|
|
|
(defn timeline [{:keys [active]}]
|
|
(let [steps ["Info" "Terms" "Account" "Address" "Legal"]
|
|
active-index (.indexOf steps active )]
|
|
(timeline/timeline
|
|
{}
|
|
(for [[n i] (map vector steps (range))]
|
|
(timeline/timeline-step (cond-> {}
|
|
(= i active-index) (assoc :active? true)
|
|
(< i active-index) (assoc :visited? true)
|
|
(= i (dec (count steps))) (assoc :last? true))
|
|
n)))))
|
|
|
|
(defn info-modal [{:keys [form-params form-errors entity]}]
|
|
(println "FORM ERRORS" form-errors)
|
|
(com/stacked-modal-card-2
|
|
0
|
|
{"@keydown.enter.prevent.stop" "$refs.next.click()"
|
|
"hx-target" "this"}
|
|
(com/modal-header {}
|
|
[:div.flex [:div.p-2 "Basic Info"] [:p.ml-2.rounded.bg-gray-200.p-2.dark:bg-gray-600
|
|
[:span {:x-text "vendorName"}]]])
|
|
(com/modal-header-attachment
|
|
{}
|
|
(timeline {:active "Info"}))
|
|
(com/modal-body {}
|
|
[:div.space-y-1.mt-4 {:class "w-[600px] h-[350px]"}
|
|
(when-let [id (:db/id entity)]
|
|
(com/hidden {:name "db/id"
|
|
:value id}))
|
|
|
|
(fc/with-field :vendor/name
|
|
(com/validated-field {:label "Name"
|
|
:errors (fc/field-errors)
|
|
}
|
|
(com/text-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
:x-model "vendorName"
|
|
:autofocus true
|
|
:class "w-96"})))
|
|
(com/validated-field
|
|
{}
|
|
[:div (com/checkbox
|
|
{:x-model "showPrintAs" "@change" "if (!showPrintAs) { printAs = ''; } "}
|
|
"Use different name for checks")])
|
|
|
|
(fc/with-field :vendor/print-as
|
|
(com/validated-field (-> {:label "Print as"
|
|
:errors (fc/field-errors)
|
|
:x-show "showPrintAs"}
|
|
hx/alpine-appear
|
|
hx/alpine-disappear)
|
|
(com/text-input {:name (fc/field-name)
|
|
:x-model "printAs"
|
|
:value (fc/field-value)
|
|
:class "w-96"})))
|
|
|
|
(fc/with-field :vendor/hidden
|
|
(alog/peek (cursor/path fc/*current*))
|
|
(com/checkbox {:name (fc/field-name)
|
|
:value (boolean (fc/field-value)) ;
|
|
:checked (alog/peek :checked (fc/field-value))}
|
|
"Admin-only"))])
|
|
(com/modal-footer
|
|
{}
|
|
[:div.flex.justify-end
|
|
(com/form-errors {:errors (:errors fc/*form-errors*)})
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(println "HERE" form-errors)
|
|
(com/validated-save-button {:errors (seq form-errors)
|
|
:x-ref "next"
|
|
:class "w-48"
|
|
:hx-put (hu/url (bidi/path-for ssr-routes/only-routes ::route/validate)
|
|
{:step "Info"})
|
|
|
|
}
|
|
|
|
"Terms"
|
|
[:div.w-5.h-5 svg/arrow-right])]])))
|
|
|
|
;; TODO add plaid merchant
|
|
;; TODO each client only used once
|
|
|
|
(defn terms-override-row [terms-override-cursor]
|
|
(com/data-grid-row
|
|
(-> {:x-data (hx/json {:show (boolean (not (fc/field-value (:new? terms-override-cursor))))})
|
|
:data-key "show"
|
|
:x-ref "p"}
|
|
hx/alpine-mount-then-appear)
|
|
(list
|
|
(fc/with-field :db/id
|
|
(com/hidden {:name (fc/field-name)
|
|
:value (fc/field-value)}))
|
|
(fc/with-field :vendor-terms-override/client
|
|
(com/data-grid-cell
|
|
{}
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)}
|
|
(com/typeahead {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:autofocuse true
|
|
:class "w-full grow shrink"
|
|
:placeholder "Search..."
|
|
:url (bidi/path-for ssr-routes/only-routes :company-search)
|
|
:value (fc/field-value)
|
|
:content-fn (fn [c] (pull-attr (dc/db conn) :client/name c))}))))
|
|
(fc/with-field :vendor-terms-override/terms
|
|
(com/data-grid-cell
|
|
{}
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)}
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(com/int-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
:class "w-16"})
|
|
"days"])))
|
|
(com/data-grid-cell {:class "align-top"}
|
|
(com/a-icon-button {"@click.prevent.stop" "show=false; setTimeout(() => $refs.p.remove(), 500)"} svg/x)))))
|
|
|
|
|
|
(defn automatically-paid-when-due-row [terms-override-cursor]
|
|
(com/data-grid-row
|
|
(-> {:x-data (hx/json {:show (boolean (not (fc/field-value (:new? terms-override-cursor))))})
|
|
:data-key "show"
|
|
:x-ref "p"}
|
|
hx/alpine-mount-then-appear)
|
|
(list
|
|
(com/data-grid-cell
|
|
{}
|
|
(com/validated-field {:errors (fc/field-errors (:db/id fc/*current*))}
|
|
(com/typeahead {:name (fc/field-name (:db/id fc/*current*))
|
|
:class "w-full"
|
|
:url (bidi/path-for ssr-routes/only-routes
|
|
:company-search)
|
|
:value (fc/field-value)
|
|
:value-fn :db/id
|
|
|
|
|
|
:content-fn #(pull-attr (dc/db conn) :client/name (:db/id %))
|
|
:size :small})))
|
|
|
|
|
|
(com/data-grid-cell {:class "align-top"}
|
|
(com/a-icon-button {"@click.prevent.stop" "show=false; setTimeout(() => $refs.p.remove(), 500)"} svg/x)))))
|
|
|
|
(defn terms-modal [{:keys [form-errors entity form-params]}]
|
|
(com/stacked-modal-card-2
|
|
1
|
|
{"@keydown.enter.prevent.stop" "$refs.next.click()"
|
|
"hx-target" "this"}
|
|
(com/modal-header {}
|
|
[:div.flex
|
|
[:div.p-2 "Vendor Terms"]
|
|
[:p.ml-2.rounded.bg-gray-200.p-2.dark:bg-gray-600
|
|
[:span {:x-text "vendorName"}]]])
|
|
(com/modal-header-attachment {}
|
|
(timeline {:active "Terms"}))
|
|
(com/modal-body {}
|
|
[:div.space-y-1 {:class "w-[600px] h-[350px]"}
|
|
(fc/with-field :vendor/terms
|
|
(com/validated-field {:label "Terms"
|
|
:errors (fc/field-errors)}
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(com/int-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
})
|
|
"days"]))
|
|
(fc/with-field :vendor/terms-overrides
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)
|
|
:label "Terms Overrides"}
|
|
(com/data-grid {:headers [(com/data-grid-header {} "Client")
|
|
(com/data-grid-header {:class "w-16"} "Terms")
|
|
(com/data-grid-header {:class "w-16"})]}
|
|
(fc/cursor-map #(terms-override-row %))
|
|
(com/data-grid-new-row {:colspan 3
|
|
:hx-get (bidi/path-for ssr-routes/only-routes
|
|
::route/new-terms-override)
|
|
:index (count (fc/field-value))}
|
|
"New override"))))
|
|
|
|
(fc/with-field :vendor/automatically-paid-when-due
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)
|
|
:label "Automatically pay when due"}
|
|
(com/data-grid {:headers [(com/data-grid-header {} "Client")
|
|
(com/data-grid-header {:class "w-16"})]}
|
|
(fc/cursor-map #(automatically-paid-when-due-row %))
|
|
(com/data-grid-new-row {:colspan 2
|
|
:hx-get (bidi/path-for ssr-routes/only-routes ::route/new-automatic-payment)
|
|
:index (count (fc/field-value))}
|
|
"New automatic payment for client"))))])
|
|
(println "errors" (seq form-errors))
|
|
(com/modal-footer
|
|
{}
|
|
[:div.flex.justify-end
|
|
(com/form-errors {:errors (:errors fc/*form-errors*)})
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(back-button)
|
|
(com/validated-save-button {:errors (seq form-errors)
|
|
:x-ref "next"
|
|
:class "w-48"
|
|
:hx-put (hu/url (bidi/path-for ssr-routes/only-routes ::route/validate)
|
|
{:step "Terms"})}
|
|
|
|
"Account assignments"
|
|
[:div.w-5.h-5 svg/arrow-right])]])))
|
|
|
|
(defn- account-typeahead*
|
|
[{:keys [name value client-id x-model]}]
|
|
[:div.flex.flex-col
|
|
(com/typeahead {:name name
|
|
:placeholder "Search..."
|
|
:url (str (bidi/path-for ssr-routes/only-routes :account-search) "?client-id=" client-id)
|
|
:id name
|
|
:x-model x-model
|
|
:value value
|
|
:content-fn (fn [value]
|
|
(:account/name (d-accounts/clientize (dc/pull (dc/db conn) d-accounts/default-read value)
|
|
client-id)))})])
|
|
|
|
(defn account-override-row [terms-override-cursor]
|
|
(alog/peek @terms-override-cursor)
|
|
(let [client-id (fc/field-value (:vendor-account-override/client terms-override-cursor))]
|
|
(com/data-grid-row
|
|
(-> {:x-data (hx/json {:show (boolean (not (fc/field-value (:new? terms-override-cursor))))
|
|
:clientId client-id
|
|
:accountId (fc/field-value (:vendor-account-override/account terms-override-cursor))})
|
|
:data-key "show"
|
|
:x-ref "p"}
|
|
hx/alpine-mount-then-appear)
|
|
(list
|
|
(fc/with-field :db/id
|
|
(com/hidden {:name (fc/field-name)
|
|
:value (fc/field-value)}))
|
|
(fc/with-field :vendor-account-override/client
|
|
(com/data-grid-cell
|
|
{}
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)}
|
|
(com/typeahead {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:x-model "clientId"
|
|
:autofocuse true
|
|
:class "w-full grow shrink"
|
|
:placeholder "Search..."
|
|
:url (bidi/path-for ssr-routes/only-routes :company-search)
|
|
:value (fc/field-value)
|
|
:content-fn (fn [c] (pull-attr (dc/db conn) :client/name c))}))))
|
|
(fc/with-field :vendor-account-override/account
|
|
(com/data-grid-cell
|
|
{}
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)}
|
|
[:div {:hx-trigger "changed"
|
|
:hx-target "next div"
|
|
:hx-vals (format "js:{name: '%s', 'client-id': event.detail.clientId, value: event.detail.accountId || ''}" (fc/field-name))
|
|
:hx-get (str (bidi/path-for ssr-routes/only-routes ::route/account-typeahead))
|
|
:x-init "$watch('clientId', cid => $dispatch('changed', $data));"}]
|
|
(account-typeahead* {:value (fc/field-value)
|
|
:client-id client-id
|
|
:name (fc/field-name)
|
|
:x-model "accountId"}))))
|
|
(com/data-grid-cell {:class "align-top"}
|
|
(com/a-icon-button {"@click.prevent.stop" "show=false; setTimeout(() => $refs.p.remove(), 500)"} svg/x))))))
|
|
|
|
(defn account-modal [{:keys [form-errors entity form-params]}]
|
|
(com/stacked-modal-card-2
|
|
2
|
|
{"@keydown.enter.prevent.stop" "$refs.next.click()"
|
|
"hx-target" "this"}
|
|
(com/modal-header
|
|
{}
|
|
[:div.flex
|
|
[:div.p-2 "Vendor Account"]
|
|
[:p.ml-2.rounded.bg-gray-200.p-2.dark:bg-gray-600
|
|
[:span {:x-text "vendorName"}]]])
|
|
(com/modal-header-attachment {}
|
|
(timeline {:active "Account"}))
|
|
(com/modal-body
|
|
{}
|
|
[:div.space-y-1 {:class "w-[600px] h-[350px] "}
|
|
(fc/with-field :vendor/default-account
|
|
(alog/info ::acount-check :a (fc/field-value))
|
|
(com/validated-field {:label "Default Account"
|
|
:errors (fc/field-errors)}
|
|
(com/typeahead {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:class "w-96"
|
|
:placeholder "Search..."
|
|
:url (bidi/path-for ssr-routes/only-routes :account-search)
|
|
:value (fc/field-value)
|
|
:content-fn (fn [c] (pull-attr (dc/db conn) :account/name c))})))
|
|
(fc/with-field :vendor/account-overrides
|
|
(com/validated-field
|
|
{:errors (fc/field-errors)
|
|
:label "Account Overrides"}
|
|
(com/data-grid {:headers [(com/data-grid-header {} "Client")
|
|
(com/data-grid-header {} "Account")
|
|
(com/data-grid-header {:class "w-16"})]}
|
|
(fc/cursor-map #(account-override-row %))
|
|
(com/data-grid-new-row {:colspan 3
|
|
:hx-get (bidi/path-for ssr-routes/only-routes ::route/new-account-override)
|
|
:index (count (fc/field-value))}
|
|
"New override"))))])
|
|
(com/modal-footer
|
|
{}
|
|
[:div.flex.justify-end
|
|
(com/form-errors {:errors (:errors fc/*form-errors*)})
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(back-button)
|
|
(com/validated-save-button {:errors (seq form-errors)
|
|
:x-ref "next"
|
|
:hx-put (hu/url (bidi/path-for ssr-routes/only-routes ::route/validate)
|
|
{:step "Account"})}
|
|
"Address"
|
|
[:div.w-5.h-5 svg/arrow-right])]])))
|
|
|
|
(defn address-modal [{:keys [form-errors entity form-params]}]
|
|
(com/stacked-modal-card-2
|
|
3
|
|
{"@keydown.enter.prevent.stop" "$refs.next.click()"
|
|
"hx-target" "this"}
|
|
(com/modal-header
|
|
{}
|
|
[:div.flex ;; TODO standardize how these headers are built
|
|
[:div.p-2 "Address"]
|
|
[:p.ml-2.rounded.bg-gray-200.p-2.dark:bg-gray-600
|
|
[:span {:x-text "vendorName"}]]])
|
|
(com/modal-header-attachment {}
|
|
(timeline {:active "Address"}))
|
|
(com/modal-body
|
|
{}
|
|
[:div.space-y-1 {:class "w-[600px] h-[350px]"}
|
|
(fc/with-field :vendor/address
|
|
[:div.flex.flex-col.w-full
|
|
(fc/with-field :db/id
|
|
(com/hidden {:name (fc/field-name)
|
|
:value (fc/field-value)}))
|
|
(fc/with-field :address/street1
|
|
(com/validated-field {:label "Street"
|
|
:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:autofocus true
|
|
:class "w-full"
|
|
:placeholder "1200 Pennsylvania Avenue"
|
|
:value (fc/field-value)})))
|
|
(fc/with-field :address/street2
|
|
(com/validated-field {:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:class "w-full"
|
|
:placeholder "Suite 300"
|
|
:value (fc/field-value)})))
|
|
[:div.flex.w-full.space-x-4
|
|
(fc/with-field :address/city
|
|
(com/validated-field {:errors (fc/field-errors)
|
|
:class "w-full grow shrink"}
|
|
(com/text-input {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:class "w-full"
|
|
:placeholder "Suite 300"
|
|
:value (fc/field-value)})))
|
|
(fc/with-field :address/state
|
|
(com/validated-field {:errors (fc/field-errors)
|
|
:class "w-16 shrink-0"}
|
|
(com/text-input {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:class "w-full"
|
|
:placeholder "Suite 300"
|
|
:value (fc/field-value)})))
|
|
(fc/with-field :address/zip
|
|
(com/validated-field {:errors (fc/field-errors)
|
|
:class "w-24 shrink-0"}
|
|
(com/text-input {:name (fc/field-name)
|
|
:error? (fc/error?)
|
|
:placeholder "Suite 300"
|
|
:class "w-full"
|
|
:value (fc/field-value)})))]])])
|
|
(com/modal-footer
|
|
{}
|
|
[:div.flex.justify-end
|
|
(com/form-errors {:errors (:errors fc/*form-errors*)})
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(back-button)
|
|
(com/validated-save-button {:errors (seq form-errors)
|
|
:x-ref "next"
|
|
:hx-put (hu/url (bidi/path-for ssr-routes/only-routes ::route/validate)
|
|
{:step "Address"})}
|
|
|
|
"Legal Entity"
|
|
[:div.w-5.h-5 svg/arrow-right])]])))
|
|
|
|
(defn legal-modal [{:keys [form-params entity form-errors]}]
|
|
(com/stacked-modal-card-2
|
|
4
|
|
{"@keydown.enter.prevent.stop" "$refs.next.click()"}
|
|
(com/modal-header
|
|
{}
|
|
[:div.flex
|
|
[:div.p-2 "Legal Entity Info"]
|
|
[:p.ml-2.rounded.bg-gray-200.p-2.dark:bg-gray-600
|
|
[:span {:x-text "vendorName"}]]])
|
|
(com/modal-header-attachment {}
|
|
(timeline {:active "Legal"}))
|
|
(com/modal-body
|
|
{}
|
|
[:div {:class "w-[600px] h-[350px]"}
|
|
[:div.grid.grid-cols-6.gap-x-4.gap-y-2
|
|
[:div.col-span-6
|
|
(fc/with-field :vendor/legal-entity-name
|
|
(com/validated-field {:label "Legal Entity Name"
|
|
:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:class "w-full"
|
|
:value (fc/field-value)
|
|
:placeholder "Good Restaurant LLC"})))]
|
|
[:div.col-span-6.text-center " - OR -"]
|
|
[:div.col-span-2
|
|
(fc/with-field :vendor/legal-entity-first-name
|
|
(com/validated-field {:label "First Name"
|
|
:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
:placeholder "John"})))]
|
|
[:div.col-span-2
|
|
(fc/with-field :vendor/legal-entity-middle-name
|
|
(com/validated-field {:label "Middle Name"
|
|
:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
:placeholder "C."})))]
|
|
[:div.col-span-2
|
|
(fc/with-field :vendor/legal-entity-last-name
|
|
(com/validated-field {:label "Last Name"
|
|
:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
:placeholder "Riley"})))]
|
|
[:div.col-span-2
|
|
(fc/with-field :vendor/legal-entity-tin
|
|
(com/validated-field {:label "TIN"
|
|
:errors (fc/field-errors)}
|
|
(com/text-input {:name (fc/field-name)
|
|
:value (fc/field-value)
|
|
:placeholder "John"})))]
|
|
[:div.col-span-2
|
|
(fc/with-field :vendor/legal-entity-tin-type
|
|
(com/validated-field {:label "TIN Type"
|
|
:errors (fc/field-errors)}
|
|
(com/select {:name (fc/field-name)
|
|
:allow-blank? true
|
|
:value (some-> (fc/field-value) name)
|
|
:options [["ein" "EIN"]
|
|
["ssn" "SSN"]]})))]
|
|
[:div.col-span-2
|
|
(fc/with-field :vendor/legal-entity-1099-type
|
|
(com/validated-field {:label "1099 Type"
|
|
:errors (fc/field-errors)}
|
|
(com/select {:name (fc/field-name)
|
|
:allow-blank? true
|
|
:value (some-> (fc/field-value) name)
|
|
:options (ref->select-options "legal-entity-1099-type")})))]]])
|
|
(com/modal-footer
|
|
{}
|
|
[:div.flex.justify-end
|
|
(com/form-errors {:errors (:errors fc/*form-errors*)})
|
|
[:div.flex.items-baseline.gap-x-4
|
|
(back-button)
|
|
(com/validated-save-button {:errors (seq form-errors)
|
|
:x-ref "next"}
|
|
"Save vendor")]])))
|
|
|
|
(defn dialog* [{:keys [entity form-params form-errors] :as params}]
|
|
(alog/peek ::dialog-entity form-params)
|
|
(fc/start-form form-params form-errors
|
|
[:div {:x-data (hx/json {"vendorName" (:vendor/name form-params)
|
|
"showPrintAs" (boolean (not-empty (:vendor/print-as form-params)))
|
|
"printAs" (:vendor/print-as form-params)})
|
|
:class "w-full h-full"}
|
|
[:form#my-form (-> {:hx-ext "response-targets"
|
|
:hx-swap "outerHTML"
|
|
:hx-target-400 "#form-errors .error-content"
|
|
:hx-trigger "submit"
|
|
:class "h-full w-full"}
|
|
(assoc (if (:db/id entity)
|
|
:hx-put
|
|
:hx-post)
|
|
(str (bidi/path-for ssr-routes/only-routes ::route/save))))
|
|
(com/modal
|
|
{}
|
|
(info-modal params)
|
|
(terms-modal params)
|
|
(account-modal params)
|
|
(address-modal params)
|
|
(legal-modal params))]]))
|
|
|
|
(def form-schema (mc/schema
|
|
[:map
|
|
[:db/id {:optional true} [:maybe entity-id]]
|
|
[:vendor/name [:string {:min 3 :decode/string strip}]]
|
|
[:vendor/print-as {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:vendor/default-account entity-id]
|
|
[:vendor/terms {:optional true} [:maybe :int]]
|
|
[:vendor/automatically-paid-when-due {:optional true}
|
|
[:maybe
|
|
(many-entity {} [:db/id entity-id])]]
|
|
[:vendor/terms-overrides {:optional true}
|
|
(many-entity {}
|
|
[:db/id [:or entity-id temp-id]]
|
|
[:vendor-terms-override/terms :int]
|
|
[:vendor-terms-override/client entity-id])]
|
|
[:vendor/account-overrides {:optional true}
|
|
(many-entity {}
|
|
[:db/id [:or entity-id temp-id]]
|
|
[:vendor-account-override/account entity-id]
|
|
[:vendor-account-override/client entity-id])]
|
|
[:vendor/hidden {:default false}
|
|
[:boolean {:decode/string {:enter #(if (= % "on") true
|
|
|
|
(boolean %))}}]]
|
|
[:vendor/address {:default {}}
|
|
[:map
|
|
[:db/id {:default "new-account"} [:or entity-id temp-id]]
|
|
[:address/street1 {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:address/street2 {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:address/city {:optional true} [:maybe [:string {:min 2 :decode/string strip}]]]
|
|
[:address/state {:optional true} [:maybe [:string {:min 2 :max 2 :decode/string strip}]]]
|
|
[:address/zip {:optional true} [:maybe [:string {:min 5 :max 5 :decode/string strip}]]]]]
|
|
[:vendor/legal-entity-tin {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:vendor/legal-entity-name {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:vendor/legal-entity-first-name {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:vendor/legal-entity-middle-name {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:vendor/legal-entity-last-name {:optional true} [:maybe [:string {:min 3 :decode/string strip}]]]
|
|
[:vendor/legal-entity-tin-type {:optional true} [:maybe (ref->enum-schema "legal-entity-tin-type")]]
|
|
[:vendor/legal-entity-1099-type {:optional true} [:maybe (ref->enum-schema "legal-entity-1099-type")]]]))
|
|
|
|
(defn dialog [{:keys [entity form-params form-errors]}]
|
|
(modal-response (dialog* {:entity entity
|
|
:form-params (or (when (seq form-params)
|
|
form-params)
|
|
(when entity
|
|
(mc/decode form-schema entity main-transformer))
|
|
(mc/decode form-schema {} main-transformer))
|
|
:form-errors form-errors})))
|
|
|
|
|
|
|
|
(defn new-terms-override [{{:keys [index]} :query-params}]
|
|
(html-response
|
|
(fc/start-form-with-prefix
|
|
[:vendor/terms-overrides (or index 0)]
|
|
{:db/id (str (java.util.UUID/randomUUID))
|
|
:new? true}
|
|
[]
|
|
(terms-override-row fc/*current*))))
|
|
|
|
(defn new-automatic-payment [{{:keys [index]} :query-params}]
|
|
(html-response
|
|
(fc/start-form-with-prefix
|
|
[:vendor/automatically-paid-when-due (or index 0)]
|
|
{:db/id nil
|
|
:new? true}
|
|
[]
|
|
(automatically-paid-when-due-row fc/*current*))))
|
|
|
|
(defn new-account-override [{{:keys [index]} :query-params}]
|
|
(html-response
|
|
(fc/start-form-with-prefix
|
|
[:vendor/account-overrides (or index 0)]
|
|
{:db/id (str (java.util.UUID/randomUUID))
|
|
:new? true}
|
|
[]
|
|
(account-override-row fc/*current*))))
|
|
|
|
(defn modal-next [{:keys [form-params form-errors] :as request}]
|
|
(html-response [:div]
|
|
:headers {"hx-trigger-after-settle" "modalnext"
|
|
"hx-reswap" "none"}))
|
|
|
|
(defn single-modal [which {:keys [form-params form-errors] :as request}]
|
|
(println "ERRORS ARE" form-errors)
|
|
(fc/start-form form-params form-errors
|
|
(html-response (which request))))
|
|
|
|
(defn branch-handler [f & {:as matches}]
|
|
(fn branch-handler* [request]
|
|
(let [c (f request)]
|
|
(println matches)
|
|
(some->> matches
|
|
(filter (fn [[matching-key matching-handler]]
|
|
(= c matching-key)))
|
|
first
|
|
seq
|
|
((fn [[_ matching-handler]]
|
|
(matching-handler request)))))))
|
|
|
|
(defn account-typeahead [{{:keys [name value client-id] :as qp} :query-params}]
|
|
(html-response (account-typeahead* {:name name
|
|
:value value
|
|
:client-id client-id
|
|
:x-model "accountId"})))
|
|
|
|
(def key->handler
|
|
(apply-middleware-to-all-handlers
|
|
(->>
|
|
{::route/page (helper/page-route grid-page)
|
|
::route/table (helper/table-route grid-page)
|
|
::route/new dialog
|
|
::route/validate (-> (branch-handler (comp :step :query-params)
|
|
"Info" (-> modal-next
|
|
(wrap-schema-enforce :form-schema (mut/select-keys form-schema #{:vendor/name :vendor/print-as}))
|
|
(wrap-form-4xx-2 (partial single-modal info-modal)))
|
|
"Terms" (-> modal-next
|
|
(wrap-schema-enforce :form-schema
|
|
(mut/select-keys form-schema #{:vendor/terms :vendor/terms-overrides :vendor/automatically-paid-when-due}))
|
|
(wrap-form-4xx-2 (partial single-modal terms-modal)))
|
|
"Account" (-> modal-next
|
|
(wrap-schema-enforce :form-schema
|
|
(mut/select-keys form-schema #{:vendor/default-account :vendor/account-overrides}))
|
|
(wrap-form-4xx-2 (partial single-modal account-modal)))
|
|
"Address"
|
|
(-> modal-next
|
|
(wrap-schema-enforce :form-schema
|
|
(mut/select-keys form-schema #{:vendor/address}))
|
|
(wrap-form-4xx-2 (partial single-modal address-modal))))
|
|
(wrap-schema-enforce :query-schema [:map [:step :string]])
|
|
(wrap-schema-decode :form-schema form-schema)
|
|
(wrap-nested-form-params)
|
|
#_(wrap-form-4xx-2 (-> dialog
|
|
(wrap-entity [:form-params :db/id] default-read)))
|
|
)
|
|
::route/save (-> save
|
|
(wrap-entity [:form-params :db/id] default-read)
|
|
(wrap-schema-enforce :form-schema form-schema)
|
|
(wrap-nested-form-params)
|
|
(wrap-form-4xx-2 (wrap-entity dialog [:form-params :db/id] default-read)))
|
|
::route/edit (-> dialog
|
|
(wrap-entity [:route-params :db/id] default-read)
|
|
(wrap-schema-enforce :route-schema [:map [:db/id entity-id]]))
|
|
::route/edit-terms (-> terms-dialog
|
|
(wrap-entity [:form-params :db/id] default-read)
|
|
(wrap-schema-enforce :form-schema form-schema)
|
|
(wrap-nested-form-params)
|
|
(wrap-form-4xx-2 (-> dialog
|
|
(wrap-entity [:form-params :db/id] default-read))))
|
|
::route/new-terms-override (-> new-terms-override
|
|
(wrap-schema-enforce :query-schema [:map
|
|
[:index {:optional true
|
|
:default 0} [nat-int? {:default 0}]]]))
|
|
::route/account-typeahead (-> account-typeahead
|
|
(wrap-schema-enforce :query-schema [:map
|
|
[:name :string]
|
|
[:client-id {:optional true}
|
|
[:maybe entity-id]]
|
|
[:value {:optional true}
|
|
[:maybe entity-id]]]))
|
|
::route/new-automatic-payment (-> new-automatic-payment
|
|
(wrap-schema-enforce :query-schema [:map
|
|
[:index {:optional true
|
|
:default 0} [nat-int? {:default 0}]]]))
|
|
::route/new-account-override (-> new-account-override
|
|
(wrap-schema-enforce :query-schema [:map
|
|
[:index {:optional true
|
|
:default 0} [nat-int? {:default 0}]]]))})
|
|
(fn [h]
|
|
(-> h
|
|
(wrap-admin)
|
|
(wrap-client-redirect-unauthenticated)))))
|