fixes

src/clj/auto_ap/ssr/company/company_1099.clj

@@ -176,8 +176,20 @@
                     {:keys [vendor-id]} :route-params
                     {:keys [client-id]} :query-params}]
 
+
   (assert-can-see-client identity client-id)
-  @(dc/transact conn [[:upsert-entity (assoc form-params :db/id (:vendor-id route-params))]])
+
+  @(dc/transact conn [[:upsert-entity (-> form-params
+                                          (assoc :db/id (:vendor-id route-params))
+                                          (update :vendor/address (fn [a]
+                                                                    (if (or (:address/street1 a)
+                                                                            (:address/street2 a)
+                                                                            (:address/city a)
+                                                                            (:address/state a)
+                                                                            (:address/zip a)
+                                                                            (:db/id a))
+                                                                      a
+                                                                      nil)) ))]])
   (html-response 
 
     (row* identity [(dc/pull (dc/db conn) [:db/id :client/code] client-id)
@@ -192,7 +204,7 @@
 
 
 (def form-schema (mc/schema [:map
-                             [:vendor/address {:default {} }
+                             [:vendor/address {:default {}}
                               [:maybe
                                [:map 
                                 [:db/id {:optional true} [:maybe entity-id]]
@@ -234,7 +246,8 @@
             [:div.flex [:div.p-2 "Vendor 1099 Info"] [:p.ml-2.rounded.bg-gray-200.p-2.dark:bg-gray-600 (:vendor/name entity)]]
             [:div.grid.grid-cols-6.gap-x-4.gap-y-2
              
-             (fc/with-field :vendor/address ;; TODO support default
+             (fc/with-field-default :vendor/address {}
+               (println "ADDRESS" fc/*current*)
                (list [:h4.text-xl.border-b.col-span-6 "Address"]
                      [:div.col-span-6
                       (fc/with-field :db/id
@@ -335,11 +348,11 @@
                             :errors (fc/field-errors)}
                            (com/select {:name         (fc/field-name)
                                         :allow-blank? true
-                                        :value        (some-> (fc/field-value) name) ;; TODO use ref stuff
+                                        :value        (some-> (fc/field-value) name)
                                         :options (ref->select-options "legal-entity-1099-type")})))]]
             [:div
              (com/form-errors {:errors (:errors fc/*form-errors*)})
-             (com/validated-save-button {:errors form-errors} "Save rule")])]]))))
+             (com/validated-save-button {:errors form-errors} "Save vendor")])]]))))
 
 (def vendor-table (helper/table-route grid-page))
 (def page (helper/page-route grid-page))

src/clj/auto_ap/ssr/company/yodlee.clj

@@ -208,7 +208,6 @@ fastlink.open({fastLinkURL: '%s',
 (def page (helper/page-route grid-page))
 (def table (helper/table-route grid-page))
 
-;; TODO delete-after-settle
 (defn refresh-provider-account [{:keys [form-params identity]}]
   (let [provider-account (dc/pull (dc/db conn) default-read (some-> (get form-params "id") not-empty Long/parseLong))]
     (yodlee/refresh-provider-account (:client/code (:yodlee-provider-account/client provider-account))