got tests to pass again.

src/clj/auto_ap/import/transactions.clj

@@ -2,6 +2,7 @@
   (:require
    [auto-ap.datomic :refer [audit-transact conn random-tempid remove-nils]]
    [auto-ap.datomic.accounts :as a]
+   [iol-ion.tx :refer [upsert-entity]]
    [auto-ap.datomic.checks :as d-checks]
    [auto-ap.datomic.transaction-rules :as tr]
    [auto-ap.datomic.transactions :as d-transactions]
@@ -109,10 +110,20 @@
       (first considerations)
       [])))
 
-(defn add-new-payment [[transaction :as tx]  [[vendor] :as invoice-payments] bank-account-id client-id]
+(defn add-new-payment [transaction  [[vendor] :as invoice-payments] bank-account-id client-id]
   (log/info "Adding a new payment for transaction " (:transaction/id transaction) " and invoices " invoice-payments)
   (let [payment-id (random-tempid)]
-    (-> tx
+    (-> [`(upsert-entity ~(assoc transaction
+                                 :transaction/payment payment-id
+                                 :transaction/approval-status :transaction-approval-status/approved
+                                 :transaction/vendor vendor
+                                 :transaction/location "A"
+                                 :transaction/accounts
+                                 [#:transaction-account
+                                  {:db/id    (random-tempid)
+                                   :account  (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
+                                   :location "A"
+                                   :amount   (Math/abs (:transaction/amount transaction))}]))]
 
         (conj {:payment/bank-account bank-account-id
                :payment/client client-id
@@ -129,17 +140,7 @@
                          {:db/id invoice-id
                           :invoice/outstanding-balance 0.0
                           :invoice/status :invoice-status/paid}])
-                      invoice-payments))
-        (update 0 assoc
-                :transaction/payment payment-id
-                :transaction/approval-status :transaction-approval-status/approved
-                :transaction/vendor vendor
-                :transaction/location "A")
-        (conj [:reset (:db/id transaction) :transaction/accounts
-               [#:transaction-account
-                {:account (:db/id (a/get-account-by-numeric-code-and-sets 21000 ["default"]))
-                 :location "A"
-                 :amount (Math/abs (:transaction/amount transaction))}]]))))
+                      invoice-payments)))))
 
 (defn extract-check-number [{:transaction/keys [description-original]}]
   (if-let [[_ _ check-number] (re-find #"(?i)check(card|[^0-9]+([0-9]*))" description-original)]