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

various fixes.

Browse Source
This commit is contained in:
Bryce Covert
2020-10-16 14:20:51 -07:00
parent 9c34a188fc
commit 8c746e2100
7 changed files with 47 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/clj/auto_ap/datomic/invoices.clj
View File

@@ -28,7 +28,7 @@
(defn raw-graphql-ids [db args]
(->> (doto (cond-> {:query {:find []
:in ['$]
:where []}
:where ['[?e :invoice/client]]}
:args [(d/db (d/connect uri))]}
(limited-clients (:id args))
@@ -105,6 +105,14 @@
'[(.contains ^String ?invoice-number ?invoice-number-like)]]}
:args [(:invoice-number-like args)]})
(:unresolved args)
(merge-query {:query {:in []
:where ['(or-join [?e]
(not [?e :invoice/expense-accounts ])
(and [?e :invoice/expense-accounts ?ea]
(not [?ea :invoice-expense-account/account])))]}
:args []})
(seq (:location args))
(merge-query {:query {:in ['?location]
:where ['[?e :invoice/expense-accounts ?eas]

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

@@ -481,6 +481,7 @@
:date_range {:type :date_range}
:due_range {:type :date_range}
:status {:type :invoice_status}
:unresolved {:type 'Boolean}
:client_id {:type :id}
:vendor_id {:type :id}
:amount_lte {:type :money}

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

@@ -308,9 +308,10 @@
:journal-entry/line-items
(mapv (fn [ea]
(when-not (get
(get all-client-locations (:client_code entry))
(:location ea))
(when (and (not (get
(get all-client-locations (:client_code entry))
(:location ea)))
(not= "A" (:location ea)))
(throw (ex-info (str "Location '" (:location ea) "' not found.")
{:status :error})))
(when (and (<= (:debit ea 0.0) 0.0)

1
src/clj/auto_ap/ledger.clj
View File

@@ -196,6 +196,7 @@
(when (seq repairs)
(log/info (take 3 repairs))
(log/warn "repairing " (count txes-missing-ledger-entries) " missing transactions, " (count invoices-missing-ledger-entries) " missing invoices that were missing ledger entries")

11
src/clj/auto_ap/yodlee/core.clj
View File

@@ -361,12 +361,13 @@
user-session (login-user cob-session)
batch-size 100]
(-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa)
(doto (-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa)
(client/put (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:body (json/write-str data)
:as :json}
other-config)))
(client/put (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:body (json/write-str data)
:as :json}
other-config)))
log/info)
(refresh-provider-account pa)))
#_(defn get-users []