From 275ff3cd14f184f4b194e41f40c8f617d358d273 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sat, 24 Oct 2020 08:22:23 -0700 Subject: [PATCH] made a friendly way to see invoice status. --- .../auto_ap/views/pages/invoices/form.cljs | 21 ++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/src/cljs/auto_ap/views/pages/invoices/form.cljs b/src/cljs/auto_ap/views/pages/invoices/form.cljs index 3e8ea6f9..8e15ca02 100644 --- a/src/cljs/auto_ap/views/pages/invoices/form.cljs +++ b/src/cljs/auto_ap/views/pages/invoices/form.cljs @@ -149,6 +149,7 @@ ] (-> db (forms/start-form ::form {:id (:id edit-invoice) + :payments (:payments edit-invoice) :status (:status edit-invoice) :date (:date edit-invoice) :due (:due edit-invoice) @@ -319,7 +320,25 @@ nil (- (:total (:original data)) (:outstanding-balance (:original data))))] (with-meta - (form-inline (assoc params :title "New Invoice") + (form-inline (assoc params :title [:div "New Invoice " + (cond + (#{:unpaid ":unpaid"} (:status data)) + nil + + (#{:voided ":voided"} (:status data)) + [:div.tag.is-info.is-light "Voided"] + + (and (#{:paid ":paid"} (:status data)) + (not (seq (:payments data)))) + [:div.tag.is-info.is-light "Automatically paid"] + + (and (#{:paid ":paid"} (:status data))) + (if-let [check-number (:check-number (:payment (first (:payments data))))] + [:div.tag.is-info.is-light "Paid by check #" check-number ] + [:div.tag.is-info.is-light "Paid"]) + + :else + nil)]) [:<> (when-not @(re-frame/subscribe [::subs/client]) (field [:span "Client"