hopefully adds routing numbers
This commit is contained in:
@@ -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)}))
|
||||
|
||||
|
||||
@@ -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]
|
||||
|
||||
Reference in New Issue
Block a user