Schutz vor falscher Allokierung der Tabelle eingefügt
This commit is contained in:
ja
@@ -209,91 +209,96 @@ Partial Class Kundenbereich_Default
|
||||
If dt IsNot Nothing Then
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt.Rows
|
||||
Dim tr = New TableRow
|
||||
Dim Cell = New TableCell
|
||||
Dim tbl_CellIndex = New TableCell
|
||||
Dim tbl_CellStatus = New TableCell
|
||||
Dim tbl_Cell_Auftragsdatum = New TableCell
|
||||
Dim tbl_CellAbsender = New TableCell
|
||||
Dim tbl_CellEmpfaenger = New TableCell
|
||||
Dim tbl_CellLKWs = New TableCell
|
||||
Dim tbl_CellKundAuftNr = New TableCell
|
||||
Dim tbl_CellInfo = New TableCell
|
||||
Dim tr = New TableRow
|
||||
Dim Cell = New TableCell
|
||||
Dim tbl_CellIndex = New TableCell
|
||||
Dim tbl_CellStatus = New TableCell
|
||||
Dim tbl_Cell_Auftragsdatum = New TableCell
|
||||
Dim tbl_CellAbsender = New TableCell
|
||||
Dim tbl_CellEmpfaenger = New TableCell
|
||||
Dim tbl_CellLKWs = New TableCell
|
||||
Dim tbl_CellKundAuftNr = New TableCell
|
||||
Dim tbl_CellInfo = New TableCell
|
||||
|
||||
Dim zahl = i + 1
|
||||
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellIndex.Text = zahl
|
||||
tr.Cells.Add(tbl_CellIndex)
|
||||
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||
tr.Cells.Add(tbl_CellLKWs)
|
||||
tbl_CellStatus.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Select Case d("Status")
|
||||
Case 0
|
||||
tbl_CellStatus.Text = "Erfasst"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 1
|
||||
tbl_CellStatus.Text = "Freigabe"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 2
|
||||
tbl_CellStatus.Text = "Nicht eingetroffen"
|
||||
tr.Cells.Add(Cell)
|
||||
Case 3
|
||||
tbl_CellStatus.Text = "Ankunft"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 4
|
||||
tbl_CellStatus.Text = "Vorbereitet"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 5
|
||||
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case Nothing
|
||||
tbl_CellStatus.Text = "Undefiniert"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
End Select
|
||||
initcells(tr, tbl_CellIndex, tbl_CellStatus, tbl_Cell_Auftragsdatum, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellLKWs, tbl_CellKundAuftNr, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_Status, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_LKWs, tbl_HeaderCell_KundAuftNr, tbl_HeaderCell_Info)
|
||||
tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_Cell_Auftragsdatum.Text = d("AvisoEingang").ToString
|
||||
tr.Cells.Add(tbl_Cell_Auftragsdatum)
|
||||
tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||
tr.Cells.Add(tbl_CellAbsender)
|
||||
tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||
tr.Cells.Add(tbl_CellEmpfaenger)
|
||||
tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
|
||||
tr.Cells.Add(tbl_CellKundAuftNr)
|
||||
Dim zahl = i + 1
|
||||
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellIndex.Text = zahl
|
||||
tr.Cells.Add(tbl_CellIndex)
|
||||
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellLKWs.Text = d("LKW_Nr").ToString
|
||||
tr.Cells.Add(tbl_CellLKWs)
|
||||
tbl_CellStatus.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Select Case d("Status")
|
||||
Case 0
|
||||
tbl_CellStatus.Text = "Erfasst"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 1
|
||||
tbl_CellStatus.Text = "Freigabe"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 2
|
||||
tbl_CellStatus.Text = "Nicht eingetroffen"
|
||||
tr.Cells.Add(Cell)
|
||||
Case 3
|
||||
tbl_CellStatus.Text = "Ankunft"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 4
|
||||
tbl_CellStatus.Text = "Vorbereitet"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case 5
|
||||
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
Case Nothing
|
||||
tbl_CellStatus.Text = "Undefiniert"
|
||||
tr.Cells.Add(tbl_CellStatus)
|
||||
End Select
|
||||
initcells(tr, tbl_CellIndex, tbl_CellStatus, tbl_Cell_Auftragsdatum, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellLKWs, tbl_CellKundAuftNr, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_Status, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_LKWs, tbl_HeaderCell_KundAuftNr, tbl_HeaderCell_Info)
|
||||
tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_Cell_Auftragsdatum.Text = d("AvisoEingang").ToString
|
||||
tr.Cells.Add(tbl_Cell_Auftragsdatum)
|
||||
tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellAbsender.Text = d("Auftraggeber").ToString
|
||||
tr.Cells.Add(tbl_CellAbsender)
|
||||
tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
|
||||
tr.Cells.Add(tbl_CellEmpfaenger)
|
||||
tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
|
||||
tr.Cells.Add(tbl_CellKundAuftNr)
|
||||
|
||||
Dim btn As New ImageButton
|
||||
btn.ViewStateMode = ViewStateMode.Enabled
|
||||
'btn.Text = "Text"
|
||||
btn.CssClass = "btn btn-primary"
|
||||
btn.ImageUrl = "../images/Icons/service/hilfe_small.png"
|
||||
'btn.Attributes.Add("Text", <img src= width="15" height="15"/>)
|
||||
btn.Attributes.Add("href", "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString)
|
||||
btn.Attributes.Add("target", "_blank")
|
||||
btn.PostBackUrl = "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString
|
||||
tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellInfo.Controls.Add(btn)
|
||||
tr.Cells.Add(tbl_CellInfo)
|
||||
Dim btn As New ImageButton
|
||||
btn.ViewStateMode = ViewStateMode.Enabled
|
||||
'btn.Text = "Text"
|
||||
btn.CssClass = "btn btn-primary"
|
||||
btn.ImageUrl = "../images/Icons/service/hilfe_small.png"
|
||||
'btn.Attributes.Add("Text", <img src= width="15" height="15"/>)
|
||||
btn.Attributes.Add("href", "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString)
|
||||
btn.Attributes.Add("target", "_blank")
|
||||
btn.PostBackUrl = "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString
|
||||
tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_CellInfo.Controls.Add(btn)
|
||||
tr.Cells.Add(tbl_CellInfo)
|
||||
|
||||
If (rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True) Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True) AndAlso tbl_CellStatus.Text = "Ankunft" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Erf.Selected = True Or rbt_Erf_M.Selected = True) AndAlso tbl_CellStatus.Text = "Erfasst" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True) AndAlso tbl_CellStatus.Text = "Freigegeben" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Vorb.Selected = True Or rbt_Vorb_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorbereitet" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
End If
|
||||
i += 1
|
||||
Next
|
||||
End If
|
||||
If (rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True) Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True) AndAlso tbl_CellStatus.Text = "Ankunft" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Erf.Selected = True Or rbt_Erf_M.Selected = True) AndAlso tbl_CellStatus.Text = "Erfasst" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True) AndAlso tbl_CellStatus.Text = "Freigegeben" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Vorb.Selected = True Or rbt_Vorb_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorbereitet" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then
|
||||
normaltable.Rows.Add(tr)
|
||||
End If
|
||||
i += 1
|
||||
Next
|
||||
Else
|
||||
Dim tbl_cellNothing = New TableCell()
|
||||
Dim tr = New TableRow()
|
||||
tbl_cellNothing.Text = "Keine Daten gefunden."
|
||||
tr.Cells.Add(tbl_cellNothing)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Reference in New Issue
Block a user