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

(cloud) should make sales queries work again

Browse Source
This commit is contained in:
Bryce Covert
2023-04-05 14:49:09 -07:00
parent fe6869e71e
commit 78a476f4b1
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
config/prod-cloud.edn
View File

@@ -11,7 +11,7 @@
:requests-queue-url "https://sqs.us-east-1.amazonaws.com/679918342773/integreat-background-request-prod-cloud" :requests-queue-url "https://sqs.us-east-1.amazonaws.com/679918342773/integreat-background-request-prod-cloud"
:invoice-email "invoices@mail.app.integreatconsult.com" :invoice-email "invoices@mail.app.integreatconsult.com"
:import-failure-destination-email "ben@integreatconsult.com" :import-failure-destination-email "ben@integreatconsult.com"
:data-bucket "data.prod.app.integreatconsult.com" :data-bucket "data.staging.app.integreatconsult.com"
:yodlee-cobrand-name "qstartus12" :yodlee-cobrand-name "qstartus12"
:yodlee-cobrand-login "qstartus12" :yodlee-cobrand-login "qstartus12"
:yodlee-cobrand-password "MPD@mg78hd" :yodlee-cobrand-password "MPD@mg78hd"

8
resources/datomic/ion-config.edn
View File

@@ -11,8 +11,8 @@
iol-ion.query/dollars-0? iol-ion.query/dollars-0?
iol-ion.query/local-now iol-ion.query/local-now
clj-time.coerce/to-date-time iol-ion.query/localize
clj-time.coerce/to-date iol-ion.query/recent-date
clj-time.core/minus iol-ion.query/excel-date
clj-time.core/days] ]
:app-name "iol-cloud"} :app-name "iol-cloud"}

12
scratch-sessions/link_sales_queries.clj
View File

@@ -1,6 +1,6 @@
(ns link-sales-queries (ns link-sales-queries
(:require [datomic.api :as d] (:require [datomic.client.api :as dc]
[auto-ap.datomic :refer [conn]] [auto-ap.datomic :refer [conn]]
[auto-ap.routes.queries :refer [get-query]])) [auto-ap.routes.queries :refer [get-query]]))
@@ -301,10 +301,10 @@
(def unattached-queries (def unattached-queries
(map first (d/q '[:find ?g (map first (dc/q '[:find ?g
:in $ [?g ...] :in $ [?g ...]
:where (not [_ :saved-query/guid ?g])] :where (not [_ :saved-query/guid ?g])]
(d/db conn) (dc/db conn)
recently-used-query-ids))) recently-used-query-ids)))
@@ -353,9 +353,9 @@
:lookup-key lookup-key :lookup-key lookup-key
:query query :query query
:note note :note note
:extant (:db/id (d/pull (d/db conn) '[:db/id] [:saved-query/lookup-key lookup-key])) :extant (:db/id (dc/pull (dc/db conn) '[:db/id] [:saved-query/lookup-key lookup-key]))
:extant-guid (:saved-query/guid (d/pull (d/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key])) :extant-guid (:saved-query/guid (dc/pull (dc/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key]))
:extant-guid-used? (recently-used-query-ids (:saved-query/guid (d/pull (d/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key])))}))) :extant-guid-used? (recently-used-query-ids (:saved-query/guid (dc/pull (dc/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key])))})))
#_(filter (comp #{"NGEB"} :client-code)) #_(filter (comp #{"NGEB"} :client-code))