lots of progress

src/clj/auto_ap/square/core3.clj

@@ -767,6 +767,14 @@
                     (dc/db conn)
                     codes))))
 
+(defn get-square-client-and-location [code]
+  (let [[client] (get-square-clients code)]
+    (some->> client
+            :client/square-locations
+            (filter :square-location/client-location)
+            seq
+            (conj [client]))))
+
 (defn upsert-locations
   ([]
    (apply de/zip