Commit a7025fa1 authored by phil's avatar phil

round remaining

parent 415fe263
......@@ -294,7 +294,7 @@
(if-let [invoice (-> evt :invoice)]
(let [invoice-amount (-> invoice :gross-total)
payment-amount (-> evt :amount)
remaining (- invoice-amount payment-amount)]
remaining (util/round-currency (- invoice-amount payment-amount))]
(if (not= 0 remaining)
(assoc* evt :remaining remaining)
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