edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Alter ineffizienter Asp net table code wurde entfernt

Browse Source
This commit is contained in:
ja
2021-09-10 08:28:25 +02:00
parent af38adc973
commit ce79652ab2
2 changed files with 55 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Customers/CustomsAviso.aspx
View File

@@ -94,28 +94,16 @@
<!-- <input class="form-control mb-4" id="tableSearch" type="text" <!-- <input class="form-control mb-4" id="tableSearch" type="text"
placeholder="Einen Begriff eingeben oder den Anfang davon ...">--> 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>-->
<!--<thead style="height:/*20px;*/ 1.56128024980484vh; /*background-color:#043381;*/ background-image: linear-gradient(to right, #003680 , #0055cc); color:#fff; font-weight:900;"> <!--<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></tr> <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></tr>
</thead> --> </thead> -->
<table id="normaltable" runat="server" border="0" cellspacing="0" contenteditable="false" style="width:1300px" > <table id="normaltable" runat="server" border="0" cellspacing="0" style="width:1300px" >
<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></tr>
</thead>
</table> </table>

88
Customers/CustomsAviso.aspx.vb
View File

@@ -19,9 +19,7 @@ Partial Class Kundenbereich_Default
Response.Redirect("../newpageJulius_Sidebar.aspx", True) Response.Redirect("../newpageJulius_Sidebar.aspx", True)
End Sub End Sub
'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) Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
Dim Kdnrtext = txt_KdNr.Text Dim Kdnrtext = txt_KdNr.Text
@@ -39,6 +37,8 @@ Partial Class Kundenbereich_Default
Dim tr Dim tr
Dim th Dim th
th = New HtmlTableRow() th = New HtmlTableRow()
th.Cells.Add(New HtmlTableCell("Index")) th.Cells.Add(New HtmlTableCell("Index"))
th.Cells.Add(New HtmlTableCell("Art")) th.Cells.Add(New HtmlTableCell("Art"))
th.Cells.Add(New HtmlTableCell("Status")) th.Cells.Add(New HtmlTableCell("Status"))
@@ -49,6 +49,7 @@ Partial Class Kundenbereich_Default
th.Cells.Add(New HtmlTableCell("LKW_Nr")) th.Cells.Add(New HtmlTableCell("LKW_Nr"))
th.Cells.Add(New HtmlTableCell("Auftraggeber_KdNr")) th.Cells.Add(New HtmlTableCell("Auftraggeber_KdNr"))
normaltable.Rows.Add(th) normaltable.Rows.Add(th)
If rbt_Erf.Checked = True Then If rbt_Erf.Checked = True Then
rbt_Freig.Checked = False rbt_Freig.Checked = False
rbt_Freig.Enabled = False rbt_Freig.Enabled = False
@@ -62,13 +63,37 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
Dim i As Integer = 0 Dim i As Integer = 0
'Dim Cell = New TableCell
'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 dt.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 dt.Rows
'sb.Append("<tr>")
'For Each column As DataColumn In dt.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
For Each d In dt.Rows For Each d In dt.Rows
If i <= dt.Rows.Count Then If i <= dt.Rows.Count Then
'Dim tr = New TableRow
tr = New HtmlTableRow() tr = New HtmlTableRow()
'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i)) tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell("")) tr.Cells.Add(New HtmlTableCell(""))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
@@ -110,7 +135,6 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
Dim i As Integer = 0 Dim i As Integer = 0
'Dim Cell = New TableCell
For Each d In dt.Rows For Each d In dt.Rows
If i <= dt.Rows.Count Then If i <= dt.Rows.Count Then
@@ -158,13 +182,11 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3}) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
Dim i As Integer = 0 Dim i As Integer = 0
'Dim Cell = New TableCell
For Each d In dt.Rows For Each d In dt.Rows
If i <= dt.Rows.Count Then If i <= dt.Rows.Count Then
'Dim tr = New TableRow
tr = New HtmlTableRow() tr = New HtmlTableRow()
'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i)) tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell("")) tr.Cells.Add(New HtmlTableCell(""))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
@@ -207,13 +229,10 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4}) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
Dim i As Integer = 0 Dim i As Integer = 0
'Dim Cell = New TableCell
For Each d In dt.Rows For Each d In dt.Rows
If i <= dt.Rows.Count Then If i <= dt.Rows.Count Then
'Dim tr = New TableRow
tr = New HtmlTableRow() tr = New HtmlTableRow()
'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i)) tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell("")) tr.Cells.Add(New HtmlTableCell(""))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
@@ -255,16 +274,10 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5}) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
Dim i As Integer = 0 Dim i As Integer = 0
'Dim Cell = New TableCell
For Each d In dt.Rows For Each d In dt.Rows
If i <= dt.Rows.Count Then If i <= dt.Rows.Count Then
tr = New HtmlTableRow() tr = New HtmlTableRow()
'Dim tr = New TableRow
'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i)) tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell("")) tr.Cells.Add(New HtmlTableCell(""))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
@@ -297,17 +310,14 @@ Partial Class Kundenbereich_Default
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 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
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
Dim i As Integer = 0
Dim i As Integer = 0 For Each d In dt.Rows
'Dim Cell = New TableCell If i <= dt.Rows.Count Then
tr = New HtmlTableRow()
For Each d In dt.Rows tr.Cells.Add(New HtmlTableCell(i))
'Dim tr = New TableRow tr.Cells.Add(New HtmlTableCell(""))
If i <= dt.Rows.Count Then tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
tr = New HtmlTableRow()
'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell("nA"))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
Select Case d("Status") Select Case d("Status")
Case 1 Case 1
tr.Cells.Add(New HtmlTableCell("Erfasst")) tr.Cells.Add(New HtmlTableCell("Erfasst"))
@@ -323,17 +333,17 @@ Partial Class Kundenbereich_Default
tr.Cells.Add(New HtmlTableCell("Undefiend")) tr.Cells.Add(New HtmlTableCell("Undefiend"))
End Select End Select
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang"))) tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
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("Auftraggeber"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr"))) tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
i = i + 1 i = i + 1
End If End If
Next Next
End If End If
End Sub End Sub