notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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"
:invoice-email "invoices@mail.app.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-login "qstartus12"
: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/local-now
clj-time.coerce/to-date-time
clj-time.coerce/to-date
clj-time.core/minus
clj-time.core/days]
iol-ion.query/localize
iol-ion.query/recent-date
iol-ion.query/excel-date
]
:app-name "iol-cloud"}

12
scratch-sessions/link_sales_queries.clj
View File

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