adds capability for performance improvement on sales exports.
This commit is contained in:
@@ -293,7 +293,9 @@
|
||||
:in $
|
||||
:where
|
||||
[?s :sales-order/client [:client/code \"%s\"]]
|
||||
[(ground (clj-time.coerce/to-date (clj-time.core/minus (auto-ap.time/local-now) (clj-time.core/days 90)))) ?min-d]
|
||||
[?s :sales-order/date ?d]
|
||||
[(>= ?d ?min-d)]
|
||||
[?s :sales-order/total ?total]
|
||||
[?s :sales-order/tax ?tax]
|
||||
[?s :sales-order/tip ?tip]
|
||||
@@ -311,7 +313,9 @@
|
||||
:in $
|
||||
:where
|
||||
[?s :sales-order/client [:client/code \"%s\"]]
|
||||
[(ground (clj-time.coerce/to-date (clj-time.core/minus (auto-ap.time/local-now) (clj-time.core/days 90)))) ?min-d]
|
||||
[?s :sales-order/date ?d]
|
||||
[(>= ?d ?min-d)]
|
||||
[?s :sales-order/line-items ?li]
|
||||
[?li :order-line-item/category ?n]
|
||||
[(get-else $ ?li :order-line-item/item-name \"\") ?n2]
|
||||
@@ -344,6 +348,9 @@
|
||||
:where
|
||||
[?c :client/code \"%s\"]
|
||||
[?s :sales-order/client ?c]
|
||||
[(ground (clj-time.coerce/to-date (clj-time.core/minus (auto-ap.time/local-now) (clj-time.core/days 90)))) ?min-d]
|
||||
[?s :sales-order/date ?date]
|
||||
[(>= ?date ?min-date)]
|
||||
[?s :sales-order/charges ?charge]
|
||||
[?charge :charge/type-name ?type]
|
||||
[?charge :charge/total ?total]
|
||||
@@ -351,7 +358,6 @@
|
||||
[(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]
|
||||
|
||||
Reference in New Issue
Block a user