notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixes adding new ledger

Browse Source
This commit is contained in:
Bryce
2025-02-03 19:43:56 -08:00
parent f1036e257c
commit 473b2c34c8
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/clj/auto_ap/ssr/ledger/new.clj
View File

@@ -294,13 +294,13 @@
(update :journal-entry/client :db/id) (update :journal-entry/client :db/id)
(update :journal-entry/vendor :db/id) (update :journal-entry/vendor :db/id)
(update :journal-entry/line-items (update :journal-entry/line-items
(fn [li] (fn [lis]
(mapv (mapv
#(remove-nils (-> % #(remove-nils (-> %
(update :journal-entry-line/account :db/id) (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))) :journal-entry-line/date (-> request :form-params :journal-entry/date coerce/to-date))))
li)))) lis)))
(assoc :journal-entry/external-id (str "manual-" (UUID/randomUUID)))) (assoc :journal-entry/external-id (str "manual-" (UUID/randomUUID))))
(= :post (:request-method request)) (assoc :db/id "new")) (= :post (:request-method request)) (assoc :db/id "new"))
{:keys [tempids]} (audit-transact [[:upsert-entity entity] {:keys [tempids]} (audit-transact [[:upsert-entity entity]