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

Filtering out koala

Browse Source
This commit is contained in:
Bryce Covert
2021-10-08 16:18:31 -07:00
parent 6dd801d710
commit 4a405714c1
3 changed files with 22 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
sales_queries.txt
View File

@@ -80,5 +80,4 @@
[?r :sales-refund/type ?t]
[(clj-time.coerce/to-date-time ?date) ?d2]
[(auto-ap.time/localize ?d2) ?d3]
[(auto-ap.time/unparse-local ?d3 auto-ap.time/normal-date) ?d4]
]
[(auto-ap.time/unparse-local ?d3 auto-ap.time/normal-date) ?d4]]

2
src/clj/auto_ap/square/core.clj
View File

@@ -221,6 +221,8 @@
(seq (:returns order)))
(not= #{"FAILED"}
(set (map #(:status (:card_details %)) (:tenders order)))))))
(filter (fn [order]
(not= "Koala" (:name (:source order)))))
(map #(order->sales-order client (get-in env [:square-config client :location]) %)))))
#_(daily-results)

20
src/clj/user.clj
View File

@@ -459,7 +459,6 @@
output-chan
(comp
(map #(do
(println "looking up " (:key %))
[(:key %)
(str (slurp (:object-content (s3/get-object
:bucket-name (:data-bucket env)
@@ -594,6 +593,23 @@
)])))
(defn print-sales-queries [client-code]
(let [sales-summary-id (first (find-queries [client-code "service-charge"]))
sales-category-id (first (find-queries [client-code "item-name"]))
expected-deposit-id (first (find-queries [client-code "expected-deposit"]))
tender-id (first (find-queries [client-code "charge"]))
refund-id (first (find-queries [client-code "sales-refund"]))]
(println "For" client-code ":")
(println "Sales: " (str "https://app.integreatconsult.com/api/queries/" sales-summary-id "/results/json"))
(println "Sales Category: " (str "https://app.integreatconsult.com/api/queries/" sales-category-id "/results/json"))
(println "Expected Deposits: " (str "https://app.integreatconsult.com/api/queries/" expected-deposit-id "/results/json"))
(println "Tenders: " (str "https://app.integreatconsult.com/api/queries/" tender-id "/results/json"))
(println "Sales Category: " (str "https://app.integreatconsult.com/api/queries/" refund-id "/results/json"))
(println "")
))
(defn historical-load-sales [client-code days]
(println "orders")
(lc/with-context {:source "Historical loading data"}
@@ -606,6 +622,8 @@
(println "refunds")
(auto-ap.square.core/upsert-refunds client-code)
(println "settlements")
(with-redefs [auto-ap.square.core/lookup-dates (fn lookup-dates []
(->> (clj-time.periodic/periodic-seq (t/plus (t/now) (t/days (- days)))
(t/now)