Feature: UsrCntl_Kundenvollmachten, Besuchsbereicht, FrmKundenvollmachten

SDL.sln

@@ -17,12 +17,12 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "VER
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
-EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
 EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
+EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
 EndProject
 Global
@@ -105,18 +105,6 @@ Global
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
-		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x86
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
 		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86
@@ -138,6 +126,18 @@ Global
 		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.Build.0 = Release|Any CPU
 		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.ActiveCfg = Release|Any CPU
 		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU

SDL/My Project/Resources.Designer.vb

@@ -618,6 +618,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property email_big_gray() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("email_big_gray", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

SDL/My Project/Resources.resx

@@ -157,6 +157,9 @@
   <data name="reloadFinance" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="mse" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -166,11 +169,17 @@
   <data name="positionen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -184,18 +193,12 @@
   <data name="statistik2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="IMEX_LOGO_AEO_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="mic_logo___short" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -226,9 +229,6 @@
   <data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="_exit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -262,6 +262,9 @@
   <data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="warenkorb1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -277,6 +280,9 @@
   <data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -286,8 +292,8 @@
   <data name="email11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -319,17 +325,17 @@
   <data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Einheitspapier_0777_kurz" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -352,6 +358,9 @@
   <data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="passpic" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -409,15 +418,15 @@
   <data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -427,15 +436,9 @@
   <data name="cards1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -451,8 +454,8 @@
   <data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,9 +463,15 @@
   <data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -490,6 +499,9 @@
   <data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -517,6 +529,9 @@
   <data name="sms" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sms.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Route4" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -532,8 +547,8 @@
   <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -574,8 +589,8 @@
   <data name="transp" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -628,8 +643,8 @@
   <data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -652,17 +667,14 @@
   <data name="passpic_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Verag_Customs_Service_GMBH_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -673,8 +685,8 @@
   <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -682,8 +694,8 @@
   <data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -694,8 +706,8 @@
   <data name="LKW_klein1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -703,17 +715,14 @@
   <data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="android-note12" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -730,14 +739,14 @@
   <data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -748,8 +757,8 @@
   <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="sicherheit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -787,8 +796,8 @@
   <data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -796,9 +805,6 @@
   <data name="mahn" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -811,14 +817,11 @@
   <data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="rechnung" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -829,8 +832,8 @@
   <data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="sms_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\..\AVISO\Aviso\Diverses\sms_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -838,7 +841,7 @@
   <data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

SDL/SDL.vbproj

@@ -106,6 +106,10 @@
     <Reference Include="ExcelNumberFormat, Version=1.0.10.0, Culture=neutral, PublicKeyToken=23c6f5d73be07eca, processorArchitecture=MSIL">
       <HintPath>..\..\..\AVISO\Aviso\packages\ExcelNumberFormat.1.0.10\lib\net20\ExcelNumberFormat.dll</HintPath>
     </Reference>
+    <Reference Include="Gemeinsames, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\x64\Debug\Gemeinsames.dll</HintPath>
+    </Reference>
     <Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
@@ -570,6 +574,12 @@
     <Compile Include="kunden\frmKundenUIDEORI_List.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kunden\frmKundenZOLLVollmachten.Designer.vb">
+      <DependentUpon>frmKundenZOLLVollmachten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\frmKundenZOLLVollmachten.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="kunden\frmKundenZOLLVollmachtenUebersicht.Designer.vb">
       <DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
     </Compile>
@@ -588,6 +598,12 @@
     <Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="kunden\usrCntlKundenZollVollmachten.Designer.vb">
+      <DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kunden\usrCntlKundenZollVollmachten.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="mdm\Besuchsberichte\frmBesuchsberichte.Designer.vb">
       <DependentUpon>frmBesuchsberichte.vb</DependentUpon>
     </Compile>
@@ -1622,12 +1638,6 @@
     <Compile Include="kunden\frmKundenZOLLOffertenSperre.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="kunden\usrCntlKundenZOLLVollmachten.Designer.vb">
-      <DependentUpon>usrCntlKundenZOLLVollmachten.vb</DependentUpon>
-    </Compile>
-    <Compile Include="kunden\usrCntlKundenZOLLVollmachten.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="kunden\frmKundenSucheUebersicht.Designer.vb">
       <DependentUpon>frmKundenSucheUebersicht.vb</DependentUpon>
     </Compile>
@@ -2786,6 +2796,9 @@
     <EmbeddedResource Include="kunden\frmKundenUIDEORI_List.resx">
       <DependentUpon>frmKundenUIDEORI_List.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\frmKundenZOLLVollmachten.resx">
+      <DependentUpon>frmKundenZOLLVollmachten.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenZOLLVollmachtenUebersicht.resx">
       <DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
     </EmbeddedResource>
@@ -2795,6 +2808,9 @@
     <EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
       <DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kunden\usrCntlKundenZollVollmachten.resx">
+      <DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="mdm\Besuchsberichte\frmBesuchsberichte.resx">
       <DependentUpon>frmBesuchsberichte.vb</DependentUpon>
     </EmbeddedResource>
@@ -3303,9 +3319,6 @@
     <EmbeddedResource Include="kunden\frmKundenZOLLOffertenSperre.resx">
       <DependentUpon>frmKundenZOLLOffertenSperre.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="kunden\usrCntlKundenZOLLVollmachten.resx">
-      <DependentUpon>usrCntlKundenZOLLVollmachten.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="kunden\frmKundenSucheUebersicht.resx">
       <DependentUpon>frmKundenSucheUebersicht.vb</DependentUpon>
     </EmbeddedResource>
@@ -4236,6 +4249,7 @@
   <ItemGroup>
     <Content Include="My Project\logo_mdm.png" />
     <Content Include="My Project\zoll.png" />
+    <None Include="Resources\email_big_gray.jpg" />
     <Content Include="Resources\Verag_Customs_Service_AEO.jpg" />
     <None Include="Resources\mic-logo.jpg" />
     <None Include="Resources\mic-logo - short.jpg" />
@@ -4531,11 +4545,6 @@
       <Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
       <Name>TELOTEC_Worker_lib</Name>
     </ProjectReference>
-    <ProjectReference Include="..\..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj">
-      <Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
-      <Name>Gemeinsames</Name>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
-    </ProjectReference>
     <ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj">
       <Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
       <Name>Parkzeit</Name>

SDL/kunden/frmKundenZOLLVollmachten.Designer.vb

@@ -0,0 +1,505 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmKundenZOLLVollmachten
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenZOLLVollmachten))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnUploadPDF = New System.Windows.Forms.Button()
+        Me.lblPDFavailable = New System.Windows.Forms.Label()
+        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.pnlDetails = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.lblGueltigVon = New System.Windows.Forms.Label()
+        Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
+        Me.picEmail = New System.Windows.Forms.PictureBox()
+        Me.picDeletePDF = New System.Windows.Forms.PictureBox()
+        Me.picPDF = New System.Windows.Forms.PictureBox()
+        Me.lblGueltigBis = New System.Windows.Forms.Label()
+        Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxArchiviert = New System.Windows.Forms.CheckBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.pnl.SuspendLayout()
+        CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnlDetails.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picEmail, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.btnUploadPDF)
+        Me.pnl.Controls.Add(Me.lblPDFavailable)
+        Me.pnl.Controls.Add(Me.btnNeu)
+        Me.pnl.Controls.Add(Me.dgvVollmachtenEmbedded)
+        Me.pnl.Controls.Add(Me.MyComboBox1)
+        Me.pnl.Controls.Add(Me.Button1)
+        Me.pnl.Controls.Add(Me.Label1)
+        Me.pnl.Controls.Add(Me.cbxErhaltenAm)
+        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.pnlDetails)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(513, 383)
+        Me.pnl.TabIndex = 1
+        '
+        'btnUploadPDF
+        '
+        Me.btnUploadPDF.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUploadPDF.Location = New System.Drawing.Point(155, 179)
+        Me.btnUploadPDF.Name = "btnUploadPDF"
+        Me.btnUploadPDF.Size = New System.Drawing.Size(134, 25)
+        Me.btnUploadPDF.TabIndex = 12
+        Me.btnUploadPDF.Text = "PDF hochladen"
+        Me.btnUploadPDF.UseVisualStyleBackColor = True
+        Me.btnUploadPDF.Visible = False
+        '
+        'lblPDFavailable
+        '
+        Me.lblPDFavailable.Location = New System.Drawing.Point(297, 182)
+        Me.lblPDFavailable.Name = "lblPDFavailable"
+        Me.lblPDFavailable.Size = New System.Drawing.Size(140, 13)
+        Me.lblPDFavailable.TabIndex = 13
+        Me.lblPDFavailable.Text = "Kein PDF vorhanden."
+        Me.lblPDFavailable.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblPDFavailable.Visible = False
+        '
+        'btnNeu
+        '
+        Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
+        Me.btnNeu.Location = New System.Drawing.Point(443, 182)
+        Me.btnNeu.Name = "btnNeu"
+        Me.btnNeu.Size = New System.Drawing.Size(44, 31)
+        Me.btnNeu.TabIndex = 28
+        Me.btnNeu.UseVisualStyleBackColor = True
+        '
+        'dgvVollmachtenEmbedded
+        '
+        Me.dgvVollmachtenEmbedded.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvVollmachtenEmbedded.AllowUserToAddRows = False
+        Me.dgvVollmachtenEmbedded.AllowUserToDeleteRows = False
+        Me.dgvVollmachtenEmbedded.AllowUserToResizeColumns = False
+        Me.dgvVollmachtenEmbedded.AllowUserToResizeRows = False
+        Me.dgvVollmachtenEmbedded.BackgroundColor = System.Drawing.SystemColors.Window
+        Me.dgvVollmachtenEmbedded.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvVollmachtenEmbedded.Location = New System.Drawing.Point(24, 33)
+        Me.dgvVollmachtenEmbedded.MultiSelect = False
+        Me.dgvVollmachtenEmbedded.Name = "dgvVollmachtenEmbedded"
+        Me.dgvVollmachtenEmbedded.ReadOnly = True
+        Me.dgvVollmachtenEmbedded.RowHeadersVisible = False
+        Me.dgvVollmachtenEmbedded.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvVollmachtenEmbedded.Size = New System.Drawing.Size(463, 140)
+        Me.dgvVollmachtenEmbedded.TabIndex = 24
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.BackColor = System.Drawing.Color.White
+        Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(98, 6)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(243, 21)
+        Me.MyComboBox1.TabIndex = 15
+        Me.MyComboBox1.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.BackColor = System.Drawing.Color.Red
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(469, 0)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(42, 23)
+        Me.Button1.TabIndex = 9
+        Me.Button1.Text = "X"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(209, 48)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(214, 30)
+        Me.Label1.TabIndex = 20
+        Me.Label1.Text = "VOLLMACHT"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'cbxErhaltenAm
+        '
+        Me.cbxErhaltenAm.AutoSize = True
+        Me.cbxErhaltenAm.Location = New System.Drawing.Point(39, 190)
+        Me.cbxErhaltenAm.Name = "cbxErhaltenAm"
+        Me.cbxErhaltenAm.Size = New System.Drawing.Size(85, 17)
+        Me.cbxErhaltenAm.TabIndex = 18
+        Me.cbxErhaltenAm.Text = "Erhalten am:"
+        Me.cbxErhaltenAm.UseVisualStyleBackColor = True
+        Me.cbxErhaltenAm.Visible = False
+        '
+        'lbl
+        '
+        Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lbl.Location = New System.Drawing.Point(11, 0)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(214, 30)
+        Me.lbl.TabIndex = 20
+        Me.lbl.Text = "VOLLMACHT"
+        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'pnlDetails
+        '
+        Me.pnlDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.pnlDetails.Controls.Add(Me.lblWarning)
+        Me.pnlDetails.Controls.Add(Me.lblGueltigVon)
+        Me.pnlDetails.Controls.Add(Me.cbxVMarchivieren)
+        Me.pnlDetails.Controls.Add(Me.Label3)
+        Me.pnlDetails.Controls.Add(Me.txtVermerk)
+        Me.pnlDetails.Controls.Add(Me.Panel1)
+        Me.pnlDetails.Controls.Add(Me.lblGueltigBis)
+        Me.pnlDetails.Controls.Add(Me.txtGueltigVon)
+        Me.pnlDetails.Controls.Add(Me.txtGueltigBis)
+        Me.pnlDetails.Controls.Add(Me.cbxArchiviert)
+        Me.pnlDetails.Controls.Add(Me.btnOK)
+        Me.pnlDetails.Controls.Add(Me.btnSave)
+        Me.pnlDetails.Location = New System.Drawing.Point(4, 219)
+        Me.pnlDetails.Name = "pnlDetails"
+        Me.pnlDetails.Size = New System.Drawing.Size(492, 159)
+        Me.pnlDetails.TabIndex = 28
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(118, 30)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(105, 13)
+        Me.lblWarning.TabIndex = 30
+        Me.lblWarning.Text = "Gültig von eintragen!"
+        Me.lblWarning.Visible = False
+        '
+        'lblGueltigVon
+        '
+        Me.lblGueltigVon.AutoSize = True
+        Me.lblGueltigVon.Location = New System.Drawing.Point(17, 55)
+        Me.lblGueltigVon.Name = "lblGueltigVon"
+        Me.lblGueltigVon.Size = New System.Drawing.Size(75, 13)
+        Me.lblGueltigVon.TabIndex = 28
+        Me.lblGueltigVon.Text = "VM gültig von:"
+        '
+        'cbxVMarchivieren
+        '
+        Me.cbxVMarchivieren.AutoSize = True
+        Me.cbxVMarchivieren.Location = New System.Drawing.Point(20, 127)
+        Me.cbxVMarchivieren.Name = "cbxVMarchivieren"
+        Me.cbxVMarchivieren.Size = New System.Drawing.Size(198, 17)
+        Me.cbxVMarchivieren.TabIndex = 27
+        Me.cbxVMarchivieren.Text = "bestehende Vollmachten archivieren"
+        Me.cbxVMarchivieren.UseVisualStyleBackColor = True
+        Me.cbxVMarchivieren.Visible = False
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(17, 14)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(49, 13)
+        Me.Label3.TabIndex = 26
+        Me.Label3.Text = "Vermerk:"
+        '
+        'txtVermerk
+        '
+        Me.txtVermerk._DateTimeOnly = False
+        Me.txtVermerk._numbersOnly = False
+        Me.txtVermerk._numbersOnlyKommastellen = ""
+        Me.txtVermerk._numbersOnlyTrennzeichen = False
+        Me.txtVermerk._Prozent = False
+        Me.txtVermerk._ShortDateNew = False
+        Me.txtVermerk._ShortDateOnly = False
+        Me.txtVermerk._TimeOnly = False
+        Me.txtVermerk._TimeOnly_Seconds = False
+        Me.txtVermerk._value = ""
+        Me.txtVermerk._Waehrung = False
+        Me.txtVermerk._WaehrungZeichen = False
+        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
+        Me.txtVermerk.Location = New System.Drawing.Point(96, 4)
+        Me.txtVermerk.MaxLength = 100
+        Me.txtVermerk.MaxLineLength = -1
+        Me.txtVermerk.MaxLines_Warning = ""
+        Me.txtVermerk.MaxLines_Warning_Label = Nothing
+        Me.txtVermerk.Name = "txtVermerk"
+        Me.txtVermerk.Size = New System.Drawing.Size(390, 23)
+        Me.txtVermerk.TabIndex = 25
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.picDeleteEmail)
+        Me.Panel1.Controls.Add(Me.picEmail)
+        Me.Panel1.Controls.Add(Me.picDeletePDF)
+        Me.Panel1.Controls.Add(Me.picPDF)
+        Me.Panel1.Location = New System.Drawing.Point(356, 45)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(130, 74)
+        Me.Panel1.TabIndex = 17
+        Me.Panel1.Visible = False
+        '
+        'picDeleteEmail
+        '
+        Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
+        Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
+        Me.picDeleteEmail.Name = "picDeleteEmail"
+        Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
+        Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picDeleteEmail.TabIndex = 19
+        Me.picDeleteEmail.TabStop = False
+        Me.picDeleteEmail.Visible = False
+        '
+        'picEmail
+        '
+        Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
+        Me.picEmail.Location = New System.Drawing.Point(13, 23)
+        Me.picEmail.Name = "picEmail"
+        Me.picEmail.Size = New System.Drawing.Size(44, 48)
+        Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picEmail.TabIndex = 18
+        Me.picEmail.TabStop = False
+        '
+        'picDeletePDF
+        '
+        Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
+        Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
+        Me.picDeletePDF.Name = "picDeletePDF"
+        Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
+        Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picDeletePDF.TabIndex = 16
+        Me.picDeletePDF.TabStop = False
+        Me.picDeletePDF.Visible = False
+        '
+        'picPDF
+        '
+        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
+        Me.picPDF.Location = New System.Drawing.Point(79, 23)
+        Me.picPDF.Name = "picPDF"
+        Me.picPDF.Size = New System.Drawing.Size(44, 48)
+        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.picPDF.TabIndex = 17
+        Me.picPDF.TabStop = False
+        Me.picPDF.Visible = False
+        '
+        'lblGueltigBis
+        '
+        Me.lblGueltigBis.AutoSize = True
+        Me.lblGueltigBis.Location = New System.Drawing.Point(17, 79)
+        Me.lblGueltigBis.Name = "lblGueltigBis"
+        Me.lblGueltigBis.Size = New System.Drawing.Size(70, 13)
+        Me.lblGueltigBis.TabIndex = 23
+        Me.lblGueltigBis.Text = "VM gültig bis:"
+        '
+        'txtGueltigVon
+        '
+        Me.txtGueltigVon._DateTimeOnly = False
+        Me.txtGueltigVon._numbersOnly = False
+        Me.txtGueltigVon._numbersOnlyKommastellen = ""
+        Me.txtGueltigVon._numbersOnlyTrennzeichen = True
+        Me.txtGueltigVon._Prozent = False
+        Me.txtGueltigVon._ShortDateNew = True
+        Me.txtGueltigVon._ShortDateOnly = False
+        Me.txtGueltigVon._TimeOnly = False
+        Me.txtGueltigVon._TimeOnly_Seconds = False
+        Me.txtGueltigVon._value = ""
+        Me.txtGueltigVon._Waehrung = False
+        Me.txtGueltigVon._WaehrungZeichen = False
+        Me.txtGueltigVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtGueltigVon.ForeColor = System.Drawing.Color.Black
+        Me.txtGueltigVon.Location = New System.Drawing.Point(96, 45)
+        Me.txtGueltigVon.MaxLength = 10
+        Me.txtGueltigVon.MaxLineLength = -1
+        Me.txtGueltigVon.MaxLines_Warning = ""
+        Me.txtGueltigVon.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigVon.Name = "txtGueltigVon"
+        Me.txtGueltigVon.Size = New System.Drawing.Size(127, 23)
+        Me.txtGueltigVon.TabIndex = 19
+        Me.txtGueltigVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'txtGueltigBis
+        '
+        Me.txtGueltigBis._DateTimeOnly = False
+        Me.txtGueltigBis._numbersOnly = False
+        Me.txtGueltigBis._numbersOnlyKommastellen = ""
+        Me.txtGueltigBis._numbersOnlyTrennzeichen = True
+        Me.txtGueltigBis._Prozent = False
+        Me.txtGueltigBis._ShortDateNew = True
+        Me.txtGueltigBis._ShortDateOnly = False
+        Me.txtGueltigBis._TimeOnly = False
+        Me.txtGueltigBis._TimeOnly_Seconds = False
+        Me.txtGueltigBis._value = ""
+        Me.txtGueltigBis._Waehrung = False
+        Me.txtGueltigBis._WaehrungZeichen = False
+        Me.txtGueltigBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtGueltigBis.ForeColor = System.Drawing.Color.Black
+        Me.txtGueltigBis.Location = New System.Drawing.Point(96, 74)
+        Me.txtGueltigBis.MaxLength = 10
+        Me.txtGueltigBis.MaxLineLength = -1
+        Me.txtGueltigBis.MaxLines_Warning = ""
+        Me.txtGueltigBis.MaxLines_Warning_Label = Nothing
+        Me.txtGueltigBis.Name = "txtGueltigBis"
+        Me.txtGueltigBis.Size = New System.Drawing.Size(127, 23)
+        Me.txtGueltigBis.TabIndex = 22
+        Me.txtGueltigBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'cbxArchiviert
+        '
+        Me.cbxArchiviert.AutoSize = True
+        Me.cbxArchiviert.Location = New System.Drawing.Point(20, 102)
+        Me.cbxArchiviert.Name = "cbxArchiviert"
+        Me.cbxArchiviert.Size = New System.Drawing.Size(70, 17)
+        Me.cbxArchiviert.TabIndex = 21
+        Me.cbxArchiviert.Text = "Archiviert"
+        Me.cbxArchiviert.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Location = New System.Drawing.Point(410, 124)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(66, 24)
+        Me.btnOK.TabIndex = 10
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'btnSave
+        '
+        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSave.Location = New System.Drawing.Point(410, 125)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(66, 24)
+        Me.btnSave.TabIndex = 29
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        Me.btnSave.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.LöschenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(119, 48)
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.stift1
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22)
+        Me.ToolStripMenuItem1.Text = "Ändern"
+        Me.ToolStripMenuItem1.Visible = False
+        '
+        'LöschenToolStripMenuItem
+        '
+        Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
+        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
+        Me.LöschenToolStripMenuItem.Text = "Löschen"
+        '
+        'frmKundenZOLLVollmachten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(513, 383)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmKundenZOLLVollmachten"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "frmKundenZOLLVollmachten"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnlDetails.ResumeLayout(False)
+        Me.pnlDetails.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picEmail, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents lblPDFavailable As System.Windows.Forms.Label
+    Friend WithEvents btnUploadPDF As System.Windows.Forms.Button
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents picDeletePDF As System.Windows.Forms.PictureBox
+    Friend WithEvents cbxErhaltenAm As System.Windows.Forms.CheckBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lbl As Label
+    Friend WithEvents picPDF As PictureBox
+    Friend WithEvents cbxArchiviert As CheckBox
+    Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblGueltigBis As Label
+    Friend WithEvents dgvVollmachtenEmbedded As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxVMarchivieren As CheckBox
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents pnlDetails As VERAG_PROG_ALLGEMEIN.MyPanel
+    Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents lblGueltigVon As Label
+    Friend WithEvents btnSave As Button
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents picDeleteEmail As PictureBox
+    Friend WithEvents picEmail As PictureBox
+End Class

