34 lines
1009 B
Clojure
34 lines
1009 B
Clojure
(ns auto-ap.db.vendors
|
|
(:require [auto-ap.db.utils :refer [clj->db db->clj get-conn]]
|
|
[auto-ap.entities.vendors :as entities]
|
|
[clojure.edn :as edn]
|
|
[clojure.java.jdbc :as j]))
|
|
|
|
|
|
(defn parse [x]
|
|
(db->clj x))
|
|
|
|
(defn unparse [x]
|
|
(-> x
|
|
(select-keys entities/all-keys)
|
|
clj->db))
|
|
|
|
(defn get-all []
|
|
(->> (j/query (get-conn) "SELECT * FROM vendors")
|
|
(map parse)))
|
|
|
|
(defn get-by-id [id]
|
|
(parse (first (j/query (get-conn) ["SELECT * FROM vendors WHERE id = ?" id]))))
|
|
|
|
(defn upsert [id data]
|
|
(j/update! (get-conn) :vendors (unparse data) ["id = ?" (Integer/parseInt id)] )
|
|
(parse (first (j/query (get-conn) ["SELECT * FROM vendors WHERE id = ?" (Integer/parseInt id)]))))
|
|
|
|
(defn insert [data]
|
|
(parse (first (j/insert! (get-conn)
|
|
:vendors
|
|
(unparse data)))))
|
|
|
|
(defn find-with-reminders []
|
|
(map parse (j/query (get-conn) ["SELECT * FROM vendors WHERE invoice_reminder_schedule = ?" "Weekly"])))
|