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

Adds validation for external ledger import

Browse Source
This commit is contained in:
Bryce Covert
2020-09-29 21:19:07 -07:00
parent b4755840ae
commit a38894a10a
14 changed files with 1371 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -9,7 +9,7 @@
(defn raw-graphql-ids [db args]
(let [query (cond-> {:query {:find ['?sort-default]
(let [query (cond-> {:query {:find []
:in ['$ ]
:where ['[?e :journal-entry/date ?sort-default]]}
:args [db]}
@@ -101,12 +101,11 @@
:args [(:location args)]})
true
(merge-query {:query {:find ['?sort-default '?e] :where ['[?e :journal-entry/date ?sort-default]
'[?e :journal-entry/amount ?ja2]
'[(not= 0.0 ?ja2)]]}}))]
(->> query
(merge-query {:query {:find ['?sort-default '?e] :where ['[?e :journal-entry/date ?sort-default]]}}))]
(->> (doto query println)
(d/query)
(apply-sort-3 args)
(apply-sort-3 (update args :sort conj {:sort-key "default-2" :asc true}))
(apply-pagination args))))
(defn graphql-results [ids db args]