From b31a7d8ac1c91da8ebdce1c9f38213c1a9e8fa3d Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Thu, 9 Sep 2021 12:12:46 +0200
Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx    |  25 +-
 Customers/CustomsAviso.aspx.vb | 425 +++++++++++++--------------------
 2 files changed, 195 insertions(+), 255 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index 24dfb24..bf77f11 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -92,7 +92,28 @@
                                             <asp:Button ID="btn_Auftraege" runat="server" Text="Erhalte Aufträge" OnClick="btn_Auftraege_Click" />
                                               <input class="form-control mb-4" id="tableSearch" type="text"
                                                 placeholder="Einen Begriff eingeben oder den Anfang davon ...">
-                                                <div id="conovertab">               
+                                                <div id="conovertab"> 
+                                                   <!-- <asp:Table runat="server" >
+                                                    <asp:TableHeaderRow ID="TableHeaderRow1" runat="server">                                                        
+                                                            <asp:TableHeaderCell ID="TableHeaderCell1" runat="server">Index-Nr</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell2" runat="server">ART</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell3" runat="server">KundenNr</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell4" runat="server">Status</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell5" runat="server">von</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell6" runat="server">bis</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell7" runat="server">Absender</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell8" runat="server">Empfänger</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell9" runat="server">LKW_Nr</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell10" runat="server">KundenAuftrags_Nr</asp:TableHeaderCell>
+                                                            <asp:TableHeaderCell ID="TableHeaderCell11" runat="server">Info</asp:TableHeaderCell>
+                                                        </asp:TableHeaderRow>
+                                                        </asp:Table>-->
+                                                   <table  runat="server" id="trContent" border="0" cellspacing="0" contenteditable="false" style="width:1250px">
+                                                  <thead style="height:/*20px;*/ 1.56128024980484vh; /*background-color:#043381;*/ background-image: linear-gradient(to right, #003680 , #0055cc); color:#fff; font-weight:900;">
+                                                       <tr><th>Index</th><th>ART</th><th>KundenNr</th><th>Status</th><th>von</th><th>bis</th><th>Absender</th><th>Empfänger</th><th>LKW_Nr</th><th>Kunden-AuftragsNr</th><th>Info</th></tr>
+                                                   </thead>  
+                                                      
+                                                </table>                                                    
                                              <!--  <table class="table" id="normaltable" border="0" cellspacing="0" contenteditable="false" style="width:1250px" >        
                                                     <tr style="height:/*20px;*/ 1.56128024980484vh; /*background-color:#043381;*/ background-image: linear-gradient(to right, #003680 , #0055cc); color:#fff; font-weight:900;">
                                                     <tr><th>Auswahl</th><th>Index-Nr</th><!--<th>ART</th>--><!--<th>KundenNr</th><th>Status</th><th>von</th><th>bis</th><th>Absender</th><th>Empfänger</th><th>LKW_Nr</th><th>Kunden-AuftragsNr</th><th>Info</th></tr>
@@ -105,7 +126,7 @@
                                                     </tbody>                              
                                                 </table>-->
                                                    
-                                            <asp:Literal ID = "ltTable" runat = "server" />
+                                           
 
                                               </div>  
                           <br /><br /><br />
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 4e189f2..8731674 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -18,13 +18,16 @@ Partial Class Kundenbereich_Default
         Session.Abandon()
         Response.Redirect("../newpageJulius_Sidebar.aspx", True)
     End Sub
-    Dim dt0, dt1, dt3, dt4, dt5, dt6
-    Dim dtmain As DataTable = New DataTable
+
+    'Für ASP-NET-Table
+    'Dim row As TableRow
+    'Dim dvRow As Data.DataRowView
+
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         Dim Kdnrtext = txt_KdNr.Text
         Dim datevon As Date
         Dim datebis As Date
-
+        Dim dt
         Try
             datevon = pickdate1.SelectedDate
             datebis = pickdate2.SelectedDate
@@ -33,260 +36,188 @@ Partial Class Kundenbereich_Default
             datebis = DateValue(Date.Now)
         End Try
 
+        Dim tr
 
 
         If rbt_Erf.Checked = True Then
-            dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
-            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
-            Dim i As Integer = 1
-            For Each d In dt0.Rows
-                Dim tr As HtmlTableRow = New HtmlTableRow()
-                tr.Cells.Add(New HtmlTableCell(i))
-                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(d("von")))
-                'tr.Cells.Add(New HtmlTableCell(d("bis")))
-                'tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
-                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
-                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
-                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
-                dtmain.Rows.Add(tr)
-                Dim sb As StringBuilder = New StringBuilder()
-                'Table start.
-                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                sb.Append("<tr>")
-                For Each column As DataColumn In dtmain.Columns
-                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                            + (column.ColumnName + "</th>")))
-                Next
-                sb.Append("</tr>")
-                'Adding DataRow.
-                For Each row As DataRow In dtmain.Rows
-                    sb.Append("<tr>")
-                    For Each column As DataColumn In dtmain.Columns
-                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                                + (row(column.ColumnName).ToString + "</td>")))
-                    Next
-                    sb.Append("</tr>")
-                Next
-                'Table end.
-                sb.Append("</table>")
-                ltTable.Text = sb.ToString
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
+
+            Dim i As Integer = 0
+            'Dim Cell = New TableCell
+
+            For Each d In dt.Rows
+                'Dim tr = New TableRow
+                tr = New HtmlTableRow()
+                Do
+                    'Cell.Controls.Add(New HtmlTableCell(i))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
+                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
+                    trContent.Rows.Add(tr)
+
+                    i = i + 1
+                Loop
+                While i <= dt.Rows.Count
+
+                End While
 
