Fixes selection
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user