edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen

Browse Source
This commit is contained in:
ja
2021-11-26 16:27:33 +01:00
parent 0f0dd421db
commit 475bf9365c
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Customers/CustomsAviso.aspx.vb
View File

@@ -400,9 +400,11 @@ Partial Class CustomsAviso
regexval_txt_Absender.Validate() regexval_txt_Absender.Validate()
If regexval_txt_Absender.IsValid Then If regexval_txt_Absender.IsValid Then
Try Try
wasmobile = False
Absender = txt_Absender.Text Absender = txt_Absender.Text
Catch ex As FormatException 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 End Try
Else Else
regexval_txt_Absender.ForeColor = Drawing.Color.Red regexval_txt_Absender.ForeColor = Drawing.Color.Red
@@ -429,6 +431,7 @@ Partial Class CustomsAviso
regexval_txt_KdNrAuftrag.Validate() regexval_txt_KdNrAuftrag.Validate()
If regexval_txt_KdNrAuftrag.IsValid Then If regexval_txt_KdNrAuftrag.IsValid Then
Try Try
wasmobile = False
KDNAFNR = txt_KdNrAuftrag.Text KDNAFNR = txt_KdNrAuftrag.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
@@ -486,6 +489,7 @@ Partial Class CustomsAviso
regval_txt_KdNrAuftrag_M.Validate() regval_txt_KdNrAuftrag_M.Validate()
If regval_txt_KdNrAuftrag_M.IsValid = True Then If regval_txt_KdNrAuftrag_M.IsValid = True Then
Try Try
wasmobile = True
KDNAFNR = txt_KdNrAuftrag_M.Text KDNAFNR = txt_KdNrAuftrag_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
@@ -500,6 +504,7 @@ Partial Class CustomsAviso
regexval_txt_LKWNr_M.Validate() regexval_txt_LKWNr_M.Validate()
If regexval_txt_LKWNr_M.IsValid = True Then If regexval_txt_LKWNr_M.IsValid = True Then
Try Try
wasmobile = True
LKWNR = txt_LKWNr_M.Text LKWNR = txt_LKWNr_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical) MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)