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

Buttuns angepasst farblich sowie FUnktionen erweitert dass Statusse besser erfasst wrden können.

Browse Source
This commit is contained in:
ja
2021-09-17 15:39:52 +02:00
parent 02e126e83a
commit c24d65f339
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Customers/CustomsAviso.aspx.vb
View File

@@ -54,19 +54,22 @@ Partial Class Kundenbereich_Default
t1.ForeColor = schwarz t1.ForeColor = schwarz
End If End If
If t2.Text = "Erfasst" Then If t2.Text = "Erfasst" Then
t2.BackColor = Drawing.Color.DarkGreen t2.BackColor = Drawing.Color.LightPink
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Nicht eingetroffen" Then ElseIf t2.Text = "Nicht eingetroffen" Then
t2.BackColor = Drawing.Color.DarkRed t2.BackColor = Drawing.Color.Black
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Ankunft" Then ElseIf t2.Text = "Ankunft" Then
t2.BackColor = Drawing.Color.Orange t2.BackColor = Drawing.Color.DarkBlue
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Vorbereitet" Then ElseIf t2.Text = "Vorbereitet" Then
t2.BackColor = Drawing.Color.OldLace t2.BackColor = System.Drawing.Color.Brown
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Vorgeschrieben" Then ElseIf t2.Text = "Vorgeschrieben" Then
t2.BackColor = Drawing.Color.Black t2.BackColor = Drawing.Color.Purple
t2.ForeColor = white
ElseIf t2.Text = "Freigabe" Then
t2.BackColor = Drawing.Color.DarkOliveGreen
t2.ForeColor = white t2.ForeColor = white
ElseIf t2.Text = "Undefiniert" Then ElseIf t2.Text = "Undefiniert" Then
t2.BackColor = Drawing.Color.DarkGray t2.BackColor = Drawing.Color.DarkGray
@@ -262,6 +265,9 @@ Partial Class Kundenbereich_Default
Case 1 Case 1
tbl_CellStatus.Text = "Erfasst" tbl_CellStatus.Text = "Erfasst"
tr.Cells.Add(tbl_CellStatus) tr.Cells.Add(tbl_CellStatus)
Case 1
tbl_CellStatus.Text = "Freigabe"
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)