Adds new ledger import page

This commit is contained in:
2024-08-26 20:53:21 -07:00
parent c0d173125c
commit 6fd609be3e
16 changed files with 665 additions and 111 deletions

View File

@@ -211,7 +211,7 @@
(when (seq (dc/q '[:find ?x :in $ ?nc :where [?x :account/numeric-code ?nc]] (dc/db conn) (:account/numeric-code entity)))
(field-validation-error (format "The code %d is already in use." (:account/numeric-code entity))
[:account/numeric-code]
:form form-params)))
:form-params form-params)))
_ (some->> form-params
:account/client-overrides
(group-by :account-client-override/client)
@@ -226,7 +226,7 @@
:client/name
(-> client)))
) %)))
:form form-params)) ;; TODO shouldnt need to bubble this through. See if we can eliminate the passing of form and last-form.
:form-params form-params)) ;; TODO shouldnt need to bubble this through. See if we can eliminate the passing of form and last-form.
)
{:keys [tempids]} (audit-transact [[:upsert-entity (cond-> entity
(:account/numeric-code entity) (assoc :account/code (str (:account/numeric-code entity))))]]