-                i = i + 1
             Next
-        ElseIf rbt_Freig.Checked = True Then
-            dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, pickdate1.SelectedDate, pickdate2.SelectedDate)
-            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
-            Dim i As Integer = 1
-            For Each d In dt1.Rows
-                Dim tr As HtmlTableRow = New HtmlTableRow()
-                tr.Cells.Add(New HtmlTableCell(i))
-                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(d("von")))
-                'tr.Cells.Add(New HtmlTableCell(d("bis")))
-                'tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
-                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
-                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
-                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
-                dtmain.Rows.Add(tr)
-                Dim sb As StringBuilder = New StringBuilder()
-                'Table start.
-                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                sb.Append("<tr>")
-                For Each column As DataColumn In dtmain.Columns
-                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                            + (column.ColumnName + "</th>")))
-                Next
-                sb.Append("</tr>")
-                'Adding DataRow.
-                For Each row As DataRow In dtmain.Rows
-                    sb.Append("<tr>")
-                    For Each column As DataColumn In dtmain.Columns
-                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                                + (row(column.ColumnName).ToString + "</td>")))
-                    Next
-                    sb.Append("</tr>")
-                Next
-                'Table end.
-                sb.Append("</table>")
-                ltTable.Text = sb.ToString
 
-                i = i + 1
+        ElseIf rbt_Freig.Checked = True Then
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
+
+            Dim i As Integer = 0
+            'Dim Cell = New TableCell
+            tr = New HtmlTableRow()
+            For Each d In dt.Rows
+                'Dim tr = New TableRow
+
+                Do
+                    'Cell.Controls.Add(New HtmlTableCell(i))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
+                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
+                    trContent.Rows.Add(tr)
+
+                    i = i + 1
+                Loop
+                While i <= dt.Rows.Count
+
+                End While
+
             Next
         ElseIf rbt_Ankunft.Checked = True Then
-            dt3 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
-            'dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(Button))})
-            Dim i As Integer = 1
-            For Each d In dt3.Rows
-                Dim tr As HtmlTableRow = New HtmlTableRow()
-                tr.Cells.Add(New HtmlTableCell(i))
-                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(d("von")))
-                'tr.Cells.Add(New HtmlTableCell(d("bis")))
-                'tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
-                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
-                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
-                tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
-                dtmain.Rows.Add(tr)
-                Dim sb As StringBuilder = New StringBuilder()
-                'Table start.
-                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                sb.Append("<tr>")
-                For Each column As DataColumn In dtmain.Columns
-                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                            + (column.ColumnName + "</th>")))
-                Next
-                sb.Append("</tr>")
-                'Adding DataRow.
-                For Each row As DataRow In dtmain.Rows
-                    sb.Append("<tr>")
-                    For Each column As DataColumn In dtmain.Columns
-                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                                + (row(column.ColumnName).ToString + "</td>")))
-                    Next
-                    sb.Append("</tr>")
-                Next
-                'Table end.
-                sb.Append("</table>")
-                ltTable.Text = sb.ToString
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
+
+            Dim i As Integer = 0
+            'Dim Cell = New TableCell
+            tr = New HtmlTableRow()
+            For Each d In dt.Rows
+                'Dim tr = New TableRow
+
+                Do
+                    'Cell.Controls.Add(New HtmlTableCell(i))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
+                    trContent.Rows.Add(tr)
+
+                    i = i + 1
+                Loop
+                While i <= dt.Rows.Count
+
+                End While
 
-                i = i + 1
             Next
+
         ElseIf rbt_Vorb.Checked = True Then
-            dt4 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
-            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
-            Dim i As Integer = 1
-            For Each d In dt4.Rows
-                Dim tr As HtmlTableRow = New HtmlTableRow()
-                tr.Cells.Add(New HtmlTableCell(i))
-                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(d("von")))
-                'tr.Cells.Add(New HtmlTableCell(d("bis")))
-                'tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
-                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
-                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
-                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
-                dtmain.Rows.Add(tr)
-                Dim sb As StringBuilder = New StringBuilder()
-                'Table start.
-                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                sb.Append("<tr>")
-                For Each column As DataColumn In dtmain.Columns
-                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                            + (column.ColumnName + "</th>")))
-                Next
-                sb.Append("</tr>")
-                'Adding DataRow.
-                For Each row As DataRow In dtmain.Rows
-                    sb.Append("<tr>")
-                    For Each column As DataColumn In dtmain.Columns
-                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                                + (row(column.ColumnName).ToString + "</td>")))
-                    Next
-                    sb.Append("</tr>")
-                Next
-                'Table end.
-                sb.Append("</table>")
-                ltTable.Text = sb.ToString
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
 
