Merge branch 'master' of codecommit://integreat
This commit is contained in:
@@ -14,6 +14,7 @@
|
|||||||
[auto-ap.time-utils :refer [next-dom]]
|
[auto-ap.time-utils :refer [next-dom]]
|
||||||
[clj-time.coerce :as coerce]
|
[clj-time.coerce :as coerce]
|
||||||
[clj-time.core :as time]
|
[clj-time.core :as time]
|
||||||
|
[com.brunobonacci.mulog :as mu]
|
||||||
[clojure.set :refer [rename-keys]]
|
[clojure.set :refer [rename-keys]]
|
||||||
[datomic.api :as dc]
|
[datomic.api :as dc]
|
||||||
[iol-ion.tx :refer [random-tempid]]))
|
[iol-ion.tx :refer [random-tempid]]))
|
||||||
@@ -293,6 +294,8 @@
|
|||||||
[]))
|
[]))
|
||||||
|
|
||||||
(defn code-invoice [invoice]
|
(defn code-invoice [invoice]
|
||||||
|
(mu/log ::trying-to-code-invoice
|
||||||
|
:invoice invoice)
|
||||||
(let [db (dc/db auto-ap.datomic/conn)
|
(let [db (dc/db auto-ap.datomic/conn)
|
||||||
client-id (:invoice/client invoice)
|
client-id (:invoice/client invoice)
|
||||||
vendor-id (:invoice/vendor invoice)
|
vendor-id (:invoice/vendor invoice)
|
||||||
|
|||||||
@@ -32,6 +32,7 @@
|
|||||||
#:transaction
|
#:transaction
|
||||||
{:post-date (coerce/to-date (atime/parse post-date "YYYY-MM-dd"))
|
{:post-date (coerce/to-date (atime/parse post-date "YYYY-MM-dd"))
|
||||||
:id (di/sha-256 (str id))
|
:id (di/sha-256 (str id))
|
||||||
|
:db/id (random-tempid)
|
||||||
:raw-id (str id)
|
:raw-id (str id)
|
||||||
:account-id account-id
|
:account-id account-id
|
||||||
:date (if use-date-instead-of-post-date?
|
:date (if use-date-instead-of-post-date?
|
||||||
|
|||||||
@@ -11,6 +11,7 @@
|
|||||||
[clj-time.coerce :as coerce]
|
[clj-time.coerce :as coerce]
|
||||||
[clojure.data.csv :as csv]
|
[clojure.data.csv :as csv]
|
||||||
[clojure.java.io :as io]
|
[clojure.java.io :as io]
|
||||||
|
[com.brunobonacci.mulog :as mu]
|
||||||
[clojure.string :as str]
|
[clojure.string :as str]
|
||||||
[clojure.tools.logging :as log]
|
[clojure.tools.logging :as log]
|
||||||
[com.unbounce.dogstatsd.core :as statsd]
|
[com.unbounce.dogstatsd.core :as statsd]
|
||||||
|
|||||||
Reference in New Issue
Block a user