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

More generous check parsing

Browse Source
This commit is contained in:
Bryce
2024-07-23 21:48:43 -07:00
parent 8b9fc5a66e
commit 3ee6bade7e
1 changed files with 13 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/clj/auto_ap/import/transactions.clj
View File

@@ -156,13 +156,25 @@
invoice-payments))))) invoice-payments)))))
(defn extract-check-number [{:transaction/keys [description-original]}] (defn extract-check-number [{:transaction/keys [description-original]}]
(if-let [[_ _ check-number] (re-find #"(?i)check(card|[^0-9]+([0-9]*))" description-original)] (if-let [[_ _ check-number] (re-find #"(?i)check(card|.*?([0-9]{4,}))" description-original)]
(try (try
(Integer/parseInt check-number) (Integer/parseInt check-number)
(catch NumberFormatException _ (catch NumberFormatException _
nil)) nil))
nil)) nil))
(comment
(= 1234 (extract-check-number {:transaction/description-original "Check 1234"}))
(= 1234 (extract-check-number {:transaction/description-original "Check abc 1234"}))
(= 1234 (extract-check-number {:transaction/description-original "Check abc 4/10 1234"}))
(= 1234 (extract-check-number {:transaction/description-original "Check abc 4/10 1234 12/3"}))
(not= 1234 (extract-check-number {:transaction/description-original "Checkcard 4/10 1234"}))
)
(defn find-expected-deposit [client-id amount date] (defn find-expected-deposit [client-id amount date]
(when date (when date
(-> (dc/q (-> (dc/q