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

more fixes

Browse Source
This commit is contained in:
Bryce
2026-05-21 11:46:45 -07:00
parent 918ddd14ff
commit 4221d6a0d6
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -229,7 +229,13 @@
(com/a-icon-button {"@click.prevent.stop" "show=false; setTimeout(() => $refs.p.remove(), 500)"} svg/x)))) (com/a-icon-button {"@click.prevent.stop" "show=false; setTimeout(() => $refs.p.remove(), 500)"} svg/x))))
(defn- account-field-name [index field] (defn- account-field-name [index field]
(str "step-params[transaction/accounts][" index "][" (name field) "]")) (str "step-params[transaction/accounts][" index "]["
(if (keyword? field)
(str (when (namespace field)
(str (namespace field) "/"))
(name field))
field)
"]"))
(defn transaction-account-row-no-cursor* [{:keys [account index client-id amount-mode total]}] (defn transaction-account-row-no-cursor* [{:keys [account index client-id amount-mode total]}]
(com/data-grid-row (com/data-grid-row
@@ -403,7 +409,7 @@
(defn toggle-amount-mode [request] (defn toggle-amount-mode [request]
(let [snapshot (-> request :multi-form-state :snapshot) (let [snapshot (-> request :multi-form-state :snapshot)
old-mode (or (:amount-mode snapshot) "$") old-mode (or (:amount-mode snapshot) "$")
new-mode (or (get-in request [:form-params :amount-mode]) "$") new-mode (or (get-in request [:multi-form-state :step-params :amount-mode]) "$")
total (Math/abs (or (:transaction/amount snapshot) 0.0)) total (Math/abs (or (:transaction/amount snapshot) 0.0))
accounts (convert-accounts-mode (:transaction/accounts snapshot) old-mode new-mode total) accounts (convert-accounts-mode (:transaction/accounts snapshot) old-mode new-mode total)
updated-request (-> request updated-request (-> request