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

Making manual import work in datomic

Browse Source
This commit is contained in:
Bryce Covert
2018-11-09 10:47:47 -08:00
parent 5a25462c5f
commit de8563a60b
11 changed files with 80 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/clj/auto_ap/datomic/checks.clj
View File

@@ -27,6 +27,7 @@
{:payment/type [:db/ident]}]))
(defn raw-graphql [args]
(println "ARGS" args)
(let [query (cond-> {:query {:find [default-read]
:in ['$]
:where ['[?e :payment/client]]}
@@ -36,7 +37,15 @@
'[?e :payment/client ?client-id])
(:original-id args) (add-arg '?original-id (cond-> (:original-id args) (string? (:original-id args)) Long/parseLong )
'[?e :payment/client ?c]
'[?c :client/original-id ?original-id]))]
'[?c :client/original-id ?original-id])
(:check-number args) (add-arg '?check-number (:check-number args)
'[?e :payment/check-number ?check-number])
(:bank-account-id args) (add-arg '?bank-account-id (:bank-account-id args)
'[?e :payment/bank-account ?bank-account-id])
(:amount args) (add-arg '?amount (:amount args)
'[?e :payment/amount ?amount])
(:status args) (add-arg '?status (:status args)
'[?e :payment/status ?status]))]
(->> (d/query
query)

2
src/clj/auto_ap/datomic/transactions.clj
View File

@@ -16,7 +16,7 @@
(cond-> {:query {:find ['(pull ?e [* {:transaction/client [:client/name :db/id]
:transaction/bank-account [:bank-account/name :bank-account/yodlee-account-id]}])]
:in ['$]
:where ['[?e :transaction/original-id]]}
:where ['[?e :transaction/id]]}
:args [(d/db (d/connect uri))]}
(:client-id args) (add-arg '?client-id (Long/parseLong (:client-id args))