fixing two bugs.

src/clj/auto_ap/square/core.clj

@@ -178,7 +178,8 @@
                          (remove-nils 
                           #:charge
                           {:type-name (:type t)
-                           :external-id (str "square/charge/" (:id t))
+                           :external-id (when (:payment_id t)
+                                          (str "square/charge/" (:payment_id t)))
                            :processor (condp = (some-> (:note t) str/lower-case)
                                         "doordash" :ccp-processor/doordash
                                         "dd"  :ccp-processor/doordash
@@ -486,7 +487,7 @@
    (map (fn [x] [:db/retractEntity x]))))
 
 (defn upsert-all []
-  (doseq [client ((get-square-clients))
+  (doseq [client (get-square-clients)
           :when (seq (filter :square-location/client-location (:client/square-locations client)))]
     (lc/with-context {:client (:client/code client)}
       (upsert-locations client)