vendors have codes on them; making sqs for processing.

src/clj/auto_ap/db/vendors.clj

@@ -12,7 +12,6 @@
       merge-data
       ))
 
-
 (defn get-all []
   (->> (j/query (get-conn) "SELECT * FROM vendors")
        (map parse)))
@@ -20,3 +19,8 @@
 (defn upsert [id data]
   (j/update! (get-conn) :vendors (clj->db data) ["id = ?" (Integer/parseInt id)] )
   (merge-data (db->clj (first (j/query (get-conn) ["SELECT * FROM vendors WHERE id = ?" (Integer/parseInt id)])))))
+
+(defn insert [data]
+  (parse (first (j/insert! (get-conn)
+                           :vendors
+                           (clj->db data)))))