(cloud) made cintas imports work smoothly
This commit is contained in:
@@ -1,8 +1,7 @@
|
|||||||
(ns auto-ap.jobs.ntg
|
(ns auto-ap.jobs.ntg
|
||||||
(:require
|
(:require
|
||||||
[amazonica.aws.s3 :as s3]
|
[amazonica.aws.s3 :as s3]
|
||||||
[iol-ion.tx :refer [propose-invoice]]
|
[auto-ap.datomic :refer [audit-transact conn]]
|
||||||
[auto-ap.datomic :refer [conn audit-transact]]
|
|
||||||
[auto-ap.jobs.core :refer [execute]]
|
[auto-ap.jobs.core :refer [execute]]
|
||||||
[auto-ap.logging :as log]
|
[auto-ap.logging :as log]
|
||||||
[auto-ap.parse :as parse]
|
[auto-ap.parse :as parse]
|
||||||
@@ -14,7 +13,8 @@
|
|||||||
[clojure.string :as str]
|
[clojure.string :as str]
|
||||||
[clojure.xml :as xml]
|
[clojure.xml :as xml]
|
||||||
[clojure.zip :as zip]
|
[clojure.zip :as zip]
|
||||||
[datomic.client.api :as d])
|
[datomic.client.api :as d]
|
||||||
|
[iol-ion.tx :refer [propose-invoice random-tempid]])
|
||||||
(:import
|
(:import
|
||||||
(java.util UUID)))
|
(java.util UUID)))
|
||||||
|
|
||||||
@@ -148,7 +148,8 @@
|
|||||||
:content
|
:content
|
||||||
first
|
first
|
||||||
Double/parseDouble)
|
Double/parseDouble)
|
||||||
invoice {:invoice/vendor :vendor/cintas
|
invoice {:db/id (random-tempid)
|
||||||
|
:invoice/vendor :vendor/cintas
|
||||||
:invoice/import-status :import-status/imported
|
:invoice/import-status :import-status/imported
|
||||||
:invoice/status :invoice-status/unpaid
|
:invoice/status :invoice-status/unpaid
|
||||||
:invoice/location location
|
:invoice/location location
|
||||||
@@ -175,6 +176,7 @@
|
|||||||
(-> vendor :vendor/default-account :db/id)
|
(-> vendor :vendor/default-account :db/id)
|
||||||
:invoice-expense-account/location location
|
:invoice-expense-account/location location
|
||||||
:invoice-expense-account/amount (Math/abs total)
|
:invoice-expense-account/amount (Math/abs total)
|
||||||
|
:db/id (random-tempid)
|
||||||
}]}]
|
}]}]
|
||||||
(log/info ::cintas-invoice-importing
|
(log/info ::cintas-invoice-importing
|
||||||
:invoice invoice)
|
:invoice invoice)
|
||||||
|
|||||||
Reference in New Issue
Block a user