From 715f449997e2e537406ce1e60c00dd12fd97746f Mon Sep 17 00:00:00 2001
From: Bryce Covert <contact.bryce@brycecovertoperations.com>
Date: Tue, 29 Oct 2019 22:34:30 -0700
Subject: [PATCH] utility

---
 src/clj/auto_ap/datomic/migrate/add_general_ledger.clj | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj b/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
index 4fb0c19f..bdb06cab 100644
--- a/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
+++ b/src/clj/auto_ap/datomic/migrate/add_general_ledger.clj
@@ -443,6 +443,16 @@
                      (partition-all 100))]
     results))
 
+(defn reset-manual-ledger [conn]
+  (let [results (->> (d/query {:query {:find '[?e]
+                                       :in '[$]
+                                       :where ['[?e :journal-entry/external-id ]]}
+                               :args [(d/db conn)]})
+                     (mapv (fn [[id]]
+                             [:db/retractEntity id]))
+                     (partition-all 100))]
+    results))
+
 #_(do (doseq [tran (convert-transactions (d/connect auto-ap.datomic/uri))]
         @(d/transact (d/connect auto-ap.datomic/uri) tran))
       (println "done."))