only chooseable expense accounts.

This commit is contained in:
BC
2018-07-05 21:40:00 -07:00
parent cd82f62c15
commit 57062b4a34
4 changed files with 13 additions and 4 deletions

View File

@@ -5,7 +5,7 @@
[auto-ap.views.components.address :refer [address-field]]
[auto-ap.views.components.typeahead :refer [typeahead]]
[auto-ap.expense-accounts :refer [expense-accounts]]
[auto-ap.expense-accounts :refer [chooseable-expense-accounts]]
[clojure.spec.alpha :as s]
[auto-ap.entities.vendors :as entity]
[auto-ap.subs :as subs]))
@@ -155,7 +155,7 @@
[horizontal-field
[:label.label "Default"]
[bind-field
[typeahead {:matches (map (fn [[k v]] [k (:name v)]) expense-accounts)
[typeahead {:matches (map (fn [[k v]] [k (:name v)]) chooseable-expense-accounts)
:type "typeahead"
:field [:default-expense-account]
:spec ::entity/default-expense-account