all columns available.

This commit is contained in:
BC
2018-07-05 23:41:50 -07:00
parent 07d7a8ff51
commit de1ead6b9e
5 changed files with 101 additions and 12 deletions

View File

@@ -8,27 +8,42 @@
[auto-ap.db.utils :refer [query]]
[auto-ap.utils :refer [by]]
[auto-ap.parse :as parse]
[auto-ap.graphql :as graphql]
[auto-ap.graphql.utils :refer [->graphql]]
[auto-ap.routes.utils :refer [wrap-secure]]
[clj-time.coerce :refer [to-date]]
[auto-ap.db.invoices-expense-accounts :as expense-accounts]
[ring.middleware.json :refer [wrap-json-response]]
[compojure.core :refer [GET POST context defroutes wrap-routes]]
[clojure.string :as str]))
[clojure.string :as str]
[venia.core :as venia]))
(defroutes routes
(wrap-routes
(wrap-routes
(context "/" []
(GET "/invoices/export" {:keys [query-params]}
(let [invoices (invoices/get-graphql {:company (query-params "company")})]
(map (fn [i]
(update i :date to-date))
invoices)))
(GET "/invoices/export" {:keys [query-params identity] :as request}
(let [query [[:all_invoices
{:company-id (query-params "company")}
[:id :total :outstanding-balance :invoice-number :date
[:checks [:amount [:check [:check-number]]]]
[:vendor [:name :id]]
[:expense_accounts [:amount :id :expense_account_id :location
[:expense_account [:id :name [:parent [:id :name]]]]]]
[:company [:name :id :locations]]]]]
invoices (graphql/query identity (venia/graphql-query {:venia/queries (->graphql query)}))]
(list (:all-invoices (:data invoices)))))
(GET "/checks/export" {:keys [query-params]}
(let [checks (checks/get-graphql {:company (query-params "company")})]
(map (fn [i]
(update i :date to-date))
checks)))
(let [query [[:all_checks
{:company-id (query-params "company")}
[:id :check-number :amount :memo :date
[:invoices [:invoice-id :amount]]
[:bank-account [:number :bank-name :bank-code]]
[:vendor [:name :id :primary-contact :primary-email :primary-phone :default-expense-account]]
[:company [:id :name]]
]]]
checks (graphql/query identity (venia/graphql-query {:venia/queries (->graphql query)}))]
(list (:all-checks (:data checks)))))
(GET "/companies/export" {:keys [query-params]}
(companies/get-all))