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

Voiding more forgiving

Browse Source
This commit is contained in:
Bryce
2024-03-20 19:59:38 -07:00
parent e914f8b994
commit ffde6efac3
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/ssr/payments.clj
View File

@@ -126,7 +126,7 @@
{:payment/vendor [:vendor/name {:vendor/default-account
[:account/name :account/numeric-code :db/id]} :db/id {:vendor/primary-contact [*]} {:vendor/address [*]}]}
{[:payment/status :xform iol-ion.query/ident] [:db/ident]}
{:payment/type [:db/ident]}
{[:payment/type :xform iol-ion.query/ident] [:db/ident]}
{:transaction/_payment [:db/id :transaction/date]}])
(defn fetch-ids [db {:keys [query-params route-params] :as request}]
@@ -307,7 +307,7 @@
"Payments"]]
:title (fn [r]
(str
(some-> r :route-params :status name str/capitalize (str " "))
(some-> r :rout-params :status name str/capitalize (str " "))
"Payments"))
:entity-name "payments"
:route ::route/table
@@ -392,6 +392,7 @@
(mc/decode query-schema {"start-date" #inst "2023-12-21T08:00:00.000-00:00"} (mt/transformer main-transformer mt/strip-extra-keys-transformer)))
(defn delete [{check :entity :as request identity :identity}]
(alog/peek ::check-type check)
(exception->notification
#(when-not (or (= :payment-status/pending (:payment/status check))
(#{:payment-type/cash :payment-type/debit :payment-type/balance-credit} (:payment/type check)))