From 3d65816d9ce0271c21a725a7ccc9f0aa9b9f307d Mon Sep 17 00:00:00 2001 From: Bryce Date: Sat, 1 Mar 2025 21:18:07 -0800 Subject: [PATCH] fixes PWL --- src/clj/auto_ap/datomic/transactions.clj | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/clj/auto_ap/datomic/transactions.clj b/src/clj/auto_ap/datomic/transactions.clj index 11adc67a..1ef89814 100644 --- a/src/clj/auto_ap/datomic/transactions.clj +++ b/src/clj/auto_ap/datomic/transactions.clj @@ -206,6 +206,11 @@ (map #(assoc % :transaction/is-locked (is-locked? %))) (map #(update % :transaction/date coerce/from-date)) (map #(update % :transaction/post-date coerce/from-date)) + (map (fn [t] + (let [cn (:transaction/check-number t)] + (if (and cn (nat-int? cn) (> cn Integer/MAX_VALUE)) + (dissoc t :transaction/check-number) + t)))) (map #(update % :transaction/accounts (fn [tas] (map