makes signature show up and adds logging for why invoice might be imported wrong.

src/clj/auto_ap/routes/invoices.clj

@@ -54,6 +54,12 @@
                             account-number      (:db/id (d-clients/exact-match account-number))
                             customer-identifier (:db/id (d-clients/best-match customer-identifier))
                             client-override     (Long/parseLong client-override))
+        _ (alog/info ::client-matched 
+                     :account-number account-number 
+                     :customer-identifier customer-identifier
+                    :client-override client-override 
+                    :matching (when matching-client 
+                                (dc/pull (dc/db conn) [:client/name :client/code] matching-client)))
         
         matching-vendor   (match-vendor vendor-code vendor-override)
         matching-location (or (when-not (str/blank? location-override)

src/clj/auto_ap/square/core3.clj

@@ -969,9 +969,17 @@
                                      :headers (client-base-headers client)
                                      :as      :json})
                  :body)))
+(->>
+     @(let [[c [l]] (get-square-client-and-location "NGGG")]
+
+
+        (search c l (time/plus (time/now))))
+     (filter (fn [r]
+               (str/starts-with? (:created_at r) "2024-03-14"))))
+
   (def refs
     (->>
-     @(let [[c [l]] (get-square-client-and-location "NGCL")]
+     @(let [[c [l]] (get-square-client-and-location "NGGG")]
 
 
         (refunds-raw-cont c l nil []))
@@ -984,6 +992,8 @@
 
     (map (fn [r] @(get-payment c (:payment_id r))) refs))
 
+(get-square-client-and-location "NGGB")
+
   (def my-results
     (let [[c [l]] (get-square-client-and-location "NGFA")]))
 

src/clj/auto_ap/ssr/invoice/import.clj

@@ -582,6 +582,12 @@
                             client-override     client-override
                             account-number      (:db/id (d-clients/exact-match account-number))
                             customer-identifier (:db/id (d-clients/best-match customer-identifier)))
+        _ (alog/info ::client-matched
+                     :account-number account-number
+                     :customer-identifier customer-identifier
+                     :client-override client-override
+                     :matching (when matching-client
+                                 (dc/pull (dc/db conn) [:client/name :client/code] matching-client)))
   
         matching-vendor   (match-vendor vendor-code vendor-override)
         matching-location (or (when-not (str/blank? location-override)

src/cljc/auto_ap/permissions.cljc

@@ -19,7 +19,8 @@
     (cond (#{:user-role/admin "admin"} role)
           true
 
-          (and client-id (not (get (into #{} (map :db/id (:clients user))) client-id)))
+          (and client-id (not (get (into #{} (map :db/id (or (:clients user)
+                                                             (:user/clients user)))) client-id)))
           false
 
           (#{:user-role/power-user "power-user"} role)