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

Highlights plaid errors more clearly

Browse Source
This commit is contained in:
Bryce
2024-10-07 20:55:30 -07:00
parent cf81e3999c
commit 8234db5623
4 changed files with 237 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
src/clj/user.fiddle
View File

@@ -753,3 +753,75 @@
(assoc :dirty-entries (auto-ap.ledger/get-dirty-entries account-needing-rebuild db))
(assoc :account-type (:account_type ((auto-ap.ledger/build-account-lookup (:client account-needing-rebuild)) (:account account-needing-rebuild))))
(auto-ap.ledger/compute-running-balance))])
(seq
(datomic.api/q (quote
[:find ?code ?name ?bn ?bac ?bt2 ?d2 ?bas
:in $ ?start ?end ?group
:where
(or
[?c :client/groups ?group]
[?c :client/code ?group])
[?c :client/name ?name]
[?c :client/code ?code]
[?c :client/bank-accounts ?b]
[?b :bank-account/name ?bn]
[?b :bank-account/type ?bat]
[?b :bank-account/code ?bac]
[?bat :db/ident ?bt]
[(name ?bt) ?bt2]
[(vector ?c) ?c2]
(or-join [?b ?bas]
(and [?b :bank-account/plaid-account]
[(ground "plaid") ?bas])
(and [?b :bank-account/intuit-bank-account]
[(ground "intuit") ?bas])
(and [?b :bank-account/yodlee-account]
[(ground "yodlee") ?bas])
(and (not [?b :bank-account/yodlee-account])
(not [?b :bank-account/intuit-bank-account])
(not [?b :bank-account/plaid-account])
[(ground "none") ?bas]))
[(datomic.api/q (quote [:find ?b (max ?d)
:in $ ?c2 ?start ?end
:where [(iol-ion.query/scan-transactions $ ?c2 ?start ?end) [[?t _ _] ...]]
[?t :transaction/date ?d]
[?t :transaction/bank-account ?b]])
$ ?c2 ?start ?end)
[[?b ?d] ...]]
[(iol-ion.query/excel-date ?d) ?d2]])
(dc/db conn)
#inst "2024-09-01"
#inst "2024-09-30"
"NTG"))
(user/init-repl)
(seq
(datomic.api/q (quote
[:find ?code ?name ?bn ?bac ?bt2 ?as3 (count ?t)
:in $ ?start ?end ?group
:where
(or
[?c :client/groups ?group]
[?c :client/code ?group])
[?c :client/name ?name]
[?c :client/code ?code]
[?c :client/bank-accounts ?b]
[?b :bank-account/name ?bn]
[?b :bank-account/type ?bat]
[?b :bank-account/code ?bac]
[?bat :db/ident ?bt]
[(name ?bt) ?bt2]
[(vector ?c) ?c2]
[(iol-ion.query/scan-transactions $ ?c2 ?start ?end) [[?t _ _] ...]]
[?t :transaction/approval-status ?as]
[?as :db/ident ?as2]
[(name ?as2) ?as3]
])
(dc/db conn)
#inst "2024-09-01"
#inst "2024-09-30"
"NTG"))