SDL/kunden/frmKundenZOLLVollmachten.vb

@@ -0,0 +1,599 @@
+Imports System.Web.UI.WebControls.Expressions
+Imports System.Windows
+Imports System.Windows.Interop
+Imports com.sun.org.apache.xpath.internal.functions
+Imports DAKOSY_Worker.TR100
+Imports DocumentFormat.OpenXml.Drawing
+Imports DocumentFormat.OpenXml.Drawing.Charts
+'Imports DocumentFormat.OpenXml.Wordprocessing
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Design.DdrDesigner.Services
+Imports GrapeCity.ActiveReports.Design.QueryDesignerImpl.SqlParser.Irony.Parsing
+Imports javax.validation.constraints
+Imports sun.misc
+Imports TAlex.WPF.Helpers
+Imports SDL.EORI
+Imports System.Drawing
+Imports System.Runtime.DesignerServices
+
+Public Class frmKundenZOLLVollmachten
+    Public kdnr As Integer = -1
+    Public filePath As String
+    Public erhalten As Boolean = False
+    Public archiviert As Boolean = False
+    Public geloescht As Boolean = False
+    Dim id As Integer = -1
+    'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
+    Dim ksql As New kundenSQL
+    Dim vollmachtartId As Integer
+    Dim emailId As Integer
+    Dim vermerk As String = ""
+    Dim vmId As Integer = -1
+    Dim currentVM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
+
+    Sub New(kdnr, vollmachtartId)
+        Me.InitializeComponent()
+        Me.kdnr = kdnr
+        Me.vollmachtartId = vollmachtartId
+    End Sub
+
+    Sub New(kdnr, vmaNr, filePath)
+        Me.InitializeComponent()
+        Me.erhalten = True
+        Me.kdnr = kdnr
+        Me.filePath = filePath
+        Me.vollmachtartId = vollmachtartId
+        'UI-Elements
+        MyComboBox1.Visible = True
+        Me.txtGueltigVon.Text = Now.ToShortDateString
+        Me.txtGueltigBis.Text = Nothing
+
+    End Sub
+
+    Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
+        Me.MyComboBox1._value = vollmachtartId
+        initDGVVollmachtenEmbedded(False)
+
+        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
+            FirmaTmp = "VERAGIMEX"
+        End If
+
+        Select Case FirmaTmp
+            Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
+                Panel1.Visible = True
+            Case Else
+                Panel1.Visible = True
+                'Me.Height = Me.Height - Panel1.Height
+        End Select
+
+
+    End Sub
+
+
+
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+
+    End Sub
+
+    Sub saveVM(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
+
+        lblWarning.Visible = False
+        If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
+        VM.kdvm_vermerk = txtVermerk.Text
+        VM.kdvm_kdvmaId = vollmachtartId
+        VM.kdvm_KundenNr = kdnr
+        VM.kdvm_archiviert = cbxArchiviert.Checked
+
+        If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
+            txtGueltigVon.ForeColor = Color.Red
+            lblWarning.Visible = True
+            Me.DialogResult = Windows.Forms.DialogResult.None
+            Exit Sub
+        Else
+            VM.kdvm_erhalten_Datum = txtGueltigVon.Text
+            VM.kdvm_gueltig_ab = txtGueltigVon.Text
+            VM.kdvm_erhalten = True
+        End If
+
+        If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
+            txtGueltigBis.ForeColor = Color.Red
+            Me.DialogResult = Windows.Forms.DialogResult.None
+            Exit Sub
+
+        ElseIf txtGueltigBis.Text = "" Then
+            VM.kdvm_gueltig_bis = Nothing
+        Else
+            VM.kdvm_gueltig_bis = txtGueltigBis.Text
+        End If
+
+        vollmachtenArchivieren()
+
+        If Not VM.SAVE() Then
+            Me.DialogResult = Windows.Forms.DialogResult.None
+        End If
+
+        If dgvVollmachtenEmbedded.Enabled = False Then
+            dgvVollmachtenEmbedded.Enabled = True
+        End If
+
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+    Private Sub lblNoPDFavailable_Click(sender As Object, e As EventArgs) Handles lblPDFavailable.Click
+        If currentVM.kdvm_datenarchivId > 0 Then
+            ' cDATENSERVER.openDataTMPByDatenarchivId(id)
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
+            DS.OPEN_SINGLE()
+        End If
+    End Sub
+
+    'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.CheckedChanged
+    '    ' MyTextBox1.Enabled = sender.checked
+    'End Sub
+    'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.Click
+    '    'wird nicht mehr verwendet
+    '    If Not sender.checked Then
+    '        txtGueltigVon.Text = ""
+    '    Else
+    '        txtGueltigVon.Text = Now.ToShortDateString
+    '    End If
+    'End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGueltigVon.TextChanged
+        txtGueltigVon.ForeColor = Color.Black
+        cbxErhaltenAm.Checked = (txtGueltigVon.Text <> "")
+    End Sub
+
+    Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGueltigVon.KeyDown
+        If e.KeyCode = Keys.Return Then
+            btnOK.PerformClick()
+        End If
+        If e.KeyCode = Keys.Escape Then
+            Button1.PerformClick()
+        End If
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        lbl.Text = MyComboBox1.Text
+    End Sub
+
+    Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        txtGueltigVon.Focus()
+        If txtGueltigVon.Text <> "" Then
+            cbxErhaltenAm.Checked = True
+            txtGueltigVon.SelectAll()
+        End If
+
+    End Sub
+
+
+    Sub initDGVVollmachtenEmbedded(enalblePanel As Boolean)
+
+        Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
+
+        If dgvVollmachtenEmbedded.Enabled = False Then
+            dgvVollmachtenEmbedded.Enabled = True
+        End If
+
+        pnlDetails.Enabled = enalblePanel
+
+        With dgvVollmachtenEmbedded
+            .Columns.Clear()
+
+
+            .DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id,  art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
+                                                    " FROM [tblKundenVollmachtenArt] as art " &
+                                                    " INNER  JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
+                                                    " WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
+                                                    " ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
+
+            '  .RowTemplate.Height = 30
+            .Columns("kdvm_Id").Visible = False
+            .Columns("kdvma_Id").Visible = False
+            .Columns("kdvm_KundenNr").Visible = False
+            .Columns("kdvm_datenarchivId").Visible = False
+            .Columns("kdvma_Bezeichnung").Visible = False
+            .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
+            .Columns("kdvm_erhalten").Width = 50
+            .Columns("kdvm_erhalten").HeaderText = "Erhalten"
+            .Columns("kdvm_erhalten").Visible = False
+            .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("kdvm_erhalten_Datum").Width = 100
+            .Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
+            .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("kdvm_Info").Width = 200
+            .Columns("kdvm_Info").HeaderText = "Info"
+            .Columns("kdvm_Info").Visible = False
+            .Columns("kdvm_gueltig_bis").Visible = True
+            .Columns("kdvm_gueltig_bis").Width = 100
+            .Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
+            .Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("kdvm_archiviert").Visible = True
+            .Columns("kdvm_archiviert").Width = 60
+            .Columns("kdvm_archiviert").HeaderText = "Archiviert"
+            .Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
+            .Columns("kdvm_vermerk").MinimumWidth = 100
+            .Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("kdvm_vermerk").HeaderText = "Vermerk"
+            .Columns("kdvm_vermerk").Visible = True
+            .Columns("kdvm_geloescht").Visible = False
+
+
+            If True Then
+
+                Dim c As New DataGridViewImageColumn
+                c.Name = "clmnPDF" : c.HeaderText = "PDF"
+                c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                c.DefaultCellStyle.Tag = "PDF anzeigen"
+                .Columns.Add(c)
+            End If
+
+
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                Case "UNISPED", "IMEX"
+                    '.Columns("clmnTherefore").Visible = False
+                    .Columns("clmnPDF").Visible = True
+                Case "FRONTOFFICE"
+                    '.Columns("clmnTherefore").Visible = True
+                    .Columns("clmnPDF").Visible = True
+                Case Else
+                    '.Columns("clmnTherefore").Visible = True
+                    .Columns("clmnPDF").Visible = True
+            End Select
+            For Each r As DataGridViewRow In .Rows
+                If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
+                    r.DefaultCellStyle.ForeColor = Color.Gray
+                ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
+                    r.DefaultCellStyle.ForeColor = Color.Gray
+                ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
+                    r.DefaultCellStyle.ForeColor = Color.Red
+                End If
+
+                If True Then
+                    If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
+                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
+                    End If
+                End If
+            Next
+        End With
+
+    End Sub
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVMarchivieren.CheckedChanged
+
+
+        'If vbYes = MsgBox("Sollen die bestehenden Vollmachten archiviert werden?", vbYesNoCancel) Then
+        '    Dim succeeded = ksql.setVollmachtarchivieren(kdnr, MyComboBox1._value)
+        '    If succeeded = True Then
+        '        MsgBox("Bestehende Vollmachten wurden archiviert.")
+        '        cbxVMarchivieren.Enabled = False
+        '    End If
+        'End If
+
+
+    End Sub
+
+    Private Sub dgvvollmachtenembedded_cellmouseclick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVollmachtenEmbedded.CellMouseClick
+        'für die Ermittlung des Contextmenüs -> VM löschen
+        If e.Button = Windows.Forms.MouseButtons.Right Then
+            If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
+                ContextMenuStrip1.Show(Cursor.Position)
+            End If
+        End If
+
+    End Sub
+
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+        'Contextmenü -> Datensatz ändern -> wird nicht verwendet
+        If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
+
+            Dim VM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
+            loadChangedVMToPanel(True, VM)
+            setSaveButton()
+
+        End If
+    End Sub
+
+    Private Sub loadChangedVMToPanel(enablePanel As Boolean, VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
+        pnlDetails.Enabled = enablePanel
+
+        cbxArchiviert.Checked = VM.kdvm_archiviert
+        txtVermerk.Text = VM.kdvm_vermerk
+        txtGueltigVon.Text = VM.kdvm_erhalten_Datum
+        txtGueltigBis.Text = VM.kdvm_gueltig_bis
+
+        checkEmailIsPresent()
+        checkPDFisPresent()
+        setOKButton()
+
+        'Listener für Änderungen im Detail-Panel
+        For Each c As Control In pnlDetails.Controls
+            If TypeOf (c) Is CheckBox Then
+                AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged
+            ElseIf TypeOf (c) Is TextBox Then
+                AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
+            End If
+        Next
+    End Sub
+
+
+    Private Sub SomethingChanged(sender As Object, e As EventArgs)
+        setSaveButton()
+    End Sub
+
+    Sub checkPDFisPresent()
+
+        If currentVM.kdvm_datenarchivId > 0 Then
+            picDeletePDF.Visible = True
+            picPDF.Visible = True
+            picPDF.Image = My.Resources.pdf
+            picPDF.Cursor = Cursors.Default
+        Else
+            picDeletePDF.Visible = False
+            picPDF.Visible = True
+            picPDF.Image = My.Resources.pdf_gray
+            picPDF.Cursor = Cursors.Hand
+
+        End If
+    End Sub
+
+    Sub checkEmailIsPresent()
+        If currentVM.kdvm_emailId > 0 Then
+            picDeleteEmail.Visible = True
+            picEmail.Visible = True
+            picEmail.Image = My.Resources.email_big1
+            picEmail.Cursor = Cursors.Default
+        Else
+            picDeleteEmail.Visible = False
+            picEmail.Visible = True
+            picEmail.Image = My.Resources.email_big_gray
+            picEmail.Cursor = Cursors.Hand
+        End If
+    End Sub
+
+
+    Private Sub dgvVollmachtenEmbedded_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellDoubleClick
+
+        If dgvVollmachtenEmbedded.Columns(e.ColumnIndex).Name = "clmnPDF" Then
+
+            If dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
+                DS.OPEN_SINGLE(True)
+            End If
+        End If
+    End Sub
+
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
+        'Contextmenü -> Löschen der VM
+        If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
+
+            If vbYes = MsgBox("Soll diese Vollmacht gelöscht werden?", vbYesNoCancel) Then
+                Dim vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
+                vollmacht.kdvm_geloescht = True
+
+                If vollmacht.SAVE = True Then
+                    MsgBox("Bestehende Vollmacht wurde gelöscht.")
+                    initDGVVollmachtenEmbedded(False)
+
+                End If
+            End If
+
+        End If
+
+    End Sub
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
+        'Neuanlage einer VM
+        dgvVollmachtenEmbedded.ClearSelection()
+
+        If dgvVollmachtenEmbedded.Rows.Count > 0 Then
+            cbxVMarchivieren.Visible = True
+            cbxVMarchivieren.Checked = True
+        End If
+
+        dgvVollmachtenEmbedded.Enabled = False
+
+        currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
+            .kdvm_KundenNr = kdnr,
+            .kdvm_kdvmaId = vollmachtartId,
+            .kdvm_Info = "",
+            .kdvm_erhalten = False,
+            .kdvm_archiviert = False,
+            .kdvm_datenarchivId = -1,
+            .kdvm_erhalten_Datum = Now.ToShortDateString,
+            .kdvm_emailId = -1
+        }
+
+        loadChangedVMToPanel(True, currentVM)
+        hideAttachementControl()
+        setSaveButton()
+
+    End Sub
+
+    Private Sub vollmachtenArchivieren()
+
+        If cbxVMarchivieren.Checked = False Then Exit Sub
+        Dim count As Integer = 0
+        With dgvVollmachtenEmbedded
+
+            For Each r As DataGridViewRow In .Rows
+                Dim VMindex = r.Cells("kdvm_Id").Value
+                If r.Cells("kdvm_archiviert").Value <> True Then
+                    count += 1
+                    Dim currentVollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(VMindex)
+                    currentVollmacht.kdvm_archiviert = True
+                    currentVollmacht.SAVE()
+                End If
+            Next
+
+            If count > 0 Then
+                MsgBox("Bestehende Vollmachten wurden archiviert.")
+            End If
+        End With
+
+        cbxVMarchivieren.Visible = False
+        cbxVMarchivieren.Checked = False
+
+
+    End Sub
+
+    Private Sub setSaveButton()
+
+        btnOK.Visible = False
+        btnSave.Visible = True
+
+    End Sub
+
+    Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachtenEmbedded.SelectionChanged
+
+
+        If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
+            Dim rowindex = dgvVollmachtenEmbedded.SelectedRows(0).Index
+            currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
+
+            loadChangedVMToPanel(True, currentVM)
+
+            If dgvVollmachtenEmbedded.Enabled = False Then Exit Sub
+            vmId = dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value
+
+        End If
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        saveVM(currentVM)
+        setOKButton()
+    End Sub
+
+    Private Sub setOKButton()
+        btnOK.Visible = True
+        btnSave.Visible = False
+    End Sub
+
+
+    Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
+
+        If Me.MyComboBox1._value < 0 Then Exit Sub
+
+        Dim DS As Object
+
+        If currentVM.kdvm_datenarchivId > 0 Then
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
+            DS.OPEN_SINGLE()
+            'MsgBox("Open PDF")
+        Else
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
+            Dim path = DS.uploadDataToDATENSERVERFileDialog()
+
+            If path <> "" Then
+                currentVM.kdvm_datenarchivId = DS.da_id
+            End If
+
+            picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
+            saveVM(currentVM)
+        End If
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+    Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
+
+        lblPDFavailable.Cursor = Cursors.WaitCursor
+        If (currentVM.kdvm_datenarchivId > 0) Then
+            If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
+                DS.DELETE_COMPLETE()
+
+                currentVM.kdvm_datenarchivId = -1
+                If currentVM.SAVE Then
+                    currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
+                    picPDF.Image = My.Resources.pdf_gray
+                End If
+            End If
+        End If
+        lblPDFavailable.Cursor = Cursors.Default
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+
+    Private Sub picEmail_Click(sender As Object, e As EventArgs) Handles picEmail.Click
+        If Me.MyComboBox1._value < 0 Then Exit Sub
+
+        Dim DS As Object
+
+        If currentVM.kdvm_emailId > 0 Then
+
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
+            DS.OPEN_SINGLE()
+            'MsgBox("Open EMail")
+
+        Else
+
+            DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "Email_" & MyComboBox1.Text, kdnr)
+            Dim path = DS.uploadDataToDATENSERVERFileDialog()
+
+            If path <> "" Then
+                currentVM.kdvm_emailId = DS.da_id
+            End If
+
+            picDeleteEmail.Visible = True = (currentVM.kdvm_emailId > 0)
+
+            saveVM(currentVM)
+        End If
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+    End Sub
+
+    Private Sub picDeleteEmail_Click(sender As Object, e As EventArgs) Handles picDeleteEmail.Click
+
+        lblPDFavailable.Cursor = Cursors.WaitCursor
+        If (currentVM.kdvm_emailId > 0) Then
+            If vbYes = MsgBox("Möchten Sie die Email wirklich löschen?", vbYesNoCancel) Then
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
+                DS.DELETE_COMPLETE()
+
+                currentVM.kdvm_emailId = -1
+                If currentVM.SAVE Then
+                    currentVM.kdvm_emailId = -1 : picDeleteEmail.Visible = False
+
+                    picEmail.Image = My.Resources.email_big_gray
+
+                End If
+            End If
+        End If
+        lblPDFavailable.Cursor = Cursors.Default
+
+        dgvVollmachtenEmbedded.GetOrder()
+        initDGVVollmachtenEmbedded(True)
+        dgvVollmachtenEmbedded.SetOrder()
+
+    End Sub
+
+    Sub hideAttachementControl()
+
+        picDeletePDF.Visible = False
+        picPDF.Visible = False
+        picDeleteEmail.Visible = False
+        picEmail.Visible = False
+    End Sub
+
+End Class

