diff --git a/src/clj/auto_ap/yodlee/core.clj b/src/clj/auto_ap/yodlee/core.clj index 636f78ca..3714566b 100644 --- a/src/clj/auto_ap/yodlee/core.clj +++ b/src/clj/auto_ap/yodlee/core.clj @@ -77,6 +77,44 @@ (recur (concat transactions transaction-batch) (+ batch-size skip)) transactions))))) +(defn get-provider-accounts [] + (let [cob-session (login-cobrand) + user-session (login-user cob-session) + batch-size 100 + get-transaction-batch (fn [skip] + (-> (str (:yodlee-base-url env) "/providerAccounts") + + (client/get {:headers (doto + (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + println) + :as :json}) + :body + ))] + + (get-transaction-batch))) +(defn get-specific-transactions [] + (let [cob-session (login-cobrand) + user-session (login-user cob-session) + batch-size 100 + get-transaction-batch (fn [skip] + (-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=16422358") + (doto println) + + (client/get {:headers (doto + (merge base-headers {"Authorization" (auth-header cob-session user-session)}) + println) + :as :json}) + :body + :transaction + ))] + + (loop [transactions [] + skip 0] + (let [transaction-batch (get-transaction-batch skip)] + (if (seq transaction-batch) + (recur (concat transactions transaction-batch) (+ batch-size skip)) + transactions))))) + (defn get-access-token [] (let [cob-session (login-cobrand) user-session (login-user cob-session) diff --git a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs index a054bcd9..0801ff1d 100644 --- a/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs +++ b/src/cljs/auto_ap/views/pages/unpaid_invoices.cljs @@ -481,7 +481,7 @@ [:tr [:td.expandable [:div.control [bind-field - [typeahead {:matches (map (fn [x] [(:id x) (:name x)]) chooseable-expense-accounts) + [typeahead {:matches (map (fn [x] [(:id x) (str (:id x) " - " (:name x))]) chooseable-expense-accounts) :type "typeahead" :field [:invoice :expense-accounts index :expense-account-id] :event change-event