Fixed minor bugs.
This commit is contained in:
@@ -162,7 +162,8 @@
|
||||
:extract {:date #"DATE : ([0-9]+/[0-9]+/[0-9]+)"
|
||||
:customer-identifier #"(.*?)\s{2,}.*CUSTOMER#"
|
||||
:invoice-number #"INVOICE# :\s+([0-9]+)"
|
||||
:total #"TOTAL SALE :\s+([0-9,.]+)"}
|
||||
:total #"TOTAL DUE :\s+\$([0-9,.]+)"
|
||||
:account-number #"CUSTOMER#\s+:\s+(\d+)"}
|
||||
:parser {:date [:clj-time "MM/dd/yyyy"]
|
||||
:total [:trim-commas nil]}}
|
||||
|
||||
|
||||
@@ -130,7 +130,9 @@
|
||||
state (:error state)]
|
||||
(do
|
||||
^{:key (:message state)}
|
||||
[:p (:message state)]))])
|
||||
[:p (or (:message state)
|
||||
(:error state)
|
||||
"An unexpected error occured.")]))])
|
||||
(if (seq info-states)
|
||||
[:div.notification
|
||||
(for [state states]
|
||||
|
||||
@@ -177,6 +177,12 @@
|
||||
(:total data)
|
||||
[])]
|
||||
|
||||
(= [:client] field)
|
||||
[[:accounts] (expense-accounts-field/default-account (:accounts data)
|
||||
@(re-frame/subscribe [::subs/vendor-default-account (:vendor data) value])
|
||||
(:total data)
|
||||
[])]
|
||||
|
||||
:else
|
||||
[]))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user