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

Änderungen an Design sowie Tabllenzeilen

Browse Source
This commit is contained in:
ja
2021-09-15 13:36:44 +02:00
parent 3d669bd139
commit 99c95fa3b7
3 changed files with 92 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Customers/CustomsAviso.aspx.vb
View File

@@ -132,11 +132,8 @@ Partial Class Kundenbereich_Default
For Each d In dt.Rows
Dim Cell = New TableCell
Dim tbl_CellIndex = New TableCell
Dim tbl_CellArt = New TableCell
Dim tbl_CellStatus = New TableCell
Dim tbl_Cellvon = New TableCell
Dim tbl_Cellbis = New TableCell
Dim tbl_Cell_Auftragsdatum = New TableCell
Dim tbl_CellAbsender = New TableCell
Dim tbl_CellEmpfaenger = New TableCell
Dim tbl_CellLKWs = New TableCell
@@ -144,10 +141,11 @@ Partial Class Kundenbereich_Default
Dim tbl_CellInfo = New TableCell
'tr = New HtmlTableRow()
Dim tr = New TableRow
tbl_CellIndex.Text = i
Dim zahl = i + 1
tbl_CellIndex.Text = zahl
tr.Cells.Add(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Cells.Add(tbl_CellArt)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Cells.Add(tbl_CellLKWs)
Select Case d("Status")
Case 1
@@ -170,16 +168,12 @@ Partial Class Kundenbereich_Default
tr.Cells.Add(tbl_CellStatus)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Cells.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Cells.Add(tbl_Cellbis)
tbl_Cell_Auftragsdatum.Text = d("AvisoEingang").ToString
tr.Cells.Add(tbl_Cell_Auftragsdatum)
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)
If rbt_Ankunft.Selected = True AndAlso tbl_CellStatus.Text = "Ankunft" Then