ledger final fixes

src/clj/auto_ap/graphql/ledger.clj

@@ -206,7 +206,26 @@
         (assoc entry :error (.getMessage e))))))
 
 (defn delete-external-ledger [context args value]
-  )
+  (let [_ (assert-admin (:id context))
+        args (assoc args :id (:id context))
+        ids (some-> (:filters args)
+                    (assoc :only-external true)
+                    (<-graphql)
+                    (assoc :per-page Integer/MAX_VALUE)
+                    (#(l/raw-graphql-ids (d/db conn) %))
+                    :ids)
+        specific-ids (l/filter-ids (:ids args))
+        all-ids (into (set ids) specific-ids)]
+    (if (> (count all-ids) 1000)
+      {:message (str "You can only delete 1000 ledger entries at a time.")}
+      (do
+        (log/info "Deleting " (count all-ids) args)
+        (audit-transact-batch
+         (map (fn [i]
+                [:db/retractEntity i])
+                 all-ids)
+         (:id context))
+        {:message (str "Succesfully deleted " (count all-ids) " ledger entries.")}))))
 
 (defn import-ledger [context args value]
   (assert-admin (:id context))