Adds sales date

src/clj/auto_ap/square/core.clj

@@ -252,6 +252,14 @@
          (retry f (inc i))))
      (log/error "Too many failures"))))
 
+(defn get-payment [p]
+  (:payment (:body (retry #(client/get (str "https://connect.squareup.com/v2/payments/" p)
+                                       {:headers base-headers
+                                        :as :json
+                                        :retry-handler (fn [ex try-count http-context]
+                                                         (log/warn "Retrying after failure " ex)
+                                                         (if (> try-count 4) false true))})))))
+
 (defn settlements
   ([l] (settlements l (lookup-dates)))
   ([l lookup-dates]
@@ -298,7 +306,19 @@
                                                                    (amount->money (:fee_money entry))))
                                                                (:entries settlement))))
                                     :date (-> (:initiated_at settlement)
-                                              (coerce/to-date))})))
+                                              (coerce/to-date))
+                                    :sales-date (->> settlement
+                                                     :entries
+                                                     (map :payment_id)
+                                                     (set)
+                                                     (take 10)
+                                                     (map (fn [p]
+                                                            (get-payment p)))
+                                                     (map :created_at)
+                                                     (map coerce/to-date)
+                                                     (sort)
+                                                     (drop 5)
+                                                     first)})))
        (filter :expected-deposit/date)))
   )