140 lines
5.6 KiB
Clojure
140 lines
5.6 KiB
Clojure
(ns auto-ap.views.pages.import-invoices
|
|
(:require [re-frame.core :as re-frame]
|
|
[reagent.core :as reagent]
|
|
[auto-ap.events :as events]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.entities.clients :as client]
|
|
[auto-ap.views.components.layouts :refer [side-bar-layout]]
|
|
[auto-ap.views.components.invoices.side-bar :refer [invoices-side-bar]]
|
|
[auto-ap.entities.vendors :as vendor]
|
|
[auto-ap.views.components.invoice-table :refer [invoice-table] :as invoice-table]
|
|
[cljsjs.dropzone :as dropzone]
|
|
[cljs.reader :as edn]))
|
|
(def dropzone
|
|
(let [client (re-frame/subscribe [::subs/client])
|
|
token (re-frame/subscribe [::subs/token])]
|
|
(with-meta
|
|
(fn []
|
|
[:form.dz {:action "/api/invoices/upload"}
|
|
[:div.tile.notification
|
|
[:div.has-text-centered {:style {:padding "80px 0px" :width "100%"}}
|
|
[:span
|
|
[:span {:class "icon"}
|
|
[:i {:class "fa fa-cloud-download"}]]
|
|
"Drop any invoices you want to process here"]]]])
|
|
{:component-did-mount (fn [this]
|
|
(js/Dropzone. (reagent/dom-node this)
|
|
(clj->js {:init (fn []
|
|
(.on (js-this) "success" (fn [_ files]
|
|
(re-frame/dispatch [::invalidated]))))
|
|
:paramName "file"
|
|
:headers {"Authorization" (str "Token " @token)}
|
|
:url (str "/api/invoices/upload"
|
|
(when-let [client-name (-> @client :id)]
|
|
(str "?client=" client-name)))
|
|
:previewsContainer "#dz-hidden"
|
|
:previewTemplate "<div class='dz-hidden-preview'></div>"})))})))
|
|
|
|
(re-frame/reg-sub
|
|
::invoice-page
|
|
(fn [db]
|
|
(-> db ::invoice-page)))
|
|
|
|
(re-frame/reg-sub
|
|
::params
|
|
(fn [db]
|
|
(-> db (::params {}))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::invalidated
|
|
(fn [cofx [_ params]]
|
|
{:dispatch [::params-change @(re-frame/subscribe [::params])]}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::params-change
|
|
(fn [cofx [_ params]]
|
|
|
|
{:db (-> (:db cofx)
|
|
(assoc-in [:status :loading] true)
|
|
(assoc-in [::params] params))
|
|
:graphql {:token (-> cofx :db :user)
|
|
:query-obj (invoice-table/query (assoc params :import-status "pending"))
|
|
:on-success [::received]}}))
|
|
|
|
(re-frame/reg-event-db
|
|
::received
|
|
(fn [db [_ data]]
|
|
(-> db
|
|
(assoc ::invoice-page (first (:invoice-page data)))
|
|
(assoc-in [:status :loading] false))))
|
|
|
|
(re-frame/reg-event-fx
|
|
::reject-invoices
|
|
(fn [cofx [_ on-success]]
|
|
{:http {:method :post
|
|
:token (-> cofx :db :user)
|
|
:uri (str "/api/invoices/reject"
|
|
(when-let [client-id (:id @(re-frame/subscribe [::subs/client]))]
|
|
(str "?client=" client-id)))
|
|
:on-success on-success
|
|
}}))
|
|
|
|
(re-frame/reg-event-fx
|
|
::approve-invoices
|
|
(fn [cofx [_ on-success]]
|
|
{:http {:method :post
|
|
:token (-> cofx :db :user)
|
|
:uri (str "/api/invoices/approve"
|
|
(when-let [client-id (:id @(re-frame/subscribe [::subs/client]))]
|
|
(str "?client=" client-id)))
|
|
:on-success on-success
|
|
}}))
|
|
|
|
(def import-invoices-content
|
|
(with-meta
|
|
(fn []
|
|
(let [invoice-page (re-frame/subscribe [::invoice-page])
|
|
status (re-frame/subscribe [::subs/status])]
|
|
[:div
|
|
[:h1.title "Upload invoices"]
|
|
[dropzone]
|
|
|
|
[:div {:class "section"}]
|
|
[:div {:class "card found-invoices",}
|
|
[:div {:class "card-header"}
|
|
[:span {:class "card-header-title"} "Found Invoices"]]
|
|
[:div {:class "card-content"}
|
|
(if (:loading @status)
|
|
[:h1.title
|
|
[:i.fa.fa-spin.fa-spinner]]
|
|
(if (seq (:invoices @invoice-page))
|
|
[invoice-table {:id :approved
|
|
:invoice-page invoice-page
|
|
:status (re-frame/subscribe [::subs/status])
|
|
:params (re-frame/subscribe [::params])
|
|
:on-params-change (fn [params]
|
|
(re-frame/dispatch [::params-change params])) }]
|
|
[:span "No pending invoices"]))]
|
|
(if (and (seq (:invoices @invoice-page)) (not (:loading @status)))
|
|
[:div.card-footer
|
|
[:a.card-footer-item
|
|
{:on-click (fn [e]
|
|
(.preventDefault e)
|
|
(re-frame/dispatch [::approve-invoices
|
|
[::invalidated]]))}
|
|
"Accept all"]
|
|
[:a.card-footer-item
|
|
{:on-click (fn [e]
|
|
(.preventDefault e)
|
|
(re-frame/dispatch [::reject-invoices
|
|
[::invalidated]]))}
|
|
"Reject all"]])]]))
|
|
{:component-will-mount (fn []
|
|
(re-frame/dispatch-sync [::invalidated]))}))
|
|
|
|
(defn import-invoices-page []
|
|
[side-bar-layout {:side-bar [invoices-side-bar {}]
|
|
:main [import-invoices-content ]}])
|
|
|
|
|