diff --git a/src/cljc/auto_ap/expense_accounts.cljc b/src/cljc/auto_ap/expense_accounts.cljc index f22b11ba..0804b21e 100644 --- a/src/cljc/auto_ap/expense_accounts.cljc +++ b/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)) diff --git a/src/cljs/auto_ap/subs.cljs b/src/cljs/auto_ap/subs.cljs index af7da345..7f2ec17d 100644 --- a/src/cljs/auto_ap/subs.cljs +++ b/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))) diff --git a/src/cljs/auto_ap/views/components/vendor_dialog.cljs b/src/cljs/auto_ap/views/components/vendor_dialog.cljs index e4a5081e..1cb2e0a1 100644 --- a/src/cljs/auto_ap/views/components/vendor_dialog.cljs +++ b/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 diff --git a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs index a6f6751d..f552c76c 100644 --- a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs +++ b/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