From c151c371c7ff86be1fb5bbc829de8bdccb475c85 Mon Sep 17 00:00:00 2001 From: ja Date: Mon, 8 Nov 2021 14:16:43 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20alle=20Validierungen=20der=20?= =?UTF-8?q?Seite=20implementiert.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 137 +++++++++++++++++++++++---------- 1 file changed, 96 insertions(+), 41 deletions(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index eecb9b7..acab85b 100644 --- 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