Makes A&J Produce findable.

2025-01-17 20:53:17 -08:00
parent ce3cdf836a
commit ca7a08452c
4 changed files with 50 additions and 12 deletions
--- a/src/clj/auto_ap/ssr/invoices.clj
+++ b/src/clj/auto_ap/ssr/invoices.clj
@@ -662,10 +662,7 @@
        _ (assert-can-see-client identity (:db/id (:invoice/client invoice)))
        _ (assert-not-locked  (:db/id (:invoice/client invoice)) (:invoice/date invoice)) ]
    (alog/info ::undoing-autopay :transaction :tx)
-    @(dc/transact conn [[:upsert-invoice {:db/id                       id
-                                         :invoice/outstanding-balance (:invoice/total entity)
-                                         :invoice/status              :invoice-status/unpaid
-                                         :invoice/scheduled-payment nil}]])
+
    (html-response
     (row* identity (assoc (dc/pull (dc/db conn) default-read id)
                           :invoice/status :invoice-status/unpaid) {:flash? true