Commit c94c7423 authored by phil's avatar phil

fixes

parent ed5cc098
......@@ -60,8 +60,7 @@
(defn ignore-warning? [evt key]
(->> (get evt :ignore-warnings [])
(util/include? (name key))
not))
(util/include? (name key))))
(defn harmonize [event]
......
......@@ -276,7 +276,7 @@
coverage (/ settlement-total invoice-total)]
(if (and (not (common/ignore-warning? evt :coverage))
(or (< coverage 0.98)
(> coverage 1.02))
(> coverage 1.02)))
(util/warn (str "Coverage " coverage " on settlement for " (:invoice-no evt) " " (-> evt :invoice :description))))
(assoc* evt :coverage coverage))
evt))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment