Tabelle wird mit 1 Zeile befüllt
This commit is contained in:
ja
@@ -94,18 +94,32 @@
|
|||||||
<!-- <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 id="normaltable" runat="server" >
|
||||||
|
<asp:TableHeaderRow ID="tbl_Header_row" runat="server">
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server">Index-Nr</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_ART" runat="server">ART</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_KundenNr" runat="server">KundenNr</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_Status" runat="server">Status</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_von" runat="server">von</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_bis" runat="server">bis</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_Absender" runat="server">Absender</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_Empfaenger" runat="server">Empfänger</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_LKWs" runat="server">LKW_Nr</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_KundAuftNr" runat="server">KundenAuftrags_Nr</asp:TableHeaderCell>
|
||||||
|
<asp:TableHeaderCell ID="tbl_HeaderCell_Info" 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" style="width:1300px" >
|
<!-- <table 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;">
|
<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>
|
</table>-->
|
||||||
|
|
||||||
</div>
|
</div>
|
||||||
|
|
||||||
|
|||||||
@@ -25,40 +25,34 @@ Partial Class Kundenbereich_Default
|
|||||||
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 tbl_CellIndex = New TableCell
|
||||||
|
Dim tbl_CellArt = New TableCell
|
||||||
|
Dim tbl_CellKundenNr = New TableCell
|
||||||
|
Dim tbl_CellStatus = New TableCell
|
||||||
|
Dim tbl_Cellvon = New TableCell
|
||||||
|
Dim tbl_Cellbis = New TableCell
|
||||||
|
Dim tbl_CellAbsender = New TableCell
|
||||||
|
Dim tbl_CellEmpfaenger = New TableCell
|
||||||
|
Dim tbl_CellLKWs = New TableCell
|
||||||
|
Dim tbl_CellKundAuftNr = New TableCell
|
||||||
|
Dim novalexception As Exception
|
||||||
|
|
||||||
Dim dt
|
Dim dt
|
||||||
Try
|
Try
|
||||||
datevon = pickdate1.SelectedDate
|
datevon = pickdate1.SelectedDate
|
||||||
datebis = pickdate2.SelectedDate
|
datebis = pickdate2.SelectedDate
|
||||||
Catch
|
Catch ex As Exception When datevon < Date.Parse("01.01.2001") Or datebis > Date.Now
|
||||||
datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
|
datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
|
||||||
datebis = DateValue(Date.Now)
|
datebis = DateValue(Date.Now)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
Dim tr
|
'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"))
|
|
||||||
th.Cells.Add(New HtmlTableCell("Von"))
|
|
||||||
th.Cells.Add(New HtmlTableCell("Bis"))
|
|
||||||
th.Cells.Add(New HtmlTableCell("Absender"))
|
|
||||||
th.Cells.Add(New HtmlTableCell("Empfaenger"))
|
|
||||||
th.Cells.Add(New HtmlTableCell("LKW_Nr"))
|
|
||||||
th.Cells.Add(New HtmlTableCell("Auftraggeber_KdNr"))
|
|
||||||
normaltable.Rows.Add(th)
|
|
||||||
|
|
||||||
If rbt_Erf.Checked = True Then
|
If rbt_Erf.Checked = True Then
|
||||||
rbt_Freig.Checked = False
|
|
||||||
rbt_Freig.Enabled = False
|
|
||||||
rbt_Ankunft.Checked = False
|
|
||||||
rbt_Ankunft.Enabled = False
|
|
||||||
rbt_Vorb.Checked = False
|
|
||||||
rbt_Vorb.Enabled = False
|
|
||||||
rbt_Vorg.Checked = False
|
|
||||||
rbt_Vorg.Enabled = False
|
|
||||||
|
|
||||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
||||||
|
|
||||||
@@ -89,220 +83,292 @@ Partial Class Kundenbereich_Default
|
|||||||
'sb.Append("</table>")
|
'sb.Append("</table>")
|
||||||
' ltTable.Text = sb.ToString
|
' ltTable.Text = sb.ToString
|
||||||
|
|
||||||
|
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
|
||||||
|
|
||||||
|
tbl_CellIndex.Text = i
|
||||||
|
tr.Controls.Add(tbl_CellIndex)
|
||||||
|
tbl_CellArt.Text = ""
|
||||||
|
tr.Controls.Add(tbl_CellArt)
|
||||||
|
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundenNr)
|
||||||
|
|
||||||
tr.Cells.Add(New HtmlTableCell(i))
|
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
|
||||||
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"))
|
tbl_CellStatus.Text = "Erfasst"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
'Case 2
|
'Case 2
|
||||||
' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
|
' tbl_CellStatus = "Nicht eingetroffen"
|
||||||
|
' tr.Controls.Add(Cell)
|
||||||
Case 3
|
Case 3
|
||||||
tr.Cells.Add(New HtmlTableCell("Ankunft"))
|
tbl_CellStatus.Text = "Ankunft"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 4
|
Case 4
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
|
tbl_CellStatus.Text = "Vorbereitet"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 5
|
Case 5
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
|
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case Else
|
Case Else
|
||||||
tr.Cells.Add(New HtmlTableCell("Undefiend"))
|
tbl_CellStatus.Text = "Undefiend"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
End Select
|
End Select
|
||||||
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
tr.Controls.Add(tbl_Cellvon)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tr.Controls.Add(tbl_Cellbis)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellAbsender)
|
||||||
normaltable.Rows.Add(tr)
|
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||||
|
tr.Controls.Add(tbl_CellEmpfaenger)
|
||||||
|
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellLKWs)
|
||||||
|
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||||
|
|
||||||
|
normaltable.Rows.Add(tr)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
ElseIf rbt_Freig.Checked = True Then
|
ElseIf rbt_Freig.Checked = True Then
|
||||||
rbt_Erf.Checked = False
|
|
||||||
rbt_Erf.Enabled = False
|
|
||||||
rbt_Ankunft.Checked = False
|
|
||||||
rbt_Ankunft.Enabled = False
|
|
||||||
rbt_Vorb.Checked = False
|
|
||||||
rbt_Vorb.Enabled = False
|
|
||||||
rbt_Vorg.Checked = False
|
|
||||||
rbt_Vorg.Enabled = False
|
|
||||||
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
|
||||||
'Dim tr = New TableRow
|
|
||||||
tr = New HtmlTableRow()
|
'tr = New HtmlTableRow()
|
||||||
'Cell.Controls.Add(New HtmlTableCell(i))
|
Dim tr = New TableRow
|
||||||
tr.Cells.Add(New HtmlTableCell(i))
|
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tbl_CellIndex.Text = i
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellIndex)
|
||||||
|
tbl_CellArt.Text = ""
|
||||||
|
tr.Controls.Add(tbl_CellArt)
|
||||||
|
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundenNr)
|
||||||
|
|
||||||
Select Case d("Status")
|
Select Case d("Status")
|
||||||
Case 1
|
Case 1
|
||||||
tr.Cells.Add(New HtmlTableCell("Erfasst"))
|
tbl_CellStatus.Text = "Erfasst"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
'Case 2
|
'Case 2
|
||||||
' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
|
' tbl_CellStatus = "Nicht eingetroffen"
|
||||||
|
' tr.Controls.Add(Cell)
|
||||||
Case 3
|
Case 3
|
||||||
tr.Cells.Add(New HtmlTableCell("Ankunft"))
|
tbl_CellStatus.Text = "Ankunft"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 4
|
Case 4
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
|
tbl_CellStatus.Text = "Vorbereitet"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 5
|
Case 5
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
|
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case Else
|
Case Else
|
||||||
tr.Cells.Add(New HtmlTableCell("Undefiend"))
|
tbl_CellStatus.Text = "Undefiend"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
End Select
|
End Select
|
||||||
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
tr.Controls.Add(tbl_Cellvon)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tr.Controls.Add(tbl_Cellbis)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellAbsender)
|
||||||
normaltable.Rows.Add(tr)
|
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||||
|
tr.Controls.Add(tbl_CellEmpfaenger)
|
||||||
|
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellLKWs)
|
||||||
|
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||||
|
|
||||||
|
normaltable.Rows.Add(tr)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
ElseIf rbt_Ankunft.Checked = True Then
|
ElseIf rbt_Ankunft.Checked = True Then
|
||||||
rbt_Erf.Checked = False
|
|
||||||
rbt_Erf.Enabled = False
|
|
||||||
rbt_Freig.Checked = False
|
|
||||||
rbt_Freig.Enabled = False
|
|
||||||
rbt_Vorb.Checked = False
|
|
||||||
rbt_Vorb.Enabled = False
|
|
||||||
rbt_Vorg.Checked = False
|
|
||||||
rbt_Vorg.Enabled = False
|
|
||||||
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
|
||||||
|
|
||||||
tr = New HtmlTableRow()
|
'tr = New HtmlTableRow()
|
||||||
tr.Cells.Add(New HtmlTableCell(i))
|
Dim tr = New TableRow
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tbl_CellIndex.Text = i
|
||||||
|
tr.Controls.Add(tbl_CellIndex)
|
||||||
|
tbl_CellArt.Text = ""
|
||||||
|
tr.Controls.Add(tbl_CellArt)
|
||||||
|
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundenNr)
|
||||||
|
|
||||||
Select Case d("Status")
|
Select Case d("Status")
|
||||||
Case 1
|
Case 1
|
||||||
tr.Cells.Add(New HtmlTableCell("Erfasst"))
|
tbl_CellStatus.Text = "Erfasst"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
'Case 2
|
'Case 2
|
||||||
' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
|
' tbl_CellStatus = "Nicht eingetroffen"
|
||||||
|
' tr.Controls.Add(Cell)
|
||||||
Case 3
|
Case 3
|
||||||
tr.Cells.Add(New HtmlTableCell("Ankunft"))
|
tbl_CellStatus.Text = "Ankunft"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 4
|
Case 4
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
|
tbl_CellStatus.Text = "Vorbereitet"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 5
|
Case 5
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
|
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case Else
|
Case Else
|
||||||
tr.Cells.Add(New HtmlTableCell("Undefiend"))
|
tbl_CellStatus.Text = "Undefiend"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
End Select
|
End Select
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tr.Controls.Add(tbl_Cellvon)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tr.Controls.Add(tbl_Cellbis)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellAbsender)
|
||||||
normaltable.Rows.Add(tr)
|
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||||
|
tr.Controls.Add(tbl_CellEmpfaenger)
|
||||||
|
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellLKWs)
|
||||||
|
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||||
|
|
||||||
|
normaltable.Rows.Add(tr)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
ElseIf rbt_Vorb.Checked = True Then
|
ElseIf rbt_Vorb.Checked = True Then
|
||||||
rbt_Ankunft.Checked = False
|
|
||||||
rbt_Ankunft.Enabled = False
|
|
||||||
rbt_Erf.Checked = False
|
|
||||||
rbt_Erf.Enabled = False
|
|
||||||
rbt_Freig.Checked = False
|
|
||||||
rbt_Freig.Enabled = False
|
|
||||||
rbt_Vorg.Checked = False
|
|
||||||
rbt_Vorg.Enabled = False
|
|
||||||
|
|
||||||
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
|
||||||
|
'tr = New HtmlTableRow()
|
||||||
|
Dim tr = New TableRow
|
||||||
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.Cells.Add(New HtmlTableCell(i))
|
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tbl_CellIndex.Text = i
|
||||||
|
tr.Controls.Add(tbl_CellIndex)
|
||||||
|
tbl_CellArt.Text = ""
|
||||||
|
tr.Controls.Add(tbl_CellArt)
|
||||||
|
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundenNr)
|
||||||
|
|
||||||
Select Case d("Status")
|
Select Case d("Status")
|
||||||
Case 1
|
Case 1
|
||||||
tr.Cells.Add(New HtmlTableCell("Erfasst"))
|
tbl_CellStatus.Text = "Erfasst"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
'Case 2
|
'Case 2
|
||||||
' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
|
' tbl_CellStatus = "Nicht eingetroffen"
|
||||||
|
' tr.Controls.Add(Cell)
|
||||||
Case 3
|
Case 3
|
||||||
tr.Cells.Add(New HtmlTableCell("Ankunft"))
|
tbl_CellStatus.Text = "Ankunft"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 4
|
Case 4
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
|
tbl_CellStatus.Text = "Vorbereitet"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 5
|
Case 5
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
|
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case Else
|
Case Else
|
||||||
tr.Cells.Add(New HtmlTableCell("Undefiend"))
|
tbl_CellStatus.Text = "Undefiend"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
End Select
|
End Select
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tr.Controls.Add(tbl_Cellvon)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tr.Controls.Add(tbl_Cellbis)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellAbsender)
|
||||||
normaltable.Rows.Add(tr)
|
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||||
|
tr.Controls.Add(tbl_CellEmpfaenger)
|
||||||
|
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellLKWs)
|
||||||
|
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||||
|
|
||||||
|
normaltable.Rows.Add(tr)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ElseIf rbt_Vorg.Checked = True Then
|
ElseIf rbt_Vorg.Checked = True Then
|
||||||
rbt_Ankunft.Enabled = False
|
|
||||||
rbt_Ankunft.Checked = False
|
|
||||||
rbt_Erf.Enabled = False
|
|
||||||
rbt_Erf.Checked = False
|
|
||||||
rbt_Freig.Enabled = False
|
|
||||||
rbt_Freig.Checked = False
|
|
||||||
rbt_Vorb.Enabled = False
|
|
||||||
rbt_Vorb.Checked = False
|
|
||||||
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.Cells.Add(New HtmlTableCell(i))
|
'tr = New HtmlTableRow()
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
Dim tr = New TableRow
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
||||||
|
tbl_CellIndex.Text = i
|
||||||
|
tr.Controls.Add(tbl_CellIndex)
|
||||||
|
tbl_CellArt.Text = ""
|
||||||
|
tr.Controls.Add(tbl_CellArt)
|
||||||
|
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundenNr)
|
||||||
|
|
||||||
Select Case d("Status")
|
Select Case d("Status")
|
||||||
Case 1
|
Case 1
|
||||||
tr.Cells.Add(New HtmlTableCell("Erfasst"))
|
tbl_CellStatus.Text = "Erfasst"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
'Case 2
|
'Case 2
|
||||||
' tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
|
' tbl_CellStatus = "Nicht eingetroffen"
|
||||||
|
' tr.Controls.Add(Cell)
|
||||||
Case 3
|
Case 3
|
||||||
tr.Cells.Add(New HtmlTableCell("Ankunft"))
|
tbl_CellStatus.Text = "Ankunft"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 4
|
Case 4
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
|
tbl_CellStatus.Text = "Vorbereitet"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 5
|
Case 5
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
|
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case Else
|
Case Else
|
||||||
tr.Cells.Add(New HtmlTableCell("Undefiend"))
|
tbl_CellStatus.Text = "Undefiend"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
End Select
|
End Select
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
tr.Controls.Add(tbl_Cellvon)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tr.Controls.Add(tbl_Cellbis)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellAbsender)
|
||||||
normaltable.Rows.Add(tr)
|
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||||
|
tr.Controls.Add(tbl_CellEmpfaenger)
|
||||||
|
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellLKWs)
|
||||||
|
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||||
|
|
||||||
|
normaltable.Rows.Add(tr)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
@@ -310,36 +376,58 @@ 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
|
||||||
|
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.Cells.Add(New HtmlTableCell(i))
|
'tr = New HtmlTableRow()
|
||||||
tr.Cells.Add(New HtmlTableCell(""))
|
Dim tr = New TableRow
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
||||||
|
tbl_CellIndex.Text = i
|
||||||
|
tr.Controls.Add(tbl_CellIndex)
|
||||||
|
tbl_CellArt.Text = ""
|
||||||
|
tr.Controls.Add(tbl_CellArt)
|
||||||
|
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundenNr)
|
||||||
|
|
||||||
Select Case d("Status")
|
Select Case d("Status")
|
||||||
Case 1
|
Case 1
|
||||||
tr.Cells.Add(New HtmlTableCell("Erfasst"))
|
tbl_CellStatus.Text = "Erfasst"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 2
|
Case 2
|
||||||
tr.Cells.Add(New HtmlTableCell("Nicht eingetroffen"))
|
tbl_CellStatus.Text = "Nicht eingetroffen"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 3
|
Case 3
|
||||||
tr.Cells.Add(New HtmlTableCell("Ankunft"))
|
tbl_CellStatus.Text = "Ankunft"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 4
|
Case 4
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorbereitet"))
|
tbl_CellStatus.Text = "Vorbereitet"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case 5
|
Case 5
|
||||||
tr.Cells.Add(New HtmlTableCell("Vorgeschrieben"))
|
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
Case Else
|
Case Else
|
||||||
tr.Cells.Add(New HtmlTableCell("Undefiend"))
|
tbl_CellStatus.Text = "Undefiend"
|
||||||
|
tr.Controls.Add(tbl_CellStatus)
|
||||||
End Select
|
End Select
|
||||||
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
tr.Controls.Add(tbl_Cellvon)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
tr.Controls.Add(tbl_Cellbis)
|
||||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||||
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
tr.Controls.Add(tbl_CellAbsender)
|
||||||
normaltable.Rows.Add(tr)
|
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||||
|
tr.Controls.Add(tbl_CellEmpfaenger)
|
||||||
|
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellLKWs)
|
||||||
|
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
|
||||||
|
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||||
|
|
||||||
|
normaltable.Rows.Add(tr)
|
||||||
i = i + 1
|
i = i + 1
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
@@ -368,9 +456,9 @@ Partial Class Kundenbereich_Default
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||||
' TableHeaderRow1.TableSection = TableRowSection.TableHeader
|
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||||
'End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user