-                i = i + 1
+            Dim i As Integer = 0
+            'Dim Cell = New TableCell
+            tr = New HtmlTableRow()
+            For Each d In dt.Rows
+                'Dim tr = New TableRow
+
+                Do
+                    'Cell.Controls.Add(New HtmlTableCell(i))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
+                    trContent.Rows.Add(tr)
+
+                    i = i + 1
+                Loop
+                While i <= dt.Rows.Count
+
+                End While
             Next
+
         ElseIf rbt_Vorg.Checked = True Then
-            dt5 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
-            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
-            Dim i As Integer = 1
-            For Each d In dt5.Rows
-                Dim tr As HtmlTableRow = New HtmlTableRow()
-                tr.Cells.Add(New HtmlTableCell(i))
-                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(d("von")))
-                'tr.Cells.Add(New HtmlTableCell(d("bis")))
-                'tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
-                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
-                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
-                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
-                dtmain.Rows.Add(tr)
-                Dim sb As StringBuilder = New StringBuilder()
-                'Table start.
-                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                sb.Append("<tr>")
-                For Each column As DataColumn In dtmain.Columns
-                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                            + (column.ColumnName + "</th>")))
-                Next
-                sb.Append("</tr>")
-                'Adding DataRow.
-                For Each row As DataRow In dtmain.Rows
-                    sb.Append("<tr>")
-                    For Each column As DataColumn In dtmain.Columns
-                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                                + (row(column.ColumnName).ToString + "</td>")))
-                    Next
-                    sb.Append("</tr>")
-                Next
-                'Table end.
-                sb.Append("</table>")
-                ltTable.Text = sb.ToString
-                i = i + 1
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
+
+            Dim i As Integer = 0
+            'Dim Cell = New TableCell
+            tr = New HtmlTableRow()
+            For Each d In dt.Rows
+                'Dim tr = New TableRow
+
+                Do
+                    'Cell.Controls.Add(New HtmlTableCell(i))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
+                    trContent.Rows.Add(tr)
+
+                    i = i + 1
+                Loop
+                While i <= dt.Rows.Count
+
+                End While
             Next
+
         ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then
-            dt6 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
-            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
-            Dim i As Integer = 1
-            For Each d In dt6.Rows
-                Dim tr As HtmlTableRow = New HtmlTableRow()
-                tr.Cells.Add(New HtmlTableCell(i))
-                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(d("von")))
-                'tr.Cells.Add(New HtmlTableCell(d("bis")))
-                'tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                'tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
-                tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
-                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
-                tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
-                dtmain.Rows.Add(tr)
-                Dim sb As StringBuilder = New StringBuilder()
-                'Table start.
-                sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-                'Adding HeaderRow.
-                sb.Append("<tr>")
-                For Each column As DataColumn In dtmain.Columns
-                    sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-                            + (column.ColumnName + "</th>")))
-                Next
-                sb.Append("</tr>")
-                'Adding DataRow.
-                For Each row As DataRow In dtmain.Rows
-                    sb.Append("<tr>")
-                    For Each column As DataColumn In dtmain.Columns
-                        sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-                                + (row(column.ColumnName).ToString + "</td>")))
-                    Next
-                    sb.Append("</tr>")
-                Next
-                'Table end.
-                sb.Append("</table>")
-                ltTable.Text = sb.ToString
-                i = i + 1
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
+
+            Dim i As Integer = 0
+            'Dim Cell = New TableCell
+            tr = New HtmlTableRow()
+            For Each d In dt.Rows
+                'Dim tr = New TableRow
+
+                Do
+                    'Cell.Controls.Add(New HtmlTableCell(i))
+                    tr.Cells.Add(New HtmlTableCell(""))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
+                    tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
+                    tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
+                    tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+                    tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
+                    trContent.Rows.Add(tr)
+
+                    i = i + 1
+                Loop
+                While i <= dt.Rows.Count
+
+                End While
+
             Next
         End If
 
+
     End Sub
     Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
         MsgBox("Es funzt!")
@@ -304,19 +235,7 @@ Partial Class Kundenbereich_Default
 
     End Sub
 
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not Me.IsPostBack Then
-            Dim dt As DataTable = New DataTable
-            dt.Columns.AddRange(New DataColumn() {New DataColumn("Id", GetType(System.Int32)), New DataColumn("Name", GetType(System.String)), New DataColumn("Country", GetType(System.String))})
-            dt.Rows.Add(1, "John Hammond", "United States")
-            dt.Rows.Add(2, "Mudassar Khan", "India")
-            dt.Rows.Add(3, "Suzanne Mathews", "France")
-            dt.Rows.Add(4, "Robert Schidner", "Russia")
-
-            Dim sb As StringBuilder = New StringBuilder()
-
-
-        End If
-    End Sub
-
+    'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+    '   TableHeaderRow1.TableSection = TableRowSection.TableHeader
+    'End Sub
 End Class