diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 4f15a18..b2a59e0 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -54,19 +54,22 @@ Partial Class Kundenbereich_Default t1.ForeColor = schwarz End If If t2.Text = "Erfasst" Then - t2.BackColor = Drawing.Color.DarkGreen + t2.BackColor = Drawing.Color.LightPink t2.ForeColor = white ElseIf t2.Text = "Nicht eingetroffen" Then - t2.BackColor = Drawing.Color.DarkRed + t2.BackColor = Drawing.Color.Black t2.ForeColor = white ElseIf t2.Text = "Ankunft" Then - t2.BackColor = Drawing.Color.Orange + t2.BackColor = Drawing.Color.DarkBlue t2.ForeColor = white ElseIf t2.Text = "Vorbereitet" Then - t2.BackColor = Drawing.Color.OldLace + t2.BackColor = System.Drawing.Color.Brown t2.ForeColor = white 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 ElseIf t2.Text = "Undefiniert" Then t2.BackColor = Drawing.Color.DarkGray @@ -262,6 +265,9 @@ Partial Class Kundenbereich_Default Case 1 tbl_CellStatus.Text = "Erfasst" tr.Cells.Add(tbl_CellStatus) + Case 1 + tbl_CellStatus.Text = "Freigabe" + tr.Cells.Add(tbl_CellStatus) Case 2 tbl_CellStatus.Text = "Nicht eingetroffen" tr.Cells.Add(Cell)