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)))))

src/clj/auto_ap/handler.clj

@@ -133,6 +133,11 @@
         :body (pr-str (vendors/upsert id edn-params))
         :headers {"Content-Type" "application/edn"}})
 
+  (POST "/api/vendors" {:keys [edn-params] :as r}
+       {:status 200
+        :body (pr-str (vendors/insert edn-params))
+        :headers {"Content-Type" "application/edn"}})
+
   (POST "/api/invoices" {:keys [edn-params]}
         (invoices/insert-multi! (:rows edn-params))
         {:status 200