feat(ssr): add delete selected to external ledger

Replicate the master CLJS "delete external ledger" feature on the SSR
external ledger page: an admin-only bulk delete that retracts the
selected journal entries, skipping any in a client's locked period and
capping at 1000 per request.

Return the result via modal-response (retargets the persistent
#modal-content shell) and target #modal-content from the button so the
request never relies on the outerHTML swap inherited from the data-grid
card, which previously replaced #modal-holder and broke the next click.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

src/clj/auto_ap/ssr/ledger.clj

@@ -31,7 +31,7 @@
    [auto-ap.ssr.ui :refer [base-page]]
    [auto-ap.ssr.utils
     :refer [apply-middleware-to-all-handlers clj-date-schema
-            html-response main-transformer money strip
+            html-response modal-response main-transformer money strip
             wrap-form-4xx-2 wrap-implied-route-param
             wrap-merge-prior-hx wrap-schema-decode
             wrap-schema-enforce]]
@@ -69,6 +69,40 @@
               selected)]
     ids))
 
+(defn all-ids-not-locked
+  "Filters journal-entry ids to only those whose date is on/after the client's
+  locked-until date (i.e. not in a reconciled/locked period)."
+  [all-ids]
+  (->> all-ids
+       (dc/q '[:find ?t
+               :in $ [?t ...]
+               :where
+               [?t :journal-entry/client ?c]
+               [(get-else $ ?c :client/locked-until #inst "2000-01-01") ?lu]
+               [?t :journal-entry/date ?d]
+               [(>= ?d ?lu)]]
+             (dc/db conn))
+       (map first)))
+
+(defn bulk-delete [request]
+  (assert-admin (:identity request))
+  (let [params (:form-params request)
+        ids (selected->ids (assoc-in request [:route-params :external?] true) params)
+        all-ids (all-ids-not-locked ids)]
+    (if (> (count all-ids) 1000)
+      (modal-response
+       (com/success-modal {:title "Too many ledger entries"}
+                          [:p "You can only delete 1000 ledger entries at a time."]))
+      (do
+        (alog/info ::bulk-delete-ledger :count (count all-ids) :sample (take 3 all-ids))
+        (audit-transact-batch
+         (map (fn [i] [:db/retractEntity i]) all-ids)
+         (:identity request))
+        (modal-response
+         (com/success-modal {:title "Ledger Entries Deleted"}
+                            [:p (str "Successfully deleted " (count all-ids) " ledger entries.")])
+         :headers {"hx-trigger" "invalidated, reset-selection"})))))
+
 (defn delete [{invoice :entity :as request identity :identity}]
   (exception->notification
    #(when-not (= :invoice-status/unpaid (:invoice/status invoice))
@@ -696,6 +730,8 @@
       ::route/csv             (helper/csv-route grid-page)
       ::route/external-import-page external-import-page
       ::route/bank-account-filter bank-account-filter
+      ::route/bulk-delete (-> bulk-delete
+                              (wrap-schema-enforce :form-schema query-schema))
       ::route/external-import-parse (-> external-import-parse
                                         (wrap-schema-enforce :form-schema parse-form-schema)
                                         (wrap-form-4xx-2 external-import-parse)