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

Schutz vor falscher Allokierung der Tabelle eingefügt

Browse Source
This commit is contained in:
ja
2021-09-20 13:59:02 +02:00
parent f334d15e91
commit dee6f7a21f
1 changed files with 87 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

169
Customers/CustomsAviso.aspx.vb
View File

@@ -209,91 +209,96 @@ Partial Class Kundenbereich_Default
If dt IsNot Nothing Then If dt IsNot Nothing Then
Dim i As Integer = 0 Dim i As Integer = 0
For Each d In dt.Rows For Each d In dt.Rows
Dim tr = New TableRow Dim tr = New TableRow
Dim Cell = New TableCell Dim Cell = New TableCell
Dim tbl_CellIndex = New TableCell Dim tbl_CellIndex = New TableCell
Dim tbl_CellStatus = New TableCell Dim tbl_CellStatus = New TableCell
Dim tbl_Cell_Auftragsdatum = New TableCell Dim tbl_Cell_Auftragsdatum = New TableCell
Dim tbl_CellAbsender = New TableCell Dim tbl_CellAbsender = New TableCell
Dim tbl_CellEmpfaenger = New TableCell Dim tbl_CellEmpfaenger = New TableCell
Dim tbl_CellLKWs = New TableCell Dim tbl_CellLKWs = New TableCell
Dim tbl_CellKundAuftNr = New TableCell Dim tbl_CellKundAuftNr = New TableCell
Dim tbl_CellInfo = New TableCell Dim tbl_CellInfo = New TableCell
Dim zahl = i + 1 Dim zahl = i + 1
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellIndex.Text = zahl tbl_CellIndex.Text = zahl
tr.Cells.Add(tbl_CellIndex) tr.Cells.Add(tbl_CellIndex)
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellLKWs.Text = d("LKW_Nr").ToString tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Cells.Add(tbl_CellLKWs) tr.Cells.Add(tbl_CellLKWs)
tbl_CellStatus.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellStatus.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Select Case d("Status") Select Case d("Status")
Case 0 Case 0
tbl_CellStatus.Text = "Erfasst" tbl_CellStatus.Text = "Erfasst"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
Case 1 Case 1
tbl_CellStatus.Text = "Freigabe" tbl_CellStatus.Text = "Freigabe"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
Case 2 Case 2
tbl_CellStatus.Text = "Nicht eingetroffen" tbl_CellStatus.Text = "Nicht eingetroffen"
tr.Cells.Add(Cell) tr.Cells.Add(Cell)
Case 3 Case 3
tbl_CellStatus.Text = "Ankunft" tbl_CellStatus.Text = "Ankunft"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
Case 4 Case 4
tbl_CellStatus.Text = "Vorbereitet" tbl_CellStatus.Text = "Vorbereitet"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
Case 5 Case 5
tbl_CellStatus.Text = "Vorgeschrieben" tbl_CellStatus.Text = "Vorgeschrieben"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
Case Nothing Case Nothing
tbl_CellStatus.Text = "Undefiniert" tbl_CellStatus.Text = "Undefiniert"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
End Select 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) 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.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Auftragsdatum.Text = d("AvisoEingang").ToString tbl_Cell_Auftragsdatum.Text = d("AvisoEingang").ToString
tr.Cells.Add(tbl_Cell_Auftragsdatum) tr.Cells.Add(tbl_Cell_Auftragsdatum)
tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellAbsender.Text = d("Auftraggeber").ToString tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Cells.Add(tbl_CellAbsender) tr.Cells.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Cells.Add(tbl_CellEmpfaenger) tr.Cells.Add(tbl_CellEmpfaenger)
tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
tr.Cells.Add(tbl_CellKundAuftNr) tr.Cells.Add(tbl_CellKundAuftNr)
Dim btn As New ImageButton Dim btn As New ImageButton
btn.ViewStateMode = ViewStateMode.Enabled btn.ViewStateMode = ViewStateMode.Enabled
'btn.Text = "Text" 'btn.Text = "Text"
btn.CssClass = "btn btn-primary" btn.CssClass = "btn btn-primary"
btn.ImageUrl = "../images/Icons/service/hilfe_small.png" btn.ImageUrl = "../images/Icons/service/hilfe_small.png"
'btn.Attributes.Add("Text", <img src= width="15" height="15"/>) '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("href", "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString)
btn.Attributes.Add("target", "_blank") btn.Attributes.Add("target", "_blank")
btn.PostBackUrl = "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString btn.PostBackUrl = "../status_Julius.aspx?AvisoId=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d("AvisoID")).ToString
tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellInfo.Controls.Add(btn) tbl_CellInfo.Controls.Add(btn)
tr.Cells.Add(tbl_CellInfo) tr.Cells.Add(tbl_CellInfo)
If (rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True) Then If (rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True) Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
ElseIf (rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True) AndAlso tbl_CellStatus.Text = "Ankunft" Then ElseIf (rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True) AndAlso tbl_CellStatus.Text = "Ankunft" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
ElseIf (rbt_Erf.Selected = True Or rbt_Erf_M.Selected = True) AndAlso tbl_CellStatus.Text = "Erfasst" Then ElseIf (rbt_Erf.Selected = True Or rbt_Erf_M.Selected = True) AndAlso tbl_CellStatus.Text = "Erfasst" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
ElseIf (rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True) AndAlso tbl_CellStatus.Text = "Freigegeben" Then ElseIf (rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True) AndAlso tbl_CellStatus.Text = "Freigegeben" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
ElseIf (rbt_Vorb.Selected = True Or rbt_Vorb_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorbereitet" Then ElseIf (rbt_Vorb.Selected = True Or rbt_Vorb_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorbereitet" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
End If End If
i += 1 i += 1
Next Next
End If 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 End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)