only chooseable expense accounts.

src/cljc/auto_ap/expense_accounts.cljc

@@ -149,3 +149,6 @@
    9820 {:name "Judgments - HQ" :parent 9800} 
    9880 {:name "Misc Payments - HQ" :parent 9800} 
    9890 {:name "Unassigned Exp - HQ" :parent 9800}})
+
+(def chooseable-expense-accounts
+  (dissoc expense-accounts 0))

src/cljs/auto_ap/subs.cljs

@@ -1,7 +1,7 @@
 (ns auto-ap.subs
   (:require [re-frame.core :as re-frame]
             [clojure.string :as str]
-            [auto-ap.expense-accounts :refer [expense-accounts]]
+            [auto-ap.expense-accounts :refer [expense-accounts chooseable-expense-accounts]]
             [goog.crypt.base64 :as base64]))
 
 (re-frame/reg-sub
@@ -84,3 +84,9 @@
  (fn [db]
    (map (fn [[k v]] (assoc v :id k))
         expense-accounts)))
+
+(re-frame/reg-sub
+ ::chooseable-expense-accounts
+ (fn [db]
+   (map (fn [[k v]] (assoc v :id k))
+        chooseable-expense-accounts)))

src/cljs/auto_ap/views/components/vendor_dialog.cljs

@@ -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

src/cljs/auto_ap/views/pages/unpaid_invoices.cljs

@@ -378,7 +378,7 @@
          [:tr
           [:td [:div.control
                 [bind-field
-                 [typeahead {:matches (map (fn [x] [(:id x) (:name x)]) @(re-frame/subscribe [::subs/expense-accounts]))
+                 [typeahead {:matches (map (fn [x] [(:id x) (:name x)]) @(re-frame/subscribe [::subs/chooseable-expense-accounts]))
                              :type "typeahead"
                              :field [:invoice :expense-accounts index :expense-account-id]
                              :event change-event