Änderunegn an Tabllengeneration und ButtonsLogik sowie der Logik beim Laden-event der Seite Invoices.aspx, da kurzes erscheinen der Tabelle jetzt möglich ist.

Customers/Invoices.aspx.vb

@@ -21,18 +21,20 @@ Partial Class Customers_Default3
     Dim provider As CultureInfo = CultureInfo.InvariantCulture
 
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
+        Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
         VERAG_VARIABLES.initerrorcount()
 
         If Not Me.Page.User.Identity.IsAuthenticated Then
             FormsAuthentication.RedirectToLoginPage()
         Else
-            If String.IsNullOrEmpty(Request.QueryString("P1")) = False Then
-                Kdnrtext = Request.QueryString("P1")
-            ElseIf String.IsNullOrEmpty(Session.Item("CustomerID")) = False Then
-                Kdnrtext = Session.Item("CustomerID").ToString
-            Else
-                lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
-            End If
+            Try
+                Kdnrtext = Session.Item("CustomerID")
+            Catch
+                Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("Invoices.aspx"))
+            End Try
+
+            DataBind()
+
             Dim confirmValue As String = hidField.Value
             'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
             Dim csm1 As ClientScriptManager = Page.ClientScript
@@ -48,13 +50,12 @@ Partial Class Customers_Default3
                 csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
             End If
 
-            DataBind()
             tbl_Header_row.TableSection = TableRowSection.TableHeader
 
             If (Page.IsPostBack) Then
                 Page.MaintainScrollPositionOnPostBack = True
 
-                If valreq_pickdate1.IsValid Or valreq_pickdate2.IsValid Then
+                If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
                     datevon = Date.Parse(pickdate1.Text)
                     datebis = Date.Parse(pickdate2.Text)
                 End If
@@ -82,10 +83,14 @@ Partial Class Customers_Default3
     End Sub
 
     Private Sub addrows()
-        dt = Session.Item("datatbl")
+        If Not IsNothing(Session.Item("datatbl")) Then
+            dt = Session.Item("datatbl")
+        Else
+
+        End If
         Session.Item("mytable") = Nothing
         normaltable.Rows.Clear()
-        If Session.Item("mytable") = Nothing Then
+        If Not dt Is Nothing Then
             Dim header As TableHeaderRow = New TableHeaderRow()
             header.Cells.Add(tbl_HeaderCellIndex)
             header.Cells.Add(tbl_HeaderCell_ReNr)
@@ -297,7 +302,7 @@ Partial Class Customers_Default3
         dt = Nothing
         Session.Add("mytable", Nothing)
         If Session.Item("mytable") = Nothing Then
-            If Not String.IsNullOrEmpty(txt_Absender.Text) Then
+            If txt_Absender.Text IsNot "" Then
                 txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_Absender.Enabled = True
                 regex_txt_Absender.Validate()
@@ -315,7 +320,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_Empfaenger.Text) = False Then
+            If txt_Empfaenger.Text IsNot "" Then
                 txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_Empfaenger.Enabled = True
                 regex_txt_Empfaenger.Validate()
@@ -333,7 +338,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Then
+            If txt_KdNrAuftrag.Text IsNot "" Then
                 txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_KdNrAuftrag.Enabled = True
                 regex_txt_KdNrAuftrag.Validate()
@@ -351,7 +356,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_LKW.Text) = False Then
+            If txt_LKW.Text IsNot "" Then
                 txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_LKW.Enabled = True
                 regex_txt_LKW.Validate()
@@ -369,7 +374,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_ReNr.Text) = False Then
+            If txt_ReNr.Text IsNot "" Then
                 txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_ReNr.Enabled = True
                 regex_txt_ReNr.Validate()
@@ -388,7 +393,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error invoice number validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_Absender_M.Text) = False Then
+            If txt_Absender_M.Text IsNot "" Then
                 txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_Absender_M.Enabled = True
                 regex_txt_Absender_M.Validate()
@@ -406,7 +411,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Then
+            If txt_Empfaenger_M.Text IsNot "" Then
                 txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_Empaenger_M.Enabled = True
                 regex_txt_Empaenger_M.Validate()
@@ -424,7 +429,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Then
+            If txt_KdNrAuftrag_M.Text IsNot "" Then
                 txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_KdNrAuftrag_M.Enabled = True
                 regex_txt_KdNrAuftrag_M.Validate()
@@ -442,7 +447,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_LKW_M.Text) = False Then
+            If txt_LKW_M.Text IsNot "" Then
                 txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_LKW_M.Enabled = True
                 regex_txt_LKW_M.Validate()
@@ -460,7 +465,7 @@ Partial Class Customers_Default3
                     lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation"
                 End Try
             End If
-            If String.IsNullOrEmpty(txt_ReNr_M.Text) = False Then
+            If txt_ReNr_M.Text IsNot "" Then
                 txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 regex_txt_ReNr_M.Enabled = True
                 regex_txt_ReNr_M.Validate()
@@ -485,8 +490,8 @@ Partial Class Customers_Default3
                     Dim erster = New Date(Now().Year, Now.Month, 1)
                     datevon = erster
                     datebis = Date.Parse(Now.ToShortDateString)
-                    pickdate1.Text = datevon.ToShortDateString
-                    pickdate2.Text = datebis.ToShortDateString
+                    pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
+                    pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
                 Catch ex As Exception
                     VERAG_VARIABLES.seterrorcount(14)
                     lbl_status.ForeColor = Drawing.Color.Red