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

checking for existing invoices.

Browse Source
This commit is contained in:
Bryce Covert
2018-07-30 17:49:05 -07:00
parent 9e00372857
commit 83ba0e4db0
3 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/db/invoices.clj
View File

@@ -63,7 +63,7 @@
(defn get-all []
(query base-query))
(defn find-conflicting [{:keys [id invoice-number company-id vendor-id]}]
(defn find-conflicting [{:keys [id invoice-number company-id vendor-id] :as i}]
(query
(-> base-query
(helpers/merge-where [:and [:not= :id id]

8
src/clj/auto_ap/graphql/invoices.clj
View File

@@ -37,8 +37,14 @@
(->graphql))))
(defn edit-invoice [context {{:keys [id] :as in} :invoice} value]
(defn edit-invoice [context {{:keys [id invoice_number vendor_id company_id] :as in} :invoice} value]
(let [invoice (invoices/get-by-id id)
_ (when (seq (invoices/find-conflicting {:id id
:invoice-number invoice_number
:vendor-id (:vendor-id invoice)
:company-id (:company-id invoice)}))
(throw (ex-info "that invoice already exists" {:invoice-number invoice_number})))
paid-amount (- (:total invoice) (:outstanding-balance invoice))
_ (assert-can-see-company (:id context) (:company-id invoice))
updated-invoice (invoices/update (-> in

9
src/cljs/auto_ap/views/pages/unpaid_invoices.cljs
View File

@@ -279,7 +279,8 @@
[:expense_accounts [:amount :id :expense_account_id
:location
[:expense_account [:id :name [:parent [:id :name]]]]]]]]}]}
:on-success [::invoice-edited]}})))
:on-success [::invoice-edited]
:on-error [::invoice-edit-failed]}})))
(re-frame/reg-event-fx
@@ -361,6 +362,12 @@
i)) is)))
(dissoc ::edit-invoice))}))
(re-frame/reg-event-fx
::invoice-edit-failed
(fn [{:keys [db]} [_ data]]
{:dispatch [::events/modal-failed ::edit-invoice "That invoice already exists."]}))
(re-frame/reg-event-fx
::invoice-voided
(fn [{:keys [db]} [_ {:keys [void-invoice]}]]