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

Adds vendor full name to dialog.

Browse Source
This commit is contained in:
Bryce Covert
2023-02-23 22:02:59 -08:00
parent 590265f4a9
commit eb87367e8b
5 changed files with 19 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/graphql.clj
View File

@@ -181,6 +181,7 @@
:default_account {:type :account}
:invoice_reminder_schedule {:type 'String}
:legal_entity_name {:type 'String}
:legal_entity_first_name {:type 'String}
:legal_entity_middle_name {:type 'String}
:legal_entity_last_name {:type 'String}
@@ -468,6 +469,7 @@
:account_overrides {:type '(list :add_account_override)}
:schedule_payment_dom {:type '(list :add_schedule_payment_dom)}
:invoice_reminder_schedule {:type 'String}
:legal_entity_name {:type 'String}
:legal_entity_first_name {:type 'String}
:legal_entity_middle_name {:type 'String}
:legal_entity_last_name {:type 'String}

8
src/clj/auto_ap/graphql/vendors.clj
View File

@@ -120,6 +120,7 @@
:email (:email secondary_contact)})
)}
(is-admin? (:id context)) (assoc
:vendor/legal-entity-name (:legal_entity_name in)
:vendor/legal-entity-first-name (:legal_entity_first_name in)
:vendor/legal-entity-middle-name (:legal_entity_middle_name in)
:vendor/legal-entity-last-name (:legal_entity_last_name in)
@@ -139,10 +140,9 @@
_ (log/info "Upserting vendor" transaction)
transaction-result (audit-transact transaction (:id context))]
(doto (-> (d-vendors/get-by-id (or (-> transaction-result :tempids (get "vendor"))
id))
(->graphql))
log/info)))
(-> (d-vendors/get-by-id (or (-> transaction-result :tempids (get "vendor"))
id))
(->graphql))))
(defn merge-vendors [context {:keys [from to]} _]
(let [transaction (->> (d/query {:query {:find '[?x ?a2]