Änderungen

Customers/CustomsAviso.aspx.vb

@@ -636,6 +636,7 @@ Partial Class CustomsAviso
 
     Protected Sub btn_Auftraege_Click(ByVal sender As Object, e As EventArgs) Handles btn_Auftraege.Click
         dt = Nothing
+        MsgBox("TEst")
         Session.Add("mytable", Nothing)
         If Session.Item("mytable") = Nothing Then
             If txt_Absender.Text IsNot "" Then
@@ -654,7 +655,11 @@ Partial Class CustomsAviso
                     regexval_txt_Absender.ForeColor = Drawing.Color.Red
                     regexval_txt_Absender.ErrorMessage = "Der Absender ist nicht richtig formatiert."
                 End If
-            ElseIf txt_Empfaenger.Text IsNot "" Then
+            Else
+                txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regexval_txt_Absender.Enabled = False
+            End If
+            If txt_Empfaenger.Text IsNot "" Then
                 txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regexval_txt_Empfaenger.Enabled = True
                 regexval_txt_Empfaenger.Validate()
@@ -669,7 +674,11 @@ Partial Class CustomsAviso
                     regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
                     regexval_txt_Empfaenger.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
                 End If
-            ElseIf txt_KdNrAuftrag.Text IsNot "" Then
+            Else
+                txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regexval_txt_Empfaenger.Enabled = False
+            End If
+            If txt_KdNrAuftrag.Text IsNot "" Then
                 txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regexval_txt_KdNrAuftrag.Enabled = True
                 regexval_txt_KdNrAuftrag.Validate()
@@ -684,7 +693,11 @@ Partial Class CustomsAviso
                     regexval_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
                     regexval_txt_KdNrAuftrag.ErrorMessage = "Die Kundenummer ist nicht richtig formatiert."
                 End If
-            ElseIf txt_LKWNr.Text IsNot "" Then
+            Else
+                txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regexval_txt_KdNrAuftrag.Enabled = False
+            End If
+            If txt_LKWNr.Text IsNot "" Then
                 txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regexval_txt_LKW.Enabled = True
                 regexval_txt_LKW.Validate()
@@ -698,7 +711,11 @@ Partial Class CustomsAviso
                     regexval_txt_LKW.ForeColor = Drawing.Color.Red
                     regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                 End If
-            ElseIf txt_Absender_M.Text IsNot "" Then
+            Else
+                txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regexval_txt_LKW.Enabled = False
+            End If
+            If txt_Absender_M.Text IsNot "" Then
                 txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regval_txt_Absender_M.Enabled = True
                 regval_txt_Absender_M.Validate()
@@ -713,12 +730,17 @@ Partial Class CustomsAviso
                     regval_txt_Absender_M.ForeColor = Drawing.Color.Red
                     regval_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig formatiert."
                 End If
-            ElseIf txt_Empfaenger_M.Text IsNot "" Then
+            Else
+                txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regval_txt_Absender_M.Enabled = False
+            End If
+            If txt_Empfaenger_M.Text IsNot "" Then
                 txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regval_txt_Empfaenger_M.Enabled = True
                 regval_txt_Empfaenger_M.Validate()
                 If regval_txt_Empfaenger_M.IsValid = True Then
                     Try
+                        wasmobile = True
                         Empfaenger = txt_Empfaenger_M.Text
                     Catch ex As FormatException
                         MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
@@ -727,7 +749,11 @@ Partial Class CustomsAviso
                     regval_txt_Empfaenger_M.ForeColor = Drawing.Color.Red
                     regval_txt_Empfaenger_M.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
                 End If
-            ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
+            Else
+                txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regval_txt_Empfaenger_M.Enabled = False
+            End If
+            If txt_KdNrAuftrag_M.Text IsNot "" Then
                 txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regval_txt_KdNrAuftrag_M.Enabled = True
                 regval_txt_KdNrAuftrag_M.Validate()
@@ -742,7 +768,11 @@ Partial Class CustomsAviso
                     regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
                     regval_txt_KdNrAuftrag_M.ErrorMessage = "Die Kundennummer ist nicht richtig formatiert."
                 End If
-            ElseIf txt_LKWNr_M.Text IsNot "" Then
+            Else
+                txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regval_txt_KdNrAuftrag_M.Enabled = False
+            End If
+            If txt_LKWNr_M.Text IsNot "" Then
                 txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regexval_txt_LKWNr_M.Enabled = True
                 regexval_txt_LKWNr_M.Validate()
@@ -757,6 +787,9 @@ Partial Class CustomsAviso
                     regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
                     regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
                 End If
+            Else
+                txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
+                regexval_txt_LKWNr_M.Enabled = False
             End If
             If rbt_Alle.Checked = True Then
                 pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled