Creates vendors by default

This commit is contained in:
Bryce Covert
2019-05-05 08:12:26 -07:00
parent 3dafdd66c2
commit 86d9c1c10c
5 changed files with 42 additions and 12 deletions

View File

@@ -160,6 +160,18 @@
(conj "A"))))
{}
(d-clients/get-all))
new-hidden-vendors (reduce
(fn [new-vendors {:keys [vendor_name line_items]}]
(if (or (all-vendors vendor_name)
(new-vendors vendor_name))
new-vendors
(assoc new-vendors vendor_name
{:vendor/name vendor_name
:vendor/hidden true
:db/id vendor_name})))
{}
(:entries args))
all-vendors (into all-vendors new-hidden-vendors)
transaction (doall (map
(assoc-error (fn [entry]