notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

marks as paid.

Browse Source
This commit is contained in:
Bryce Covert
2018-05-15 09:01:02 -07:00
parent d9994b988c
commit 7b7275f7a4
6 changed files with 39 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/clj/auto_ap/db/invoices.clj
View File

@@ -2,6 +2,7 @@
(:require [auto-ap.db.utils :refer [clj->db kebab->snake db->clj get-conn query] :as utils]
[auto-ap.parse :as parse]
[auto-ap.db.companies :as companies]
[auto-ap.db.invoices-checks :as invoices-checks]
[auto-ap.db.vendors :as vendors]
[auto-ap.entities.companies :as company]
[auto-ap.entities.vendors :as vendor]
@@ -19,7 +20,7 @@
(defn upsert-multi! [rows]
(let [k (vec (map #(keyword (kebab->snake (name %))) [:company-id :vendor-id :invoice-number :total :date :imported]))
(let [k (vec (map #(keyword (kebab->snake (name %))) [:company-id :vendor-id :invoice-number :total :date :imported :status]))
column-names (str/join "," (map name k))]
(reduce
(fn [affected rows]
@@ -30,7 +31,7 @@
(map clj->db )
(map (apply juxt k))))]]
:insert-into [[:invoices k]
{:select [:v.company-id :v.vendor-id :v.invoice-number :v.total (sql/raw "cast(v.date as timestamp)") :v.imported ]
{:select [:v.company-id :v.vendor-id :v.invoice-number :v.total (sql/raw "cast(v.date as timestamp)") :v.imported :v.status]
:from [:v]
:left-join [[:invoices :exist]
[:and
@@ -55,6 +56,10 @@
(query (-> base-query
(helpers/merge-where [:in :id ids]))))
(defn get-by-id [id]
(first (query (-> base-query
(helpers/merge-where [:= :id id])))))
(defn approve []
(j/update! (get-conn) :invoices {:imported true} [] ))
@@ -103,9 +108,10 @@
(defn base-graphql [{:keys [imported company-id]}]
(defn base-graphql [{:keys [imported company-id status]}]
(cond-> base-query
(not (nil? imported)) (helpers/merge-where [:= :imported imported])
(not (nil? status)) (helpers/merge-where [:= :status status])
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])))
(defn get-graphql [{:keys [start sort-by asc] :as args}]
@@ -128,4 +134,17 @@
:vendor-id (:id (first (filter #(= (:code %) vendor-code) vendors)))
:imported false
:potential-duplicate false)
:vendor-code)))))
:vendor-code)))))
(defn mark-finished-if-complete [invoice-id]
(let [{:keys [total]} (get-by-id invoice-id)
_ (println "TOTAL total" total)
paid (invoices-checks/get-sum-by-invoice invoice-id)
_ (println "PAID" paid)]
(when (< (Math/abs (float (- paid total))) 0.01)
(j/db-do-prepared (get-conn)
(-> (helpers/update :invoices)
(helpers/sset {:status "paid"})
(helpers/where [:= :id invoice-id])
(sql/format))))))

10
src/clj/auto_ap/db/invoices_checks.clj
View File

@@ -19,9 +19,15 @@
(query (-> base-query
(helpers/merge-where [:= :invoice-id id]))))
(defn get-sum-by-invoice [id]
(:sum (first (query (-> (helpers/select :%sum.amount)
(helpers/from :invoices-checks)
(helpers/merge-where [:= :invoice-id id])
)))))
(defn get-by-id [id]
(first (query (-> base-query
(helpers/merge-where [:= :id id])))))
(first (query (-> base-query
(helpers/merge-where [:= :id id])))))
(defn insert-multi! [rows]
(->> (j/insert-multi! (get-conn)