From 475bf9365c99a747ea20d19eb4cf191242aa83a9 Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 26 Nov 2021 16:27:33 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 0dede4b..d27febf 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -400,9 +400,11 @@ Partial Class CustomsAviso regexval_txt_Absender.Validate() If regexval_txt_Absender.IsValid Then Try + wasmobile = False Absender = txt_Absender.Text Catch ex As FormatException - MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) + regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red + regexval_txt_Empfaenger.ErrorMessage = "Diese Daten können nicht validiert werden" End Try Else regexval_txt_Absender.ForeColor = Drawing.Color.Red @@ -429,6 +431,7 @@ Partial Class CustomsAviso regexval_txt_KdNrAuftrag.Validate() If regexval_txt_KdNrAuftrag.IsValid Then Try + wasmobile = False KDNAFNR = txt_KdNrAuftrag.Text Catch ex As FormatException MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) @@ -486,6 +489,7 @@ Partial Class CustomsAviso regval_txt_KdNrAuftrag_M.Validate() If regval_txt_KdNrAuftrag_M.IsValid = True Then Try + wasmobile = True KDNAFNR = txt_KdNrAuftrag_M.Text Catch ex As FormatException MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) @@ -500,6 +504,7 @@ Partial Class CustomsAviso regexval_txt_LKWNr_M.Validate() If regexval_txt_LKWNr_M.IsValid = True Then Try + wasmobile = True LKWNR = txt_LKWNr_M.Text Catch ex As FormatException MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)