(cloud) makes ledger running balances fast and smooth

src/clj/auto_ap/graphql/transactions.clj

@@ -1,14 +1,6 @@
 (ns auto-ap.graphql.transactions
   (:require
-   [auto-ap.datomic
-    :refer [audit-transact
-            audit-transact-batch
-            conn
-            pull-attr
-            pull-many
-            pull-ref
-            remove-nils]]
-   [iol-ion.tx :refer [upsert-entity]]
+   [auto-ap.datomic :refer [conn pull-attr pull-many pull-ref remove-nils]]
    [auto-ap.datomic.accounts :as a]
    [auto-ap.datomic.checks :as d-checks]
    [auto-ap.datomic.invoices :as d-invoices]
@@ -19,10 +11,10 @@
     :refer [->graphql
             <-graphql
             assert-admin
-            attach-tracing-resolvers
             assert-can-see-client
             assert-not-locked
             assert-power-user
+            attach-tracing-resolvers
             enum->keyword
             ident->enum-f
             snake->kebab]]
@@ -35,7 +27,8 @@
    [clojure.set :as set]
    [clojure.string :as str]
    [clojure.tools.logging :as log]
-   [datomic.client.api :as dc]))
+   [datomic.client.api :as dc]
+   [iol-ion.tx :refer [random-tempid upsert-entity]]))
 
 (def approval-status->graphql (ident->enum-f :transaction/approval-status))
 
@@ -327,7 +320,7 @@
 
 (defn transaction-account->entity [{:keys [id account_id amount location]}]
   #:transaction-account {:amount   amount
-                         :db/id    id
+                         :db/id    (or id (random-tempid))
                          :account  account_id
                          :location location})