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

added a page to see the accounts.

Browse Source
This commit is contained in:
Bryce Covert
2019-04-11 12:58:49 -07:00
parent 7bfe451ccd
commit a5d65656c0
6 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/clj/auto_ap/graphql/accounts.clj
View File

@@ -11,8 +11,7 @@
(:account_set args) (merge-query {:query {:in ['?account-set]
:where [['?e :account/account-set '?account-set]]}
:args [(:account_set args)]}))]
(doto (->>
(d/query query)
(map first)
(->graphql ))
println)))
(->>
(d/query query)
(map first)
(->graphql ))))

10
src/cljs/auto_ap/events.cljs
View File

@@ -46,7 +46,7 @@
[:address [:street1 :street2 :city :state :zip]]]]
[:vendor
[:id :name :default-expense-account [:primary-contact [:name :phone :email :id]] [:secondary-contact [:id :name :phone :email]] :print-as :invoice-reminder-schedule :code]]
[:accounts [:numeric-code :name :type :account_set]]]}
[:accounts [:numeric-code :name :type :account_set :id]]]}
:on-success [::received-initial]}}))))
(def vendor-query
[:id :name :default-expense-account
@@ -68,17 +68,19 @@
[:id :name :code [:address [:street1 :street2 :city :state :zip]] [:bank-accounts [:id :code :number :bank-name :bank-code :check-number :name :routing :type :sort-order :visible :yodlee-account-id] ]]]
[:vendor
[:id :name :default-expense-account [:primary-contact [:name :phone :email :id]] [:secondary-contact [:id :name :phone :email]] :print-as :invoice-reminder-schedule :code]]
[:accounts [:numeric-code :name :type :account_set]]]}
[:accounts [:numeric-code :name :type :account_set :id]]]}
:on-success [::received-initial]}
:db (assoc db :user (assoc user :token token))}))
(re-frame/reg-event-db
::received-initial
(fn [db [_ {clients :client vendors :vendor :as x}]]
(fn [db [_ {accounts :accounts clients :client vendors :vendor :as x}]]
(-> db
(assoc :clients (by :id clients) )
(assoc :vendors (by :id vendors) )
(assoc :accounts accounts )
(assoc :client (when (= 1 (count clients)) (->> clients first :id ))))))
(re-frame/reg-event-db
@@ -121,7 +123,7 @@
(re-frame/reg-event-fx
::set-active-page
(fn [{:keys [db]} [_ handler params]]
(println "PARAMS" params)
(if (and (not= :login handler) (not (:user db)))
{:redirect "/login"
:db (assoc db :active-page :login

1
src/cljs/auto_ap/routes.cljs
View File

@@ -9,6 +9,7 @@
"admin/" {"" :admin
"clients" :admin-clients
"users" :admin-users
"accounts" :admin-accounts
"reminders" :admin-reminders
"vendors" :admin-vendors
"excel-import" :admin-excel-import

5
src/cljs/auto_ap/subs.cljs
View File

@@ -15,6 +15,11 @@
(when (:user db)
(sort-by :name (vals (:clients db))))))
(re-frame/reg-sub
::accounts
(fn [db]
(:accounts db)))
(re-frame/reg-sub
::bank-accounts
:<- [::clients]

8
src/cljs/auto_ap/views/components/admin/side_bar.cljs
View File

@@ -41,7 +41,13 @@
[:i {:class "fa fa-envelope-o"}]]
[:span {:class "name"} "Users"]]]
[:li.menu-item
[:a {:href (bidi/path-for routes/routes :admin-accounts), :class (str "item" (active-when ap = :admin-accounts))}
[:span {:class "icon"}
[:i {:class "fa fa-envelope-o"}]]
[:span {:class "name"} "Accounts"]]]
[:li.menu-item
[:a {:href (bidi/path-for routes/routes :admin-yodlee), :class (str "item" (active-when ap = :admin-yodlee))}
[:span {:class "icon"}

4
src/cljs/auto_ap/views/main.cljs
View File

@@ -17,6 +17,7 @@
[auto-ap.views.pages.admin :refer [admin-page]]
[auto-ap.views.pages.home :refer [home-page]]
[auto-ap.views.pages.admin.clients :refer [admin-clients-page]]
[auto-ap.views.pages.admin.accounts :refer [admin-accounts-page]]
[auto-ap.views.pages.admin.vendors :refer [admin-vendors-page]]
[auto-ap.views.pages.admin.excel-import :refer [admin-excel-import-page]]
[auto-ap.views.pages.admin.users :refer [admin-users-page]]
@@ -60,6 +61,9 @@
(defmethod page :admin-yodlee [_]
(admin-yodlee-page))
(defmethod page :admin-accounts [_]
(admin-accounts-page))
(defmethod page :index [_]
(home-page)
)