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

Makes multiple client selection somewhat possible via graphql.

Browse Source
This commit is contained in:
Bryce
2023-08-31 13:05:06 -07:00
parent 9c472dfc8e
commit 1d82ec29e0
29 changed files with 274 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/graphql/checks.clj
View File

@@ -433,7 +433,7 @@
(let [[payments checks-count] (d-checks/get-graphql (-> args
:filters
(<-graphql)
(assoc :id (:id context))
(assoc :clients (:clients context))
(update :payment-type enum->keyword "payment-type")
(update :status enum->keyword "payment-status")))]
@@ -557,10 +557,10 @@
(defn void-payments [context args _]
(assert-admin (:id context))
(let [args (assoc args :id (:id context))
(let [args (assoc args :clients (:clients context))
ids (some-> args
:filters
(assoc :id (:id context))
(assoc :clients (:clients context))
(<-graphql)
(update :payment-type enum->keyword "payment-type")
(update :status enum->keyword "payment-status")

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

@@ -221,7 +221,7 @@
(assert-admin (:id context))
(let [args (assoc args :id (:id context))
[clients clients-count] (d-clients/get-graphql-page (assoc (<-graphql (:filters args))
:id (:id context)))
:clients (:clients context)))
clients (->> clients
(map (fn [c]

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

@@ -15,7 +15,7 @@
(first (d-expected-deposit/get-graphql (assoc (<-graphql args) :count Integer/MAX_VALUE)))))
(defn get-expected-deposit-page [context args _]
(let [args (assoc args :id (:id context))
(let [args (assoc args :clients (:clients context))
[expected-deposits expected-deposit-count] (d-expected-deposit/get-graphql (<-graphql args))
expected-deposits (map status->graphql expected-deposits)]

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

@@ -37,7 +37,7 @@
(let [args (assoc args :id (:id context))
[invoices invoice-count outstanding total-amount] (-> args
:filters
(assoc :id (:id context))
(assoc :clients (:clients context))
(<-graphql)
(update :status enum->keyword "invoice-status")
(d-invoices/get-graphql))]

4
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -36,7 +36,7 @@
(defn get-ledger-page [context args _]
(let [args (assoc args :id (:id context))
[journal-entries journal-entries-count] (l/get-graphql (assoc (<-graphql (:filters args))
:id (:id context)))
:clients (:clients context)))
journal-entries (mapv
(fn [je]
@@ -316,7 +316,7 @@
(defn delete-external-ledger [context args _]
(let [_ (assert-admin (:id context))
args (assoc args :id (:id context))
args (assoc args :clients (:clients context))
ids (some-> (:filters args)
(assoc :only-external true)
(<-graphql)

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

@@ -11,7 +11,7 @@
(defn get-report-page [context args _]
(let [args (assoc args :id (:id context))
[reports reports-count] (r/get-graphql (assoc (<-graphql (:filters args))
:id (:id context)))]
:clients (:clients context)))]
(result->page reports reports-count :reports (:filters args)))
)

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

@@ -5,7 +5,7 @@
[auto-ap.graphql.utils :refer [attach-tracing-resolvers]]))
(defn get-sales-orders-page [context args _]
(let [args (assoc args :id (:id context))
(let [args (assoc args :clients (:clients context))
[sales-orders sales-orders-count {:keys [total tax]}] (d-sales-orders2/get-graphql (<-graphql args))]
(assoc (result->page sales-orders sales-orders-count :sales_orders args)
:sales_order_total total

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

@@ -20,7 +20,7 @@
[iol-ion.tx :refer [random-tempid]]))
(defn get-transaction-rule-page [context args _]
(let [args (assoc args :id (:id context))
(let [args (assoc args :clients (:clients context))
[journal-entries journal-entries-count] (tr/get-graphql (<-graphql args))]
(result->page (->> journal-entries
(map (ident->enum-f :transaction-rule/transaction-approval-status)))

12
src/clj/auto_ap/graphql/transactions.clj
View File

@@ -52,7 +52,8 @@
{:validation-error "In order to select potential duplicates, you must filter your view more."})))))
(defn get-transaction-page [context args _]
(let [args (assoc (:filters args) :id (:id context))
(let [args (assoc (:filters args)
:clients (:clients context))
_ (assert-filtered-enough args)
[transactions transactions-count] (d-transactions/get-graphql (update (<-graphql args) :approval-status enum->keyword "transaction-approval-status"))
transactions (map ->graphql (map approval-status->graphql transactions))]
@@ -85,7 +86,7 @@
(map first)))
(defn bulk-change-status [context args _]
(let [_ (assert-admin (:id context))
args (assoc args :id (:id context))
args (assoc args :clients (:clients context))
all-ids (->> (get-ids-matching-filters args)
all-ids-not-locked)]
@@ -137,10 +138,11 @@
(defn bulk-code-transactions [context args _]
(assert-admin (:id context))
(when-not (:client_id args)
(when-not (seq (:client_id args))
(throw (ex-info "Client is required"
{:validation-error "client is required"})))
(let [args (assoc args :id (:id context))
;; TODO FIX THIS TO WORK WITH MULTIPLE
(let [args (assoc args :clients (:clients context))
locations (pull-attr (dc/db conn)
:client/locations
(:client_id args))
@@ -184,7 +186,7 @@
(defn delete-transactions [context args _]
(let [_ (assert-admin (:id context))
args (assoc args :id (:id context))
args (assoc args :clients (:clients context))
all-ids (all-ids-not-locked (get-ids-matching-filters args))
db (dc/db conn)]

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

@@ -5,7 +5,7 @@
(defn get-yodlee-provider-account-page [context args _]
(let [args (assoc args :id (:id context))
[yodlee-provider-accounts cnt] (d-yodlee2/get-graphql (<-graphql (assoc args :id (:id context))))]
[yodlee-provider-accounts cnt] (d-yodlee2/get-graphql (<-graphql (assoc args :clients (:clients context))))]
{:yodlee_provider_accounts (map ->graphql yodlee-provider-accounts)
:total cnt
:count (count yodlee-provider-accounts)