refactored transactions.

src/cljs/auto_ap/subs.cljs

@@ -107,8 +107,10 @@
 
 (re-frame/reg-sub
  ::vendor-default-account
- (fn [db [_ z]]
-   (let [i (-> (:vendors db) (get z) :default-account :id)]
+ (fn [db [_ v]]
+   (let [i (if (:default-account v)
+             (-> v :default-account :id)
+             (-> (:vendors db) (get v) :default-account :id))]
      (first (filter
              #(= (:id %) i)
              (:accounts db))))))