Änderung Design + Funktion Mobil auch erfolgreich gefixed.

This commit is contained in:
ja
2021-11-11 09:45:35 +01:00
parent d10a4b8208
commit 3d32fd49b2
4 changed files with 17 additions and 18 deletions

View File

@@ -14,6 +14,7 @@ Partial Class CustomsAviso
Dim dt As DataTable
Dim Art As String = ""
Dim ckd As Integer = -1
Dim wasmobile As Boolean = True
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
@@ -392,7 +393,6 @@ Partial Class CustomsAviso
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
dt = Nothing
Session.Add("mytable", Nothing)
If Session.Item("mytable") = Nothing Then
If txt_Absender.Text IsNot "" Then
@@ -415,6 +415,7 @@ Partial Class CustomsAviso
regexval_txt_Empfaenger.Validate()
If regexval_txt_Empfaenger.IsValid Then
Try
wasmobile = False
Empfaenger = txt_Empfaenger.Text
Catch ex As FormatException
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
@@ -457,6 +458,7 @@ Partial Class CustomsAviso
regval_txt_Absender_M.Validate()
If regval_txt_Absender_M.IsValid Then
Try
wasmobile = True
Absender = txt_Absender_M.Text
Catch ex As FormatException
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)