SDL/kunden/usrCntlKundenKontakte.vb

@@ -1,4 +1,5 @@
-Public Class usrCntlKundenKontakte
+
+Public Class usrCntlKundenKontakte
 
     'Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakt = Nothing
     Public kdNr As Integer

SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb

@@ -1,8 +1,8 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class usrCntlKundenZOLLVollmachten
+Partial Class usrCntlKundenZollVollmachten
-    Inherits System.Windows.Forms.Form
+    Inherits System.Windows.Forms.UserControl
 
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
@@ -23,283 +23,92 @@ Partial Class usrCntlKundenZOLLVollmachten
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenZOLLVollmachten))
+        Me.lblWarning = New System.Windows.Forms.Label()
-        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label3 = New System.Windows.Forms.Label()
-        Me.btnNeu = New System.Windows.Forms.Button()
+        Me.txtVermerkNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
-        Me.lbl = New System.Windows.Forms.Label()
-        Me.pnlDetails = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
         Me.lblGueltigVon = New System.Windows.Forms.Label()
         Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.picPDF = New System.Windows.Forms.PictureBox()
-        Me.btnUploadPDF = New System.Windows.Forms.Button()
-        Me.picDeletePDF = New System.Windows.Forms.PictureBox()
-        Me.lblPDFavailable = New System.Windows.Forms.Label()
         Me.lblGueltigBis = New System.Windows.Forms.Label()
         Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxArchiviert = New System.Windows.Forms.CheckBox()
