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

Ändnerung tr.Cells.Add zu tr.Controls.Add und krrekte Datumszuweisung

Browse Source
This commit is contained in:
ja
2021-09-13 17:06:27 +02:00
parent 16d0c5ace8
commit 2964495dc4
1 changed files with 32 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
Customers/CustomsAviso.aspx.vb
View File

@@ -115,43 +115,43 @@ Partial Class Kundenbereich_Default
For Each d In dt.Rows
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(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Cells.Add(tbl_CellArt)
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
tr.Cells.Add(tbl_CellKundenNr)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Controls.Add(tbl_CellStatus)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Cells.Add(tbl_CellStatus)
'Case 2
' tbl_CellStatus = "Nicht eingetroffen"
' tr.Controls.Add(Cell)
Case 3
tbl_CellStatus.Text = "Ankunft"
tr.Controls.Add(tbl_CellStatus)
Case 4
tbl_CellStatus.Text = "Vorbereitet"
tr.Controls.Add(tbl_CellStatus)
Case 5
tbl_CellStatus.Text = "Vorgeschrieben"
tr.Controls.Add(tbl_CellStatus)
' 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)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellAbsender)
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("KdAuftragsNr_Avisierer").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Cells.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Cells.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Cells.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Cells.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Cells.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
tr.Cells.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
normaltable.Rows.Add(tr)
i += 1
Next