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

28
Customers/CustomsAviso.aspx.vb
View File

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