From a2dfda57465de404c0b6b749de7f24d879f969a7 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 20 Sep 2021 09:11:50 +0200
Subject: [PATCH] =?UTF-8?q?Init=20mit=20gew=C3=A4hlter=20Alle-Kategorie?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx    | 3 +--
 Customers/CustomsAviso.aspx.vb | 7 ++++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index b75fd72..b62d44b 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -218,8 +218,7 @@
                                                                                      </div>
                                                                                 </div>--%>
 
-     <script src="//code.jquery.com/jquery-1.11.1.min.js"></script>
-    
+     <script src="//code.jquery.com/jquery-1.11.1.min.js"></script>    
     <script>
         $('#accordion').on('shown.bs.collapse', function (e) {
             $(e.target).data('bs.collapse').$trigger.attr('src', 'https://s22.postimg.org/hkrauaofx/Mathematic_Minus2.png');
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 67875ea..a06dc63 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -12,6 +12,9 @@ Partial Class Kundenbereich_Default
         If (Page.IsPostBack And normaltable.EnableViewState = False) Then
             normaltable.EnableViewState = True
         End If
+        rbt_Alle.Selected = True
+        rbt_Alle_M.Selected = True
+
     End Sub
 
     Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
@@ -145,7 +148,6 @@ Partial Class Kundenbereich_Default
         th8.Font.Bold = True
         th8.BackColor = darkblue
         th8.ForeColor = white
-
     End Sub
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         'MsgBox(Session.Item("test").ToString)
@@ -191,7 +193,6 @@ Partial Class Kundenbereich_Default
         ElseIf rbt_Erf.Selected = True Or rbt_Erf_M.Selected Then
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0},,, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True Then
-
             If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
                 Try
                     pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
@@ -219,6 +220,7 @@ Partial Class Kundenbereich_Default
             Dim i As Integer = 0
 
             For Each d In dt.Rows
+                Dim tr = New TableRow
                 Dim Cell = New TableCell
                 Dim tbl_CellIndex = New TableCell
                 Dim tbl_CellStatus = New TableCell
@@ -228,7 +230,6 @@ Partial Class Kundenbereich_Default
                 Dim tbl_CellLKWs = New TableCell
                 Dim tbl_CellKundAuftNr = New TableCell
                 Dim tbl_CellInfo = New TableCell
-                Dim tr = New TableRow
 
                 Dim zahl = i + 1
                 tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled