Adds memo field
This commit is contained in:
@@ -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}
|
||||
|
||||
Reference in New Issue
Block a user