This commit is contained in:
2022-01-19 17:21:35 -08:00
parent 6e0720c3b3
commit 0f0d63179a

View File

@@ -129,9 +129,10 @@
(let [[matching-client similarity] (cond (let [[matching-client similarity] (cond
account-number (parse/best-match clients account-number 0.0) account-number (parse/best-match clients account-number 0.0)
customer-identifier (parse/best-match clients customer-identifier) customer-identifier (parse/best-match clients customer-identifier)
client-override (first (filter (fn [c] client-override [(first (filter (fn [c]
(= (:db/id c) (Long/parseLong client-override))) (= (:db/id c) (Long/parseLong client-override)))
clients))) clients))
1.0])
matching-vendor (match-vendor vendor-code vendor-override) matching-vendor (match-vendor vendor-code vendor-override)
matching-location (or (when-not (str/blank? location-override) matching-location (or (when-not (str/blank? location-override)
location-override) location-override)