From 7c0004d7bd674f4084f120d39ce197c25d9cf588 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Fri, 6 Jan 2023 17:22:45 -0800 Subject: [PATCH] switches to 90 days --- src/clj/auto_ap/datomic/ledger.clj | 1 - src/clj/auto_ap/graphql/clients.clj | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/src/clj/auto_ap/datomic/ledger.clj b/src/clj/auto_ap/datomic/ledger.clj index 9c962d30..9af322d2 100644 --- a/src/clj/auto_ap/datomic/ledger.clj +++ b/src/clj/auto_ap/datomic/ledger.clj @@ -114,7 +114,6 @@ true (merge-query {:query {:find ['?sort-default '?e] :where ['[?e :journal-entry/date ?sort-default]]}}))] - (clojure.pprint/pprint query) (->> query (d/query) (apply-sort-3 (update args :sort conj {:sort-key "default-2" :asc true})) diff --git a/src/clj/auto_ap/graphql/clients.clj b/src/clj/auto_ap/graphql/clients.clj index 0240c2e8..42fb7ee8 100644 --- a/src/clj/auto_ap/graphql/clients.clj +++ b/src/clj/auto_ap/graphql/clients.clj @@ -359,7 +359,7 @@ :in $ :where [?charge :charge/date ?date] - [(ground (clj-time.coerce/to-date (clj-time.core/minus (auto-ap.time/local-now) (clj-time.core/days 50)))) ?min-d] + [(ground (clj-time.coerce/to-date (clj-time.core/minus (auto-ap.time/local-now) (clj-time.core/days 90)))) ?min-d] [(>= ?date ?min-d)] [?charge :charge/client ?c] [?c :client/code \"%s\"]