fixes PWL

2025-03-01 21:18:07 -08:00
parent 70d03904f7
commit 3d65816d9c
1 changed files with 5 additions and 0 deletions
--- 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