staging now has autopay matching

This commit is contained in:
Bryce Covert
2021-01-18 07:40:37 -08:00
parent ce9d4b63fd
commit c58608eca0
2 changed files with 35 additions and 13 deletions

View File

@@ -74,7 +74,7 @@
(group-by first) ;; group by vendors
vals)
considerations (for [candidate-invoices candidate-invoices-vendor-groups
invoice-count (range 1 3)
invoice-count (range 1 30)
consideration (partition invoice-count 1 candidate-invoices)
:when (dollars= (reduce (fn [acc [_ _ amount]]
(+ acc amount)) 0.0 consideration)