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

bugfix.

Browse Source
This commit is contained in:
Bryce Covert
2022-12-13 12:06:10 -08:00
parent d40ff90e85
commit 5fad948c12
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/clj/auto_ap/graphql/invoices.clj
View File

@@ -253,6 +253,17 @@
specific-ids (d-invoices/filter-ids (:ids args))] specific-ids (d-invoices/filter-ids (:ids args))]
(into (set ids) specific-ids))) (into (set ids) specific-ids)))
(defn all-ids-not-locked [all-ids]
(->> all-ids
(d/q '[:find [?i ...]
:in $ [?i ...]
:where
[?i :invoice/client ?c]
[(get-else $ ?c :client/locked-until #inst "2000-01-01") ?lu]
[?i :invoice/date ?d]
[(>= ?d ?lu)]]
(d/db conn))))
(defn void-invoices [context args _] (defn void-invoices [context args _]
(let [_ (assert-admin (:id context)) (let [_ (assert-admin (:id context))
args (assoc args :id (:id context)) args (assoc args :id (:id context))
@@ -381,16 +392,7 @@
[])] [])]
[:reset (:db/id invoice) :invoice/expense-accounts accounts]))) [:reset (:db/id invoice) :invoice/expense-accounts accounts])))
(defn all-ids-not-locked [all-ids]
(->> all-ids
(d/q '[:find [?i ...]
:in $ [?i ...]
:where
[?i :invoice/client ?c]
[(get-else $ ?c :client/locked-until #inst "2000-01-01") ?lu]
[?i :invoice/date ?d]
[(>= ?d ?lu)]]
(d/db conn))))
(defn bulk-change-invoices [context args _] (defn bulk-change-invoices [context args _]
(assert-admin (:id context)) (assert-admin (:id context))