started adding graphql
This commit is contained in:
@@ -5,7 +5,8 @@
|
||||
[auto-ap.db.vendors :as vendors]
|
||||
[auto-ap.entities.companies :as company]
|
||||
[auto-ap.entities.vendors :as vendor]
|
||||
[clojure.java.jdbc :as j]))
|
||||
[clojure.java.jdbc :as j]
|
||||
[clojure.string :as str]))
|
||||
|
||||
(defn insert-multi! [rows]
|
||||
(j/insert-multi! (get-conn)
|
||||
@@ -51,6 +52,16 @@
|
||||
(with-relations (map db->clj (j/query (get-conn) ["SELECT * FROM invoices WHERE (imported=false or imported is null) AND company_id = ?" (Integer/parseInt company)])))
|
||||
(with-relations (map db->clj (j/query (get-conn) "SELECT * FROM invoices WHERE imported=false or imported is null")))))
|
||||
|
||||
(defn query [params]
|
||||
(let [ks (keys params)
|
||||
sql (str " SELECT * FROM invoices "
|
||||
(when (seq params)
|
||||
" WHERE ")
|
||||
(str/join " AND " (map (fn [k] (str (name k) " = ?")) ks)))
|
||||
vs (map params ks)]
|
||||
|
||||
(j/query (get-conn) (into [sql] vs))))
|
||||
|
||||
(defn import [parsed-invoices companies vendors]
|
||||
(insert-multi!
|
||||
(for [{:keys [total date invoice-number customer-identifier vendor-code] :as row} parsed-invoices]
|
||||
|
||||
Reference in New Issue
Block a user