converts accounts.'
This commit is contained in:
@@ -227,7 +227,8 @@
|
||||
{:db/ident :account-client-override/name
|
||||
:db/doc "client override"
|
||||
:db/valueType :db.type/string
|
||||
:db/cardinality :db.cardinality/one}]]} }]
|
||||
:db/cardinality :db.cardinality/one}]]}
|
||||
}]
|
||||
(println "Conforming database...")
|
||||
(c/ensure-conforms conn norms-map)
|
||||
(when (not (seq args))
|
||||
|
||||
@@ -3,7 +3,11 @@
|
||||
[auto-ap.datomic :refer [remove-nils]]
|
||||
[auto-ap.datomic.accounts :as accounts]
|
||||
[auto-ap.expense-accounts :as expense-accounts]
|
||||
[auto-ap.ledger :as ledger]))
|
||||
[auto-ap.ledger :as ledger]
|
||||
[auto-ap.utils :refer [by]]
|
||||
[clojure.java.io :as io]
|
||||
[clojure.string :as str])
|
||||
(:import [org.apache.commons.io.input BOMInputStream]))
|
||||
|
||||
(defn test-run [txs-set]
|
||||
#_(println "processing " (count txs-set))
|
||||
@@ -458,6 +462,11 @@
|
||||
(partition-all 100))]
|
||||
results))
|
||||
|
||||
|
||||
|
||||
|
||||
#_(convert-accounts (d/connect auto-ap.datomic/uri))
|
||||
|
||||
#_(do (doseq [tran (convert-transactions (d/connect auto-ap.datomic/uri))]
|
||||
@(d/transact (d/connect auto-ap.datomic/uri) tran))
|
||||
(println "done."))
|
||||
|
||||
Reference in New Issue
Block a user