Fixes selection
This commit is contained in:
@@ -82,8 +82,12 @@
|
|||||||
(for [[before-account after-account] (map vector (concat original-expense-accounts
|
(for [[before-account after-account] (map vector (concat original-expense-accounts
|
||||||
(repeat nil)) expense-accounts)]
|
(repeat nil)) expense-accounts)]
|
||||||
(cond-> after-account
|
(cond-> after-account
|
||||||
(not= (:id (:account before-account))
|
(and
|
||||||
(:id (:account after-account)))
|
(not (:location (:account after-account)))
|
||||||
|
(= 1 (count locations)))
|
||||||
|
(assoc :location (first locations))
|
||||||
|
|
||||||
|
(:location (:account before-account))
|
||||||
(assoc :location nil)
|
(assoc :location nil)
|
||||||
|
|
||||||
(not= (:amount-percentage before-account)
|
(not= (:amount-percentage before-account)
|
||||||
|
|||||||
Reference in New Issue
Block a user