From c73f363e61a1610d388f840867a695ab95e45668 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 17 Nov 2021 14:37:13 +0100
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20CodeDesign?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx.vb | 45 +++++++++++++++++-----------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 6f9641d..cc257b8 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -22,28 +22,28 @@ Partial Class CustomsAviso
         If Me.Page.User.Identity.IsAuthenticated Then
 
             Try
-                    Kdnrtext = Session.Item("CustomerID")
-                Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
-                    MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
-                    Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx"))
-                End Try
+                Kdnrtext = Session.Item("CustomerID")
+            Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
+                MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
+                Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx"))
+            End Try
 
-                DataBind()
+            DataBind()
 
-                '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
-                Dim cstype As Type = Page.GetType
-                If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
-                    Dim string1 As String = "<script language=\""JavaScript\"">"
-                    string1 += "</"
-                    string1 += "window.addEventListener('onunload', (event) => {"
-                    string1 += " event.preventDefault();"
-                    string1 += "event.returnValue = '';"
-                    string1 += "script>"
-                    csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
-                End If
+            '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
+            Dim cstype As Type = Page.GetType
+            If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
+                Dim string1 As String = "<script language=\""JavaScript\"">"
+                string1 += "</"
+                string1 += "window.addEventListener('onunload', (event) => {"
+                string1 += " event.preventDefault();"
+                string1 += "event.returnValue = '';"
+                string1 += "script>"
+                csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
+            End If
 
-                tbl_Header_row.TableSection = TableRowSection.TableHeader
+            tbl_Header_row.TableSection = TableRowSection.TableHeader
             ' MsgBox(datebis)
 
             If (Page.IsPostBack) Then
@@ -278,10 +278,9 @@ Partial Class CustomsAviso
             pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
             pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
         Else
-                VERAG_VARIABLES.seterrorcount(20)
-                Console.WriteLine(VERAG_VARIABLES.geterrornumb() + "The User is not authenticated to this page. Please login again!", vbAbort, "Error User")
-            End If
-
+            VERAG_VARIABLES.seterrorcount(20)
+            Console.WriteLine(VERAG_VARIABLES.geterrornumb() + "The User is not authenticated to this page. Please login again!", vbAbort, "Error User")
+        End If
     End Sub
 
     Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)