lots of changes to make ledger actually visible.

2019-04-11 19:41:41 -07:00
parent d335055de8
commit 9549afb3ef
15 changed files with 454 additions and 55 deletions
--- a/src/cljs/auto_ap/views/pages/ledger.cljs
+++ b/src/cljs/auto_ap/views/pages/ledger.cljs
@@ -0,0 +1,101 @@
+(ns auto-ap.views.pages.ledger
+  (:require [auto-ap.events :as events]
+            [auto-ap.forms :as forms]
+            [auto-ap.subs :as subs]
+            [auto-ap.views.components.bank-account-filter :refer [bank-account-filter]]
+            [auto-ap.views.components.layouts :refer [appearing-side-bar side-bar-layout]]
+            [auto-ap.views.components.modal :refer [action-modal]]
+            [auto-ap.views.components.paginator :refer [paginator]]
+            [auto-ap.views.components.sorter :refer [sorted-column]]
+            [auto-ap.views.pages.ledger.table :as table]
+            [auto-ap.views.pages.transactions.common :refer [transaction-read]]
+            [auto-ap.utils :refer [replace-by]]
+            [auto-ap.views.pages.transactions.manual :as manual]
+            [auto-ap.views.utils :refer [bind-field date->str dispatch-event nf]]
+            [goog.string :as gstring]
+            [re-frame.core :as re-frame]))
+
+
+(re-frame/reg-sub
+ ::ledger-page
+ (fn [db]
+   (-> db ::ledger-page)))
+
+(re-frame/reg-sub
+ ::params
+ (fn [db]
+   (-> db (::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 {:venia/queries [[:ledger-page
+                                           (assoc params :client-id (:id @(re-frame/subscribe [::subs/client]))) 
+                                           [[:journal-entries [:id
+                                                             :source
+                                                               :amount
+                                                             [:vendor
+                                                              [:name :id]]
+                                                               [:client
+                                                                [:name :id]]
+                                                             [:line-items
+                                                              [:id :debit :credit :location
+                                                               [:account [:id :name]]]]
+                                                             :date]]
+                                            :total
+                                            :start
+                                            :end]]]} 
+              :on-success [::received]}}))
+
+(re-frame/reg-event-db
+ ::received
+ (fn [db [_ data]]
+   (-> db
+       (assoc ::ledger-page (:ledger-page data))
+       (assoc-in [:status :loading] false))))
+
+(re-frame/reg-event-db
+ ::change-selected-bank-account
+ (fn [db [_ key value]]
+   (let [[key] key 
+         updated (assoc-in db [::ledger-page :bank-account-filter key] value)]
+     (if (and (= key :id)
+              (not= value (get-in db [::params :bank-account-id])))
+       (do
+         (re-frame/dispatch [::params-change (assoc (::params updated) :bank-account-id value)])
+         (assoc-in updated [::params :bank-account-id] value))
+       updated))))
+
+(def ledger-content
+  
+  (with-meta
+    (fn []
+      (let [current-client @(re-frame/subscribe [::subs/client])
+            user @(re-frame/subscribe [::subs/user])]
+        [:div 
+         [:h1.title "Ledger"]
+         [table/table {:id :ledger
+                       :params (re-frame/subscribe [::params])
+                       :ledger-page (re-frame/subscribe [::ledger-page])
+                       :status (re-frame/subscribe [::subs/status])
+                       :on-params-change (fn [params]
+                                           (re-frame/dispatch [::params-change params]))}]
+         [manual/modal {:import-completed [::manual-import-completed ]}]]))
+    {:component-will-mount #(re-frame/dispatch-sync [::params-change {}]) }))
+
+(defn ledger-page []
+  [side-bar-layout
+   {:side-bar [:div
+               [:p.menu-label "Bank Account"]
+               [:div 
+                [bank-account-filter
+                 {:on-change-event [::change-selected-bank-account]
+                  :value (:bank-acount-filter @(re-frame/subscribe [::ledger-page]))
+                  :bank-accounts @(re-frame/subscribe [::subs/bank-accounts])}]]]
+    :main [ledger-content]}])
+