notid/integreat
1
0
Fork 0
Code Issues Pull Requests 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
::advanced-print-checks
(fn [db _]
(let [{:keys [checked invoices]} (get-in db [::invoice-page])]
(let [invoices @(re-frame/subscribe [::checked-invoices])]
(-> db
(forms/stop-form ::form/form)
(update-in [::invoice-page :print-checks-shown?] #(not %) )
(assoc-in [::advanced-print-checks] {:shown? true
:bank-account-id (:id (first @(re-frame/subscribe [::subs/bank-accounts])))
:invoices (->> checked
vals
(map #(assoc % :amount (:outstanding-balance %))))} )))))
:invoices (map #(assoc % :amount (:outstanding-balance %)) invoices )} )))))
(re-frame/reg-event-fx
::handwrite-checks
(fn [{:keys [db]} _]
(let [{:keys [checked invoices]} (get-in db [::invoice-page])
invoices (->> checked
vals
(map #(assoc % :amount (:outstanding-balance %))))]
(let [invoices @(re-frame/subscribe [::checked-invoices])
invoices (map #(assoc % :amount (:outstanding-balance %)) invoices)]
{:dispatch [::events/modal-status ::handwrite-checks {:visible? true}]
:db (-> db