Supports vendors not loading

src/cljs/auto_ap/views/pages/admin/vendors/common.cljs

@@ -0,0 +1,15 @@
+(ns auto-ap.views.pages.admin.vendors.common)
+
+(def default-read [:id :name :hidden :terms [:default-account [:name :id :location]]
+                   [:account-overrides [[:client [:id :name]] :id [:account [:id :numeric-code :name]]]]
+                   [:automatically-paid-when-due [:id :name]]
+                   [:terms-overrides [[:client [:id :name]] :id :terms]]
+                   [:schedule-payment-dom [[:client [:id :name]] :id :dom]]
+                   [:usage [:client-id :count]]
+                   [:primary-contact [:name :phone :email :id]]
+                   [:secondary-contact [:id :name :phone :email]]
+                   :print-as :invoice-reminder-schedule :code
+                   :legal-entity-first-name :legal-entity-middle-name :legal-entity-last-name
+                   :legal-entity-tin :legal-entity-tin-type
+                   :legal-entity-1099-type
+                   [:address [:street1 :street2 :city :state :zip]]])

src/cljs/auto_ap/views/pages/admin/vendors/side_bar.cljs

@@ -2,69 +2,17 @@
   (:require
    [re-frame.core :as re-frame]
    [auto-ap.subs :as subs]
-   [auto-ap.views.utils :refer [active-when dispatch-value-change]]))
-
-(re-frame/reg-sub
- ::specific-filters
- (fn [db ]
-   (::filters db nil)))
-
-(re-frame/reg-sub
- ::filters
- :<- [::specific-filters]
- :<- [::subs/vendors-by-id]
- :<- [::subs/query-params]
- (fn [[specific-filters vendors-by-id query-params] ]
-   (let [url-filters (-> query-params
-                         (select-keys #{:name-like})
-                         (update :name-like #(some-> % str)))]
-     (merge url-filters specific-filters ))))
-
-(re-frame/reg-sub
- ::filter
- :<- [::filters]
- (fn [filters [_ which]]
-   (get filters which)))
-
-(re-frame/reg-sub
- ::settled-filters
- (fn [db ]
-   (::settled-filters db)))
-
-(re-frame/reg-sub
- ::filter-params
- :<- [::settled-filters]
- :<- [::filters]
- :<- [::subs/active-page]
- (fn [[settled-filters filters ap ]]
-   (let [filters (or settled-filters filters)]
-     {:name-like (:name-like filters)})))
-
-(re-frame/reg-event-fx
- ::filters-settled
- (fn [{:keys [db]} [_ & params]]
-   {:db (assoc db ::settled-filters @(re-frame/subscribe [::filters]))}))
-
-(re-frame/reg-event-fx
- ::filter-changed
- (fn [{:keys [db]} [_ & params]]
-   (let [[a b c] params
-         [which val] (if (= 3 (count params))
-                       [(into [a] b) c]
-                       [[a] b])]
-     {:db (assoc-in db (into [::filters] which) val)
-      :dispatch-debounce {:event [::filters-settled]
-                          :time 800
-                          :key ::filters}})))
+   [auto-ap.views.utils :refer [dispatch-value-change]]
+   [auto-ap.views.pages.data-page :as data-page]))
 
 
-(defn vendor-side-bar []
+(defn vendor-side-bar [{:keys [data-page]}]
   [:div
    [:p.menu-label "Name"]
-
-   [:div.field
-    [:div.control [:input.input {:placeholder "Harry's Food Products"
-                                 :value @(re-frame/subscribe [::filter :name-like])
-                                 :on-change (dispatch-value-change [::filter-changed :name-like])} ]]]])
+   [:div
+    [:div.field
+     [:div.control [:input.input {:placeholder "HOME DEPOT"
+                                  :value       @(re-frame/subscribe [::data-page/filter data-page :name-like])
+                                  :on-change   (dispatch-value-change [::data-page/filter-changed data-page :name-like])} ]]]]])
 
 

src/cljs/auto_ap/views/pages/admin/vendors/table.cljs

@@ -1,34 +1,21 @@
 (ns auto-ap.views.pages.admin.vendors.table
-  (:require 
-   [re-frame.core :as re-frame]
-   [reagent.core :as reagent]
+  (:require
    [auto-ap.subs :as subs]
-   [auto-ap.status :as status]
-   [auto-ap.views.components.vendor-dialog :refer [vendor-dialog] :as vendor-dialog]
+   [auto-ap.views.components.buttons :as buttons]
    [auto-ap.views.components.grid :as grid]
-   [auto-ap.views.utils :refer [login-url dispatch-value-change dispatch-event bind-field horizontal-field action-cell-width]]
-   [auto-ap.views.components.buttons :as buttons]))
+   [auto-ap.views.components.vendor-dialog :as vendor-dialog]
+   [auto-ap.views.pages.data-page :as data-page]
+   [auto-ap.views.utils :refer [action-cell-width]]
+   [re-frame.core :as re-frame]))
 
-(re-frame/reg-event-fx
- ::params-changed
- (fn [{:keys [db]} [_ p]]
-   {:db (assoc db ::params p)}))
-
-(re-frame/reg-sub
- ::params
- (fn [db]
-   (-> db ::params)))
-
-(defn vendors-table [{:keys [status page]}]
-  (let [params @(re-frame/subscribe [::params])
+(defn vendors-table [{:keys [data-page]}]
+  (let [{:keys [data]} @(re-frame/subscribe [::data-page/page data-page])
         accounts @(re-frame/subscribe [::subs/all-accounts-by-id])]
+    (println "DATA COUNT" (keys data))
     
-    [grid/grid {:status status
-                :on-params-change (fn [p]
-                                    (re-frame/dispatch [::params-changed p]))
-                :params params
+    [grid/grid {:data-page data-page
                 :column-count 4}
-     [grid/controls page]
+     [grid/controls data]
      [grid/table {:fullwidth true}
       [grid/header
        [grid/row {}
@@ -37,7 +24,7 @@
         [grid/header-cell {} "Default Account"]
         [grid/header-cell {:style {:width (action-cell-width 1)}}]]]
       [grid/body
-       (for [v (:data page)]
+       (for [v (:data data)]
          ^{:key (str (:id v))}
          [grid/row {:class (:class v) :id (:id v)}
           [grid/cell {} (:name v)