From 8bfe4ff1ae5a135328cad2e0cae7fb107e41c478 Mon Sep 17 00:00:00 2001 From: Bryce Date: Thu, 30 Jan 2025 12:36:37 -0800 Subject: [PATCH] date too. --- src/clj/auto_ap/ssr/ledger/new.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/clj/auto_ap/ssr/ledger/new.clj b/src/clj/auto_ap/ssr/ledger/new.clj index 69be27c1..263a3ac7 100644 --- a/src/clj/auto_ap/ssr/ledger/new.clj +++ b/src/clj/auto_ap/ssr/ledger/new.clj @@ -298,7 +298,8 @@ (mapv #(remove-nils (-> % (update :journal-entry-line/account :db/id) - (assoc :journal-entry-line/client (-> request :form-params :journal-entry/client :db/id))) + (assoc :journal-entry-line/client (-> request :form-params :journal-entry/client :db/id) + :journal-entry-line/date (-> request :form-params :journal-entry/date coerce/to-date))) li))) (assoc :journal-entry/external-id (str "manual-" (UUID/randomUUID)))) (= :post (:request-method request)) (assoc :db/id "new"))