diff --git a/src/clj/auto_ap/ssr/ledger/new.clj b/src/clj/auto_ap/ssr/ledger/new.clj index 1539a9f1..bfcb33f2 100644 --- a/src/clj/auto_ap/ssr/ledger/new.clj +++ b/src/clj/auto_ap/ssr/ledger/new.clj @@ -303,7 +303,9 @@ li)))) (assoc :journal-entry/external-id (str "manual-" (UUID/randomUUID)))) (= :post (:request-method request)) (assoc :db/id "new")) - {:keys [tempids]} (audit-transact [[:upsert-entity entity]] + {:keys [tempids]} (audit-transact [[:upsert-entity entity] + {:db/id (-> request :form-params :journal-entry/client :db/id) + :client/ledger-last-change (iol-ion.tx.upsert-ledger/current-date (dc/db conn))}] (:identity request)) updated-entity (dc/pull (dc/db conn) ledger.common/default-read