so many bug fixes.
This commit is contained in:
@@ -1,6 +1,7 @@
|
||||
(ns auto-ap.datomic.ledger
|
||||
(:require [datomic.api :as d]
|
||||
[auto-ap.graphql.utils :refer [->graphql limited-clients]]
|
||||
[auto-ap.utils :refer [dollars-0?]]
|
||||
[auto-ap.datomic :refer [merge-query apply-sort-3 apply-pagination add-sorter-fields]]
|
||||
[auto-ap.datomic :refer [uri]]
|
||||
[clj-time.coerce :as c]
|
||||
@@ -88,7 +89,9 @@
|
||||
:args [(:location args)]})
|
||||
|
||||
true
|
||||
(merge-query {:query {:find ['?base-date '?e] :where ['[?e :journal-entry/date ?base-date]]}}))]
|
||||
(merge-query {:query {:find ['?base-date '?e] :where ['[?e :journal-entry/date ?base-date]
|
||||
'[?e :journal-entry/amount ?ja2]
|
||||
'[(not= 0.0 ?ja2)]]}}))]
|
||||
(->> query
|
||||
(d/query)
|
||||
(apply-sort-3 args)
|
||||
|
||||
Reference in New Issue
Block a user