huge number of changes to start making all usages of expense accounts dynamic.

src/cljs/auto_ap/events/admin/vendors.cljs

@@ -10,18 +10,14 @@
 
             [bidi.bidi :as bidi]))
 
-(def vendor-query
-  [:id :name :default-expense-account
-   [:primary-contact [:name :phone :email :id]]
-   [:secondary-contact [:id :name :phone :email]]
-   :print-as :invoice-reminder-schedule :code
-   [:address [:street1 :street2 :city :state :zip]]])
+
 
 (re-frame/reg-event-fx
  ::edit
  (fn  [{:keys [db]} [_ vendor-id]]
    {:db (assoc-in db [:admin :vendor]
-                  (get  (:vendors db) vendor-id))
+                  (-> (get  (:vendors db) vendor-id)
+                      (assoc :default-account-id (:id (:default-account (get (:vendors db) vendor-id))))))
     :dispatch [::events/modal-status :auto-ap.views.pages.admin.vendors/admin-vendor {:visible? true}]}))
 
 (re-frame/reg-event-fx
@@ -35,7 +31,8 @@
  ::save
  (fn  [{:keys [db]} _]
    (let [edited-vendor (get-in db [:admin :vendor])
-         fx {:db (assoc-in db [:admin :vendor :saving?] true)}]
+         fx {:db (assoc-in db [:admin :vendor :saving?] true)}
+         _ (println "EDITED" edited-vendor)]
      (when (s/valid? ::entity/vendor edited-vendor)
        (assoc fx :graphql
               {:token (-> db :user)
@@ -43,8 +40,9 @@
                                              :operation/name "UpsertVendor"}
                            
                            :venia/queries [{:query/data [:upsert-vendor
-                                                         {:vendor edited-vendor}
-                                                         vendor-query]}]}  
+                                                         {:vendor (-> edited-vendor
+                                                                      (dissoc :default-account))}
+                                                         events/vendor-query]}]}  
                :on-success [::save-complete]
                :on-error [::save-error]})))))
 
@@ -90,6 +88,7 @@
 (re-frame/reg-event-db
  ::change
  (fn  [db [_ path value]]
+   (println path value)
    (assoc-in db (concat [:admin :vendor] path)
              value)))
 
@@ -112,7 +111,7 @@
  ::mounted
  (fn  [{:keys [db]} _]
    {:graphql {:token (:user db)
-              :query-obj {:venia/queries [[:vendor vendor-query]]} 
+              :query-obj {:venia/queries [[:vendor events/vendor-query]]} 
               :on-success [::received-vendors]}}))
 
 (re-frame/reg-event-db