made a friendly way to see invoice status.
This commit is contained in:
@@ -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"
|
||||
|
||||
Reference in New Issue
Block a user