More forgiving

2021-12-26 09:29:13 -08:00
parent f7bec7a86c
commit c5a65f008a
1 changed files with 2 additions and 1 deletions
--- a/src/clj/auto_ap/square/core.clj
+++ b/src/clj/auto_ap/square/core.clj
@@ -452,7 +452,8 @@
   (map (fn [x] [:db/retractEntity x]))))

 (defn upsert-all []
-  (doseq [[client-code] (get-in env [:square-config])]
+  (doseq [[client-code] (get-in env [:square-config])
+          :when (d/entid (d/db conn) [:client/code client-code])]
    (lc/with-context {:source (str "Square loading for " client-code)
                      :client client-code}
      (log/info "Loading Orders")