Adds memo field

This commit is contained in:
2024-12-29 21:52:53 -08:00
parent a0bfeb51a7
commit ce759acab4
7 changed files with 43 additions and 8 deletions

View File

@@ -359,7 +359,7 @@
(when (nil? (:account_id trans-account))
(throw (ex-info "Account is missing account" {:validation-error "Account is missing account"})))))
(defn edit-transaction [context {{:keys [id accounts vendor_id approval_status forecast_match]} :transaction} _]
(defn edit-transaction [context {{:keys [id accounts vendor_id approval_status memo forecast_match]} :transaction} _]
(let [existing-transaction (d-transactions/get-by-id id)
_ (assert-can-see-client (:id context) (:transaction/client existing-transaction) )
_ (assert-valid-expense-accounts accounts)
@@ -387,6 +387,7 @@
(audit-transact (cond-> [[:upsert-transaction {:db/id id
:transaction/vendor vendor_id
:transaction/memo memo
:transaction/approval-status (some->> approval_status
name
snake->kebab
@@ -571,6 +572,7 @@
(def objects
{:transaction {:fields {:id {:type :id}
:amount {:type 'String}
:memo {:type 'String}
:is_locked {:type 'Boolean}
:description_original {:type 'String}
:description_simple {:type 'String}
@@ -674,6 +676,7 @@
:unresolved {:type 'Boolean}}}
:edit_transaction
{:fields {:id {:type :id}
:memo {:type 'String}
:vendor_id {:type :id}
:forecast_match {:type :id}
:approval_status {:type :transaction_approval_status}