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

allows voids.

Browse Source
This commit is contained in:
Bryce Covert
2022-06-03 13:10:47 -07:00
parent 9dbc14977e
commit a8fb649dd6
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/graphql/checks.clj
View File

@@ -475,7 +475,7 @@
(defn void-payment [context {id :payment_id} _] (defn void-payment [context {id :payment_id} _]
(let [check (d-checks/get-by-id id)] (let [check (d-checks/get-by-id id)]
(assert (or (= :payment-status/pending (:payment/status check)) (assert (or (= :payment-status/pending (:payment/status check))
(#{:payment-type/cash :payment-type/debit} (:payment/type check)))) (#{:payment-type/cash :payment-type/debit :payment-type/balance-credit} (:payment/type check))))
(assert-can-see-client (:id context) (:db/id (:payment/client check))) (assert-can-see-client (:id context) (:db/id (:payment/client check)))
(assert-not-locked (:db/id (:payment/client check)) (:payment/date check)) (assert-not-locked (:db/id (:payment/client check)) (:payment/date check))
(let [removing-payments (mapcat (fn [x] (let [removing-payments (mapcat (fn [x]

3
src/cljs/auto_ap/views/pages/payments/table.cljs
View File

@@ -95,7 +95,8 @@
(url/map->query {:exact-match-id (:id transaction)}))}]]])]]]]]) (url/map->query {:exact-match-id (:id transaction)}))}]]])]]]]])
[:span {:style {:margin-left "1em"}}] [:span {:style {:margin-left "1em"}}]
(when (and (not= :cleared status) (when (and (or (not= :cleared status)
(= :balance-credit type))
(not= :voided status) (not= :voided status)
(not transaction)) (not transaction))