-        Me.btnSave = New System.Windows.Forms.Button()
+        Me.btnNeu = New System.Windows.Forms.Button()
-        Me.btnOK = New System.Windows.Forms.Button()
+        Me.gdvKundenvollmachten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        CType(Me.gdvKundenvollmachten, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.lblWarning = New System.Windows.Forms.Label()
-        Me.pnl.SuspendLayout()
-        CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.pnlDetails.SuspendLayout()
-        Me.Panel1.SuspendLayout()
-        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
-        'pnl
+        'lblWarning
         '
-        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.lblWarning.AutoSize = True
-        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
-        Me.pnl.Controls.Add(Me.btnNeu)
+        Me.lblWarning.Location = New System.Drawing.Point(107, 234)
-        Me.pnl.Controls.Add(Me.dgvVollmachtenEmbedded)
+        Me.lblWarning.Name = "lblWarning"
-        Me.pnl.Controls.Add(Me.MyComboBox1)
+        Me.lblWarning.Size = New System.Drawing.Size(105, 13)
-        Me.pnl.Controls.Add(Me.Button1)
+        Me.lblWarning.TabIndex = 42
-        Me.pnl.Controls.Add(Me.Label1)
+        Me.lblWarning.Text = "Gültig von eintragen!"
-        Me.pnl.Controls.Add(Me.cbxErhaltenAm)
+        Me.lblWarning.Visible = False
-        Me.pnl.Controls.Add(Me.lbl)
-        Me.pnl.Controls.Add(Me.pnlDetails)
-        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.pnl.Location = New System.Drawing.Point(0, 0)
-        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(499, 383)
-        Me.pnl.TabIndex = 1
         '
-        'btnNeu
+        'Label3
         '
-        Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
+        Me.Label3.AutoSize = True
-        Me.btnNeu.Location = New System.Drawing.Point(443, 182)
+        Me.Label3.Location = New System.Drawing.Point(10, 209)
-        Me.btnNeu.Name = "btnNeu"
+        Me.Label3.Name = "Label3"
-        Me.btnNeu.Size = New System.Drawing.Size(44, 31)
+        Me.Label3.Size = New System.Drawing.Size(49, 13)
-        Me.btnNeu.TabIndex = 28
+        Me.Label3.TabIndex = 38
-        Me.btnNeu.UseVisualStyleBackColor = True
+        Me.Label3.Text = "Vermerk:"
         '
-        'dgvVollmachtenEmbedded
+        'txtVermerkNew
         '
-        Me.dgvVollmachtenEmbedded.AKTUALISIERUNGS_INTERVALL = -1
+        Me.txtVermerkNew._DateTimeOnly = False
-        Me.dgvVollmachtenEmbedded.AllowUserToAddRows = False
+        Me.txtVermerkNew._numbersOnly = False
-        Me.dgvVollmachtenEmbedded.AllowUserToDeleteRows = False
+        Me.txtVermerkNew._numbersOnlyKommastellen = ""
-        Me.dgvVollmachtenEmbedded.AllowUserToResizeColumns = False
+        Me.txtVermerkNew._numbersOnlyTrennzeichen = False
-        Me.dgvVollmachtenEmbedded.AllowUserToResizeRows = False
+        Me.txtVermerkNew._Prozent = False
-        Me.dgvVollmachtenEmbedded.BackgroundColor = System.Drawing.SystemColors.Window
+        Me.txtVermerkNew._ShortDateNew = False
-        Me.dgvVollmachtenEmbedded.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.txtVermerkNew._ShortDateOnly = False
-        Me.dgvVollmachtenEmbedded.Location = New System.Drawing.Point(24, 33)
+        Me.txtVermerkNew._TimeOnly = False
-        Me.dgvVollmachtenEmbedded.MultiSelect = False
+        Me.txtVermerkNew._TimeOnly_Seconds = False
-        Me.dgvVollmachtenEmbedded.Name = "dgvVollmachtenEmbedded"
+        Me.txtVermerkNew._value = ""
-        Me.dgvVollmachtenEmbedded.ReadOnly = True
+        Me.txtVermerkNew._Waehrung = False
-        Me.dgvVollmachtenEmbedded.RowHeadersVisible = False
+        Me.txtVermerkNew._WaehrungZeichen = False
-        Me.dgvVollmachtenEmbedded.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.txtVermerkNew.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.dgvVollmachtenEmbedded.Size = New System.Drawing.Size(463, 140)
+        Me.txtVermerkNew.ForeColor = System.Drawing.Color.Black
-        Me.dgvVollmachtenEmbedded.TabIndex = 24
+        Me.txtVermerkNew.Location = New System.Drawing.Point(85, 199)
-        '
+        Me.txtVermerkNew.MaxLength = 100
-        'MyComboBox1
+        Me.txtVermerkNew.MaxLineLength = -1
-        '
+        Me.txtVermerkNew.MaxLines_Warning = ""
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.txtVermerkNew.MaxLines_Warning_Label = Nothing
-        Me.MyComboBox1._allowFreiText = False
+        Me.txtVermerkNew.Name = "txtVermerkNew"
-        Me.MyComboBox1._value = ""
+        Me.txtVermerkNew.Size = New System.Drawing.Size(390, 23)
-        Me.MyComboBox1.BackColor = System.Drawing.Color.White
+        Me.txtVermerkNew.TabIndex = 37
-        Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(98, 6)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(127, 21)
-        Me.MyComboBox1.TabIndex = 15
-        Me.MyComboBox1.Visible = False
-        '
-        'Button1
-        '
-        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button1.BackColor = System.Drawing.Color.Red
-        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.ForeColor = System.Drawing.Color.White
-        Me.Button1.Location = New System.Drawing.Point(455, 0)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(42, 23)
-        Me.Button1.TabIndex = 9
-        Me.Button1.Text = "X"
-        Me.Button1.UseVisualStyleBackColor = False
-        '
-        'Label1
-        '
-        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(209, 48)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(214, 30)
-        Me.Label1.TabIndex = 20
-        Me.Label1.Text = "VOLLMACHT"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'cbxErhaltenAm
-        '
-        Me.cbxErhaltenAm.AutoSize = True
-        Me.cbxErhaltenAm.Location = New System.Drawing.Point(39, 190)
-        Me.cbxErhaltenAm.Name = "cbxErhaltenAm"
-        Me.cbxErhaltenAm.Size = New System.Drawing.Size(85, 17)
-        Me.cbxErhaltenAm.TabIndex = 18
-        Me.cbxErhaltenAm.Text = "Erhalten am:"
-        Me.cbxErhaltenAm.UseVisualStyleBackColor = True
-        Me.cbxErhaltenAm.Visible = False
-        '
-        'lbl
-        '
-        Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lbl.Location = New System.Drawing.Point(11, 0)
-        Me.lbl.Name = "lbl"
-        Me.lbl.Size = New System.Drawing.Size(214, 30)
-        Me.lbl.TabIndex = 20
-        Me.lbl.Text = "VOLLMACHT"
-        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        '
-        'pnlDetails
-        '
-        Me.pnlDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.pnlDetails.Controls.Add(Me.lblWarning)
-        Me.pnlDetails.Controls.Add(Me.lblGueltigVon)
-        Me.pnlDetails.Controls.Add(Me.cbxVMarchivieren)
-        Me.pnlDetails.Controls.Add(Me.Label3)
-        Me.pnlDetails.Controls.Add(Me.txtVermerk)
-        Me.pnlDetails.Controls.Add(Me.Panel1)
-        Me.pnlDetails.Controls.Add(Me.lblGueltigBis)
-        Me.pnlDetails.Controls.Add(Me.txtGueltigVon)
-        Me.pnlDetails.Controls.Add(Me.txtGueltigBis)
-        Me.pnlDetails.Controls.Add(Me.cbxArchiviert)
-        Me.pnlDetails.Controls.Add(Me.btnOK)
-        Me.pnlDetails.Controls.Add(Me.btnSave)
-        Me.pnlDetails.Location = New System.Drawing.Point(4, 219)
-        Me.pnlDetails.Name = "pnlDetails"
-        Me.pnlDetails.Size = New System.Drawing.Size(492, 159)
-        Me.pnlDetails.TabIndex = 28
         '
         'lblGueltigVon
         '
         Me.lblGueltigVon.AutoSize = True
-        Me.lblGueltigVon.Location = New System.Drawing.Point(17, 55)
+        Me.lblGueltigVon.Location = New System.Drawing.Point(10, 255)
         Me.lblGueltigVon.Name = "lblGueltigVon"
         Me.lblGueltigVon.Size = New System.Drawing.Size(75, 13)
-        Me.lblGueltigVon.TabIndex = 28
+        Me.lblGueltigVon.TabIndex = 40
         Me.lblGueltigVon.Text = "VM gültig von:"
         '
         'cbxVMarchivieren
         '
         Me.cbxVMarchivieren.AutoSize = True
-        Me.cbxVMarchivieren.Location = New System.Drawing.Point(20, 127)
+        Me.cbxVMarchivieren.Location = New System.Drawing.Point(12, 341)
         Me.cbxVMarchivieren.Name = "cbxVMarchivieren"
         Me.cbxVMarchivieren.Size = New System.Drawing.Size(198, 17)
-        Me.cbxVMarchivieren.TabIndex = 27
+        Me.cbxVMarchivieren.TabIndex = 39
         Me.cbxVMarchivieren.Text = "bestehende Vollmachten archivieren"
         Me.cbxVMarchivieren.UseVisualStyleBackColor = True
         Me.cbxVMarchivieren.Visible = False
         '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(17, 14)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(49, 13)
-        Me.Label3.TabIndex = 26
-        Me.Label3.Text = "Vermerk:"
-        '
-        'txtVermerk
-        '
-        Me.txtVermerk._DateTimeOnly = False
-        Me.txtVermerk._numbersOnly = False
-        Me.txtVermerk._numbersOnlyKommastellen = ""
-        Me.txtVermerk._numbersOnlyTrennzeichen = False
-        Me.txtVermerk._Prozent = False
-        Me.txtVermerk._ShortDateNew = False
-        Me.txtVermerk._ShortDateOnly = False
-        Me.txtVermerk._TimeOnly = False
-        Me.txtVermerk._TimeOnly_Seconds = False
-        Me.txtVermerk._value = ""
-        Me.txtVermerk._Waehrung = False
-        Me.txtVermerk._WaehrungZeichen = False
-        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
-        Me.txtVermerk.Location = New System.Drawing.Point(96, 4)
-        Me.txtVermerk.MaxLength = 100
-        Me.txtVermerk.MaxLineLength = -1
-        Me.txtVermerk.MaxLines_Warning = ""
-        Me.txtVermerk.MaxLines_Warning_Label = Nothing
-        Me.txtVermerk.Name = "txtVermerk"
-        Me.txtVermerk.Size = New System.Drawing.Size(390, 23)
-        Me.txtVermerk.TabIndex = 25
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.picPDF)
-        Me.Panel1.Controls.Add(Me.btnUploadPDF)
-        Me.Panel1.Controls.Add(Me.picDeletePDF)
-        Me.Panel1.Controls.Add(Me.lblPDFavailable)
-        Me.Panel1.Location = New System.Drawing.Point(254, 42)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(233, 70)
-        Me.Panel1.TabIndex = 17
-        Me.Panel1.Visible = False
-        '
-        'picPDF
-        '
-        Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
-        Me.picPDF.Location = New System.Drawing.Point(178, 10)
-        Me.picPDF.Name = "picPDF"
-        Me.picPDF.Size = New System.Drawing.Size(44, 48)
-        Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.picPDF.TabIndex = 17
-        Me.picPDF.TabStop = False
-        Me.picPDF.Visible = False
-        '
-        'btnUploadPDF
-        '
-        Me.btnUploadPDF.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnUploadPDF.Location = New System.Drawing.Point(11, 10)
-        Me.btnUploadPDF.Name = "btnUploadPDF"
-        Me.btnUploadPDF.Size = New System.Drawing.Size(134, 25)
-        Me.btnUploadPDF.TabIndex = 12
-        Me.btnUploadPDF.Text = "PDF hochladen"
-        Me.btnUploadPDF.UseVisualStyleBackColor = True
-        '
-        'picDeletePDF
-        '
-        Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
-        Me.picDeletePDF.Location = New System.Drawing.Point(11, 38)
-        Me.picDeletePDF.Name = "picDeletePDF"
-        Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
-        Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
-        Me.picDeletePDF.TabIndex = 16
-        Me.picDeletePDF.TabStop = False
-        Me.picDeletePDF.Visible = False
-        '
-        'lblPDFavailable
-        '
-        Me.lblPDFavailable.Location = New System.Drawing.Point(5, 38)
-        Me.lblPDFavailable.Name = "lblPDFavailable"
-        Me.lblPDFavailable.Size = New System.Drawing.Size(140, 13)
-        Me.lblPDFavailable.TabIndex = 13
-        Me.lblPDFavailable.Text = "Kein PDF vorhanden."
-        Me.lblPDFavailable.TextAlign = System.Drawing.ContentAlignment.TopRight
-        '
         'lblGueltigBis
         '
         Me.lblGueltigBis.AutoSize = True
