utility

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."))