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

setting up sorted table.

Browse Source
This commit is contained in:
Bryce Covert
2018-04-12 14:59:15 -07:00
parent 812292b5aa
commit f41c0fcba7
4 changed files with 103 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -10,12 +10,14 @@
[honeysql.core :as sql]
[honeysql.helpers :as helpers]))
(def all-keys #{:company-id :vendor-id :imported :potential-duplicate :total :invoice-number :date})
(defn insert-multi! [rows]
(j/insert-multi! (get-conn)
:invoices
(map clj->db rows)))
(def base-query (sql/build :select :*
(def base-query (sql/build :select :invoices.*
:from :invoices))
@@ -46,11 +48,31 @@
(-> base-query
(helpers/merge-where [:= :imported false])))))
(defn get-graphql [{:keys [imported company-id]}]
(defn add-sort-by [q sort-by]
(let [sort-by-key (keyword sort-by)]
(cond (all-keys sort-by-key)
(helpers/merge-order-by q sort-by-key)
(= :vendor sort-by-key)
(-> q
(helpers/merge-left-join [:vendors :v] [:= :v.id :invoices.vendor-id] )
(helpers/merge-order-by [:v.name]))
(= :company sort-by-key)
(-> q
(helpers/merge-left-join [:companies :c] [:= :c.id :invoices.company-id] )
(helpers/merge-order-by [:c.name]))
:else
q)))
(defn get-graphql [{:keys [imported company-id sort-by]}]
(query
(cond-> base-query
(not (nil? imported)) (helpers/merge-where [:= :imported imported])
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id]))))
(not (nil? company-id)) (helpers/merge-where [:= :company-id company-id])
(not (nil? sort-by) ) (add-sort-by sort-by))))
(defn import [parsed-invoices companies vendors]
(insert-multi!

3
src/clj/auto_ap/graphql.clj
View File

@@ -40,7 +40,8 @@
:queries
{:invoice {:type '(list :invoice)
:args {:imported {:type 'Boolean}
:company_id {:type 'Int}}
:company_id {:type 'Int}
:sort_by {:type 'String}}
:resolve :get-invoice}
:company {:type '(list :company)