diff --git a/src/clj/auto_ap/jobs/sysco.clj b/src/clj/auto_ap/jobs/sysco.clj index c43c5b0b..c64d6277 100644 --- a/src/clj/auto_ap/jobs/sysco.clj +++ b/src/clj/auto_ap/jobs/sysco.clj @@ -87,7 +87,7 @@ [{:client/location-matches [:location-match/location :location-match/matches]} :client/default-location :client/locations] - matching-client) + (:db/id matching-client)) location-hint location-hint ) :date (coerce/to-date date) diff --git a/src/clj/auto_ap/parse.clj b/src/clj/auto_ap/parse.clj index 6d54d260..9557b887 100644 --- a/src/clj/auto_ap/parse.clj +++ b/src/clj/auto_ap/parse.clj @@ -124,7 +124,7 @@ (defn exact-match ([clients invoice-client-name] (->> clients - (filter (fn [{:keys [:client/matches :client/name] :as client :or {matches []}}] + (filter (fn [{:keys [:client/matches :client/location-matches :client/locations :client/name] :as client :or {matches []}}] (seq (filter (fn [m] (and