a lot of ledger progress.

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

@@ -7,6 +7,7 @@
                    :amount-lte
                    :dom-gte
                    :dom-lte
+                   [:vendor [:name :id]]
                    [:client [:name :id]]
                    [:bank-account [:name :id]]
                    ])

src/cljs/auto_ap/views/pages/admin/rules/form.cljs

@@ -87,22 +87,24 @@
                                           :amount-gte nil
                                           :dom-lte nil
                                           :dom-gte nil
-                                          )))))
+                                          :vendor nil
+                                          :expense-accounts [])))))
 
 (re-frame/reg-event-db
  ::editing
  (fn [db [_ which]]
-   (-> db (forms/start-form ::form (select-keys which
-                                                [:description
-                                                 :id
-                                                 :client
-                                                 :bank-account
-                                                 :note
-                                                 :amount-lte
-                                                 :amount-gte
-                                                 :dom-lte
-                                                 :dom-gte
-                                                 ])))))
+   (-> db (forms/start-form ::form (assoc (select-keys which
+                                                       [:description
+                                                        :id
+                                                        :client
+                                                        :bank-account
+                                                        :note
+                                                        :amount-lte
+                                                        :amount-gte
+                                                        :dom-lte
+                                                        :dom-gte
+                                                        :vendor])
+                                          :expense-accounts [])))))
 
 
 (re-frame/reg-event-db
@@ -165,6 +167,11 @@
          accounts-by-id @(re-frame/subscribe [::subs/accounts-for-client-by-id])]
      ^{:key id}
      [form (assoc params :title "New Transaction Rule") 
+      [field "Note"
+       [:input.input {:type "text"
+                      :field [:note]
+                      :spec ::entity/note}]]
+
       [field "Client"
        [typeahead-entity {:matches @(re-frame/subscribe [::subs/clients])
                           :match->text :name
@@ -226,11 +233,25 @@
                           :precision 0
                           :step "1"}]]]]]]
 
-      [field "Note"
-       [:input.input {:type "text"
-                      :field [:note]
-                      :spec ::entity/note}]]
+      
 
+      [:h2.title.is-4 "Outcomes"]
+
+      [field "Assign Vendor"
+       [typeahead-entity {:matches @(re-frame/subscribe [::subs/vendors])
+                          :match->text :name
+                          :type "typeahead-entity"
+                          :auto-focus (if @(re-frame/subscribe [::subs/vendors]) false true)
+                          :field [:vendor]
+                          :spec ::entity/vendor}]]
+
+      [field nil
+       [expense-accounts-field {:type "expense-accounts"
+                                :descriptor "account asssignment"
+                                :percentage-only? true
+                                :locations @(re-frame/subscribe [::subs/locations-for-client (:id (:client data))])
+                                :max 100
+                                :field [:expense-accounts]}]]
 
 
       [error-notification]