lots of new fixes.
This commit is contained in:
@@ -118,6 +118,11 @@
|
||||
(fn [db [_ client]]
|
||||
(:locations (get (:clients db) (or client (:client db))))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::forecasted-transactions-for-client
|
||||
(fn [db [_ client]]
|
||||
(:forecasted-transactions (get (:clients db) (or client (:client db))))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::locations-for-client-or-bank-account
|
||||
(fn [db [_ client-id bank-account-id]]
|
||||
@@ -180,7 +185,7 @@
|
||||
::vendor-default-account
|
||||
(fn [db [_ v client]]
|
||||
(let [accounts (accounts-by-id (:accounts db) client)
|
||||
vendor (if (:default-account v)
|
||||
vendor (if (map? v)
|
||||
v
|
||||
(-> (:vendors db) (get v)))
|
||||
client-override (->> (:account-overrides vendor)
|
||||
|
||||
Reference in New Issue
Block a user