notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 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

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