diff --git a/sales_queries.txt b/sales_queries.txt index f695df7a..5c46d900 100644 --- a/sales_queries.txt +++ b/sales_queries.txt @@ -3,7 +3,7 @@ :with ?s :in $ :where -[?s :sales-order/client [:client/code "NGRV"]] +[?s :sales-order/client [:client/code "{{customer}}"]] [?s :sales-order/date ?d] [?s :sales-order/total ?total] [?s :sales-order/tax ?tax] @@ -15,14 +15,13 @@ [(auto-ap.time/localize ?d2) ?d3] [(auto-ap.time/unparse-local ?d3 auto-ap.time/normal-date) ?d4] ] -a15e4880-e288-48e1-8249-6f67de9979c6 # Sales Categories [:find ?d4 ?n ?n2 (sum ?total) (sum ?tax) (sum ?discount) :with ?s ?li :in $ :where -[?s :sales-order/client [:client/code "NGRV"]] +[?s :sales-order/client [:client/code "{{customer}}"]] [?s :sales-order/date ?d] [?s :sales-order/line-items ?li] [?li :order-line-item/category ?n] @@ -34,13 +33,12 @@ a15e4880-e288-48e1-8249-6f67de9979c6 [(auto-ap.time/localize ?d2) ?d3] [(auto-ap.time/unparse-local ?d3 auto-ap.time/normal-date) ?d4] ] -a4179936-9a3e-4116-aa56-f7616e16f39f # Expected Deposits [:find ?d4 ?t ?f :in $ :where -[?c :client/code "NGRV"] +[?c :client/code "{{customer}}"] [?s :expected-deposit/client ?c] [?s :expected-deposit/total ?t] [?s :expected-deposit/fee ?f] @@ -49,33 +47,33 @@ a4179936-9a3e-4116-aa56-f7616e16f39f [(auto-ap.time/localize ?d2) ?d3] [(auto-ap.time/unparse-local ?d3 auto-ap.time/normal-date) ?d4] ] -721af203-47af-487a-b4e0-476d4725a852 # Tenders -[:find ?d4 ?type (sum ?total) (sum ?tip) +[:find ?d4 ?type ?p2 (sum ?total) (sum ?tip) :with ?charge -:in $ -:where -[?c :client/code "NGRV"] +:in $ +:where +[?c :client/code "{{customer}}"] [?s :sales-order/client ?c] [?s :sales-order/charges ?charge] [?charge :charge/type-name ?type] [?charge :charge/total ?total] [?charge :charge/tip ?tip] +[(get-else $ ?charge :charge/processor :na) ?ccp] +[(get-else $ ?ccp :db/ident :na) ?p] +[(name ?p) ?p2] [?s :sales-order/date ?date] [(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] ] -650da228-a427-4f58-8426-6d4e9c3a3658 # Refunds - [:find ?d4 (sum ?total) (sum ?fee) :with ?r :in $ :where -[?r :sales-refund/client [:client/code "NGRV"]] +[?r :sales-refund/client [:client/code "{{customer}}"]] [?r :sales-refund/total ?total] [?r :sales-refund/fee ?fee] [?r :sales-refund/date ?date] @@ -83,4 +81,3 @@ a4179936-9a3e-4116-aa56-f7616e16f39f [(auto-ap.time/localize ?d2) ?d3] [(auto-ap.time/unparse-local ?d3 auto-ap.time/normal-date) ?d4] ] -e6330966-697a-47e3-8223-f685b4f8792b diff --git a/src/clj/auto_ap/square/core.clj b/src/clj/auto_ap/square/core.clj index a1bac333..dd462caf 100644 --- a/src/clj/auto_ap/square/core.clj +++ b/src/clj/auto_ap/square/core.clj @@ -312,6 +312,7 @@ (log/warn "Retrying after failure " ex) (if (> try-count 4) false true))})))] (->> refunds + (filter (fn [r] (= "COMPLETED" (:status r)))) (map (fn [r] (let [[client location] (location_id->client-location l)] #:sales-refund {:external-id (str "square/refund/" (:id r))