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

feat(transactions): port manual bank-transaction import to SSR #8

Closed
notid wants to merge 133 commits from integreat-add-transaction-manual into master
pull from: integreat-add-transaction-manual
merge into: notid:master
Conversation 0 Commits 133 Files Changed 413 +4 -7
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit a88dcf4122 - Show all commits

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

@@ -181,17 +181,14 @@
(defn simple-mode-fields*
"Renders the simple-mode account + location row and the toggle-to-advanced link.
Must be called within a fc/start-form + fc/with-field :step-params context."
Must be called within a fc/start-form + fc/with-field :step-params context.
Caller must establish Alpine x-data with simpleAccountId in scope."
[request]
(let [snapshot (-> request :multi-form-state :snapshot)
client-id (or (-> request :entity :transaction/client :db/id)
(:transaction/client snapshot))
existing-row (first (:transaction/accounts snapshot))
account-val (or (:transaction-account/account existing-row)
(fc/with-field :transaction/accounts
(fc/with-cursor (nth fc/*current* 0)
(fc/with-field :transaction-account/account
(fc/field-value)))))
account-val (:transaction-account/account existing-row)
location-val (or (:transaction-account/location existing-row) "Shared")
account-id (when (nat-int? account-val)
(dc/pull (dc/db conn) '[:account/location] account-val))
@@ -201,7 +198,7 @@
0.0))]
[:div
(fc/with-field :transaction/accounts
(fc/with-cursor (nth fc/*current* 0)
(fc/with-cursor (nth fc/*current* 0 nil)
[:span
(fc/with-field :db/id
(com/hidden {:name (fc/field-name)