Änderungen alle Validierungen der Seite implementiert.

Customers/CustomsAviso.aspx.vb

@@ -309,62 +309,117 @@ Partial Class CustomsAviso
 
         If txt_Absender.Text IsNot "" Then
             txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regexval_txt_Absender.Enabled = True
+            regexval_txt_Absender.Validate()
+            If regexval_txt_Absender.IsValid Then
                 Try
                     Absender = txt_Absender.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regexval_txt_Absender.ForeColor = Drawing.Color.Red
+                regexval_txt_Absender.ErrorMessage = "The sender is malformed. Plaese check the name."
+            End If
         ElseIf txt_Empfaenger.Text IsNot "" Then
             txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regexval_txt_Empfaenger.Enabled = True
+            regexval_txt_Empfaenger.Validate()
+            If regexval_txt_Empfaenger.IsValid Then
                 Try
                     Empfaenger = txt_Empfaenger.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
+                regexval_txt_Empfaenger.ErrorMessage = "The reciever is malformed. Plaese check the name."
+            End If
         ElseIf txt_KdNrAuftrag.Text IsNot "" Then
             txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regexval_txt_KdNrAuftrag.Enabled = True
+            regexval_txt_KdNrAuftrag.Validate()
+            If regexval_txt_KdNrAuftrag.IsValid Then
                 Try
                     KDNAFNR = txt_KdNrAuftrag.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regexval_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
+                regexval_txt_KdNrAuftrag.ErrorMessage = "The Customer Order ID is not right."
+            End If
         ElseIf txt_LKWNr.Text IsNot "" Then
             txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regexval_txt_LKW.Enabled = True
+            regexval_txt_LKW.Validate()
+            If regexval_txt_LKW.IsValid = True Then
                 Try
                     LKWNR = txt_LKWNr.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regexval_txt_LKW.ForeColor = Drawing.Color.Red
+                regexval_txt_LKW.ErrorMessage = "The truck License plate is malformed!"
+            End If
         ElseIf txt_Absender_M.Text IsNot "" Then
             txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regval_txt_Absender_M.Enabled = True
+            regval_txt_Absender_M.Validate()
+            If regval_txt_Absender_M.IsValid Then
                 Try
                     Absender = txt_Absender_M.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regval_txt_Absender_M.ForeColor = Drawing.Color.Red
+                regval_txt_Absender_M.ErrorMessage = "The sender is malformed. Plaese check the name."
+            End If
         ElseIf txt_Empfaenger_M.Text IsNot "" Then
             txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regval_txt_Empfaenger_M.Enabled = True
+            regval_txt_Empfaenger_M.Validate()
+            If regval_txt_Empfaenger_M.IsValid = True Then
                 Try
                     Empfaenger = txt_Empfaenger_M.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regval_txt_Empfaenger_M.ForeColor = Drawing.Color.Red
+                regval_txt_Empfaenger_M.ErrorMessage = "The reciever is malformed. Plaese check the name."
+            End If
         ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
             txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regval_txt_KdNrAuftrag_M.Enabled = True
+            regval_txt_KdNrAuftrag_M.Validate()
+            If regval_txt_KdNrAuftrag_M.IsValid = True Then
                 Try
                     KDNAFNR = txt_KdNrAuftrag_M.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
+            Else
+                regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
+                regval_txt_KdNrAuftrag_M.ErrorMessage = "The Customer Oder ID is malformed."
+            End If
         ElseIf txt_LKWNr_M.Text IsNot "" Then
             txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            regexval_txt_LKWNr_M.Enabled = True
+            regexval_txt_LKWNr_M.Validate()
+            If regexval_txt_LKWNr_M.IsValid = True Then
                 Try
                     LKWNR = txt_LKWNr_M.Text
                 Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
+                    MsgBox("This data is not valid!", MsgBoxStyle.Critical)
                 End Try
             End If
-
+        Else
+            regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
+            regexval_txt_LKWNr_M.ErrorMessage = "The LKW License plate is malformed!"
+        End If
         If rbt_Alle.Checked = True Then
             pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled