Änderungen alle Validierungen der Seite implementiert.

2021-11-08 14:16:43 +01:00
parent c3f221efae
commit c151c371c7
1 changed files with 96 additions and 41 deletions
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -309,62 +309,117 @@ Partial Class CustomsAviso

        If txt_Absender.Text IsNot "" Then
            txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
-            Try
-                Absender = txt_Absender.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                Empfaenger = txt_Empfaenger.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                KDNAFNR = txt_KdNrAuftrag.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                LKWNR = txt_LKWNr.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                Absender = txt_Absender_M.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                Empfaenger = txt_Empfaenger_M.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                KDNAFNR = txt_KdNrAuftrag_M.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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
-            Try
-                LKWNR = txt_LKWNr_M.Text
-            Catch ex As FormatException
-                MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
-            End Try
+            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("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