diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index eceffa6..2ee814d 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -94,29 +94,17 @@
-
+
-
-
-
+
+
+ | Index | ART | KundenNr | Status | von | bis | Absender | Empfänger | LKW_Nr | Kunden-AuftragsNr |
+
+
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 337a5af..bd13cd8 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -19,9 +19,7 @@ Partial Class Kundenbereich_Default
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
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)
Dim Kdnrtext = txt_KdNr.Text
@@ -39,6 +37,8 @@ Partial Class Kundenbereich_Default
Dim tr
Dim th
th = New HtmlTableRow()
+
+
th.Cells.Add(New HtmlTableCell("Index"))
th.Cells.Add(New HtmlTableCell("Art"))
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("Auftraggeber_KdNr"))
normaltable.Rows.Add(th)
+
If rbt_Erf.Checked = True Then
rbt_Freig.Checked = False
rbt_Freig.Enabled = False
@@ -62,13 +63,37 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
Dim i As Integer = 0
- 'Dim Cell = New TableCell
+
+
+ 'Dim sb As StringBuilder = New StringBuilder()
+
+ 'Table start.
+ 'sb.Append("")
+ 'Adding HeaderRow.
+ 'sb.Append("")
+ 'For Each column As DataColumn In dt.Columns
+ ' sb.Append(("| " _
+ ' + (column.ColumnName + " | ")))
+ 'Next
+ 'sb.Append("
")
+ 'Adding DataRow.
+ 'For Each row As DataRow In dt.Rows
+ 'sb.Append("")
+ 'For Each column As DataColumn In dt.Columns
+ ' sb.Append(("| " _
+ ' + (row(column.ColumnName).ToString + " | ")))
+ ' Next
+ ' sb.Append("
")
+ 'Next
+ 'Table end.
+ 'sb.Append("
")
+ ' ltTable.Text = sb.ToString
For Each d In dt.Rows
If i <= dt.Rows.Count Then
- 'Dim tr = New TableRow
+
tr = New HtmlTableRow()
- 'Cell.Controls.Add(New HtmlTableCell(i))
+
tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(""))
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)
Dim i As Integer = 0
- 'Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
@@ -158,13 +182,11 @@ Partial Class Kundenbereich_Default
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
Dim i As Integer = 0
- 'Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
- 'Dim tr = New TableRow
+
tr = New HtmlTableRow()
- 'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(""))
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})
Dim i As Integer = 0
- 'Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
- 'Dim tr = New TableRow
tr = New HtmlTableRow()
- 'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(""))
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})
Dim i As Integer = 0
- 'Dim Cell = New TableCell
-
For Each d In dt.Rows
If i <= dt.Rows.Count Then
-
tr = New HtmlTableRow()
- 'Dim tr = New TableRow
-
- 'Cell.Controls.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(i))
tr.Cells.Add(New HtmlTableCell(""))
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
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
+ Dim i As Integer = 0
- Dim i As Integer = 0
- 'Dim Cell = New TableCell
-
- For Each d In dt.Rows
- 'Dim tr = New TableRow
- If i <= dt.Rows.Count Then
- tr = New HtmlTableRow()
- 'Cell.Controls.Add(New HtmlTableCell(i))
- tr.Cells.Add(New HtmlTableCell("nA"))
- tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
+ For Each d In dt.Rows
+ If i <= dt.Rows.Count Then
+ tr = New HtmlTableRow()
+ tr.Cells.Add(New HtmlTableCell(i))
+ tr.Cells.Add(New HtmlTableCell(""))
+ tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
Select Case d("Status")
Case 1
tr.Cells.Add(New HtmlTableCell("Erfasst"))
@@ -323,17 +333,17 @@ Partial Class Kundenbereich_Default
tr.Cells.Add(New HtmlTableCell("Undefiend"))
End Select
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")))
- normaltable.Rows.Add(tr)
+ 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")))
+ normaltable.Rows.Add(tr)
- i = i + 1
- End If
- Next
- End If
+ i = i + 1
+ End If
+ Next
+ End If
End Sub