diff --git a/src/clj/auto_ap/ssr/transaction/edit.clj b/src/clj/auto_ap/ssr/transaction/edit.clj index 61221cde..87be5931 100644 --- a/src/clj/auto_ap/ssr/transaction/edit.clj +++ b/src/clj/auto_ap/ssr/transaction/edit.clj @@ -191,7 +191,8 @@ (:transaction/client snapshot)) existing-row (first (or (seq (:transaction/accounts step-params)) (seq (:transaction/accounts snapshot)))) - account-val (:transaction-account/account existing-row) + account-val (let [av (:transaction-account/account existing-row)] + (if (map? av) (:db/id av) av)) 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)) @@ -527,8 +528,8 @@ :content-fn (fn [c] (pull-attr (dc/db conn) :vendor/name c))})]))] (if (= mode :simple) [:div {:x-data (hx/json {:simpleAccountId - (-> (first all-accounts) - :transaction-account/account)})} + (let [av (-> (first all-accounts) :transaction-account/account)] + (if (map? av) (:db/id av) av))})} (simple-mode-fields* request)] [:div (when (<= row-count 1)