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

improvements.

Browse Source
This commit is contained in:
Bryce
2024-03-23 15:42:11 -07:00
parent 48a3894fdb
commit 20cc195197
1 changed files with 36 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
src/clj/auto_ap/ssr/invoice/new_invoice_wizard.clj
View File

@@ -252,32 +252,42 @@
(mut/select-keys (mm/form-schema linear-wizard) #{:invoice/expense-accounts})) (mut/select-keys (mm/form-schema linear-wizard) #{:invoice/expense-accounts}))
(render-step [this {{:keys [snapshot]} :multi-form-state :as request}] (render-step [this {{:keys [snapshot]} :multi-form-state :as request}]
(alog/peek ::mfs (:step-params (:multi-form-state request))) (alog/peek ::mfs (:step-params (:multi-form-state request)))
(mm/default-render-step (mm/default-render-step
linear-wizard this linear-wizard this
:head [:div.p-2 "Invoice accounts "] :head [:div.p-2 "Invoice accounts "]
:body (mm/default-step-body :body (mm/default-step-body
{} {}
[:div {} [:div {}
(pull-attr (dc/db conn) :client/name (:invoice/client snapshot)) (pull-attr (dc/db conn) :client/name (:invoice/client snapshot))
(fc/with-field :invoice/expense-accounts (fc/with-field :invoice/expense-accounts
(com/validated-field (com/validated-field
{:errors (fc/field-errors)} {:errors (fc/field-errors)}
(com/data-grid {:headers [(com/data-grid-header {} "Account") (com/data-grid {:headers [(com/data-grid-header {} "Account")
(com/data-grid-header {:class "w-32"} "Location") (com/data-grid-header {:class "w-32"} "Location")
(com/data-grid-header {:class "w-16"} "%") (com/data-grid-header {:class "w-16"} "%")
(com/data-grid-header {:class "w-16"})]} (com/data-grid-header {:class "w-16"})]}
(fc/cursor-map #(invoice-expense-account-row* {:value % (fc/cursor-map #(invoice-expense-account-row* {:value %
:client-id (:invoice/client snapshot)})) :client-id (:invoice/client snapshot)}))
(com/data-grid-new-row {:colspan 4 (com/data-grid-new-row {:colspan 4
:hx-get (bidi/path-for ssr-routes/only-routes :hx-get (bidi/path-for ssr-routes/only-routes
::route/new-wizard-new-account) ::route/new-wizard-new-account)
:index (count (fc/field-value)) :index (count (fc/field-value))
:tr-params {:hx-vals (hx/json {:client-id (:invoice/client snapshot)})}} :tr-params {:hx-vals (hx/json {:client-id (:invoice/client snapshot)})}}
"New account"))))]) "New account"))))])
:footer :footer
(mm/default-step-footer linear-wizard this :validation-route ::route/new-wizard-navigate) (mm/default-step-footer linear-wizard this :validation-route ::route/new-wizard-navigate)
:validation-route ::route/new-wizard-navigate))) :validation-route ::route/new-wizard-navigate))
mm/Initializable
(init-step-params
[_ request]
(alog/peek ::INIT {:invoice/expense-accounts [{:db/id "123"
:invoice-expense-account/amount 100}]})
{:invoice/expense-accounts [{:db/id "123"
:invoice-expense-account/location "Shared"
:invoice-expense-account/account (ffirst (dc/q '[:find ?a :where [?a :account/name]]
(dc/db conn)))
:invoice-expense-account/amount 100}]}))