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

all functions work

Browse Source
This commit is contained in:
Bryce Covert
2020-08-12 10:08:14 -07:00
parent 27a66f11f1
commit ee282adf8b
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
View File

@@ -157,23 +157,19 @@
(re-frame/reg-event-db (re-frame/reg-event-db
::advanced-print-checks ::advanced-print-checks
(fn [db _] (fn [db _]
(let [{:keys [checked invoices]} (get-in db [::invoice-page])] (let [invoices @(re-frame/subscribe [::checked-invoices])]
(-> db (-> db
(forms/stop-form ::form/form) (forms/stop-form ::form/form)
(update-in [::invoice-page :print-checks-shown?] #(not %) ) (update-in [::invoice-page :print-checks-shown?] #(not %) )
(assoc-in [::advanced-print-checks] {:shown? true (assoc-in [::advanced-print-checks] {:shown? true
:bank-account-id (:id (first @(re-frame/subscribe [::subs/bank-accounts]))) :bank-account-id (:id (first @(re-frame/subscribe [::subs/bank-accounts])))
:invoices (->> checked :invoices (map #(assoc % :amount (:outstanding-balance %)) invoices )} )))))
vals
(map #(assoc % :amount (:outstanding-balance %))))} )))))
(re-frame/reg-event-fx (re-frame/reg-event-fx
::handwrite-checks ::handwrite-checks
(fn [{:keys [db]} _] (fn [{:keys [db]} _]
(let [{:keys [checked invoices]} (get-in db [::invoice-page]) (let [invoices @(re-frame/subscribe [::checked-invoices])
invoices (->> checked invoices (map #(assoc % :amount (:outstanding-balance %)) invoices)]
vals
(map #(assoc % :amount (:outstanding-balance %))))]
{:dispatch [::events/modal-status ::handwrite-checks {:visible? true}] {:dispatch [::events/modal-status ::handwrite-checks {:visible? true}]
:db (-> db :db (-> db