made a friendly way to see invoice status.

This commit is contained in:
Bryce Covert
2020-10-24 08:22:23 -07:00
parent 5b459cd6f9
commit 275ff3cd14

View File

@@ -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"