From 9d28b60d9cc9695a82a6476fb45d0dbd49862bdf Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 16 Mar 2022 11:11:06 -0700 Subject: [PATCH] allows paying old invoices. --- src/clj/auto_ap/graphql/checks.clj | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/clj/auto_ap/graphql/checks.clj b/src/clj/auto_ap/graphql/checks.clj index d12b6c31..ded557c5 100644 --- a/src/clj/auto_ap/graphql/checks.clj +++ b/src/clj/auto_ap/graphql/checks.clj @@ -376,7 +376,6 @@ (let [message (str "The bank account " (:bank-account/name bank-account) " does not have a starting check number. Please ask the integreat staff to initialize it.")] (throw (ex-info message {:validation-error message})))) - _ (assert-none-locked client-id (map (comp c/to-date :invoice/date) invoices)) checks (->> (for [[[vendor-id invoices] index] (map vector invoices-grouped-by-vendor (range))] (invoices->entities invoices (vendors vendor-id) client bank-account type index invoice-amounts)) (reduce into []) @@ -434,7 +433,6 @@ (assert-can-see-client (:id context) (:invoice/client invoice))) client-id (:db/id (:invoice/client (first invoices))) _ (validate-belonging (:db/id (:client/_bank-accounts bank-account)) invoices bank-account) - _ (assert-none-locked client-id (map (comp c/to-date :invoice/date) invoices)) _ (assert-not-locked client-id (:date args)) invoice-payment-lookup (by :invoice_id :amount (:invoice_payments args)) base-payment (base-payment invoices