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

Änderungen

Browse Source
This commit is contained in:
ja
2021-09-09 12:12:46 +02:00
parent af286def41
commit b31a7d8ac1
2 changed files with 195 additions and 255 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Customers/CustomsAviso.aspx
View File

@@ -93,6 +93,27 @@
<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>-->
<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" > <!-- <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 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> <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> </tbody>
</table>--> </table>-->
<asp:Literal ID = "ltTable" runat = "server" />
</div> </div>
<br /><br /><br /> <br /><br /><br />

399
Customers/CustomsAviso.aspx.vb
View File

@@ -18,13 +18,16 @@ Partial Class Kundenbereich_Default
Session.Abandon() Session.Abandon()
Response.Redirect("../newpageJulius_Sidebar.aspx", True) Response.Redirect("../newpageJulius_Sidebar.aspx", True)
End Sub 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) Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
Dim Kdnrtext = txt_KdNr.Text Dim Kdnrtext = txt_KdNr.Text
Dim datevon As Date Dim datevon As Date
Dim datebis As Date Dim datebis As Date
Dim dt
Try Try
datevon = pickdate1.SelectedDate datevon = pickdate1.SelectedDate
datebis = pickdate2.SelectedDate datebis = pickdate2.SelectedDate
@@ -33,260 +36,188 @@ Partial Class Kundenbereich_Default
datebis = DateValue(Date.Now) datebis = DateValue(Date.Now)
End Try End Try
Dim tr
If rbt_Erf.Checked = True Then If rbt_Erf.Checked = True Then
dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}) dt = 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 Dim i As Integer = 0
For Each d In dt0.Rows 'Dim Cell = New TableCell
Dim tr As HtmlTableRow = New HtmlTableRow()
tr.Cells.Add(New HtmlTableCell(i)) For Each d In dt.Rows
'tr.Cells.Add(New HtmlTableCell(d(Nothing))) 'Dim tr = New TableRow
tr.Cells.Add(New HtmlTableCell(d("Status"))) tr = New HtmlTableRow()
'tr.Cells.Add(New HtmlTableCell(d("von"))) Do
'tr.Cells.Add(New HtmlTableCell(d("bis"))) 'Cell.Controls.Add(New HtmlTableCell(i))
'tr.Cells.Add(New HtmlTableCell(d("Absender"))) tr.Cells.Add(New HtmlTableCell(""))
'tr.Cells.Add(New HtmlTableCell(d("Empfänger"))) 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("LKW_Nr")))
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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>)) 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>))
dtmain.Rows.Add(tr) trContent.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 i = i + 1
Loop
While i <= dt.Rows.Count
End While
Next Next
ElseIf rbt_Freig.Checked = True Then ElseIf rbt_Freig.Checked = True Then
dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, pickdate1.SelectedDate, pickdate2.SelectedDate) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, 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 Dim i As Integer = 0
For Each d In dt1.Rows 'Dim Cell = New TableCell
Dim tr As HtmlTableRow = New HtmlTableRow() tr = New HtmlTableRow()
tr.Cells.Add(New HtmlTableCell(i)) For Each d In dt.Rows
'tr.Cells.Add(New HtmlTableCell(d(Nothing))) 'Dim tr = New TableRow
tr.Cells.Add(New HtmlTableCell(d("Status")))
'tr.Cells.Add(New HtmlTableCell(d("von"))) Do
'tr.Cells.Add(New HtmlTableCell(d("bis"))) 'Cell.Controls.Add(New HtmlTableCell(i))
'tr.Cells.Add(New HtmlTableCell(d("Absender"))) tr.Cells.Add(New HtmlTableCell(""))
'tr.Cells.Add(New HtmlTableCell(d("Empfänger"))) 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("LKW_Nr")))
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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>)) 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>))
dtmain.Rows.Add(tr) trContent.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 i = i + 1
Loop
While i <= dt.Rows.Count
End While
Next Next
ElseIf rbt_Ankunft.Checked = True Then ElseIf rbt_Ankunft.Checked = True Then
dt3 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3}) dt = 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 Dim i As Integer = 0
For Each d In dt3.Rows 'Dim Cell = New TableCell
Dim tr As HtmlTableRow = New HtmlTableRow() tr = New HtmlTableRow()
tr.Cells.Add(New HtmlTableCell(i)) For Each d In dt.Rows
'tr.Cells.Add(New HtmlTableCell(d(Nothing))) 'Dim tr = New TableRow
tr.Cells.Add(New HtmlTableCell(d("Status")))
'tr.Cells.Add(New HtmlTableCell(d("von"))) Do
'tr.Cells.Add(New HtmlTableCell(d("bis"))) 'Cell.Controls.Add(New HtmlTableCell(i))
'tr.Cells.Add(New HtmlTableCell(d("Absender"))) tr.Cells.Add(New HtmlTableCell(""))
'tr.Cells.Add(New HtmlTableCell(d("Empfänger"))) 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("LKW_Nr")))
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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>)) 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>))
dtmain.Rows.Add(tr) trContent.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 i = i + 1
Loop
While i <= dt.Rows.Count
End While
Next Next
ElseIf rbt_Vorb.Checked = True Then ElseIf rbt_Vorb.Checked = True Then
dt4 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4}) dt = 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 Dim i As Integer = 0
For Each d In dt4.Rows 'Dim Cell = New TableCell
Dim tr As HtmlTableRow = New HtmlTableRow() tr = New HtmlTableRow()
tr.Cells.Add(New HtmlTableCell(i)) For Each d In dt.Rows
'tr.Cells.Add(New HtmlTableCell(d(Nothing))) 'Dim tr = New TableRow
tr.Cells.Add(New HtmlTableCell(d("Status")))
'tr.Cells.Add(New HtmlTableCell(d("von"))) Do
'tr.Cells.Add(New HtmlTableCell(d("bis"))) 'Cell.Controls.Add(New HtmlTableCell(i))
'tr.Cells.Add(New HtmlTableCell(d("Absender"))) tr.Cells.Add(New HtmlTableCell(""))
'tr.Cells.Add(New HtmlTableCell(d("Empfänger"))) 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("LKW_Nr")))
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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>)) 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>))
dtmain.Rows.Add(tr) trContent.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 i = i + 1
Loop
While i <= dt.Rows.Count
End While
Next Next
ElseIf rbt_Vorg.Checked = True Then ElseIf rbt_Vorg.Checked = True Then
dt5 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5}) dt = 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 Dim i As Integer = 0
For Each d In dt5.Rows 'Dim Cell = New TableCell
Dim tr As HtmlTableRow = New HtmlTableRow() tr = New HtmlTableRow()
tr.Cells.Add(New HtmlTableCell(i)) For Each d In dt.Rows
'tr.Cells.Add(New HtmlTableCell(d(Nothing))) 'Dim tr = New TableRow
tr.Cells.Add(New HtmlTableCell(d("Status")))
'tr.Cells.Add(New HtmlTableCell(d("von"))) Do
'tr.Cells.Add(New HtmlTableCell(d("bis"))) 'Cell.Controls.Add(New HtmlTableCell(i))
'tr.Cells.Add(New HtmlTableCell(d("Absender"))) tr.Cells.Add(New HtmlTableCell(""))
'tr.Cells.Add(New HtmlTableCell(d("Empfänger"))) 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("LKW_Nr")))
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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>)) 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>))
dtmain.Rows.Add(tr) trContent.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 i = i + 1
Loop
While i <= dt.Rows.Count
End While
Next 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 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) dt = 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 Dim i As Integer = 0
For Each d In dt6.Rows 'Dim Cell = New TableCell
Dim tr As HtmlTableRow = New HtmlTableRow() tr = New HtmlTableRow()
tr.Cells.Add(New HtmlTableCell(i)) For Each d In dt.Rows
'tr.Cells.Add(New HtmlTableCell(d(Nothing))) 'Dim tr = New TableRow
tr.Cells.Add(New HtmlTableCell(d("Status")))
'tr.Cells.Add(New HtmlTableCell(d("von"))) Do
'tr.Cells.Add(New HtmlTableCell(d("bis"))) 'Cell.Controls.Add(New HtmlTableCell(i))
'tr.Cells.Add(New HtmlTableCell(d("Absender"))) tr.Cells.Add(New HtmlTableCell(""))
'tr.Cells.Add(New HtmlTableCell(d("Empfänger"))) 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("LKW_Nr")))
'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr"))) tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
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>)) 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>))
dtmain.Rows.Add(tr) trContent.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 i = i + 1
Loop
While i <= dt.Rows.Count
End While
Next Next
End If End If
End Sub End Sub
Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs) Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
MsgBox("Es funzt!") MsgBox("Es funzt!")
@@ -304,19 +235,7 @@ Partial Class Kundenbereich_Default
End Sub End Sub
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load 'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then ' TableHeaderRow1.TableSection = TableRowSection.TableHeader
Dim dt As DataTable = New DataTable 'End Sub
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
End Class End Class