hopefully adds routing numbers

This commit is contained in:
Bryce Covert
2018-07-14 12:31:29 -07:00
parent b663b862dc
commit fc0f727fb8
2 changed files with 6 additions and 2 deletions

View File

@@ -80,7 +80,7 @@
[[:cell {:colspan 2}]
[:cell {:colspan 10 :leading 30}
[:phrase {:size 18 :ttf-name "public/micrenc.ttf"} (str "c" check "c a" (:acct-number (:bank company)) "a 10302c")]]]
[:phrase {:size 18 :ttf-name "public/micrenc.ttf"} (str "c" check "c a" (:routing (:bank company)) "a " (:acct-number (:bank company)) "c")]]]
[[:cell {:colspan 12 :leading 18} [:spacer]]]
@@ -198,6 +198,7 @@
:address (:address company)
:bank {:name (:bank-name bank-account)
:acct (:bank-code bank-account)
:routing (:routing bank-account)
:acct-number (:number bank-account)}}}
:invoices (map :id invoices)}))

View File

@@ -34,7 +34,10 @@
(defn extract-check-number [{{description-original :original} :description}]
(if-let [[_ check-number] (re-find #"(?i)check[^0-9]+([0-9]*)" description-original)]
(Integer/parseInt check-number)
(try
(Integer/parseInt check-number)
(catch NumberFormatException e
nil))
nil))
(defn import-transactions [transactions transaction->company transaction->bank-account-id]