From 089e6ea63a1cde573c5a427cb66392335b3b03ed Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 20 Sep 2021 08:27:52 +0200
Subject: [PATCH] =?UTF-8?q?Das=20Enum=20Art=20wurde=20ge=C3=A4ndert.codede?=
 =?UTF-8?q?sign=20wurde=20ge=C3=A4ndert?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx.vb | 32 +++-----------------------------
 1 file changed, 3 insertions(+), 29 deletions(-)

diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 0dd785e..67875ea 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -31,9 +31,9 @@ Partial Class Kundenbereich_Default
     Dim dt As DataTable
 
     Enum ART
+        Frächter
         Kunde
         AVISIERER
-        Frächter
         VERAG
         ZOLL
     End Enum
@@ -42,10 +42,11 @@ Partial Class Kundenbereich_Default
         Dim blau As Drawing.Color = Drawing.Color.LightBlue
         Dim white As Drawing.Color = Drawing.Color.White
         Dim schwarz As Drawing.Color = Drawing.Color.Black
-
         Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
         Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
+
         tr.BackColor = blau
+
         If t1.Text = "" Then
             t1.BackColor = blau
             t1.ForeColor = schwarz
@@ -175,7 +176,6 @@ Partial Class Kundenbereich_Default
             LKWNR = txt_LKWNr_M.Text
         End If
 
-        'Dim tr
         If rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True Then
             If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
                 Try
@@ -217,29 +217,6 @@ Partial Class Kundenbereich_Default
 
         If dt IsNot Nothing Then
             Dim i As Integer = 0
-            'Dim sb As StringBuilder = New StringBuilder()
-
-            'Table start.
-            'sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
-            'Adding HeaderRow.
-            'sb.Append("<tr>")
-            'For Each column As DataColumn In dt.Columns
-            '  sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
-            '               + (column.ColumnName + "</th>")))
-            'Next
-            'sb.Append("</tr>")
-            'Adding DataRow.
-            'For Each row As DataRow In dt.Rows
-            'sb.Append("<tr>")
-            'For Each column As DataColumn In dt.Columns
-            '    sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
-            '                 + (row(column.ColumnName).ToString + "</td>")))
-            '  Next
-            '   sb.Append("</tr>")
-            'Next
-            'Table end.
-            'sb.Append("</table>")
-            ' ltTable.Text = sb.ToString
 
             For Each d In dt.Rows
                 Dim Cell = New TableCell
@@ -253,8 +230,6 @@ Partial Class Kundenbereich_Default
                 Dim tbl_CellInfo = New TableCell
                 Dim tr = New TableRow
 
-                'tr = New HtmlTableRow()
-
                 Dim zahl = i + 1
                 tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
                 tbl_CellIndex.Text = zahl
@@ -326,7 +301,6 @@ Partial Class Kundenbereich_Default
                 ElseIf (rbt_Vorg.Selected = True Or rbt_Vorg_M.Selected = True) AndAlso tbl_CellStatus.Text = "Vorgeschrieben" Then
                     normaltable.Rows.Add(tr)
                 End If
-
                 i += 1
             Next
         End If