From cbbfd6b39501963943bf9d20df70a4c8dea90ba5 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 15 Sep 2021 15:23:05 +0200
Subject: [PATCH] =?UTF-8?q?Vorbereitungen=20zu=20n=C3=A4chster=20Untersche?=
 =?UTF-8?q?idung=20bei=20der=20Art=20des=20Zugriffes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index b19227f..4c9abf5 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -29,7 +29,13 @@ Partial Class Kundenbereich_Default
     Dim LKWNR As String = ""
     Dim KDNAFNR As String = ""
     Dim dt As DataTable
-
+    Enum ART
+        Kunde
+        AVISIERER
+        Frächter
+        VERAG
+        ZOLL
+    End Enum
     Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
         'MsgBox(Session.Item("test").ToString)
         'MsgBox(Session.Item("CustomerID").ToString)