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

vendor changes and invoice changes.

Browse Source
This commit is contained in:
Bryce Covert
2021-10-14 08:30:46 -07:00
parent 326d946574
commit e14f8ebe5a
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/cljs/auto_ap/views/components/vendor_dialog.cljs
View File

@@ -19,6 +19,7 @@
::can-submit ::can-submit
:<- [::forms/form ::vendor-form] :<- [::forms/form ::vendor-form]
(fn [form] (fn [form]
(println (s/explain-data ::entity/vendor (:data form)))
(s/valid? ::entity/vendor (:data form)))) (s/valid? ::entity/vendor (:data form))))
(defn ngrams [text len] (defn ngrams [text len]

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

@@ -35,11 +35,12 @@
(fn [{:keys [data status]} _] (fn [{:keys [data status]} _]
(let [min-total (if (= (:total (:original data)) (:outstanding-balance (:original data))) (let [min-total (if (= (:total (:original data)) (:outstanding-balance (:original data)))
nil nil
(- (:total (:original data)) (:outstanding-balance (:original data))))] (- (:total (:original data)) (:outstanding-balance (:original data))))
account-total (reduce + 0 (map (fn [ea] (js/parseFloat (:amount ea))) (:expense-accounts data)))]
(and (s/valid? ::invoice/invoice data) (and (s/valid? ::invoice/invoice data)
(or (not min-total) (>= (:total data) min-total)) (or (not min-total) (>= (:total data) min-total))
(or (not (:id data)) (or (not (:id data))
(dollars= (js/parseFloat (:total data)) (reduce + 0 (map (fn [ea] (js/parseFloat (:amount ea))) (:expense-accounts data))))))))) (dollars= (Math/abs (js/parseFloat (:total data))) (Math/abs account-total)))))))
(re-frame/reg-sub (re-frame/reg-sub
::create-query ::create-query