diff --git a/src/clj/auto_ap/ssr/transaction/edit.clj b/src/clj/auto_ap/ssr/transaction/edit.clj index b2a7a8c3..8f4afe6d 100644 --- a/src/clj/auto_ap/ssr/transaction/edit.clj +++ b/src/clj/auto_ap/ssr/transaction/edit.clj @@ -1002,6 +1002,9 @@ (let [{:keys [base-amount remainder]} (calculate-spread (:transaction-account/amount account) (count locations))] (map-indexed (fn [idx _] (assoc account + :db/id (if (= idx 0) + (:db/id account) + (random-tempid)) :transaction-account/amount (+ base-amount (if (< idx remainder) 1 0)) :transaction-account/location (nth locations idx))) locations))