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

horizontal

Browse Source
This commit is contained in:
Bryce
2026-05-26 11:57:59 -07:00
parent ae0788e6dd
commit 85652a7ce7
1 changed files with 100 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/clj/auto_ap/ssr/transaction/edit.clj
View File

@@ -44,7 +44,7 @@
(def transaction-approval-status (def transaction-approval-status
{:transaction-approval-status/unapproved "Unapproved" {:transaction-approval-status/unapproved "Unapproved"
:transaction-approval-status/approved "Approved" :transaction-approval-status/approved "Approved"
:transaction-approval-status/suppressed "Suppressed"}) :transaction-approval-status/suppressed "Client Review"})
(def row* (partial helper/row* grid-page)) (def row* (partial helper/row* grid-page))
@@ -945,10 +945,23 @@
(com/validated-field (com/validated-field
{:label "Status" {:label "Status"
:errors (fc/field-errors)} :errors (fc/field-errors)}
(com/radio-card {:options (mapv (fn [[k v]] {:value (name k) :content v}) (let [current-value (name (or (fc/field-value) :transaction-approval-status/unapproved))]
transaction-approval-status) [:div {:x-data (hx/json {:approvalStatus current-value})}
:value (name (or (fc/field-value) :transaction-approval-status/unapproved)) (com/hidden {:name (fc/field-name)
:name (fc/field-name)}))) :value current-value
":value" "approvalStatus"})
[:div {:class "inline-flex rounded-md shadow-sm", :role "group"}
(com/button-group-button {"@click" "approvalStatus = 'approved'"
":class" "{ '!bg-primary-200 text-primary-800': approvalStatus === 'approved' }"
:class "rounded-l-lg"}
"Approved")
(com/button-group-button {"@click" "approvalStatus = 'unapproved'"
":class" "{ '!bg-primary-200 text-primary-800': approvalStatus === 'unapproved' }"}
"Unapproved")
(com/button-group-button {"@click" "approvalStatus = 'suppressed'"
":class" "{ '!bg-primary-200 text-primary-800': approvalStatus === 'suppressed' }"
:class "rounded-r-lg"}
"Client Review")]])))
(fc/with-field :transaction/accounts (fc/with-field :transaction/accounts
(com/validated-field (com/validated-field
{:errors (fc/field-errors)} {:errors (fc/field-errors)}