-        Me.lblGueltigBis.Location = New System.Drawing.Point(17, 79)
+        Me.lblGueltigBis.Location = New System.Drawing.Point(9, 284)
         Me.lblGueltigBis.Name = "lblGueltigBis"
         Me.lblGueltigBis.Size = New System.Drawing.Size(70, 13)
-        Me.lblGueltigBis.TabIndex = 23
+        Me.lblGueltigBis.TabIndex = 36
         Me.lblGueltigBis.Text = "VM gültig bis:"
         '
         'txtGueltigVon
@@ -318,14 +127,14 @@ Partial Class usrCntlKundenZOLLVollmachten
         Me.txtGueltigVon._WaehrungZeichen = False
         Me.txtGueltigVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtGueltigVon.ForeColor = System.Drawing.Color.Black
-        Me.txtGueltigVon.Location = New System.Drawing.Point(96, 45)
+        Me.txtGueltigVon.Location = New System.Drawing.Point(85, 250)
         Me.txtGueltigVon.MaxLength = 10
         Me.txtGueltigVon.MaxLineLength = -1
         Me.txtGueltigVon.MaxLines_Warning = ""
         Me.txtGueltigVon.MaxLines_Warning_Label = Nothing
         Me.txtGueltigVon.Name = "txtGueltigVon"
         Me.txtGueltigVon.Size = New System.Drawing.Size(127, 23)
