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

adds capability for performance improvement on sales exports.

Browse Source
This commit is contained in:
Bryce Covert
2023-03-13 13:54:18 -07:00
parent 3e16aedfa2
commit aa937ac009
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/auto_ap/graphql/clients.clj
View File

@@ -293,7 +293,9 @@
:in $ :in $
:where :where
[?s :sales-order/client [:client/code \"%s\"]] [?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] [?s :sales-order/date ?d]
[(>= ?d ?min-d)]
[?s :sales-order/total ?total] [?s :sales-order/total ?total]
[?s :sales-order/tax ?tax] [?s :sales-order/tax ?tax]
[?s :sales-order/tip ?tip] [?s :sales-order/tip ?tip]
@@ -311,7 +313,9 @@
:in $ :in $
:where :where
[?s :sales-order/client [:client/code \"%s\"]] [?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] [?s :sales-order/date ?d]
[(>= ?d ?min-d)]
[?s :sales-order/line-items ?li] [?s :sales-order/line-items ?li]
[?li :order-line-item/category ?n] [?li :order-line-item/category ?n]
[(get-else $ ?li :order-line-item/item-name \"\") ?n2] [(get-else $ ?li :order-line-item/item-name \"\") ?n2]
@@ -344,6 +348,9 @@
:where :where
[?c :client/code \"%s\"] [?c :client/code \"%s\"]
[?s :sales-order/client ?c] [?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] [?s :sales-order/charges ?charge]
[?charge :charge/type-name ?type] [?charge :charge/type-name ?type]
[?charge :charge/total ?total] [?charge :charge/total ?total]
@@ -351,7 +358,6 @@
[(get-else $ ?charge :charge/processor :na) ?ccp] [(get-else $ ?charge :charge/processor :na) ?ccp]
[(get-else $ ?ccp :db/ident :na) ?p] [(get-else $ ?ccp :db/ident :na) ?p]
[(name ?p) ?p2] [(name ?p) ?p2]
[?s :sales-order/date ?date]
[(clj-time.coerce/to-date-time ?date) ?d2] [(clj-time.coerce/to-date-time ?date) ?d2]
[(auto-ap.time/localize ?d2) ?d3] [(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]