Making it so manual ledger is searchable and usable

2020-09-30 06:47:17 -07:00
parent a38894a10a
commit 429b02884a
8 changed files with 224 additions and 20 deletions
--- a/src/cljs/auto_ap/views/pages/ledger/external_ledger.cljs
+++ b/src/cljs/auto_ap/views/pages/ledger/external_ledger.cljs
@@ -0,0 +1,94 @@
+(ns auto-ap.views.pages.ledger.external-ledger
+  (:require [auto-ap.subs :as subs]
+            [auto-ap.views.components.layouts :refer [side-bar-layout]]
+            [auto-ap.views.pages.data-page :as data-page]
+            [auto-ap.views.pages.ledger.side-bar :as side-bar :refer [ledger-side-bar]]
+            [auto-ap.views.pages.ledger.external-ledger-table :as table]
+            [auto-ap.views.utils :refer [with-user]]
+            [clojure.set :as set]
+            [re-frame.core :as re-frame]
+            [reagent.core :as reagent]
+            [vimsical.re-frame.fx.track :as track]))
+
+(defn data-params->query-params [params]
+  {:start (:start params 0)
+   :sort (:sort params)
+   :per-page (:per-page params)
+   :client-id (:id @(re-frame/subscribe [::subs/client]))
+   :vendor-id (:id (:vendor params))
+   :date-range (:date-range params)
+   :account-id (:id (:account params))
+   :bank-account-id (:id (:bank-account params))
+   :external-id-like (:external-id params)
+   :amount-gte (:amount-gte (:amount-range params))
+   :amount-lte (:amount-lte (:amount-range params))
+   :only-external true})
+
+
+(re-frame/reg-event-fx
+ ::params-change
+ [with-user]
+ (fn [{:keys [user db]} [_ params]]
+   {:graphql {:token user
+              :owns-state {:single [::data-page/page ::page]}
+              :query-obj {:venia/queries [[:ledger-page
+                                           {:filters (data-params->query-params params)}
+                                           [[:journal-entries [:id
+                                                               :external_id
+                                                               :source
+                                                               :amount
+                                                               :note
+                                                               :cleared-against
+                                                               :alternate-description
+                                                               [:vendor
+                                                                [:name :id]]
+                                                               [:client
+                                                                [:name :id]]
+                                                               [:line-items
+                                                                [:id :debit :credit :location :running-balance
+                                                                 [:account [:id]]]]
+                                                               :date]]
+                                            :total
+                                            :start
+                                            :end]]]} 
+              :on-success (fn [result]
+                            [::data-page/received ::page (set/rename-keys (:ledger-page result)
+                                                                          {:journal-entries :data})])}}))
+
+(re-frame/reg-event-fx
+ ::unmounted
+ (fn [{:keys [db]} _]
+   {:dispatch [::data-page/dispose ::page]
+    ::track/dispose {:id ::params}}))
+
+(re-frame/reg-event-fx
+ ::mounted
+ (fn [{:keys [db]} _]
+   {::track/register {:id ::params
+                      :subscription [::data-page/params ::page]
+                      :event-fn (fn [params] [::params-change params])}}))
+
+
+
+(defn ledger-content []
+  (let [current-client @(re-frame/subscribe [::subs/client])]
+    [:div 
+     [:h1.title "External Ledger"]
+     [table/table {:id :ledger
+                   :data-page ::page}]]))
+
+
+(defn external-ledger-page []
+  (let [user (re-frame/subscribe [::subs/user])]
+    (reagent/create-class
+     {:display-name "external-ledger-page"
+      :component-did-mount #(re-frame/dispatch [::mounted])
+      :component-will-unmount #(re-frame/dispatch [::unmounted])
+      :reagent-render
+      (fn []
+        (if (= "admin" (:user/role @user))
+          [side-bar-layout
+           {:side-bar [ledger-side-bar {:data-page ::page}]
+            :main [ledger-content]}]
+          [:div "Not authorized"]))})))
+