-        Me.txtGueltigVon.TabIndex = 19
+        Me.txtGueltigVon.TabIndex = 33
         Me.txtGueltigVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'txtGueltigBis
@@ -344,129 +153,88 @@ Partial Class usrCntlKundenZOLLVollmachten
         Me.txtGueltigBis._WaehrungZeichen = False
         Me.txtGueltigBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtGueltigBis.ForeColor = System.Drawing.Color.Black
-        Me.txtGueltigBis.Location = New System.Drawing.Point(96, 74)
+        Me.txtGueltigBis.Location = New System.Drawing.Point(85, 279)
         Me.txtGueltigBis.MaxLength = 10
         Me.txtGueltigBis.MaxLineLength = -1
         Me.txtGueltigBis.MaxLines_Warning = ""
         Me.txtGueltigBis.MaxLines_Warning_Label = Nothing
         Me.txtGueltigBis.Name = "txtGueltigBis"
         Me.txtGueltigBis.Size = New System.Drawing.Size(127, 23)
-        Me.txtGueltigBis.TabIndex = 22
+        Me.txtGueltigBis.TabIndex = 35
         Me.txtGueltigBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'cbxArchiviert
         '
         Me.cbxArchiviert.AutoSize = True
-        Me.cbxArchiviert.Location = New System.Drawing.Point(20, 102)
+        Me.cbxArchiviert.Location = New System.Drawing.Point(13, 318)
         Me.cbxArchiviert.Name = "cbxArchiviert"
         Me.cbxArchiviert.Size = New System.Drawing.Size(70, 17)
-        Me.cbxArchiviert.TabIndex = 21
+        Me.cbxArchiviert.TabIndex = 34
         Me.cbxArchiviert.Text = "Archiviert"
         Me.cbxArchiviert.UseVisualStyleBackColor = True
         '
-        'btnSave
+        'btnNeu
         '
-        Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
-        Me.btnSave.Location = New System.Drawing.Point(410, 125)
+        Me.btnNeu.Location = New System.Drawing.Point(430, 333)
-        Me.btnSave.Name = "btnSave"
+        Me.btnNeu.Name = "btnNeu"
-        Me.btnSave.Size = New System.Drawing.Size(66, 24)
+        Me.btnNeu.Size = New System.Drawing.Size(77, 37)
-        Me.btnSave.TabIndex = 29
+        Me.btnNeu.TabIndex = 41
-        Me.btnSave.Text = "Speichern"
+        Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSave.UseVisualStyleBackColor = True
+        Me.btnNeu.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
-        Me.btnSave.Visible = False
+        Me.btnNeu.UseVisualStyleBackColor = True
+        Me.btnNeu.Visible = False
         '
-        'btnOK
+        'gdvKundenvollmachten
         '
-        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.gdvKundenvollmachten.AKTUALISIERUNGS_INTERVALL = -1
-        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.gdvKundenvollmachten.AllowUserToAddRows = False
-        Me.btnOK.Location = New System.Drawing.Point(410, 124)
+        Me.gdvKundenvollmachten.AllowUserToDeleteRows = False
-        Me.btnOK.Name = "btnOK"
+        Me.gdvKundenvollmachten.AllowUserToResizeColumns = False
-        Me.btnOK.Size = New System.Drawing.Size(66, 24)
+        Me.gdvKundenvollmachten.AllowUserToResizeRows = False
-        Me.btnOK.TabIndex = 10
+        Me.gdvKundenvollmachten.BackgroundColor = System.Drawing.Color.White
-        Me.btnOK.Text = "OK"
+        Me.gdvKundenvollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.btnOK.UseVisualStyleBackColor = True
+        Me.gdvKundenvollmachten.Location = New System.Drawing.Point(12, 0)
+        Me.gdvKundenvollmachten.MultiSelect = False
+        Me.gdvKundenvollmachten.Name = "gdvKundenvollmachten"
+        Me.gdvKundenvollmachten.ReadOnly = True
+        Me.gdvKundenvollmachten.RowHeadersVisible = False
+        Me.gdvKundenvollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gdvKundenvollmachten.Size = New System.Drawing.Size(495, 180)
+        Me.gdvKundenvollmachten.TabIndex = 43
         '
-        'ContextMenuStrip1
+        'usrCntlKundenZollVollmachten
-        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.LöschenToolStripMenuItem})
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(119, 48)
-        '
-        'ToolStripMenuItem1
-        '
-        Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.stift1
-        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
-        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22)
-        Me.ToolStripMenuItem1.Text = "Ändern"
-        Me.ToolStripMenuItem1.Visible = False
-        '
-        'LöschenToolStripMenuItem
-        '
-        Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
-        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
-        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
-        Me.LöschenToolStripMenuItem.Text = "Löschen"
-        '
-        'lblWarning
-        '
-        Me.lblWarning.AutoSize = True
-        Me.lblWarning.ForeColor = System.Drawing.Color.Red
-        Me.lblWarning.Location = New System.Drawing.Point(118, 30)
-        Me.lblWarning.Name = "lblWarning"
-        Me.lblWarning.Size = New System.Drawing.Size(105, 13)
-        Me.lblWarning.TabIndex = 30
-        Me.lblWarning.Text = "Gültig von eintragen!"
-        Me.lblWarning.Visible = False
-        '
-        'frmKundenZOLLVollmachten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(499, 383)
+        Me.Controls.Add(Me.gdvKundenvollmachten)
-        Me.Controls.Add(Me.pnl)
+        Me.Controls.Add(Me.lblWarning)
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Controls.Add(Me.Label3)
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Controls.Add(Me.txtVermerkNew)
-        Me.Name = "frmKundenZOLLVollmachten"
+        Me.Controls.Add(Me.lblGueltigVon)
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Controls.Add(Me.cbxVMarchivieren)
-        Me.Text = "frmKundenZOLLVollmachten"
+        Me.Controls.Add(Me.lblGueltigBis)
-        Me.pnl.ResumeLayout(False)
+        Me.Controls.Add(Me.txtGueltigVon)
-        Me.pnl.PerformLayout()
+        Me.Controls.Add(Me.txtGueltigBis)
-        CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Controls.Add(Me.cbxArchiviert)
-        Me.pnlDetails.ResumeLayout(False)
+        Me.Controls.Add(Me.btnNeu)
-        Me.pnlDetails.PerformLayout()
+        Me.Name = "usrCntlKundenZollVollmachten"
-        Me.Panel1.ResumeLayout(False)
+        Me.Size = New System.Drawing.Size(523, 378)
-        CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.gdvKundenvollmachten, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
-    Friend WithEvents pnl As System.Windows.Forms.Panel
+
-    Friend WithEvents lblPDFavailable As System.Windows.Forms.Label
-    Friend WithEvents btnUploadPDF As System.Windows.Forms.Button
-    Friend WithEvents Button1 As System.Windows.Forms.Button
-    Friend WithEvents btnOK As System.Windows.Forms.Button
-    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents picDeletePDF As System.Windows.Forms.PictureBox
-    Friend WithEvents cbxErhaltenAm As System.Windows.Forms.CheckBox
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
-    Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents lbl As Label
-    Friend WithEvents picPDF As PictureBox
-    Friend WithEvents cbxArchiviert As CheckBox
-    Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents lblGueltigBis As Label
-    Friend WithEvents dgvVollmachtenEmbedded As VERAG_PROG_ALLGEMEIN.MyDatagridview
-    Friend WithEvents Label1 As Label
-    Friend WithEvents Label3 As Label
-    Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents cbxVMarchivieren As CheckBox
-    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
-    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents pnlDetails As VERAG_PROG_ALLGEMEIN.MyPanel
-    Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents btnNeu As Button
-    Friend WithEvents lblGueltigVon As Label
-    Friend WithEvents btnSave As Button
     Friend WithEvents lblWarning As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtVermerkNew As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents lblGueltigVon As Label
+    Friend WithEvents cbxVMarchivieren As CheckBox
+    Friend WithEvents lblGueltigBis As Label
+    Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxArchiviert As CheckBox
+    Friend WithEvents btnNeu As Button
+    Friend WithEvents gdvKundenvollmachten As VERAG_PROG_ALLGEMEIN.MyDatagridview
 End Class

SDL/kunden/usrCntlKundenZOLLVollmachten.vb

@@ -1,458 +1,128 @@
-Imports System.Web.UI.WebControls.Expressions
+Imports com.sun.org.apache.xerces.internal.impl.dtd.models
-Imports System.Windows
+Imports jdk.nashorn.internal.objects.annotations
-Imports System.Windows.Interop
-Imports com.sun.org.apache.xpath.internal.functions
-Imports DAKOSY_Worker.TR100
-Imports DocumentFormat.OpenXml.Drawing
-Imports DocumentFormat.OpenXml.Drawing.Charts
-'Imports DocumentFormat.OpenXml.Wordprocessing
-Imports GrapeCity.ActiveReports
-Imports GrapeCity.ActiveReports.Design.DdrDesigner.Services
-Imports GrapeCity.ActiveReports.Design.QueryDesignerImpl.SqlParser.Irony.Parsing
-Imports javax.validation.constraints
 Imports sun.misc
-Imports TAlex.WPF.Helpers
+Imports VERAG_PROG_ALLGEMEIN
-Imports SDL.EORI
+
-Imports System.Drawing
+Public Class usrCntlKundenZollVollmachten
-Imports System.Runtime.DesignerServices
+
 
-Public Class usrCntlKundenZOLLVollmachten
     Public kdnr As Integer = -1
     Public filePath As String
     Public erhalten As Boolean = False
     Public archiviert As Boolean = False
     Public geloescht As Boolean = False
-    Dim id As Integer = -1
+    'Dim id As Integer = -1
-    'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
     Dim ksql As New kundenSQL
-    Dim vollmachtartId As Integer
+    Public vollmachtartId As Integer
     Dim vermerk As String = ""
-    Dim vmId As Integer = -1
+    Public vmId As Integer = -1
-    'Dim currentVM As frmKundenZOLLVollmachten = Nothing
+    Dim vollmacht As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
-    Dim currentVM2 As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
 
-    Sub New(kdnr, vollmachtartId)
+    Sub New()
-        Me.InitializeComponent()
+        ' Dieser Aufruf ist für den Designer erforderlich.
-        Me.kdnr = kdnr
+        InitializeComponent()
-        Me.vollmachtartId = vollmachtartId
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
     End Sub
 
-    Sub New(kdnr, vmaNr, filePath)
+    Sub New(kdnr, vollmachtartId, filepath)
         Me.InitializeComponent()
         Me.erhalten = True
         Me.kdnr = kdnr
-        Me.filePath = filePath
+        Me.filePath = filepath
         Me.vollmachtartId = vollmachtartId
-        'UI-Elements
-        MyComboBox1.Visible = True
-        Me.txtGueltigVon.Text = Now.ToShortDateString
-        Me.txtGueltigBis.Text = Nothing
 
     End Sub
 
-    Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
-        MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
-        Me.MyComboBox1._value = vollmachtartId
-        initDGVVollmachtenEmbedded(False)
 
-        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+    'Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles gdvKundenvollmachten.SelectionChanged
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
-            FirmaTmp = "VERAGIMEX"
-        End If
 
-        Select Case FirmaTmp
-            Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
-                Panel1.Visible = True
-            Case Else
-                Panel1.Visible = True
-                'Me.Height = Me.Height - Panel1.Height
-        End Select
 
