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

makes client ids on manual

Browse Source
This commit is contained in:
Bryce
2025-01-30 12:11:52 -08:00
parent e74694e924
commit e1d86ffa24
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -296,7 +296,9 @@
(update :journal-entry/line-items (update :journal-entry/line-items
(fn [li] (fn [li]
(mapv (mapv
#(remove-nils (update % :journal-entry-line/account :db/id)) #(remove-nils (-> %
(update :journal-entry-line/account :db/id)
(assoc :journal-entry-line/client (-> request :form-params :journal-entry/client :db/id)))
li))) li)))
(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"))