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
account-number (parse/best-match clients account-number 0.0)
customer-identifier (parse/best-match clients customer-identifier)
client-override (first (filter (fn [c]
(= (:db/id c) (Long/parseLong client-override)))
clients)))
client-override [(first (filter (fn [c]
(= (:db/id c) (Long/parseLong client-override)))
clients))
1.0])
matching-vendor (match-vendor vendor-code vendor-override)
matching-location (or (when-not (str/blank? location-override)
location-override)