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

Open ended end dates, defaults to last year on invoices

Browse Source
This commit is contained in:
Bryce
2024-04-23 14:27:43 -07:00
parent 633973cde4
commit 72c53add1b
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/auto_ap/ssr/utils.clj
View File

@@ -240,7 +240,7 @@
(if date-range-value
(-> (condp = date-range-value
"week"
(let [last-monday (atime/last-monday)]
(let [last-monday (coerce/to-date-time (atime/last-monday))]
(assoc m
start-date-key (time/plus last-monday (time/days -7))
end-date-key last-monday))
@@ -248,16 +248,16 @@
"month"
(assoc m
start-date-key (time/plus (time/now) (time/months -1))
end-date-key (time/now))
end-date-key nil)
"year"
(assoc m
start-date-key (time/plus (time/now) (time/years -1))
end-date-key (time/now))
end-date-key nil)
"all"
(assoc m start-date-key (time/plus (time/now) (time/years -6))
end-date-key (time/now))
end-date-key nil)
m)
(dissoc date-range-key))