minor fixes.
This commit is contained in:
@@ -3,6 +3,7 @@
|
|||||||
[datomic.api :as d]
|
[datomic.api :as d]
|
||||||
[auto-ap.datomic.migrate.add-client-codes :refer [add-client-codes]]
|
[auto-ap.datomic.migrate.add-client-codes :refer [add-client-codes]]
|
||||||
[auto-ap.datomic.migrate.add-bank-account-codes :refer [add-bank-account-codes]]
|
[auto-ap.datomic.migrate.add-bank-account-codes :refer [add-bank-account-codes]]
|
||||||
|
[auto-ap.datomic.migrate.invoice-converter :refer [add-import-status-existing-invoices]]
|
||||||
[clojure.java.io :as io]
|
[clojure.java.io :as io]
|
||||||
[io.rkn.conformity :as c])
|
[io.rkn.conformity :as c])
|
||||||
(:import [datomic Util])
|
(:import [datomic Util])
|
||||||
@@ -35,7 +36,7 @@
|
|||||||
|
|
||||||
(defn -main [& args]
|
(defn -main [& args]
|
||||||
(println "Creating database...")
|
(println "Creating database...")
|
||||||
(d/delete-database uri)
|
#_(d/delete-database uri)
|
||||||
(d/create-database uri)
|
(d/create-database uri)
|
||||||
|
|
||||||
(let [
|
(let [
|
||||||
|
|||||||
@@ -105,7 +105,6 @@
|
|||||||
:invoice/expense-accounts (map (fn [ea] {:db/id (:db/id ea)
|
:invoice/expense-accounts (map (fn [ea] {:db/id (:db/id ea)
|
||||||
:invoice-expense-account/amount 0.0})
|
:invoice-expense-account/amount 0.0})
|
||||||
(:invoice/expense-accounts invoice))})]
|
(:invoice/expense-accounts invoice))})]
|
||||||
;; TODO void out all expense accounts
|
|
||||||
|
|
||||||
(-> updated-invoice
|
(-> updated-invoice
|
||||||
(->graphql))))
|
(->graphql))))
|
||||||
|
|||||||
Reference in New Issue
Block a user