Fixes selection

This commit is contained in:
2024-04-15 20:41:42 -07:00
parent a9fdf9c340
commit 52662ca965

View File

@@ -82,8 +82,12 @@
(for [[before-account after-account] (map vector (concat original-expense-accounts
(repeat nil)) expense-accounts)]
(cond-> after-account
(not= (:id (:account before-account))
(:id (:account after-account)))
(and
(not (:location (:account after-account)))
(= 1 (count locations)))
(assoc :location (first locations))
(:location (:account before-account))
(assoc :location nil)
(not= (:amount-percentage before-account)