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 @@
- + - - - +
+ + + +
IndexARTKundenNrStatusvonbisAbsenderEmpfängerLKW_NrKunden-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((""))) + '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((""))) + ' Next + ' sb.Append("") + 'Next + 'Table end. + 'sb.Append("
" _ + ' + (column.ColumnName + "
" _ + ' + (row(column.ColumnName).ToString + "
") + ' 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