Validatoren wurden verbessert.

Customers/CustomsAviso.aspx.vb

@@ -464,19 +464,11 @@ Partial Class Kundenbereich_Default
     End Sub
 
     Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
-        If pickdate1.Text = "" Then
-            pickdate1.BorderColor = Drawing.Color.Red
-        Else
-            pickdate1.BorderStyle = BorderStyle.None
-        End If
+        valDateRange_1.Validate()
     End Sub
 
     Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
-        If pickdate2.Text = "" Then
-            pickdate2.Attributes.Add("Border", "2px solid red")
-        Else
-            pickdate2.BorderStyle = BorderStyle.None
-        End If
+        valDateRange_2.Validate()
     End Sub
     Protected Sub valDateRange_1_ServerValidate(source As Object, args As ServerValidateEventArgs)
         Dim minDate As DateTime = DateTime.Parse("01.04.2001")