-        If currentVM2.kdvm_datenarchivId > 0 Then
+    '    If gdvKundenvollmachten.SelectedRows.Count > 0 Then
-            picDeletePDF.Visible = True
-            picPDF.Image = My.Resources.pdf
 
-            lblPDFavailable.Text = "PDF vorhanden."
+    '        Dim rowindex = gdvKundenvollmachten.SelectedRows(0).Index
-            lblPDFavailable.Cursor = Cursors.Hand
+    '        vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(gdvKundenvollmachten.SelectedRows(0).Cells("kdvm_id").Value)
-        End If
+    '        loadChangedVMToUsrCntl(vollmacht)
 
-    End Sub
-
-    Private Sub btnUploadPDF_Click(sender As Object, e As EventArgs) Handles btnUploadPDF.Click
-        If Me.MyComboBox1._value < 0 Then Exit Sub
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", MyComboBox1.Text, kdnr)
-        Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text)
-
-        If path <> "" Then
-            currentVM2.kdvm_datenarchivId = DS.da_id 'cDATENSERVER.getLAST_ID(path)
-
-            lblPDFavailable.Text = "PDF vorhanden."
-            lblPDFavailable.Cursor = Cursors.Hand
-        End If
-        picDeletePDF.Visible = True = (currentVM2.kdvm_datenarchivId > 0)
-
-        saveVM(currentVM2)
-
-        dgvVollmachtenEmbedded.GetOrder()
-        initDGVVollmachtenEmbedded(True)
-        dgvVollmachtenEmbedded.SetOrder()
-
-    End Sub
-
-    Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
-
-        lblPDFavailable.Cursor = Cursors.WaitCursor
-        'If (currentVM.id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
-        If (currentVM2.kdvm_datenarchivId > 0) Then
-            If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
-
-                'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.id)
-                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
-                DS.DELETE_COMPLETE()
-
-                'If ksql.setVollmacht_DSId(kdnr, vmId, -1) Then
-                currentVM2.kdvm_datenarchivId = -1
-                If currentVM2.SAVE Then
-                    currentVM2.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
-                    lblPDFavailable.Text = "Kein PDF vorhanden."
-                    picPDF.Image = My.Resources.pdf_gray
-                End If
-            End If
-        End If
-        lblPDFavailable.Cursor = Cursors.Default
-
-        dgvVollmachtenEmbedded.GetOrder()
-        initDGVVollmachtenEmbedded(True)
-        dgvVollmachtenEmbedded.SetOrder()
-
-    End Sub
-
-    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        'test
-    End Sub
-
-    Sub saveVM(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
-
-        lblWarning.Visible = False
-        If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
-        VM.kdvm_vermerk = txtVermerk.Text
-        VM.kdvm_kdvmaId = vollmachtartId
-        VM.kdvm_KundenNr = kdnr
-        VM.kdvm_archiviert = cbxArchiviert.Checked
-
-        If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
-            txtGueltigVon.ForeColor = Color.Red
-            lblWarning.Visible = True
-            Me.DialogResult = Windows.Forms.DialogResult.None
-            Exit Sub
-        Else
-            VM.kdvm_erhalten_Datum = txtGueltigVon.Text
-            VM.kdvm_gueltig_ab = txtGueltigVon.Text
-            VM.kdvm_erhalten = True
-        End If
-
-        If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
-            txtGueltigBis.ForeColor = Color.Red
-            Me.DialogResult = Windows.Forms.DialogResult.None
-            Exit Sub
-
-        ElseIf txtGueltigBis.Text = "" Then
-            VM.kdvm_gueltig_bis = Nothing
-        Else
-            VM.kdvm_gueltig_bis = txtGueltigBis.Text
-        End If
-
-        vollmachtenArchivieren()
-
-        If Not VM.SAVE() Then
-            Me.DialogResult = Windows.Forms.DialogResult.None
-        End If
-
-        If dgvVollmachtenEmbedded.Enabled = False Then
-            dgvVollmachtenEmbedded.Enabled = True
-        End If
-
-        If btnUploadPDF.Enabled = False Then
-            btnUploadPDF.Enabled = True
-        End If
-
-        dgvVollmachtenEmbedded.GetOrder()
-        initDGVVollmachtenEmbedded(True)
-        dgvVollmachtenEmbedded.SetOrder()
-
-    End Sub
-
-    Private Sub lblNoPDFavailable_Click(sender As Object, e As EventArgs) Handles lblPDFavailable.Click
-        If currentVM2.kdvm_datenarchivId > 0 Then
-            ' cDATENSERVER.openDataTMPByDatenarchivId(id)
-            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
-            DS.OPEN_SINGLE()
-        End If
-    End Sub
-
-    'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.CheckedChanged
-    '    ' MyTextBox1.Enabled = sender.checked
-    'End Sub
-    'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.Click
-    '    'wird nicht mehr verwendet
-    '    If Not sender.checked Then
-    '        txtGueltigVon.Text = ""
-    '    Else
-    '        txtGueltigVon.Text = Now.ToShortDateString
     '    End If
+
     'End Sub
 
-    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGueltigVon.TextChanged
+    Sub init(kdnr As Integer, vollmachtartId As Integer)
-        txtGueltigVon.ForeColor = Color.Black
+        'dgvVollmachten.Rows.Clear()
-        cbxErhaltenAm.Checked = (txtGueltigVon.Text <> "")
+        Me.kdnr = kdnr
-    End Sub
+        Me.vollmachtartId = vollmachtartId
-
+        initDGV()
-    Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGueltigVon.KeyDown
+        Me.Reset()
-        If e.KeyCode = Keys.Return Then
-            btnOK.PerformClick()
-        End If
-        If e.KeyCode = Keys.Escape Then
-            Button1.PerformClick()
-        End If
-    End Sub
-
-    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
-        lbl.Text = MyComboBox1.Text
-    End Sub
-
-    Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        txtGueltigVon.Focus()
-        If txtGueltigVon.Text <> "" Then
-            cbxErhaltenAm.Checked = True
-            txtGueltigVon.SelectAll()
-        End If
 
     End Sub
 
 
-    Sub initDGVVollmachtenEmbedded(enalblePanel As Boolean)
+    Private Sub initDGV()
 
         Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
 
-        If dgvVollmachtenEmbedded.Enabled = False Then
+        If kdnr > 0 AndAlso vollmachtartId >= 0 Then
-            dgvVollmachtenEmbedded.Enabled = True
-        End If
-
-        pnlDetails.Enabled = enalblePanel
-
-        With dgvVollmachtenEmbedded
-            .Columns.Clear()
 
 
-            .DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id,  art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
+            With gdvKundenvollmachten
-                                                    " FROM [tblKundenVollmachtenArt] as art " &
+                .Columns.Clear()
-                                                    " INNER  JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
-                                                    " WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
-                                                    " ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
-
-            '  .RowTemplate.Height = 30
-            .Columns("kdvm_Id").Visible = False
-            .Columns("kdvma_Id").Visible = False
-            .Columns("kdvm_KundenNr").Visible = False
-            .Columns("kdvm_datenarchivId").Visible = False
-            .Columns("kdvma_Bezeichnung").Visible = False
-            .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
-            .Columns("kdvm_erhalten").Width = 50
-            .Columns("kdvm_erhalten").HeaderText = "Erhalten"
-            .Columns("kdvm_erhalten").Visible = False
-            .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-            .Columns("kdvm_erhalten_Datum").Width = 100
-            .Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
-            .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-            .Columns("kdvm_Info").Width = 200
-            .Columns("kdvm_Info").HeaderText = "Info"
-            .Columns("kdvm_Info").Visible = False
-            .Columns("kdvm_gueltig_bis").Visible = True
-            .Columns("kdvm_gueltig_bis").Width = 100
-            .Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
-            .Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-            .Columns("kdvm_archiviert").Visible = True
-            .Columns("kdvm_archiviert").Width = 60
-            .Columns("kdvm_archiviert").HeaderText = "Archiviert"
-            .Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-            .Columns("kdvm_vermerk").MinimumWidth = 100
-            .Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            .Columns("kdvm_vermerk").HeaderText = "Vermerk"
-            .Columns("kdvm_vermerk").Visible = True
-            .Columns("kdvm_geloescht").Visible = False
 
 
-            If True Then
+                .DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id,  art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
-
+                                                        " FROM [tblKundenVollmachtenArt] as art " &
-                Dim c As New DataGridViewImageColumn
+                                                        " INNER  JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
-                c.Name = "clmnPDF" : c.HeaderText = "PDF"
+                                                        " WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
-                c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                                                        " ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
-                c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
-                c.DefaultCellStyle.Tag = "PDF anzeigen"
-                .Columns.Add(c)
-            End If
 
 
-            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                '.RowTemplate.Height = 30
-                Case "UNISPED", "IMEX"
+                .Columns("kdvm_Id").Visible = False
-                    '.Columns("clmnTherefore").Visible = False
+                .Columns("kdvma_Id").Visible = False
-                    .Columns("clmnPDF").Visible = True
+                .Columns("kdvm_KundenNr").Visible = False
-                Case "FRONTOFFICE"
+                .Columns("kdvm_datenarchivId").Visible = False
-                    '.Columns("clmnTherefore").Visible = True
+                .Columns("kdvma_Bezeichnung").Visible = False
-                    .Columns("clmnPDF").Visible = True
+                .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-                Case Else
+                .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
-                    '.Columns("clmnTherefore").Visible = True
+                .Columns("kdvm_erhalten").Width = 50
-                    .Columns("clmnPDF").Visible = True
+                .Columns("kdvm_erhalten").HeaderText = "Erhalten"
-            End Select
+                .Columns("kdvm_erhalten").Visible = False
-            For Each r As DataGridViewRow In .Rows
+                .Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-                If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
+                .Columns("kdvm_erhalten_Datum").Width = 100
-                    r.DefaultCellStyle.ForeColor = Color.Gray
+                .Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
-                ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
+                .Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-                    r.DefaultCellStyle.ForeColor = Color.Gray
+                .Columns("kdvm_Info").Width = 200
-                ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
+                .Columns("kdvm_Info").HeaderText = "Info"
-                    r.DefaultCellStyle.ForeColor = Color.Red
+                .Columns("kdvm_Info").Visible = False
-                End If
+                .Columns("kdvm_gueltig_bis").Visible = True
-
+                .Columns("kdvm_gueltig_bis").Width = 100
-                If True Then
+                .Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
-                    If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
+                .Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
+                .Columns("kdvm_archiviert").Visible = True
-                    End If
+                .Columns("kdvm_archiviert").Width = 60
-                End If
+                .Columns("kdvm_archiviert").HeaderText = "Archiviert"
-            Next
+                .Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
-        End With
+                .Columns("kdvm_vermerk").MinimumWidth = 100
-
+                .Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-    End Sub
+                .Columns("kdvm_vermerk").HeaderText = "Vermerk"
-
+                .Columns("kdvm_vermerk").Visible = True
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVMarchivieren.CheckedChanged
+                .Columns("kdvm_geloescht").Visible = False
 
 
-        'If vbYes = MsgBox("Sollen die bestehenden Vollmachten archiviert werden?", vbYesNoCancel) Then
+            End With
-        '    Dim succeeded = ksql.setVollmachtarchivieren(kdnr, MyComboBox1._value)
-        '    If succeeded = True Then
-        '        MsgBox("Bestehende Vollmachten wurden archiviert.")
-        '        cbxVMarchivieren.Enabled = False
-        '    End If
-        'End If
-
-
-    End Sub
-
-    Private Sub dgvvollmachtenembedded_cellmouseclick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVollmachtenEmbedded.CellMouseClick
-        'für die Ermittlung des Contextmenüs -> VM löschen
-        If e.Button = Windows.Forms.MouseButtons.Right Then
-            If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
-                ContextMenuStrip1.Show(Cursor.Position)
-            End If
-        End If
-
-    End Sub
-
-    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
-        'Contextmenü -> Datensatz ändern -> wird nicht verwendet
-        If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
-
-            Dim VM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
-            loadChangedVMToPanel(True, VM)
-            setSaveButton()
-
-        End If
-    End Sub
-
-    Private Sub loadChangedVMToPanel(enablePanel As Boolean, VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
-        pnlDetails.Enabled = enablePanel
-
-        cbxArchiviert.Checked = VM.kdvm_archiviert
-        txtVermerk.Text = VM.kdvm_vermerk
-        txtGueltigVon.Text = VM.kdvm_erhalten_Datum
-        txtGueltigBis.Text = VM.kdvm_gueltig_bis
-
-
-        If VM.kdvm_datenarchivId > 0 Then
-            picDeletePDF.Visible = True
-            picPDF.Visible = True
-
-            picPDF.Image = My.Resources.pdf
-            lblPDFavailable.Text = "PDF vorhanden."
-            lblPDFavailable.Cursor = Cursors.Hand
-        Else
-            picDeletePDF.Visible = False
-            picPDF.Visible = True
-            lblPDFavailable.Text = "Kein PDF vorhanden."
-            picPDF.Image = My.Resources.pdf_gray
-        End If
-
-        setOKButton()
-
-        'Listener für Änderungen im Detail-Panel
-        For Each c As Control In pnlDetails.Controls
-            If TypeOf (c) Is CheckBox Then
-                AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged
-            ElseIf TypeOf (c) Is TextBox Then
-                AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
-            End If
-        Next
-    End Sub
-
-    Private Sub SomethingChanged(sender As Object, e As EventArgs)
-        setSaveButton()
-    End Sub
-
-
-
-
-    'Private Sub dgvVollmachtenEmbedded_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellClick
-    'wird aktuell nicht mehr verwendet
-    '    currentVM = New frmKundenZOLLVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_KundenNr").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvma_Id").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_erhalten").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_archiviert").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_erhalten_Datum").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_gueltig_bis").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_vermerk").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_datenarchivId").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
-    '    loadChangedVMToPanel(True, currentVM)
-
-    'End Sub
-
-    Private Sub dgvVollmachtenEmbedded_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellDoubleClick
-        'Öffnet das PDFs im DGV
-        If dgvVollmachtenEmbedded.Columns(e.ColumnIndex).Name = "clmnPDF" Then
-
-            If dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
-                ' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
-                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
-                DS.OPEN_SINGLE(True)
-            End If
-        End If
-    End Sub
-
-    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
-        'Contextmenü -> Löschen der VM
-        If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
-
-            If vbYes = MsgBox("Soll diese Vollmacht gelöscht werden?", vbYesNoCancel) Then
-                Dim vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
-                vollmacht.kdvm_geloescht = True
-
-                If vollmacht.SAVE = True Then
-                    MsgBox("Bestehende Vollmacht wurde gelöscht.")
-                    initDGVVollmachtenEmbedded(False)
-
-                End If
-            End If
 
         End If
 
+
     End Sub
-    Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
-        'Neuanlage einer VM
-        dgvVollmachtenEmbedded.ClearSelection()
 
-        If dgvVollmachtenEmbedded.Rows.Count > 0 Then
-            cbxVMarchivieren.Visible = True
-            cbxVMarchivieren.Checked = True
-        End If
 
-        dgvVollmachtenEmbedded.Enabled = False
-        btnUploadPDF.Enabled = False
 
-        currentVM2 = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
+    Public Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
-            .kdvm_KundenNr = kdnr,
+
-            .kdvm_kdvmaId = vollmachtartId,
+        vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
+            .kdvm_KundenNr = Me.kdnr,
+            .kdvm_kdvmaId = Me.vollmachtartId,
             .kdvm_Info = "",
             .kdvm_erhalten = False,
             .kdvm_archiviert = False,
@@ -460,16 +130,81 @@ Public Class usrCntlKundenZOLLVollmachten
             .kdvm_erhalten_Datum = Now.ToShortDateString
         }
 
-        loadChangedVMToPanel(True, currentVM2)
+        vollmacht.kdvm_gueltig_bis = txtGueltigBis
-        setSaveButton()
+
+        vollmacht.kdvm_vermerk = Me.txtVermerkNew.Text
+
+        vollmacht.kdvm_archiviert = Me.cbxArchiviert.Checked
+
+        If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
+            txtGueltigVon.ForeColor = Color.Red
+            lblWarning.Visible = True
+            Exit Sub
+        Else
+            vollmacht.kdvm_erhalten_Datum = txtGueltigVon.Text
+            vollmacht.kdvm_gueltig_ab = txtGueltigVon.Text
+            vollmacht.kdvm_erhalten = True
+        End If
+
+        If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
+            txtGueltigBis.ForeColor = Color.Red
+            Exit Sub
+
+        ElseIf txtGueltigBis.Text = "" Then
+            vollmacht.kdvm_gueltig_bis = Nothing
+        Else
+            vollmacht.kdvm_gueltig_bis = txtGueltigBis.Text
+        End If
+
+
+
+        If vollmacht.SAVEVM > 0 Then
+            vollmachtenArchivieren()
+            vmId = vollmacht.SAVEVM
+
+        End If
+
 
     End Sub
 
+    Private Sub loadChangedVMToUsrCntl(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
+
+        Me.Reset()
+        cbxArchiviert.Checked = VM.kdvm_archiviert
+        txtVermerkNew.Text = VM.kdvm_vermerk
+        txtGueltigVon.Text = VM.kdvm_erhalten_Datum
+        txtGueltigBis.Text = VM.kdvm_gueltig_bis
+
+
+
+    End Sub
+
+    Public Sub Reset()
+
+        If gdvKundenvollmachten.Rows.Count > 0 Then
+            cbxVMarchivieren.Visible = True
+            cbxVMarchivieren.Checked = True
+
+        Else
+            cbxVMarchivieren.Visible = False
+            cbxVMarchivieren.Checked = False
+
+        End If
+
+        txtGueltigBis.Clear()
+        txtGueltigVon.Clear()
+        txtGueltigVon.Text = Now.ToShortDateString
+        txtVermerkNew.Clear()
+        cbxArchiviert.Checked = False
+
+    End Sub
+
+
     Private Sub vollmachtenArchivieren()
 
         If cbxVMarchivieren.Checked = False Then Exit Sub
         Dim count As Integer = 0
-        With dgvVollmachtenEmbedded
+        With gdvKundenvollmachten
 
             For Each r As DataGridViewRow In .Rows
                 Dim VMindex = r.Cells("kdvm_Id").Value
@@ -492,48 +227,4 @@ Public Class usrCntlKundenZOLLVollmachten
 
     End Sub
 
-    Private Sub setSaveButton()
-
-        btnOK.Visible = False
-        btnSave.Visible = True
-
-    End Sub
-
-    Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachtenEmbedded.SelectionChanged
-
-
-        If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
-            Dim rowindex = dgvVollmachtenEmbedded.SelectedRows(0).Index
-            currentVM2 = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
-
-            loadChangedVMToPanel(True, currentVM2)
-
-            If dgvVollmachtenEmbedded.Enabled = False Then Exit Sub
-            vmId = dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value
-            If btnUploadPDF.Enabled = False Then
-                btnUploadPDF.Enabled = True
-            End If
-        End If
-    End Sub
-
-    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
-        saveVM(currentVM2)
-        setOKButton()
-    End Sub
-
-    Private Sub setOKButton()
-        btnOK.Visible = True
-        btnSave.Visible = False
-    End Sub
-
-    Private Sub hidePDFControl(hide As Boolean)
-
-        If hide Then
-            btnUploadPDF.Visible = False
-            picDeletePDF.Visible = False
-            lblPDFavailable.Visible = False
-            picPDF.Visible = False
-        End If
-
-    End Sub
 End Class

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1566,7 +1566,7 @@ Public Class usrCntlKundenuebersicht
                 'Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
                 'Dim gueltigBis = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value Is DBNull.Value, Nothing, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value)
                 'Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_archiviert").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_vermerk").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
-                Dim l As New usrCntlKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
+                Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value) '
                 If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
                     l.initDGVVollmachtenEmbedded(False)
                     'initDGVVollmachten()
@@ -2517,7 +2517,7 @@ Public Class usrCntlKundenuebersicht
                     For Each W In FileList
                         If Not W.ToUpper.EndsWith(".EXE") Then
                             Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
-                            Dim l As New usrCntlKundenZOLLVollmachten(kdNr, -1, W)
+                            Dim l As New frmKundenZOLLVollmachten(kdNr, -1, W)
                             If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
                                 initDGVVollmachten()
                             End If
@@ -2567,7 +2567,7 @@ Public Class usrCntlKundenuebersicht
         If sender.name.contains("kdvma_id_") Then
             Dim vmaText As String = sender.name.ToString.Replace("kdvma_id_", "")
             Dim vmaNr As Integer = Convert.ToInt32(vmaText)
-            Dim l As New usrCntlKundenZOLLVollmachten(kdNr, vmaNr)
+            Dim l As New frmKundenZOLLVollmachten(kdNr, vmaNr)
             If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
 
             End If

SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb

@@ -100,7 +100,7 @@
         txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "")
         txtTransportRoute.Text = If(BB.bb_Route, "")
         txtDerzeitigerLieferant.Text = If(BB.bb_DerzeitigerLieferant, "")
