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

made a friendly way to see invoice status.

Browse Source
This commit is contained in:
Bryce Covert
2020-10-24 08:22:23 -07:00
parent 5b459cd6f9
commit 275ff3cd14
1 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/cljs/auto_ap/views/pages/invoices/form.cljs
View File

@@ -149,6 +149,7 @@
] ]
(-> db (-> db
(forms/start-form ::form {:id (:id edit-invoice) (forms/start-form ::form {:id (:id edit-invoice)
:payments (:payments edit-invoice)
:status (:status edit-invoice) :status (:status edit-invoice)
:date (:date edit-invoice) :date (:date edit-invoice)
:due (:due edit-invoice) :due (:due edit-invoice)
@@ -319,7 +320,25 @@
nil nil
(- (:total (:original data)) (:outstanding-balance (:original data))))] (- (:total (:original data)) (:outstanding-balance (:original data))))]
(with-meta (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]) (when-not @(re-frame/subscribe [::subs/client])
(field [:span "Client" (field [:span "Client"