Adding vendor import stuff.
This commit is contained in:
@@ -36,7 +36,10 @@
|
||||
[:and
|
||||
[:= :exist.invoice-number :v.invoice-number]
|
||||
[:= :exist.company-id :v.company-id]
|
||||
[:= :exist.vendor-id :v.vendor-id]]]
|
||||
[:or [:= :exist.vendor-id :v.vendor-id]
|
||||
[:and
|
||||
[:= :exist.vendor-id nil]
|
||||
[:= :v.vendor-id nil]]]]]
|
||||
:where [:= :exist.id nil] }] })))))
|
||||
0
|
||||
(partition-all 2000 rows))))
|
||||
|
||||
@@ -40,6 +40,7 @@
|
||||
(let [[id] (-> (sql/build :insert-into :vendors
|
||||
:values [(unparse data)])
|
||||
execute!)]
|
||||
(println "inserted vendor: " data ", id " id)
|
||||
(get-by-id id)))
|
||||
|
||||
(defn find-with-reminders []
|
||||
|
||||
Reference in New Issue
Block a user