Änderung Design + Funktion Mobil auch erfolgreich gefixed.
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user