-        cboZufrieden.changeItem(If(BB.bb_Zufrieden, ""))
+        cboZufrieden.changeItem(If(BB.bb_Zufrieden.ToString, ""))
 
         txtZufriedenNEIN.Text = If(BB.bb_ZufriedenNEIN, "")
         txtGarantie.Text = If(BB.bb_Garantie, "")

VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb

@@ -15,6 +15,7 @@ Public Class cKundenVollmachten 'in Arbeit!
     Property kdvm_gueltig_ab As Object = Nothing
     Property kdvm_vermerk As Object = Nothing
     Property kdvm_geloescht As Boolean = False
+    Property kdvm_emailId As Object = Nothing
 
     Public hasEntry = False
 
@@ -47,6 +48,7 @@ Public Class cKundenVollmachten 'in Arbeit!
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_ab", kdvm_gueltig_ab))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_vermerk", kdvm_vermerk))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_geloescht", kdvm_geloescht))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_emailId", kdvm_emailId))
 
         Return list
     End Function
@@ -65,6 +67,19 @@ Public Class cKundenVollmachten 'in Arbeit!
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVEVM() As Integer
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVollmachten  WHERE kdvm_Id=@kdvm_Id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        kdvm_Id = SQL.doSQLVarListID(kdvm_Id, sqlstr, "FMZOLL", , list)
+        Return kdvm_Id
+    End Function
+
     Public Sub LOAD()
         Try
             hasEntry = False