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

fixing introduced bugs.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-26 08:43:16 -07:00
parent 84f7e734f0
commit 665ac6ca7f
7 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -598,7 +598,12 @@
(->graphql users)))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn categorize [x]
(cond (<= x 0) :due
(<= x 30 ) :due-30
(<= x 60 ) :due-60
:else :due-later))
(defn get-expense-account-stats [_ {:keys [client_id] } _]

4
src/clj/auto_ap/import/yodlee2.clj
View File

@@ -15,6 +15,7 @@
[unilog.context :as lc]
[yang.scheduler :as scheduler]))
#_{:clj-kondo/ignore [:unresolved-var]}
(defn yodlee->transaction [transaction use-date-instead-of-post-date?]
(let [{post-date :postDate
account-id :accountId
@@ -32,8 +33,7 @@
date (atime/parse date "YYYY-MM-dd")]
#:transaction
{:post-date (coerce/to-date (atime/parse post-date "YYYY-MM-dd"))
:id #_{:clj-kondo/ignore [:unresolved-var]}
(di/sha-256 (str id))
:id (di/sha-256 (str id))
:raw-id (str id)
:account-id account-id
:date (if use-date-instead-of-post-date?

5
src/clj/auto_ap/yodlee/core2.clj
View File

@@ -87,6 +87,7 @@
:token
:accessToken))))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn get-accounts [client-code ]
(let [cob-session (login-user (client-code->login client-code))]
(-> (str (:yodlee2-base-url env) "/accounts")
@@ -124,6 +125,7 @@
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn get-transactions [client-code]
(let [cob-session (login-user (client-code->login client-code))
batch-size 100
@@ -172,6 +174,7 @@
:providerAccount
first)))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn update-provider-account [client-code pa]
(let [cob-session (login-user (client-code->login client-code))]
@@ -216,6 +219,7 @@
(log/error e)
(throw e))))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn create-user [client-code]
(let [cob-session (login-cobrand)]
(-> (str (:yodlee2-base-url env) "/user/register")
@@ -263,6 +267,7 @@
provider-account-ids)))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn get-provider-accounts-with-accounts [client-code]
(let [provider-accounts (by :id (get-provider-accounts-with-details client-code))
accounts (get-accounts-for-providers client-code (keys provider-accounts))]

1
src/clj/user.clj
View File

@@ -533,6 +533,7 @@
(square/upsert client square-location (c/to-date-time date)
(t/plus (c/to-date-time date) (t/days 1))))))
#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
(defn upsert-invoice-amounts [tsv]
(let [data (with-open [reader (io/reader (char-array tsv))]
(doall (csv/read-csv reader :separator \tab)))

2
src/cljs/auto_ap/views/components/invoice_table.cljs
View File

@@ -260,7 +260,7 @@
[grid/grid {:data-page data-page
:check-boxes? check-boxes
:column-count (if selected-client 8 9)}
[grid/controls {:action-buttons action-buttons}
[grid/controls (assoc data :action-buttons action-buttons)
[:div.level-item
[:div.tags
[:div.tag.is-info.is-light "Outstanding " (nf (:outstanding data))]

2
src/cljs/auto_ap/views/pages/payments/table.cljs
View File

@@ -110,7 +110,7 @@
[grid/grid {:data-page data-page
:check-boxes? true
:column-count (if selected-client 7 8)}
[grid/controls {:action-buttons action-buttons} data]
[grid/controls (assoc data :action-buttons action-buttons) data]
[grid/table {:fullwidth true}
[grid/header {}
[grid/row {:id "header"

2
src/cljs/auto_ap/views/pages/transactions/table.cljs
View File

@@ -69,7 +69,7 @@
[grid/grid {:data-page data-page
:column-count (if selected-client 6 7)
:check-boxes? check-boxes?}
[grid/controls {:action-buttons action-buttons}
[grid/controls (assoc data :action-buttons action-buttons)
data]
[grid/table {:fullwidth true}
[grid/header {}