diff --git a/DISPO.sln b/DISPO.sln
index e52816c..e4cfe1e 100644
--- a/DISPO.sln
+++ b/DISPO.sln
@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.27703.2047
+# Visual Studio Version 17
+VisualStudioVersion = 17.8.34316.72
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DISPO", "UID\DISPO.vbproj", "{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}"
 	ProjectSection(ProjectDependencies) = postProject
@@ -11,56 +11,136 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DISPO", "UID\DISPO.vbproj",
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DISPOUpdater", "DISPOUpdater\DISPOUpdater.vbproj", "{F3128F98-87CF-4D7E-8008-43148BD814E1}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SDL", "..\..\SDL\SDL\SDL\SDL.vbproj", "{289BCD77-BC00-4BA1-95ED-A79176D99525}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
+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}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
+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}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
+		Debug|x64 = Debug|x64
 		Debug|x86 = Debug|x86
 		Release|Any CPU = Release|Any CPU
+		Release|x64 = Release|x64
 		Release|x86 = Release|x86
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x64.Build.0 = Debug|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Debug|x86.Build.0 = Debug|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|Any CPU.Build.0 = Release|Any CPU
+		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x64.ActiveCfg = Release|Any CPU
+		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x64.Build.0 = Release|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x86.ActiveCfg = Release|Any CPU
 		{6EB4D3A4-3CF2-4651-9AF9-AD5F727DF403}.Release|x86.Build.0 = Release|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Debug|x64.Build.0 = Debug|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Debug|x86.Build.0 = Debug|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Release|Any CPU.Build.0 = Release|Any CPU
+		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Release|x64.ActiveCfg = Release|Any CPU
+		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Release|x64.Build.0 = Release|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Release|x86.ActiveCfg = Release|Any CPU
 		{F3128F98-87CF-4D7E-8008-43148BD814E1}.Release|x86.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.Build.0 = Debug|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
-		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.Build.0 = Release|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|x64
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.Build.0 = Debug|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|x64
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|x64
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.Build.0 = Release|Any CPU
-		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x86
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x64.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|x86.Build.0 = Debug|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Any CPU.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x64.Build.0 = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|x86.ActiveCfg = Release|Any CPU
+		{289BCD77-BC00-4BA1-95ED-A79176D99525}.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|x64.ActiveCfg = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x64.Build.0 = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|x86.Build.0 = Debug|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Any CPU.Build.0 = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.ActiveCfg = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x64.Build.0 = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|x86.ActiveCfg = Release|Any CPU
+		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.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|x64.ActiveCfg = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x64.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|x64.ActiveCfg = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x64.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
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x64.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.ActiveCfg = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Debug|x86.Build.0 = Debug|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x64.ActiveCfg = Release|Any CPU
+		{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x64.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
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.Build.0 = Debug|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x64.ActiveCfg = Debug|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x64.Build.0 = Debug|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.Build.0 = Debug|x86
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Any CPU.ActiveCfg = Release|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|Any CPU.Build.0 = Release|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x64.ActiveCfg = Release|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x64.Build.0 = Release|x64
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.ActiveCfg = Release|x86
+		{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Release|x86.Build.0 = Release|x86
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.Build.0 = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x64.ActiveCfg = Debug|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x64.Build.0 = Debug|x64
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.ActiveCfg = Debug|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.Build.0 = Debug|x86
-		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.ActiveCfg = Release|x86
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.ActiveCfg = Release|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.Build.0 = Release|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x64.ActiveCfg = Release|x64
+		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x64.Build.0 = Release|x64
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
 	EndGlobalSection
diff --git a/UID/DISPO.vbproj b/UID/DISPO.vbproj
index 067901a..5cbc1c9 100644
--- a/UID/DISPO.vbproj
+++ b/UID/DISPO.vbproj
@@ -11,7 +11,7 @@
     <AssemblyName>DISPO</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <IsWebBootstrapper>false</IsWebBootstrapper>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
@@ -358,11 +358,9 @@
     <Compile Include="frmHistory.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmMain.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmMain.Designer.vb">
-      <DependentUpon>frmMain.vb</DependentUpon>
+    <Compile Include="old_frmMain.vb" />
+    <Compile Include="old_frmMain.Designer.vb">
+      <DependentUpon>old_frmMain.vb</DependentUpon>
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="frmMitarbDetails.Designer.vb">
@@ -393,6 +391,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Settings.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -573,8 +572,8 @@
     <EmbeddedResource Include="frmHistory.resx">
       <DependentUpon>frmHistory.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmMain.resx">
-      <DependentUpon>frmMain.vb</DependentUpon>
+    <EmbeddedResource Include="old_frmMain.resx">
+      <DependentUpon>old_frmMain.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmMitarbDetails.resx">
       <DependentUpon>frmMitarbDetails.vb</DependentUpon>
@@ -784,6 +783,8 @@
     <None Include="Resources\Firmen30_2.png" />
     <None Include="Resources\Auftrag_30.png" />
     <None Include="Resources\aviso_messenger.png" />
+    <None Include="Resources\ambar_simple.png" />
+    <None Include="Resources\DispoAMBAR.jpg" />
     <Content Include="Resources\Info.txt" />
     <None Include="Resources\lorry_motion.jpg" />
     <None Include="Resources\lorry_motion.png" />
@@ -796,18 +797,9 @@
     <None Include="Resources\saveas20.png" />
     <None Include="Resources\links20.png" />
     <None Include="Resources\Print20x20.png" />
+    <None Include="Resources\QS.jpg" />
     <Content Include="uid.ico" />
   </ItemGroup>
-  <ItemGroup>
-    <ProjectReference Include="..\..\..\SDL\SDL\SDL\SDL.vbproj">
-      <Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
-      <Name>SDL</Name>
-    </ProjectReference>
-    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
-      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
-      <Name>VERAG_PROG_ALLGEMEIN</Name>
-    </ProjectReference>
-  </ItemGroup>
   <ItemGroup>
     <PublishFile Include="es\Microsoft.ReportViewer.Common.resources">
       <Visible>False</Visible>
@@ -1603,6 +1595,16 @@
   <ItemGroup>
     <WCFMetadata Include="Connected Services\" />
   </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\..\..\SDL\SDL\SDL\SDL.vbproj">
+      <Project>{289bcd77-bc00-4ba1-95ed-a79176d99525}</Project>
+      <Name>SDL</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
+      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
+      <Name>VERAG_PROG_ALLGEMEIN</Name>
+    </ProjectReference>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/UID/DataSet1.Designer.vb b/UID/DataSet1.Designer.vb
index 84fd920..1532138 100644
--- a/UID/DataSet1.Designer.vb
+++ b/UID/DataSet1.Designer.vb
@@ -28,7 +28,7 @@ Partial Public Class DataSet1
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Sub New()
         MyBase.New
         Me.BeginInit
@@ -40,7 +40,7 @@ Partial Public Class DataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
         MyBase.New(info, context, false)
         If (Me.IsBinarySerialized(info, context) = true) Then
@@ -72,7 +72,7 @@ Partial Public Class DataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.BrowsableAttribute(true),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -85,7 +85,7 @@ Partial Public Class DataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
         Get
@@ -94,7 +94,7 @@ Partial Public Class DataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
         Get
@@ -103,7 +103,7 @@ Partial Public Class DataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub InitializeDerivedDataSet()
         Me.BeginInit
         Me.InitClass
@@ -111,7 +111,7 @@ Partial Public Class DataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Overrides Function Clone() As Global.System.Data.DataSet
         Dim cln As DataSet1 = CType(MyBase.Clone,DataSet1)
         cln.InitVars
@@ -120,19 +120,19 @@ Partial Public Class DataSet1
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeTables() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeRelations() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
             Me.Reset
@@ -153,7 +153,7 @@ Partial Public Class DataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -162,18 +162,18 @@ Partial Public Class DataSet1
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars()
         Me.InitVars(true)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub InitClass()
         Me.DataSetName = "DataSet1"
         Me.Prefix = ""
@@ -183,7 +183,7 @@ Partial Public Class DataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
             Me.InitVars
@@ -191,7 +191,7 @@ Partial Public Class DataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
         Dim ds As DataSet1 = New DataSet1()
         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
diff --git a/UID/My Project/Application.Designer.vb b/UID/My Project/Application.Designer.vb
index 4ca5bc8..20bec8d 100644
--- a/UID/My Project/Application.Designer.vb	
+++ b/UID/My Project/Application.Designer.vb	
@@ -34,5 +34,11 @@ Namespace My
         Protected Overrides Sub OnCreateMainForm()
             Me.MainForm = Global.DISPO.frmLogin
         End Sub
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
+        Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
+            Me.MinimumSplashScreenDisplayTime = 0
+            Return MyBase.OnInitialize(commandLineArgs)
+        End Function
     End Class
 End Namespace
diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb
index 1479374..ea45673 100644
--- a/UID/My Project/AssemblyInfo.vb	
+++ b/UID/My Project/AssemblyInfo.vb	
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.2.0.1")>
+<Assembly: AssemblyFileVersion("1.2.0.1")>
 <Assembly: NeutralResourcesLanguage("")>
diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb
index 8a121c0..1356e80 100644
--- a/UID/My Project/Resources.Designer.vb	
+++ b/UID/My Project/Resources.Designer.vb	
@@ -70,6 +70,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ambar_simple() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ambar_simple", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -216,6 +226,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property DispoAMBAR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DispoAMBAR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Version 1.0.4.0 (02.05.2016)
         '''	- diverse Korrekturen (DB)
@@ -324,6 +344,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property QS() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("QS", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -423,14 +453,5 @@ Namespace My.Resources
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.0.10.9 ähnelt.
-        '''</summary>
-        Friend ReadOnly Property Version() As String
-            Get
-                Return ResourceManager.GetString("Version", resourceCulture)
-            End Get
-        End Property
     End Module
 End Namespace
diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx
index 0208356..52dd3f7 100644
--- a/UID/My Project/Resources.resx	
+++ b/UID/My Project/Resources.resx	
@@ -151,9 +151,6 @@
   <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\uid.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Version" xml:space="preserve">
-    <value>1.0.10.9</value>
-  </data>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -228,4 +225,13 @@
   <data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <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="DispoAMBAR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DispoAMBAR.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="QS" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\QS.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>
\ No newline at end of file
diff --git a/UID/My Project/Settings.Designer.vb b/UID/My Project/Settings.Designer.vb
index 55168e2..a6d564e 100644
--- a/UID/My Project/Settings.Designer.vb	
+++ b/UID/My Project/Settings.Designer.vb	
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.2.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.8.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
diff --git a/UID/Reports/Auswertung/frmAuswertung.vb b/UID/Reports/Auswertung/frmAuswertung.vb
index 2f781ba..cf2cb11 100644
--- a/UID/Reports/Auswertung/frmAuswertung.vb
+++ b/UID/Reports/Auswertung/frmAuswertung.vb
@@ -115,6 +115,12 @@ Public Class frmAuswertung
             cbStandort.SelectedItem = "4819 - Verag Neuhaus"
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            cbStandort.Items.Clear()
+            cbStandort.Items.Add("5701 - AMBAR")
+            cbStandort.SelectedIndex = 0
+        End If
+
         PanJahr.Enabled = False
         PanMonat.Enabled = True
 
@@ -267,6 +273,8 @@ Public Class frmAuswertung
             filialnr = "4807"
         ElseIf cbStandort.SelectedItem = "4819 - Verag Neuhaus" Then
             filialnr = "4819"
+        ElseIf cbStandort.SelectedItem.ToString.StartsWith("5701") Then
+            filialnr = "5701"
         End If
         Return filialnr
 
diff --git a/UID/Reports/Auswertung/rptAuswertung.vb b/UID/Reports/Auswertung/rptAuswertung.vb
index 1743d2a..d46e3c4 100644
--- a/UID/Reports/Auswertung/rptAuswertung.vb
+++ b/UID/Reports/Auswertung/rptAuswertung.vb
@@ -40,4 +40,10 @@ Public Class rptAuswertung
         End If
 
     End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture1.Image = My.Resources.ambar_simple
+        End If
+    End Sub
 End Class
diff --git a/UID/Reports/Auswertung/rptAuswertungLandscape.vb b/UID/Reports/Auswertung/rptAuswertungLandscape.vb
index 630ede6..42944f9 100644
--- a/UID/Reports/Auswertung/rptAuswertungLandscape.vb
+++ b/UID/Reports/Auswertung/rptAuswertungLandscape.vb
@@ -66,5 +66,9 @@ Public Class rptAuswertungLandscape
         ElseIf frmAuswertung.Suchauswertung Then
             txtUeberschrift.Text = "Suchauswertung"
         End If
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture1.Image = My.Resources.ambar_simple
+        End If
+
     End Sub
 End Class
diff --git a/UID/Reports/TransportAuftrag/rptTransportauftrag.vb b/UID/Reports/TransportAuftrag/rptTransportauftrag.vb
index 6eb8e3f..ffa9a87 100644
--- a/UID/Reports/TransportAuftrag/rptTransportauftrag.vb
+++ b/UID/Reports/TransportAuftrag/rptTransportauftrag.vb
@@ -56,6 +56,18 @@ Public Class rptTransportauftrag
                         "Abrechnungspartner: " & vbCrLf &
                         "VERAG Spedition AG in" & vbCrLf &
                         "A-4975 Suben, Nr. 100"
+        ElseIf Standort = "5701" Or Standort = "AMBAR" Then
+            FilialNr = "5701"
+            txtVerag.Text = "AMBAR Logistic Services GmbH"
+            txtVeragAnschrift.Text = "Reichenhallerstrasse 62" & vbCrLf &
+                        "D 83435 Bad Reichenhall" & vbCrLf &
+                        "Tel. +49 8651 99624911 " & vbCrLf &
+                        "dispo@ambarlog.com" & vbCrLf &
+                        "UID: DE309105428" & vbCrLf
+
+
+            Picture1.Image = My.Resources.ambar_simple
+            TextBox2.Text = TextBox2.Text.Replace("Österreichischen", "Deutschen")
         End If
 
         txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)
diff --git a/UID/Reports/frmPrintActiveReports.vb b/UID/Reports/frmPrintActiveReports.vb
index 5f91d51..ea1ba5f 100644
--- a/UID/Reports/frmPrintActiveReports.vb
+++ b/UID/Reports/frmPrintActiveReports.vb
@@ -32,6 +32,7 @@ Public Class frmPrintActiveReports
             Dim report As New rptTransportauftrag
             report.Standort = Standort
             report.printTrip = printTrip
+            
             report.Printauftrag = printauftrag
             '  report.CMR = CMR
             Viewer1.LoadDocument(report)
diff --git a/UID/Resources/DispoAMBAR.jpg b/UID/Resources/DispoAMBAR.jpg
new file mode 100644
index 0000000..f9f544f
Binary files /dev/null and b/UID/Resources/DispoAMBAR.jpg differ
diff --git a/UID/Resources/QS.jpg b/UID/Resources/QS.jpg
new file mode 100644
index 0000000..36d6c7a
Binary files /dev/null and b/UID/Resources/QS.jpg differ
diff --git a/UID/Resources/ambar_simple.png b/UID/Resources/ambar_simple.png
new file mode 100644
index 0000000..12946ee
Binary files /dev/null and b/UID/Resources/ambar_simple.png differ
diff --git a/UID/UIDDataSet.Designer.vb b/UID/UIDDataSet.Designer.vb
index 75e6823..58460d1 100644
--- a/UID/UIDDataSet.Designer.vb
+++ b/UID/UIDDataSet.Designer.vb
@@ -30,7 +30,7 @@ Partial Public Class UIDDataSet
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Sub New()
         MyBase.New
         Me.BeginInit
@@ -42,7 +42,7 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
         MyBase.New(info, context, false)
         If (Me.IsBinarySerialized(info, context) = true) Then
@@ -77,7 +77,7 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.Browsable(false),  _
      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
     Public ReadOnly Property tblData() As tblDataDataTable
@@ -87,7 +87,7 @@ Partial Public Class UIDDataSet
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.BrowsableAttribute(true),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -100,7 +100,7 @@ Partial Public Class UIDDataSet
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
         Get
@@ -109,7 +109,7 @@ Partial Public Class UIDDataSet
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
         Get
@@ -118,7 +118,7 @@ Partial Public Class UIDDataSet
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub InitializeDerivedDataSet()
         Me.BeginInit
         Me.InitClass
@@ -126,7 +126,7 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Overrides Function Clone() As Global.System.Data.DataSet
         Dim cln As UIDDataSet = CType(MyBase.Clone,UIDDataSet)
         cln.InitVars
@@ -135,19 +135,19 @@ Partial Public Class UIDDataSet
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeTables() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeRelations() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
             Me.Reset
@@ -171,7 +171,7 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -180,13 +180,13 @@ Partial Public Class UIDDataSet
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars()
         Me.InitVars(true)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
         Me.tabletblData = CType(MyBase.Tables("tblData"),tblDataDataTable)
         If (initTable = true) Then
@@ -197,7 +197,7 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub InitClass()
         Me.DataSetName = "UIDDataSet"
         Me.Prefix = ""
@@ -209,13 +209,13 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Function ShouldSerializetblData() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
             Me.InitVars
@@ -223,7 +223,7 @@ Partial Public Class UIDDataSet
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
         Dim ds As UIDDataSet = New UIDDataSet()
         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -272,7 +272,7 @@ Partial Public Class UIDDataSet
         Return type
     End Function
     
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Delegate Sub tblDataRowChangeEventHandler(ByVal sender As Object, ByVal e As tblDataRowChangeEvent)
     
     '''<summary>
@@ -306,7 +306,7 @@ Partial Public Class UIDDataSet
         Private columnletzter_benutzer As Global.System.Data.DataColumn
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
             MyBase.New
             Me.TableName = "tblData"
@@ -316,7 +316,7 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub New(ByVal table As Global.System.Data.DataTable)
             MyBase.New
             Me.TableName = table.TableName
@@ -334,14 +334,14 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
             MyBase.New(info, context)
             Me.InitVars
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property IdColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnId
@@ -349,7 +349,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property deaktColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columndeakt
@@ -357,7 +357,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property kuerzelColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnkuerzel
@@ -365,7 +365,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property firmaColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnfirma
@@ -373,7 +373,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property uidColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnuid
@@ -381,7 +381,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property eoriColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columneori
@@ -389,7 +389,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property infoColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columninfo
@@ -397,7 +397,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property de_vz_vmColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnde_vz_vm
@@ -405,7 +405,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property de_fisk_vmColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnde_fisk_vm
@@ -413,7 +413,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property at_vzfisk_vmColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnat_vzfisk_vm
@@ -421,7 +421,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property letzter_benutzerColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnletzter_benutzer
@@ -429,7 +429,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public ReadOnly Property Count() As Integer
             Get
@@ -438,33 +438,33 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Default ReadOnly Property Item(ByVal index As Integer) As tblDataRow
             Get
                 Return CType(Me.Rows(index),tblDataRow)
             End Get
         End Property
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblDataRowChanging As tblDataRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblDataRowChanged As tblDataRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblDataRowDeleting As tblDataRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblDataRowDeleted As tblDataRowChangeEventHandler
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overloads Sub AddtblDataRow(ByVal row As tblDataRow)
             Me.Rows.Add(row)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overloads Function AddtblDataRow(ByVal deakt As Boolean, ByVal kuerzel As String, ByVal firma As String, ByVal uid As String, ByVal eori As String, ByVal info As String, ByVal de_vz_vm As String, ByVal de_fisk_vm As String, ByVal at_vzfisk_vm As String, ByVal letzter_benutzer As String) As tblDataRow
             Dim rowtblDataRow As tblDataRow = CType(Me.NewRow,tblDataRow)
             Dim columnValuesArray() As Object = New Object() {Nothing, deakt, kuerzel, firma, uid, eori, info, de_vz_vm, de_fisk_vm, at_vzfisk_vm, letzter_benutzer}
@@ -474,13 +474,13 @@ Partial Public Class UIDDataSet
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function FindById(ByVal Id As Integer) As tblDataRow
             Return CType(Me.Rows.Find(New Object() {Id}),tblDataRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overrides Function Clone() As Global.System.Data.DataTable
             Dim cln As tblDataDataTable = CType(MyBase.Clone,tblDataDataTable)
             cln.InitVars
@@ -488,13 +488,13 @@ Partial Public Class UIDDataSet
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
             Return New tblDataDataTable()
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub InitVars()
             Me.columnId = MyBase.Columns("Id")
             Me.columndeakt = MyBase.Columns("deakt")
@@ -510,7 +510,7 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitClass()
             Me.columnId = New Global.System.Data.DataColumn("Id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnId)
@@ -554,25 +554,25 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function NewtblDataRow() As tblDataRow
             Return CType(Me.NewRow,tblDataRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
             Return New tblDataRow(builder)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function GetRowType() As Global.System.Type
             Return GetType(tblDataRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowChanged(e)
             If (Not (Me.tblDataRowChangedEvent) Is Nothing) Then
@@ -581,7 +581,7 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowChanging(e)
             If (Not (Me.tblDataRowChangingEvent) Is Nothing) Then
@@ -590,7 +590,7 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowDeleted(e)
             If (Not (Me.tblDataRowDeletedEvent) Is Nothing) Then
@@ -599,7 +599,7 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowDeleting(e)
             If (Not (Me.tblDataRowDeletingEvent) Is Nothing) Then
@@ -608,13 +608,13 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub RemovetblDataRow(ByVal row As tblDataRow)
             Me.Rows.Remove(row)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -689,14 +689,14 @@ Partial Public Class UIDDataSet
         Private tabletblData As tblDataDataTable
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
             MyBase.New(rb)
             Me.tabletblData = CType(Me.Table,tblDataDataTable)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property Id() As Integer
             Get
                 Return CType(Me(Me.tabletblData.IdColumn),Integer)
@@ -707,7 +707,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property deakt() As Boolean
             Get
                 Return CType(Me(Me.tabletblData.deaktColumn),Boolean)
@@ -718,7 +718,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property kuerzel() As String
             Get
                 Try 
@@ -733,7 +733,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property firma() As String
             Get
                 Try 
@@ -748,7 +748,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property uid() As String
             Get
                 Try 
@@ -763,7 +763,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property eori() As String
             Get
                 Try 
@@ -778,7 +778,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property info() As String
             Get
                 Try 
@@ -793,7 +793,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property de_vz_vm() As String
             Get
                 Try 
@@ -808,7 +808,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property de_fisk_vm() As String
             Get
                 Try 
@@ -823,7 +823,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property at_vzfisk_vm() As String
             Get
                 Try 
@@ -838,7 +838,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property letzter_benutzer() As String
             Get
                 Try 
@@ -853,109 +853,109 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IskuerzelNull() As Boolean
             Return Me.IsNull(Me.tabletblData.kuerzelColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetkuerzelNull()
             Me(Me.tabletblData.kuerzelColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsfirmaNull() As Boolean
             Return Me.IsNull(Me.tabletblData.firmaColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetfirmaNull()
             Me(Me.tabletblData.firmaColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsuidNull() As Boolean
             Return Me.IsNull(Me.tabletblData.uidColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetuidNull()
             Me(Me.tabletblData.uidColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IseoriNull() As Boolean
             Return Me.IsNull(Me.tabletblData.eoriColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SeteoriNull()
             Me(Me.tabletblData.eoriColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function IsinfoNull() As Boolean
             Return Me.IsNull(Me.tabletblData.infoColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub SetinfoNull()
             Me(Me.tabletblData.infoColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Isde_vz_vmNull() As Boolean
             Return Me.IsNull(Me.tabletblData.de_vz_vmColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setde_vz_vmNull()
             Me(Me.tabletblData.de_vz_vmColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Isde_fisk_vmNull() As Boolean
             Return Me.IsNull(Me.tabletblData.de_fisk_vmColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setde_fisk_vmNull()
             Me(Me.tabletblData.de_fisk_vmColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Isat_vzfisk_vmNull() As Boolean
             Return Me.IsNull(Me.tabletblData.at_vzfisk_vmColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setat_vzfisk_vmNull()
             Me(Me.tabletblData.at_vzfisk_vmColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Isletzter_benutzerNull() As Boolean
             Return Me.IsNull(Me.tabletblData.letzter_benutzerColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setletzter_benutzerNull()
             Me(Me.tabletblData.letzter_benutzerColumn) = Global.System.Convert.DBNull
         End Sub
@@ -964,7 +964,7 @@ Partial Public Class UIDDataSet
     '''<summary>
     '''Row event argument class
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Class tblDataRowChangeEvent
         Inherits Global.System.EventArgs
         
@@ -973,7 +973,7 @@ Partial Public Class UIDDataSet
         Private eventAction As Global.System.Data.DataRowAction
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New(ByVal row As tblDataRow, ByVal action As Global.System.Data.DataRowAction)
             MyBase.New
             Me.eventRow = row
@@ -981,7 +981,7 @@ Partial Public Class UIDDataSet
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property Row() As tblDataRow
             Get
                 Return Me.eventRow
@@ -989,7 +989,7 @@ Partial Public Class UIDDataSet
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
             Get
                 Return Me.eventAction
@@ -1023,14 +1023,14 @@ Namespace UIDDataSetTableAdapters
         Private _clearBeforeFill As Boolean
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
             MyBase.New
             Me.ClearBeforeFill = true
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
             Get
                 If (Me._adapter Is Nothing) Then
@@ -1041,7 +1041,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
             Get
                 If (Me._connection Is Nothing) Then
@@ -1071,7 +1071,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
             Get
                 Return Me._transaction
@@ -1099,7 +1099,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
             Get
                 If (Me._commandCollection Is Nothing) Then
@@ -1110,7 +1110,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property ClearBeforeFill() As Boolean
             Get
                 Return Me._clearBeforeFill
@@ -1121,7 +1121,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitAdapter()
             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
@@ -1243,16 +1243,16 @@ Namespace UIDDataSetTableAdapters
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_letzter_benutzer", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "letzter_benutzer", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "Id", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
         End Sub
-
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>
+        
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = My.Settings.connToUID 'Global.UID.My.MySettings.Default.connToUID
+            Me._connection.ConnectionString = VERAG_PROG_ALLGEMEIN.SQL.GetDISPOConnectionString
         End Sub
-
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitCommandCollection()
             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
@@ -1263,7 +1263,7 @@ Namespace UIDDataSetTableAdapters
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
         Public Overloads Overridable Function Fill(ByVal dataTable As UIDDataSet.tblDataDataTable) As Integer
@@ -1276,7 +1276,7 @@ Namespace UIDDataSetTableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
         Public Overloads Overridable Function GetData() As UIDDataSet.tblDataDataTable
@@ -1287,35 +1287,35 @@ Namespace UIDDataSetTableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataTable As UIDDataSet.tblDataDataTable) As Integer
             Return Me.Adapter.Update(dataTable)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataSet As UIDDataSet) As Integer
             Return Me.Adapter.Update(dataSet, "tblData")
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
             Return Me.Adapter.Update(dataRows)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
         Public Overloads Overridable Function Delete(ByVal Original_Id As Integer, ByVal Original_deakt As Boolean, ByVal Original_kuerzel As String, ByVal Original_firma As String, ByVal Original_uid As String, ByVal Original_eori As String, ByVal Original_info As String, ByVal Original_de_vz_vm As String, ByVal Original_de_fisk_vm As String, ByVal Original_at_vzfisk_vm As String, ByVal Original_letzter_benutzer As String) As Integer
@@ -1400,7 +1400,7 @@ Namespace UIDDataSetTableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
         Public Overloads Overridable Function Insert(ByVal deakt As Boolean, ByVal kuerzel As String, ByVal firma As String, ByVal uid As String, ByVal eori As String, ByVal info As String, ByVal de_vz_vm As String, ByVal de_fisk_vm As String, ByVal at_vzfisk_vm As String, ByVal letzter_benutzer As String) As Integer
@@ -1466,7 +1466,7 @@ Namespace UIDDataSetTableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
         Public Overloads Overridable Function Update( _
@@ -1620,7 +1620,7 @@ Namespace UIDDataSetTableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
         Public Overloads Overridable Function Update( _
@@ -1669,7 +1669,7 @@ Namespace UIDDataSetTableAdapters
         Private _connection As Global.System.Data.IDbConnection
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property UpdateOrder() As UpdateOrderOption
             Get
                 Return Me._updateOrder
@@ -1680,7 +1680,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 
             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ 
             "a", "System.Drawing.Design.UITypeEditor")>  _
@@ -1694,7 +1694,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property BackupDataSetBeforeUpdate() As Boolean
             Get
                 Return Me._backupDataSetBeforeUpdate
@@ -1705,7 +1705,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public Property Connection() As Global.System.Data.IDbConnection
             Get
@@ -1724,7 +1724,7 @@ Namespace UIDDataSetTableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public ReadOnly Property TableAdapterInstanceCount() As Integer
             Get
@@ -1740,7 +1740,7 @@ Namespace UIDDataSetTableAdapters
         '''Update rows in top-down order.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function UpdateUpdatedRows(ByVal dataSet As UIDDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
             If (Not (Me._tblDataTableAdapter) Is Nothing) Then
@@ -1759,7 +1759,7 @@ Namespace UIDDataSetTableAdapters
         '''Insert rows in top-down order.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function UpdateInsertedRows(ByVal dataSet As UIDDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
             If (Not (Me._tblDataTableAdapter) Is Nothing) Then
@@ -1777,7 +1777,7 @@ Namespace UIDDataSetTableAdapters
         '''Delete rows in bottom-up order.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function UpdateDeletedRows(ByVal dataSet As UIDDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
             If (Not (Me._tblDataTableAdapter) Is Nothing) Then
@@ -1795,7 +1795,7 @@ Namespace UIDDataSetTableAdapters
         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
             If ((updatedRows Is Nothing)  _
                         OrElse (updatedRows.Length < 1)) Then
@@ -1821,7 +1821,7 @@ Namespace UIDDataSetTableAdapters
         '''Update all changes to the dataset.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overridable Function UpdateAll(ByVal dataSet As UIDDataSet) As Integer
             If (dataSet Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("dataSet")
@@ -1956,13 +1956,13 @@ Namespace UIDDataSetTableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
             If (Not (Me._connection) Is Nothing) Then
                 Return true
@@ -1980,7 +1980,7 @@ Namespace UIDDataSetTableAdapters
         '''<summary>
         '''Update Order Option
         '''</summary>
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Enum UpdateOrderOption
             
             InsertUpdateDelete = 0
@@ -1991,7 +1991,7 @@ Namespace UIDDataSetTableAdapters
         '''<summary>
         '''Used to sort self-referenced table's rows
         '''</summary>
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Class SelfReferenceComparer
             Inherits Object
             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
@@ -2001,7 +2001,7 @@ Namespace UIDDataSetTableAdapters
             Private _childFirst As Integer
             
             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
                 MyBase.New
                 Me._relation = relation
@@ -2013,7 +2013,7 @@ Namespace UIDDataSetTableAdapters
             End Sub
             
             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
                 Dim root As Global.System.Data.DataRow = row
@@ -2052,7 +2052,7 @@ Namespace UIDDataSetTableAdapters
             End Function
             
             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
                 If Object.ReferenceEquals(row1, row2) Then
                     Return 0
diff --git a/UID/UIDDataSet1.Designer.vb b/UID/UIDDataSet1.Designer.vb
index 0d9b0cf..3596dca 100644
--- a/UID/UIDDataSet1.Designer.vb
+++ b/UID/UIDDataSet1.Designer.vb
@@ -30,7 +30,7 @@ Partial Public Class UIDDataSet1
     Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Sub New()
         MyBase.New
         Me.BeginInit
@@ -42,7 +42,7 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
         MyBase.New(info, context, false)
         If (Me.IsBinarySerialized(info, context) = true) Then
@@ -77,7 +77,7 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.Browsable(false),  _
      Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)>  _
     Public ReadOnly Property tblUser() As tblUserDataTable
@@ -87,7 +87,7 @@ Partial Public Class UIDDataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.BrowsableAttribute(true),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)>  _
     Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
@@ -100,7 +100,7 @@ Partial Public Class UIDDataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
         Get
@@ -109,7 +109,7 @@ Partial Public Class UIDDataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
      Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)>  _
     Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
         Get
@@ -118,7 +118,7 @@ Partial Public Class UIDDataSet1
     End Property
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub InitializeDerivedDataSet()
         Me.BeginInit
         Me.InitClass
@@ -126,7 +126,7 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Overrides Function Clone() As Global.System.Data.DataSet
         Dim cln As UIDDataSet1 = CType(MyBase.Clone,UIDDataSet1)
         cln.InitVars
@@ -135,19 +135,19 @@ Partial Public Class UIDDataSet1
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeTables() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function ShouldSerializeRelations() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
         If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
             Me.Reset
@@ -171,7 +171,7 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
         Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
         Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -180,13 +180,13 @@ Partial Public Class UIDDataSet1
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars()
         Me.InitVars(true)
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Friend Overloads Sub InitVars(ByVal initTable As Boolean)
         Me.tabletblUser = CType(MyBase.Tables("tblUser"),tblUserDataTable)
         If (initTable = true) Then
@@ -197,7 +197,7 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub InitClass()
         Me.DataSetName = "UIDDataSet1"
         Me.Prefix = ""
@@ -209,13 +209,13 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Function ShouldSerializetblUser() As Boolean
         Return false
     End Function
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
         If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
             Me.InitVars
@@ -223,7 +223,7 @@ Partial Public Class UIDDataSet1
     End Sub
     
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
         Dim ds As UIDDataSet1 = New UIDDataSet1()
         Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -272,7 +272,7 @@ Partial Public Class UIDDataSet1
         Return type
     End Function
     
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Delegate Sub tblUserRowChangeEventHandler(ByVal sender As Object, ByVal e As tblUserRowChangeEvent)
     
     '''<summary>
@@ -300,7 +300,7 @@ Partial Public Class UIDDataSet1
         Private columnmit_niederlassung As Global.System.Data.DataColumn
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
             MyBase.New
             Me.TableName = "tblUser"
@@ -310,7 +310,7 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub New(ByVal table As Global.System.Data.DataTable)
             MyBase.New
             Me.TableName = table.TableName
@@ -328,14 +328,14 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
             MyBase.New(info, context)
             Me.InitVars
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_idColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_id
@@ -343,7 +343,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_usernameColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_username
@@ -351,7 +351,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_pwdColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_pwd
@@ -359,7 +359,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_vnameColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_vname
@@ -367,7 +367,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_nnameColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_nname
@@ -375,7 +375,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_berechtigungColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_berechtigung
@@ -383,7 +383,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_infoColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_info
@@ -391,7 +391,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property mit_niederlassungColumn() As Global.System.Data.DataColumn
             Get
                 Return Me.columnmit_niederlassung
@@ -399,7 +399,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public ReadOnly Property Count() As Integer
             Get
@@ -408,33 +408,33 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Default ReadOnly Property Item(ByVal index As Integer) As tblUserRow
             Get
                 Return CType(Me.Rows(index),tblUserRow)
             End Get
         End Property
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblUserRowChanging As tblUserRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblUserRowChanged As tblUserRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblUserRowDeleting As tblUserRowChangeEventHandler
         
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Event tblUserRowDeleted As tblUserRowChangeEventHandler
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overloads Sub AddtblUserRow(ByVal row As tblUserRow)
             Me.Rows.Add(row)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overloads Function AddtblUserRow(ByVal mit_username As String, ByVal mit_pwd As String, ByVal mit_vname As String, ByVal mit_nname As String, ByVal mit_berechtigung As Integer, ByVal mit_info As String, ByVal mit_niederlassung As String) As tblUserRow
             Dim rowtblUserRow As tblUserRow = CType(Me.NewRow,tblUserRow)
             Dim columnValuesArray() As Object = New Object() {Nothing, mit_username, mit_pwd, mit_vname, mit_nname, mit_berechtigung, mit_info, mit_niederlassung}
@@ -444,13 +444,13 @@ Partial Public Class UIDDataSet1
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function FindBymit_id(ByVal mit_id As Integer) As tblUserRow
             Return CType(Me.Rows.Find(New Object() {mit_id}),tblUserRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overrides Function Clone() As Global.System.Data.DataTable
             Dim cln As tblUserDataTable = CType(MyBase.Clone,tblUserDataTable)
             cln.InitVars
@@ -458,13 +458,13 @@ Partial Public Class UIDDataSet1
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
             Return New tblUserDataTable()
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub InitVars()
             Me.columnmit_id = MyBase.Columns("mit_id")
             Me.columnmit_username = MyBase.Columns("mit_username")
@@ -477,7 +477,7 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitClass()
             Me.columnmit_id = New Global.System.Data.DataColumn("mit_id", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnmit_id)
@@ -511,25 +511,25 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function NewtblUserRow() As tblUserRow
             Return CType(Me.NewRow,tblUserRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
             Return New tblUserRow(builder)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Function GetRowType() As Global.System.Type
             Return GetType(tblUserRow)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowChanged(e)
             If (Not (Me.tblUserRowChangedEvent) Is Nothing) Then
@@ -538,7 +538,7 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowChanging(e)
             If (Not (Me.tblUserRowChangingEvent) Is Nothing) Then
@@ -547,7 +547,7 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowDeleted(e)
             If (Not (Me.tblUserRowDeletedEvent) Is Nothing) Then
@@ -556,7 +556,7 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
             MyBase.OnRowDeleting(e)
             If (Not (Me.tblUserRowDeletingEvent) Is Nothing) Then
@@ -565,13 +565,13 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub RemovetblUserRow(ByVal row As tblUserRow)
             Me.Rows.Remove(row)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
             Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
             Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -646,14 +646,14 @@ Partial Public Class UIDDataSet1
         Private tabletblUser As tblUserDataTable
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
             MyBase.New(rb)
             Me.tabletblUser = CType(Me.Table,tblUserDataTable)
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_id() As Integer
             Get
                 Return CType(Me(Me.tabletblUser.mit_idColumn),Integer)
@@ -664,7 +664,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_username() As String
             Get
                 Try 
@@ -679,7 +679,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_pwd() As String
             Get
                 Try 
@@ -694,7 +694,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_vname() As String
             Get
                 Try 
@@ -709,7 +709,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_nname() As String
             Get
                 Try 
@@ -724,7 +724,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_berechtigung() As Integer
             Get
                 Try 
@@ -739,7 +739,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_info() As String
             Get
                 Try 
@@ -754,7 +754,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property mit_niederlassung() As String
             Get
                 Try 
@@ -769,85 +769,85 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_usernameNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_usernameColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_usernameNull()
             Me(Me.tabletblUser.mit_usernameColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_pwdNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_pwdColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_pwdNull()
             Me(Me.tabletblUser.mit_pwdColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_vnameNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_vnameColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_vnameNull()
             Me(Me.tabletblUser.mit_vnameColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_nnameNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_nnameColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_nnameNull()
             Me(Me.tabletblUser.mit_nnameColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_berechtigungNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_berechtigungColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_berechtigungNull()
             Me(Me.tabletblUser.mit_berechtigungColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_infoNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_infoColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_infoNull()
             Me(Me.tabletblUser.mit_infoColumn) = Global.System.Convert.DBNull
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Function Ismit_niederlassungNull() As Boolean
             Return Me.IsNull(Me.tabletblUser.mit_niederlassungColumn)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub Setmit_niederlassungNull()
             Me(Me.tabletblUser.mit_niederlassungColumn) = Global.System.Convert.DBNull
         End Sub
@@ -856,7 +856,7 @@ Partial Public Class UIDDataSet1
     '''<summary>
     '''Row event argument class
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
     Public Class tblUserRowChangeEvent
         Inherits Global.System.EventArgs
         
@@ -865,7 +865,7 @@ Partial Public Class UIDDataSet1
         Private eventAction As Global.System.Data.DataRowAction
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New(ByVal row As tblUserRow, ByVal action As Global.System.Data.DataRowAction)
             MyBase.New
             Me.eventRow = row
@@ -873,7 +873,7 @@ Partial Public Class UIDDataSet1
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property Row() As tblUserRow
             Get
                 Return Me.eventRow
@@ -881,7 +881,7 @@ Partial Public Class UIDDataSet1
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public ReadOnly Property Action() As Global.System.Data.DataRowAction
             Get
                 Return Me.eventAction
@@ -915,14 +915,14 @@ Namespace UIDDataSet1TableAdapters
         Private _clearBeforeFill As Boolean
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Sub New()
             MyBase.New
             Me.ClearBeforeFill = true
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
             Get
                 If (Me._adapter Is Nothing) Then
@@ -933,7 +933,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
             Get
                 If (Me._connection Is Nothing) Then
@@ -963,7 +963,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
             Get
                 Return Me._transaction
@@ -991,7 +991,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
             Get
                 If (Me._commandCollection Is Nothing) Then
@@ -1002,7 +1002,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property ClearBeforeFill() As Boolean
             Get
                 Return Me._clearBeforeFill
@@ -1013,7 +1013,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitAdapter()
             Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
             Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
@@ -1115,14 +1115,14 @@ Namespace UIDDataSet1TableAdapters
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitConnection()
             Me._connection = New Global.System.Data.SqlClient.SqlConnection()
-            Me._connection.ConnectionString = My.Settings.connToUID 'Global.UID.My.MySettings.Default.connToUID
+            Me._connection.ConnectionString = VERAG_PROG_ALLGEMEIN.SQL.GetDISPOConnectionString
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Sub InitCommandCollection()
             Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
             Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
@@ -1133,7 +1133,7 @@ Namespace UIDDataSet1TableAdapters
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)>  _
         Public Overloads Overridable Function Fill(ByVal dataTable As UIDDataSet1.tblUserDataTable) As Integer
@@ -1146,7 +1146,7 @@ Namespace UIDDataSet1TableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)>  _
         Public Overloads Overridable Function GetData() As UIDDataSet1.tblUserDataTable
@@ -1157,35 +1157,35 @@ Namespace UIDDataSet1TableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataTable As UIDDataSet1.tblUserDataTable) As Integer
             Return Me.Adapter.Update(dataTable)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataSet As UIDDataSet1) As Integer
             Return Me.Adapter.Update(dataSet, "tblUser")
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
             Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")>  _
         Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
             Return Me.Adapter.Update(dataRows)
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)>  _
         Public Overloads Overridable Function Delete(ByVal Original_mit_id As Integer, ByVal Original_mit_username As String, ByVal Original_mit_pwd As String, ByVal Original_mit_vname As String, ByVal Original_mit_nname As String, ByVal Original_mit_berechtigung As Global.System.Nullable(Of Integer), ByVal Original_mit_info As String, ByVal Original_mit_niederlassung As String) As Integer
@@ -1255,7 +1255,7 @@ Namespace UIDDataSet1TableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)>  _
         Public Overloads Overridable Function Insert(ByVal mit_username As String, ByVal mit_pwd As String, ByVal mit_vname As String, ByVal mit_nname As String, ByVal mit_berechtigung As Global.System.Nullable(Of Integer), ByVal mit_info As String, ByVal mit_niederlassung As String) As Integer
@@ -1310,7 +1310,7 @@ Namespace UIDDataSet1TableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
         Public Overloads Overridable Function Update( _
@@ -1432,7 +1432,7 @@ Namespace UIDDataSet1TableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _
          Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)>  _
         Public Overloads Overridable Function Update(ByVal mit_username As String, ByVal mit_pwd As String, ByVal mit_vname As String, ByVal mit_nname As String, ByVal mit_berechtigung As Global.System.Nullable(Of Integer), ByVal mit_info As String, ByVal mit_niederlassung As String, ByVal Original_mit_id As Integer, ByVal Original_mit_username As String, ByVal Original_mit_pwd As String, ByVal Original_mit_vname As String, ByVal Original_mit_nname As String, ByVal Original_mit_berechtigung As Global.System.Nullable(Of Integer), ByVal Original_mit_info As String, ByVal Original_mit_niederlassung As String) As Integer
@@ -1460,7 +1460,7 @@ Namespace UIDDataSet1TableAdapters
         Private _connection As Global.System.Data.IDbConnection
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property UpdateOrder() As UpdateOrderOption
             Get
                 Return Me._updateOrder
@@ -1471,7 +1471,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _ 
             "ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _ 
             "a", "System.Drawing.Design.UITypeEditor")>  _
@@ -1485,7 +1485,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Property BackupDataSetBeforeUpdate() As Boolean
             Get
                 Return Me._backupDataSetBeforeUpdate
@@ -1496,7 +1496,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public Property Connection() As Global.System.Data.IDbConnection
             Get
@@ -1515,7 +1515,7 @@ Namespace UIDDataSet1TableAdapters
         End Property
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
         Public ReadOnly Property TableAdapterInstanceCount() As Integer
             Get
@@ -1531,7 +1531,7 @@ Namespace UIDDataSet1TableAdapters
         '''Update rows in top-down order.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function UpdateUpdatedRows(ByVal dataSet As UIDDataSet1, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
             If (Not (Me._tblUserTableAdapter) Is Nothing) Then
@@ -1550,7 +1550,7 @@ Namespace UIDDataSet1TableAdapters
         '''Insert rows in top-down order.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function UpdateInsertedRows(ByVal dataSet As UIDDataSet1, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
             If (Not (Me._tblUserTableAdapter) Is Nothing) Then
@@ -1568,7 +1568,7 @@ Namespace UIDDataSet1TableAdapters
         '''Delete rows in bottom-up order.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function UpdateDeletedRows(ByVal dataSet As UIDDataSet1, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
             Dim result As Integer = 0
             If (Not (Me._tblUserTableAdapter) Is Nothing) Then
@@ -1586,7 +1586,7 @@ Namespace UIDDataSet1TableAdapters
         '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow()
             If ((updatedRows Is Nothing)  _
                         OrElse (updatedRows.Length < 1)) Then
@@ -1612,7 +1612,7 @@ Namespace UIDDataSet1TableAdapters
         '''Update all changes to the dataset.
         '''</summary>
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Overridable Function UpdateAll(ByVal dataSet As UIDDataSet1) As Integer
             If (dataSet Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("dataSet")
@@ -1747,13 +1747,13 @@ Namespace UIDDataSet1TableAdapters
         End Function
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
             Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst))
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean
             If (Not (Me._connection) Is Nothing) Then
                 Return true
@@ -1771,7 +1771,7 @@ Namespace UIDDataSet1TableAdapters
         '''<summary>
         '''Update Order Option
         '''</summary>
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Public Enum UpdateOrderOption
             
             InsertUpdateDelete = 0
@@ -1782,7 +1782,7 @@ Namespace UIDDataSet1TableAdapters
         '''<summary>
         '''Used to sort self-referenced table's rows
         '''</summary>
-        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+        <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
         Private Class SelfReferenceComparer
             Inherits Object
             Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow)
@@ -1792,7 +1792,7 @@ Namespace UIDDataSet1TableAdapters
             Private _childFirst As Integer
             
             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
             Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean)
                 MyBase.New
                 Me._relation = relation
@@ -1804,7 +1804,7 @@ Namespace UIDDataSet1TableAdapters
             End Sub
             
             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
             Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow
                 Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing))
                 Dim root As Global.System.Data.DataRow = row
@@ -1843,7 +1843,7 @@ Namespace UIDDataSet1TableAdapters
             End Function
             
             <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")>  _
+             Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")>  _
             Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare
                 If Object.ReferenceEquals(row1, row2) Then
                     Return 0
diff --git a/UID/app.config b/UID/app.config
index 7b70d4e..f390ed0 100644
--- a/UID/app.config
+++ b/UID/app.config
@@ -23,11 +23,11 @@
   <system.serviceModel>
     <bindings>
       <basicHttpBinding>
-        <binding name="BasicHttpBinding_IRKSVWcf" />
+        <binding name="BasicHttpBinding_IRKSVWcf"/>
       </basicHttpBinding>
     </bindings>
     <client>
-      <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
+      <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf"/>
     </client>
   </system.serviceModel>
-<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/></startup></configuration>
+<startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/></startup></configuration>
diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb
index 1a2571d..b5cc814 100644
--- a/UID/cSqlDb.vb
+++ b/UID/cSqlDb.vb
@@ -49,6 +49,7 @@ Public Class cEntry
     Property kd_info As String = ""
     Property kd_tarifInfo As String = ""
     Property kd_rolle As String = ""
+    Property kd_AVISOfirma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
     Property kdoez As cOeffnungszeiten
     Property kd_FMZOLL_KdNr As Object = Nothing
 
@@ -97,6 +98,7 @@ Public Class cEntry
                             Me.kd_isRefNr = dr.Item("kd_isRefNr")
                             If Not dr.Item("kd_refNr") Is DBNull.Value Then Me.kd_refNr = dr.Item("kd_refNr")
                             Me.kd_info = dr.Item("kd_info")
+                            Me.kd_AVISOfirma = dr.Item("kd_AVISOfirma")
                             If Not dr.Item("kd_tarifInfo") Is Nothing And Not dr.Item("kd_tarifInfo") Is DBNull.Value Then Me.kd_tarifInfo = dr.Item("kd_tarifInfo") Else Me.kd_tarifInfo = ""
                             If Not dr.Item("kd_rolle") = vbNullString Then Me.kd_rolle = dr.Item("kd_rolle") Else Me.kd_rolle = 0
                             If dr.Item("kd_FMZOLL_KdNr") IsNot DBNull.Value Then Me.kd_FMZOLL_KdNr = dr.Item("kd_FMZOLL_KdNr") Else Me.kd_FMZOLL_KdNr = Nothing
@@ -1059,6 +1061,7 @@ Public Class cOptionenDAL
                             daten.kd_isRefNr = dr.Item("kd_isRefNr")
                             If Not dr.Item("kd_refNr") Is DBNull.Value Then daten.kd_refNr = dr.Item("kd_refNr")
                             daten.kd_info = dr.Item("kd_info")
+                            daten.kd_AVISOfirma = dr.Item("kd_AVISOfirma")
                             If Not dr.Item("kd_tarifInfo") Is Nothing And Not dr.Item("kd_tarifInfo") Is DBNull.Value Then daten.kd_tarifInfo = dr.Item("kd_tarifInfo") Else daten.kd_tarifInfo = ""
                             If Not dr.Item("kd_rolle") = vbNullString Then daten.kd_rolle = dr.Item("kd_rolle") Else daten.kd_rolle = 0
                             If dr.Item("kd_FMZOLL_KdNr") IsNot DBNull.Value Then daten.kd_FMZOLL_KdNr = dr.Item("kd_FMZOLL_KdNr") Else daten.kd_FMZOLL_KdNr = Nothing
@@ -1371,8 +1374,8 @@ Public Class cOptionenDAL
     Public Function insertKunden(ByVal d As cEntry) As Integer
         Dim oez_id As Integer = insertOeffnungszeiten(d.kdoez)
         Dim sql = "INSERT INTO tblKunden " &
-                       "(kd_firma, kd_str, kd_strnr, kd_plz, kd_ort, kd_land,kd_anspr1_vn,kd_anspr1_nn,kd_anspr2_vn,kd_anspr2_nn,kd_tel,kd_fax,kd_email,kd_homepage,kd_TIMOCOM,kd_oez_id,kd_neutralisierung,kd_aviso,kd_isRefNr,kd_refNr,kd_info,kd_tarifInfo,kd_rolle,kd_FMZOLL_KdNr) VALUES " &
-                       "(@kd_firma,@kd_str,@kd_strnr,@kd_plz,@kd_ort,@kd_land,@kd_anspr1_vn,@kd_anspr1_nn,@kd_anspr2_vn,@kd_anspr2_nn,@kd_tel,@kd_fax,@kd_email,@kd_homepage,@kd_TIMOCOM,@kd_oez_id,@kd_neutralisierung,@kd_aviso,@kd_isRefNr,@kd_refNr,@kd_info,@kd_tarifInfo,@kd_rolle,@kd_FMZOLL_KdNr)"
+                       "(kd_firma, kd_str, kd_strnr, kd_plz, kd_ort, kd_land,kd_anspr1_vn,kd_anspr1_nn,kd_anspr2_vn,kd_anspr2_nn,kd_tel,kd_fax,kd_email,kd_homepage,kd_TIMOCOM,kd_oez_id,kd_neutralisierung,kd_aviso,kd_isRefNr,kd_refNr,kd_info,kd_tarifInfo,kd_rolle,kd_FMZOLL_KdNr,kd_AVISOfirma) VALUES " &
+                       "(@kd_firma,@kd_str,@kd_strnr,@kd_plz,@kd_ort,@kd_land,@kd_anspr1_vn,@kd_anspr1_nn,@kd_anspr2_vn,@kd_anspr2_nn,@kd_tel,@kd_fax,@kd_email,@kd_homepage,@kd_TIMOCOM,@kd_oez_id,@kd_neutralisierung,@kd_aviso,@kd_isRefNr,@kd_refNr,@kd_info,@kd_tarifInfo,@kd_rolle,@kd_FMZOLL_KdNr,@kd_AVISOfirma)"
 
         Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
             Using cmd As New SqlCommand(sql, conn)
@@ -1398,6 +1401,7 @@ Public Class cOptionenDAL
                 cmd.Parameters.AddWithValue("@kd_isRefNr", d.kd_isRefNr)
                 cmd.Parameters.AddWithValue("@kd_refNr", d.kd_refNr)
                 cmd.Parameters.AddWithValue("@kd_info", d.kd_info)
+                cmd.Parameters.AddWithValue("@kd_AVISOfirma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
                 cmd.Parameters.AddWithValue("@kd_tarifInfo", d.kd_tarifInfo)
                 cmd.Parameters.AddWithValue("@kd_rolle", d.kd_rolle)
                 cmd.Parameters.AddWithValue("@kd_FMZOLL_KdNr", If(d.kd_FMZOLL_KdNr, DBNull.Value))
@@ -1473,7 +1477,7 @@ Public Class cOptionenDAL
         Dim hAuswahl As String = ""
         'Änderung
         Dim sql = "UPDATE tblKunden " &
-                       "SET kd_firma=@kd_firma,  kd_str=@kd_str,  kd_strnr=@kd_strnr,  kd_plz=@kd_plz,  kd_ort=@kd_ort,  kd_land=@kd_land, kd_anspr1_vn=@kd_anspr1_vn, kd_anspr1_nn=@kd_anspr1_nn, kd_anspr2_vn=@kd_anspr2_vn, kd_anspr2_nn=@kd_anspr2_nn, kd_tel=@kd_tel, kd_fax=@kd_fax, kd_email=@kd_email, kd_homepage=@kd_homepage, kd_TIMOCOM=@kd_TIMOCOM, kd_neutralisierung=@kd_neutralisierung, kd_aviso=@kd_aviso, kd_isRefNr=@kd_isRefNr,kd_refNr=@kd_refNr,kd_info=@kd_info, kd_tarifInfo=@kd_tarifInfo ,kd_rolle=@kd_rolle, kd_FMZOLL_KdNr=@kd_FMZOLL_KdNr  " &
+                       "SET kd_firma=@kd_firma,  kd_str=@kd_str,  kd_strnr=@kd_strnr,  kd_plz=@kd_plz,  kd_ort=@kd_ort,  kd_land=@kd_land, kd_anspr1_vn=@kd_anspr1_vn, kd_anspr1_nn=@kd_anspr1_nn, kd_anspr2_vn=@kd_anspr2_vn, kd_anspr2_nn=@kd_anspr2_nn, kd_tel=@kd_tel, kd_fax=@kd_fax, kd_email=@kd_email, kd_homepage=@kd_homepage, kd_TIMOCOM=@kd_TIMOCOM, kd_neutralisierung=@kd_neutralisierung, kd_aviso=@kd_aviso, kd_isRefNr=@kd_isRefNr,kd_refNr=@kd_refNr,kd_info=@kd_info, kd_tarifInfo=@kd_tarifInfo ,kd_rolle=@kd_rolle, kd_FMZOLL_KdNr=@kd_FMZOLL_KdNr, kd_AVISOfirma=@kd_AVISOfirma  " &
                        " WHERE kd_id=@kd_id"
         Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
             Using cmd As New SqlCommand(sql, conn)
@@ -1498,6 +1502,7 @@ Public Class cOptionenDAL
                 cmd.Parameters.AddWithValue("@kd_isRefNr", d.kd_isRefNr)
                 cmd.Parameters.AddWithValue("@kd_refNr", d.kd_refNr)
                 cmd.Parameters.AddWithValue("@kd_info", d.kd_info)
+                cmd.Parameters.AddWithValue("@kd_AVISOfirma", d.kd_AVISOfirma)
                 cmd.Parameters.AddWithValue("@kd_tarifInfo", d.kd_tarifInfo)
                 cmd.Parameters.AddWithValue("@kd_rolle", d.kd_rolle)
                 cmd.Parameters.AddWithValue("@kd_id", d.kd_id)
@@ -1943,7 +1948,7 @@ Public Class cFrachtkostenSQL
 
     Public Function getAllFirmen() As List(Of cFrachtkostenFirmen)
         'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen
-        Dim sql As String = "SELECT kd_firma, kd_id FROM tblKunden "
+        Dim sql As String = "SELECT kd_firma, kd_id FROM tblKunden WHERE kd_AVISOfirma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
         Dim daten As New List(Of cFrachtkostenFirmen)
         Try
             Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
diff --git a/UID/frmAuftragNEU.vb b/UID/frmAuftragNEU.vb
index a813f36..6c52ac5 100644
--- a/UID/frmAuftragNEU.vb
+++ b/UID/frmAuftragNEU.vb
@@ -106,15 +106,29 @@ Public Class frmAuftragNEU
 
     End Sub
     Private Sub frmAuftrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=5701 ORDER BY FilialenNr ", True, "FMZOLL", True)
+            cboFilialenNr.changeItem("5701")
+
+            cboFirma.Items.Clear()
+            cboFirma.Items.Add("AMBAR")
+            cboFirma.SelectedIndex = 0
+
+        Else
+            cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+                Case "NEU" : cboFilialenNr.changeItem("4819")
+                Case Else : cboFilialenNr.changeItem("4807")
+            End Select
+
+            cboFirma.SelectedIndex = 0
+            cboFirma2.SelectedIndex = 0
+
+        End If
+
 
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
-            Case "NEU" : cboFilialenNr.changeItem("4819")
-            Case Else : cboFilialenNr.changeItem("4807")
-        End Select
 
-        cboFirma.SelectedIndex = 0
-        cboFirma2.SelectedIndex = 0
 
         cboAuftragsart.Items.Clear()
         cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
@@ -1817,6 +1831,8 @@ Public Class frmAuftragNEU
             cboFirma.SelectedItem = "VERAG AG"
         ElseIf cboFilialenNr.SelectedItem.value = "4819" Then
             cboFirma.SelectedItem = "VERAG GmbH"
+        ElseIf cboFilialenNr.SelectedItem.value = "5701" Then
+            cboFirma.SelectedItem = "AMBAR"
         End If
         cboFirma2.SelectedItem = cboFirma.SelectedItem
     End Sub
diff --git a/UID/frmDetails.Designer.vb b/UID/frmDetails.Designer.vb
index 8f49b1e..58d07e4 100644
--- a/UID/frmDetails.Designer.vb
+++ b/UID/frmDetails.Designer.vb
@@ -28,6 +28,8 @@ Partial Class frmDetails
         Me.btnCancel = New System.Windows.Forms.Button()
         Me.tabKunde = New System.Windows.Forms.TabControl()
         Me.tab1Allg = New System.Windows.Forms.TabPage()
+        Me.txtTIMOCOM = New System.Windows.Forms.TextBox()
+        Me.Label16 = New System.Windows.Forms.Label()
         Me.btnVERAGKDLaden = New System.Windows.Forms.Button()
         Me.Label15 = New System.Windows.Forms.Label()
         Me.kdFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
@@ -133,8 +135,7 @@ Partial Class frmDetails
         Me.Label14 = New System.Windows.Forms.Label()
         Me.btnSave = New System.Windows.Forms.Button()
         Me.cboRolle = New DISPO.MyComboBox(Me.components)
-        Me.Label16 = New System.Windows.Forms.Label()
-        Me.txtTIMOCOM = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.tabKunde.SuspendLayout()
         Me.tab1Allg.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
@@ -181,6 +182,7 @@ Partial Class frmDetails
         '
         'tab1Allg
         '
+        Me.tab1Allg.Controls.Add(Me.Button1)
         Me.tab1Allg.Controls.Add(Me.txtTIMOCOM)
         Me.tab1Allg.Controls.Add(Me.Label16)
         Me.tab1Allg.Controls.Add(Me.btnVERAGKDLaden)
@@ -272,27 +274,44 @@ Partial Class frmDetails
         Me.tab1Allg.Text = "Allgemein"
         Me.tab1Allg.UseVisualStyleBackColor = True
         '
+        'txtTIMOCOM
+        '
+        Me.txtTIMOCOM.Location = New System.Drawing.Point(116, 360)
+        Me.txtTIMOCOM.Name = "txtTIMOCOM"
+        Me.txtTIMOCOM.Size = New System.Drawing.Size(296, 20)
+        Me.txtTIMOCOM.TabIndex = 516
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(12, 366)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(61, 13)
+        Me.Label16.TabIndex = 515
+        Me.Label16.Text = "TIMOCOM:"
+        '
         'btnVERAGKDLaden
         '
         Me.btnVERAGKDLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnVERAGKDLaden.Location = New System.Drawing.Point(287, 342)
+        Me.btnVERAGKDLaden.Location = New System.Drawing.Point(112, 36)
         Me.btnVERAGKDLaden.Name = "btnVERAGKDLaden"
         Me.btnVERAGKDLaden.Size = New System.Drawing.Size(125, 23)
         Me.btnVERAGKDLaden.TabIndex = 513
-        Me.btnVERAGKDLaden.Text = "VERAG KD laden"
+        Me.btnVERAGKDLaden.Text = "AVISO KD laden"
         Me.btnVERAGKDLaden.UseVisualStyleBackColor = True
         '
         'Label15
         '
         Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(12, 373)
+        Me.Label15.Location = New System.Drawing.Point(8, 15)
         Me.Label15.Name = "Label15"
-        Me.Label15.Size = New System.Drawing.Size(63, 13)
+        Me.Label15.Size = New System.Drawing.Size(58, 13)
         Me.Label15.TabIndex = 512
-        Me.Label15.Text = "VERAG-Kd:"
+        Me.Label15.Text = "AVISO-Kd:"
         '
         'kdFirma
         '
+        Me.kdFirma._AlleFirmenCLUSTER = False
         Me.kdFirma._AllowSetValue = True
         Me.kdFirma._autoSizeGross = False
         Me.kdFirma._display_Name1 = False
@@ -300,19 +319,22 @@ Partial Class frmDetails
         Me.kdFirma._displayFullName = False
         Me.kdFirma._displayWoelflKd = False
         Me.kdFirma._hideIfListEmpty = True
-        Me.kdFirma._loadKdData = False
+        Me.kdFirma._loadKdData = True
+        Me.kdFirma._searchName1 = True
+        Me.kdFirma._UseFIRMA = ""
         Me.kdFirma._ValueKdAndName = True
         Me.kdFirma.dgvpos = "LEFT"
         Me.kdFirma.KdName = ""
         Me.kdFirma.KdNr = "-1"
         Me.kdFirma.kdNrField = Nothing
         Me.kdFirma.KdNrNullInt = Nothing
-        Me.kdFirma.Location = New System.Drawing.Point(116, 371)
+        Me.kdFirma.Location = New System.Drawing.Point(112, 13)
         Me.kdFirma.Name = "kdFirma"
         Me.kdFirma.nurAktive = True
         Me.kdFirma.searchActive = True
         Me.kdFirma.Size = New System.Drawing.Size(296, 20)
         Me.kdFirma.TabIndex = 511
+        Me.kdFirma.TIMER_SEARCH = True
         Me.kdFirma.usrcntl = Nothing
         '
         'GroupBox1
@@ -363,7 +385,7 @@ Partial Class frmDetails
         'Label27
         '
         Me.Label27.AutoSize = True
-        Me.Label27.Location = New System.Drawing.Point(303, 99)
+        Me.Label27.Location = New System.Drawing.Point(305, 152)
         Me.Label27.Name = "Label27"
         Me.Label27.Size = New System.Drawing.Size(59, 13)
         Me.Label27.TabIndex = 124
@@ -372,7 +394,7 @@ Partial Class frmDetails
         'Label26
         '
         Me.Label26.AutoSize = True
-        Me.Label26.Location = New System.Drawing.Point(154, 99)
+        Me.Label26.Location = New System.Drawing.Point(156, 152)
         Me.Label26.Name = "Label26"
         Me.Label26.Size = New System.Drawing.Size(49, 13)
         Me.Label26.TabIndex = 123
@@ -380,14 +402,14 @@ Partial Class frmDetails
         '
         'txtAnspr2_nn
         '
-        Me.txtAnspr2_nn.Location = New System.Drawing.Point(261, 141)
+        Me.txtAnspr2_nn.Location = New System.Drawing.Point(263, 194)
         Me.txtAnspr2_nn.Name = "txtAnspr2_nn"
         Me.txtAnspr2_nn.Size = New System.Drawing.Size(145, 20)
         Me.txtAnspr2_nn.TabIndex = 9
         '
         'txtAnspr2_vn
         '
-        Me.txtAnspr2_vn.Location = New System.Drawing.Point(110, 141)
+        Me.txtAnspr2_vn.Location = New System.Drawing.Point(112, 194)
         Me.txtAnspr2_vn.Name = "txtAnspr2_vn"
         Me.txtAnspr2_vn.Size = New System.Drawing.Size(145, 20)
         Me.txtAnspr2_vn.TabIndex = 8
@@ -871,7 +893,7 @@ Partial Class frmDetails
         '
         Me.Label12.AutoSize = True
         Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(10, 182)
+        Me.Label12.Location = New System.Drawing.Point(12, 235)
         Me.Label12.Name = "Label12"
         Me.Label12.Size = New System.Drawing.Size(51, 13)
         Me.Label12.TabIndex = 69
@@ -880,7 +902,7 @@ Partial Class frmDetails
         'Label8
         '
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(10, 284)
+        Me.Label8.Location = New System.Drawing.Point(12, 337)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(62, 13)
         Me.Label8.TabIndex = 68
@@ -888,7 +910,7 @@ Partial Class frmDetails
         '
         'txtHomepage
         '
-        Me.txtHomepage.Location = New System.Drawing.Point(114, 281)
+        Me.txtHomepage.Location = New System.Drawing.Point(116, 334)
         Me.txtHomepage.Name = "txtHomepage"
         Me.txtHomepage.Size = New System.Drawing.Size(296, 20)
         Me.txtHomepage.TabIndex = 13
@@ -896,7 +918,7 @@ Partial Class frmDetails
         'Label11
         '
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(10, 258)
+        Me.Label11.Location = New System.Drawing.Point(12, 311)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(39, 13)
         Me.Label11.TabIndex = 66
@@ -904,7 +926,7 @@ Partial Class frmDetails
         '
         'txtEmail
         '
-        Me.txtEmail.Location = New System.Drawing.Point(114, 255)
+        Me.txtEmail.Location = New System.Drawing.Point(116, 308)
         Me.txtEmail.Name = "txtEmail"
         Me.txtEmail.Size = New System.Drawing.Size(296, 20)
         Me.txtEmail.TabIndex = 12
@@ -912,7 +934,7 @@ Partial Class frmDetails
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(10, 232)
+        Me.Label7.Location = New System.Drawing.Point(12, 285)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(27, 13)
         Me.Label7.TabIndex = 64
@@ -920,7 +942,7 @@ Partial Class frmDetails
         '
         'txtFax
         '
-        Me.txtFax.Location = New System.Drawing.Point(114, 229)
+        Me.txtFax.Location = New System.Drawing.Point(116, 282)
         Me.txtFax.Name = "txtFax"
         Me.txtFax.Size = New System.Drawing.Size(296, 20)
         Me.txtFax.TabIndex = 11
@@ -928,7 +950,7 @@ Partial Class frmDetails
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(10, 206)
+        Me.Label6.Location = New System.Drawing.Point(12, 259)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(46, 13)
         Me.Label6.TabIndex = 62
@@ -936,14 +958,14 @@ Partial Class frmDetails
         '
         'txtTel
         '
-        Me.txtTel.Location = New System.Drawing.Point(114, 203)
+        Me.txtTel.Location = New System.Drawing.Point(116, 256)
         Me.txtTel.Name = "txtTel"
         Me.txtTel.Size = New System.Drawing.Size(296, 20)
         Me.txtTel.TabIndex = 10
         '
         'txtStrNr
         '
-        Me.txtStrNr.Location = New System.Drawing.Point(351, 39)
+        Me.txtStrNr.Location = New System.Drawing.Point(353, 92)
         Me.txtStrNr.Name = "txtStrNr"
         Me.txtStrNr.Size = New System.Drawing.Size(55, 20)
         Me.txtStrNr.TabIndex = 2
@@ -951,7 +973,7 @@ Partial Class frmDetails
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(6, 144)
+        Me.Label10.Location = New System.Drawing.Point(8, 197)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(103, 13)
         Me.Label10.TabIndex = 58
@@ -959,7 +981,7 @@ Partial Class frmDetails
         '
         'txtAnspr1_nn
         '
-        Me.txtAnspr1_nn.Location = New System.Drawing.Point(261, 115)
+        Me.txtAnspr1_nn.Location = New System.Drawing.Point(263, 168)
         Me.txtAnspr1_nn.Name = "txtAnspr1_nn"
         Me.txtAnspr1_nn.Size = New System.Drawing.Size(145, 20)
         Me.txtAnspr1_nn.TabIndex = 7
@@ -967,7 +989,7 @@ Partial Class frmDetails
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(6, 118)
+        Me.Label5.Location = New System.Drawing.Point(8, 171)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(97, 13)
         Me.Label5.TabIndex = 55
@@ -975,7 +997,7 @@ Partial Class frmDetails
         '
         'txtAnspr1_vn
         '
-        Me.txtAnspr1_vn.Location = New System.Drawing.Point(110, 115)
+        Me.txtAnspr1_vn.Location = New System.Drawing.Point(112, 168)
         Me.txtAnspr1_vn.Name = "txtAnspr1_vn"
         Me.txtAnspr1_vn.Size = New System.Drawing.Size(145, 20)
         Me.txtAnspr1_vn.TabIndex = 6
@@ -984,14 +1006,14 @@ Partial Class frmDetails
         '
         Me.cbxLand.FormattingEnabled = True
         Me.cbxLand.Items.AddRange(New Object() {"AT", "DE", "HR", "IT", "RO", "SRB", "TR"})
-        Me.cbxLand.Location = New System.Drawing.Point(110, 64)
+        Me.cbxLand.Location = New System.Drawing.Point(112, 117)
         Me.cbxLand.Name = "cbxLand"
         Me.cbxLand.Size = New System.Drawing.Size(55, 21)
         Me.cbxLand.TabIndex = 5
         '
         'txtOrt
         '
-        Me.txtOrt.Location = New System.Drawing.Point(232, 65)
+        Me.txtOrt.Location = New System.Drawing.Point(234, 118)
         Me.txtOrt.Name = "txtOrt"
         Me.txtOrt.Size = New System.Drawing.Size(174, 20)
         Me.txtOrt.TabIndex = 4
@@ -999,7 +1021,7 @@ Partial Class frmDetails
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(6, 68)
+        Me.Label3.Location = New System.Drawing.Point(8, 121)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(90, 13)
         Me.Label3.TabIndex = 41
@@ -1007,7 +1029,7 @@ Partial Class frmDetails
         '
         'txtPlz
         '
-        Me.txtPlz.Location = New System.Drawing.Point(171, 65)
+        Me.txtPlz.Location = New System.Drawing.Point(173, 118)
         Me.txtPlz.Name = "txtPlz"
         Me.txtPlz.Size = New System.Drawing.Size(55, 20)
         Me.txtPlz.TabIndex = 3
@@ -1015,7 +1037,7 @@ Partial Class frmDetails
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(6, 42)
+        Me.Label2.Location = New System.Drawing.Point(8, 95)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(63, 13)
         Me.Label2.TabIndex = 39
@@ -1023,7 +1045,7 @@ Partial Class frmDetails
         '
         'txtStr
         '
-        Me.txtStr.Location = New System.Drawing.Point(110, 39)
+        Me.txtStr.Location = New System.Drawing.Point(112, 92)
         Me.txtStr.Name = "txtStr"
         Me.txtStr.Size = New System.Drawing.Size(235, 20)
         Me.txtStr.TabIndex = 1
@@ -1032,7 +1054,7 @@ Partial Class frmDetails
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(6, 16)
+        Me.Label1.Location = New System.Drawing.Point(8, 69)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(41, 13)
         Me.Label1.TabIndex = 37
@@ -1041,7 +1063,7 @@ Partial Class frmDetails
         'txtFirma
         '
         Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtFirma.Location = New System.Drawing.Point(110, 13)
+        Me.txtFirma.Location = New System.Drawing.Point(112, 66)
         Me.txtFirma.Name = "txtFirma"
         Me.txtFirma.Size = New System.Drawing.Size(296, 20)
         Me.txtFirma.TabIndex = 0
@@ -1202,21 +1224,15 @@ Partial Class frmDetails
         Me.cboRolle.Size = New System.Drawing.Size(295, 21)
         Me.cboRolle.TabIndex = 511
         '
-        'Label16
+        'Button1
         '
-        Me.Label16.AutoSize = True
-        Me.Label16.Location = New System.Drawing.Point(10, 313)
-        Me.Label16.Name = "Label16"
-        Me.Label16.Size = New System.Drawing.Size(61, 13)
-        Me.Label16.TabIndex = 515
-        Me.Label16.Text = "TIMOCOM:"
-        '
-        'txtTIMOCOM
-        '
-        Me.txtTIMOCOM.Location = New System.Drawing.Point(114, 307)
-        Me.txtTIMOCOM.Name = "txtTIMOCOM"
-        Me.txtTIMOCOM.Size = New System.Drawing.Size(296, 20)
-        Me.txtTIMOCOM.TabIndex = 516
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(283, 36)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(125, 23)
+        Me.Button1.TabIndex = 517
+        Me.Button1.Text = "AVISO KD öffnen >>"
+        Me.Button1.UseVisualStyleBackColor = True
         '
         'frmDetails
         '
@@ -1368,4 +1384,5 @@ Partial Class frmDetails
     Friend WithEvents btnVERAGKDLaden As System.Windows.Forms.Button
     Friend WithEvents txtTIMOCOM As TextBox
     Friend WithEvents Label16 As Label
+    Friend WithEvents Button1 As Button
 End Class
diff --git a/UID/frmDetails.vb b/UID/frmDetails.vb
index 008f4d4..29e7117 100644
--- a/UID/frmDetails.vb
+++ b/UID/frmDetails.vb
@@ -23,7 +23,7 @@ Public Class frmDetails
     Private Sub frmDetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         If valueChanged = False Or closeOK Then
             If mainForm = "frmMain" Then
-                frmMain.Enabled = True : frmMain.Tabelle_anzeigen()
+                'frmMain.Enabled = True  'frmMain.Tabelle_anzeigen()
             ElseIf mainForm = "frmSearch" Then
                 frmSearch.Tabelle_anzeigen()
             End If
@@ -32,7 +32,7 @@ Public Class frmDetails
             Select Case MsgBox("Wollen Sie die geänderten Daten verwerfen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Änderung verwerfen?")
                 Case vbYes
                     If mainForm = "frmMain" Then
-                        frmMain.Enabled = True : frmMain.Tabelle_anzeigen()
+                        'frmMain.Enabled = True ' frmMain.Tabelle_anzeigen()
                     ElseIf mainForm = "frmSearch" Then
                         frmSearch.Tabelle_anzeigen()
                     End If
@@ -142,6 +142,7 @@ Public Class frmDetails
             binddata(txtHomepage, "Text", bindingDATA.bindingSource, "kd_homepage")
             binddata(txtTIMOCOM, "Text", bindingDATA.bindingSource, "kd_TIMOCOM")
 
+
             Dim kdnr = (bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr"))
             kdFirma.KdNr = If(kdnr Is DBNull.Value, -1, kdnr)
 
@@ -604,7 +605,7 @@ Public Class frmDetails
         If txtFirma.Text = "" Then
             MsgBox("Bitte geben Sie ein Kürzel an!") : val = False
         ElseIf cOptionenDAL.insertKunden(entry) Then
-            frmMain.Tabelle_anzeigen()
+            'frmMain.Tabelle_anzeigen()
             closeOK = True
             Me.Close()
         End If
@@ -718,7 +719,7 @@ Public Class frmDetails
         If txtFirma.Text = "" Then
             MsgBox("Bitte geben Sie ein Kürzel an!") : val = False
         ElseIf cOptionenDAL.updateKunden(k) Then
-            frmMain.Tabelle_anzeigen()
+            'frmMain.Tabelle_anzeigen()
             closeOK = True
             Me.Close()
         End If
@@ -1059,5 +1060,36 @@ Public Class frmDetails
         End If
     End Sub
 
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
 
+        If kdFirma.KdNrNullInt IsNot Nothing Then
+            showKd(kdFirma.KdNrNullInt)
+        End If
+
+
+    End Sub
+
+    Public Sub showKd(kdnr, Optional TopMost = False)
+        'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
+
+        For Each openForm In Application.OpenForms()
+            If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then
+                CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront()
+                If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True
+                CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr
+                Exit Sub
+            End If
+        Next
+        'If False Then
+
+        '    If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
+        '        Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
+        '        Exit Sub
+        '    End If
+        'End If
+        ''  Next 
+        Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
+        If zoll IsNot Nothing Then zoll.Show() : zoll.BringToFront()
+    End Sub
 End Class
\ No newline at end of file
diff --git a/UID/frmFrachtkosten.vb b/UID/frmFrachtkosten.vb
index 79df8f5..dc3811f 100644
--- a/UID/frmFrachtkosten.vb
+++ b/UID/frmFrachtkosten.vb
@@ -234,7 +234,7 @@ Public Class frmFrachtkosten
             cFrachtkosten.frtkst_provision = txtFirmaProvision.Text
             cFrachtkostenSQL.setFrachtkosten(cFrachtkosten)
         End If
-        frmMain.Tabelle_anzeigen()
+        'frmMain.Tabelle_anzeigen()
     End Sub
 
     Private Sub dgvFrachtkosten_CellLeave(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFrachtkosten.CellValidated
diff --git a/UID/frmFrachtkostenNew.vb b/UID/frmFrachtkostenNew.vb
index 6040726..22bad7e 100644
--- a/UID/frmFrachtkostenNew.vb
+++ b/UID/frmFrachtkostenNew.vb
@@ -4,7 +4,7 @@
     Public frachtfirma_id As Integer = -1
 
     Private Sub frmFrachtkostenNew_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
-        frmMain.BringToFront()
+        frmMainV2.BringToFront()
     End Sub
     Private Sub frmFrachtkostenNew_Load(sender As Object, e As EventArgs) Handles Me.Load
         Dim firmen As List(Of cFrachtkostenFirmen) = cFrachtkostenSQL.getAllFirmen()
@@ -25,6 +25,7 @@
     End Sub
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
         Dim cFrachtkosten As New cFrachtkosten
         Dim oItem As MyListItem = CType(cboFirmen.SelectedItem, MyListItem)
         If cboFirmen.Items.Count > 0 AndAlso cboFirmen.SelectedIndex >= 0 AndAlso IsNumeric(oItem.Value) Then
@@ -34,7 +35,7 @@
             cFrachtkosten.frtkst_provision = txtFirmaProvision.Text
             If cFrachtkostenSQL.setFrachtkosten(cFrachtkosten) Then Me.Close()
         End If
-        frmMain.Tabelle_anzeigen()
+        'frmMain.Tabelle_anzeigen()
     End Sub
 
     Private Sub cboFirmen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirmen.SelectedIndexChanged
diff --git a/UID/frmLogin.vb b/UID/frmLogin.vb
index 279f5c5..f820da1 100644
--- a/UID/frmLogin.vb
+++ b/UID/frmLogin.vb
@@ -1,4 +1,9 @@
-Public Class frmLogin
+Imports System.IO
+Imports SDL
+Imports System.Net.Sockets
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmLogin
     Public ConnStrInfo As String
     Public ConnStr As String
     '  Public USRNAME As String
@@ -6,42 +11,109 @@
 
     Private UID As New cOptionenDAL
     Private SDL As New SDL.cOptionenDAL
+    Private ADMIN As New cADMIN
 
 
-    Private Version As String = My.Resources.Version
+    Private Version As String = Application.ProductVersion
     Public sAppPath As String = Application.StartupPath
+    Public firma As String = "VERAG"
 
     Public TESTSYSTEM As Boolean = False
 
 
     Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
-        If SDL.checkLogin(txtUser.Text, txtPwd.Text, "DISPO") Then
-            VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "DISPO"
-            VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
-            VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
-
-
-            AddHandler frmMain.FormClosed, Sub()
-                                               VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
-                                               Me.Close()
-                                           End Sub
-            'frmMain.Show()
-            frmMainV2.Show()
-            Me.Hide()
+        If CBool(ADMIN.checkLogin(txtUser.Text, txtPwd.Text, firma,,, "DISPO")) Then
+            loginOK()
         Else
+            '  MsgBox("Benutzername oder Kennwort ist falsch!", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung")
             lblAlertTxt.Visible = True
         End If
+
+        'If SDL.checkLogin(txtUser.Text, txtPwd.Text, "DISPO") Then
+        '    VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "DISPO"
+        '    VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
+        '    VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
+
+
+        '    AddHandler frmMain.FormClosed, Sub()
+        '                                       VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
+        '                                       Me.Close()
+        '                                   End Sub
+        '    'frmMain.Show()
+        '    frmMainV2.Show()
+        '    Me.Hide()
+        'Else
+        '    lblAlertTxt.Visible = True
+        'End If
     End Sub
 
+    Private Sub loginOK()
+
+        'Prüfen, ob sich eein WO Nutzer in den Firmen-Login schmuggeln möchte:
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
+                MsgBox("Keine Berechtigung!")
+                Exit Sub
+            End If
+        End If
+        '      MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+
+        'Prüfen, ob Passwort erneuert werden muss
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_PasswortChanged Is Nothing Then
+            Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
+            f.txtPwdOld.Text = txtpwd.Text
+            f.txtPwdNew1.Focus()
+            If f.ShowDialog() <> DialogResult.OK Then
+                Exit Sub
+            End If
+        End If
+        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "DISPO"
+        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()
+
+
+        'AddHandler frmMain.FormClosed, Sub()
+        '                                   VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
+        '                                   Me.Close()
+        '                               End Sub
+        'frmMain.Show()
+        frmMainV2.Show()
+
+
+        Me.Hide()
+        cGlobal.AngemeldeterUser = cGlobal.AktiverMitarbeiter.Mitarbeiter
+
+
+
+    End Sub
     Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
         'If sAppPath Like "*\bin\Debug" Then
         '    txtUser.Text = "sebastian"
         '    txtPwd.Text = "verag#3"
         'End If
+
+        Dim pfadDatei As String = Application.StartupPath & "\Standort.txt"
+        firma = "VERAG"
+        If File.Exists(pfadDatei) Then
+            Dim fs As New FileStream(pfadDatei, FileMode.Open, FileAccess.Read)
+            Dim strmReader As New StreamReader(fs)
+            firma = strmReader.ReadLine
+            If firma = "AMBAR" Then firma = "AMBAR"
+            If firma = "NEU" Then firma = "VERAG"
+            strmReader.Close()
+        End If
+
+
+
+        initstart()
+
+
         If TESTSYSTEM Then lblTestsystem.Visible = True
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
         'Dim tmp As String
-        lblVersion.Text = lblVersion.Text & " " & My.Resources.Version
+        lblVersion.Text = lblVersion.Text & " " & Application.ProductVersion
+
         Me.Show()
         txtUser.Focus()
         lblAlertTxt.Visible = False
@@ -102,7 +174,27 @@
                 txtPwd.Text = "verag#3"
             End If
         End If
+        If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
+            Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
+            lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
+            Label3.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
+
+
+            Select Case firma
+                Case "VERAG" : firma = "AMBAR"
+                Case "AMBAR" : firma = "VERAG"
+
+            End Select
+
+            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firma
+
+            ' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
+            initstart()
+
+            e.Handled = True
+        End If
     End Sub
+
     Sub initstart()
 
 
@@ -117,6 +209,17 @@
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
 
 
+
+        Select Case firma
+            Case "VERAG"
+                PictureBox1.Image = My.Resources.Verag_AG_Logo
+
+            Case "AMBAR"
+                PictureBox1.Image = My.Resources.ambar_simple
+
+        End Select
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firma
         ' txtSachbear.Text = ""
         'txtKennwort.Text = ""
 
diff --git a/UID/frmMain.vb b/UID/frmMain.vb
deleted file mode 100644
index e28bc10..0000000
--- a/UID/frmMain.vb
+++ /dev/null
@@ -1,1052 +0,0 @@
-Imports System.ComponentModel
-Imports System.IO
-Imports System.Globalization
-Imports System.Data.SqlClient
-Imports System.Reflection
-
-Public Class frmMain
-
-    Public Shared ConnStr, ConnStrInfo As String
-    Public Shared Niederlassung As String
-    Private Grid_aktiv As Boolean = False
-    Private Anzahl As Integer
-    Private locZeilen As Integer = -1
-    Private Suche_freigegeben As Boolean = False
-    Private DISPO As New cOptionenDAL
-    ' Public Shared rowId As Integer
-    Private hSQL As String
-    Private nochange As Boolean = False
-    Private startdate As Date = Now.AddYears(-1)
-    'Private startdatestring As String
-    'Private enddate As Date
-    'Private enddatestring As String = Format(Now(), "yyyymmdd")
-    Private ein, aus As String
-
-
-
-
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnNew.Click
-        If tbContrl.SelectedIndex = 0 Then frmDetails.rowId = -1 : frmDetails.mainForm = "frmMain" : frmDetails.Show()
-        If tbContrl.SelectedIndex = 1 Then frmAuftragNEU.auftragID = -1 : frmAuftragNEU.Show() : AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
-        If tbContrl.SelectedIndex = 2 Then frmFrachtkostenNew.Show() : AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
-    End Sub
-
-    Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
-        frmLogin.Close()
-    End Sub
-
-    Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
-        dgvAuftraege.DataSource = Me.dataBindingAuftraege
-        dgvKunden.DataSource = Me.dataBindingKunden
-        dgvFrachtkosten.DataSource = Me.dataBindingFrachtkosten
-
-
-        cboAuftragsart.Items.Clear()
-        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
-        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
-        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
-        cboAuftragsart.changeItem("ALLE")
-
-
-        cboFiliale.Items.Clear()
-        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
-        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
-        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
-
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
-            Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
-            Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
-        End Select
-
-
-        '   dgvResult.DataSource = null;
-        '    dgvResult.DataSource = patientBindingSource;
-
-
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = "Andreas Luxbauer" Then btnSQL.Visible = True
-        '  If frmLogin.USRBER > 0 Then btnMitarb.Visible = False
-        '  If frmLogin.USRBER > 5 Then btnNew.Enabled = False : btnDel.Enabled = False : btnChange.Enabled = False
-        Grid_aktiv = True
-        Tabelle_anzeigen()
-        lblVersion.Text = "Version: " & My.Resources.Version
-
-        cboSearchAuftraege.Items.Add(New MyListItem("PosNr", "atr_frachtpos"))
-        cboSearchAuftraege.Items.Add(New MyListItem("Auftraggeber", "atr_auftr_firma"))
-        cboSearchAuftraege.Items.Add(New MyListItem("Frachtführer Bis", "atr_frachtf_firma"))
-        cboSearchAuftraege.Items.Add(New MyListItem("Frachtführer Ab", "atr_frachtfAb_firma"))
-        cboSearchAuftraege.Items.Add(New MyListItem("Transportunternehmen", "atr_frachtpos"))
-        cboSearchAuftraege.Items.Add(New MyListItem("Ladestelle", "atr_ladest_firma"))
-        cboSearchAuftraege.Items.Add(New MyListItem("Entladestelle", "atr_entladest_firma"))
-        cboSearchAuftraege.SelectedIndex = 0
-
-        DateBIS.Value = Now()
-        '   DateBIS.Visible = False
-        DateVON.Value = Now.AddYears(-1).AddDays(1)
-        'DateVON.Visible = False
-        'LblVon.Visible = False
-        'LblBis.Visible = False
-
-        EnableDoubleBuffered(dgvAuftraege)
-        EnableDoubleBuffered(dgvFrachtkosten)
-        EnableDoubleBuffered(dgvKunden)
-
-        btnAuswertung.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUSWERTUNGEN", "DISPO")
-        btnVollmacht.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VOLLMACHT", "DISPO")
-        btnTest.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TEST", "DISPO")
-    End Sub
-
-
-    Dim dataAdapterAuftraege As New SqlDataAdapter
-    Dim dataBindingAuftraege As New BindingSource
-
-    Private Sub initDGVAuftraege(bindingString As String)
-        Dim sqlstr As String = bindingString
-        ' dgvLKW.DataSource = bindingSDL
-        Dim d As New SqlDataAdapter()
-        Try
-            'Dim connectionString As String = cSqlDb.GetNewOpenConnection
-            If frmLogin.TESTSYSTEM Then
-                Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST)
-            Else
-                Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO)
-            End If
-
-        Catch ex As SqlException
-            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
-        End Try
-        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterAuftraege)
-        Dim table As New DataTable()
-        Me.dataAdapterAuftraege.Fill(table)
-        table.Locale = System.Globalization.CultureInfo.InvariantCulture
-        dgvAuftraege.DataBindings.Clear()
-        Me.dataBindingAuftraege.DataSource = table
-    End Sub
-
-    Public Sub initDGVAuftraegeFilter()
-        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        Dim andtxt As String = ""
-        Dim where As String = ""
-        If txtSuche.Text <> "" Then
-            Dim oItem As MyListItem = CType(cboSearchAuftraege.SelectedItem, MyListItem)
-            where = " " & oItem.Value & " LIKE '%" & txtSuche.Text & "%'"
-            andtxt = " AND "
-        End If
-
-        If cboAuftragsart._value <> "" Then
-            where &= andtxt & " atr_AuftragsArt='" & cboAuftragsart._value & "'  "
-            andtxt = " AND "
-
-        End If
-
-        If cboFiliale._value <> "" Then
-            where &= andtxt & " atr_FilialenNr='" & cboFiliale._value & "'  "
-            andtxt = " AND "
-
-        End If
-
-        If cbxAbliefer.CheckState = CheckState.Checked Then
-            where &= andtxt & " atr_abliefernachweis = 1"
-        ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
-            where &= andtxt & " atr_abliefernachweis = 0"
-        End If
-        'where &= andtxt & "atr_datum <= '" & enddatestring & "' AND atr_datum >= '" & startdatestring & "' "
-
-        dataBindingAuftraege.Filter = where
-        lblAnzahl.Refresh()
-        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
-    End Sub
-
-
-
-
-    Public Sub showDGVAuftraege()
-        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-
-        With dgvAuftraege
-
-
-            initDGVAuftraege("SELECT atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr  FROM tblAuftraege  WHERE atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'")
-
-            'initDGVAuftraege("SELECT atr_AuftragsArt,atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,atr_abliefernachweis,atr_FilialenNr  FROM tblAuftraege WHERE atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'")
-            ' MsgBox("SELECT atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,
-            'Case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,
-            'Case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,
-            'atr_abliefernachweis, atr_AuftragsArt, atr_FilialenNr  FROM tblAuftraege WHERE atr_datum <= '" & enddate.ToShortDateString & "' AND atr_datum >= '" & startdate.ToShortDateString & "'")
-
-            locZeilen = -1
-            Dim top As String = ""
-
-            'Tabelle Kommt/Geht bereinigen
-            For i As Integer = 0 To dgvAuftraege.Columns.Count - 1
-                .Columns(i).ReadOnly = True
-            Next
-
-            If .RowCount = 0 Then Exit Sub
-
-            .Sort(dgvAuftraege.Columns(1), ListSortDirection.Descending)
-            .RowTemplate.Height = 20
-            '.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
-            .AllowUserToAddRows = False
-            .AllowUserToDeleteRows = False
-            .AllowUserToOrderColumns = False
-            .AllowUserToResizeColumns = True
-            .AllowUserToResizeRows = False
-            '.RowTemplate.ReadOnly = True
-            .RowHeadersVisible = False
-            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
-            .MultiSelect = False
-            .Columns(0).Visible = False
-            .Columns("atr_AuftragsArt").Visible = False
-
-            .Columns(1).MinimumWidth = 70
-            .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            .Columns(1).HeaderText = "FrachtposNr."
-
-            .Columns(2).Width = 70
-            .Columns(2).HeaderText = "Datum"
-
-            .Columns(3).Width = 165
-            .Columns(3).HeaderText = "Auftraggeber"
-            
-            .Columns(4).Width = 165
-            .Columns(4).HeaderText = "Frachtführer Bis"
-
-            .Columns("atr_frachtfAb_firma").Width = 165
-            .Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"
-
-
-            .Columns(6).Width = 165
-            .Columns(6).HeaderText = "Transportunternehmen"
-
-            .Columns(7).Width = 165
-            .Columns(7).HeaderText = "Ladestelle/Absender"
-
-            .Columns(8).Width = 165
-            .Columns(8).HeaderText = "Entladest./Empfänger"
-
-            .Columns(9).Width = 60
-            .Columns(9).HeaderText = "Abl.Nachw."
-            .Columns(9).ReadOnly = False
-            .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-            .Columns("atr_FilialenNr").Width = 60
-            .Columns("atr_FilialenNr").HeaderText = "Filiale"
-            .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-            .Columns("atr_Auftragsart").Width = 80
-            .Columns("atr_Auftragsart").HeaderText = "Auftragsart"
-            .Columns("atr_Auftragsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            .Columns("atr_Auftragsart").DisplayIndex = 11
-
-
-            'Anzeige der Anzahl gewählter/aller Datensätze
-            lblAnzahl.Text = Format(dgvAuftraege.RowCount, "#,##0")
-            If (dgvAuftraege.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
-
-            initDGVAuftraegeFilter()
-        End With
-        lblAnzahl.Refresh()
-        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
-        'lblMs.Image = Nothing
-    End Sub
-
-
-
-
-
-
-    Dim dataAdapterFrachtkosten As New SqlDataAdapter
-    Dim dataBindingFrachtkosten As New BindingSource
-
-    Private Sub initDGVFrachtkosten(bindingString As String)
-        Dim sqlstr As String = bindingString
-        ' dgvLKW.DataSource = bindingSDL
-        Dim d As New SqlDataAdapter()
-        Try
-            'Dim connectionString As String = cSqlDb.GetNewOpenConnection
-            If frmLogin.TESTSYSTEM Then
-                Me.dataAdapterFrachtkosten = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST)
-            Else
-                Me.dataAdapterFrachtkosten = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO)
-            End If
-
-        Catch ex As SqlException
-            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
-        End Try
-        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterFrachtkosten)
-        Dim table As New DataTable()
-        Me.dataAdapterFrachtkosten.Fill(table)
-        table.Locale = System.Globalization.CultureInfo.InvariantCulture
-        dgvFrachtkosten.DataBindings.Clear()
-        Me.dataBindingFrachtkosten.DataSource = table
-    End Sub
-
-    Public Sub initDGVFrachtkostenFilter()
-        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        Dim andtxt As String = ""
-        Dim where As String = ""
-        If txtSuche.Text <> "" Then
-            where = " kd_firma LIKE '%" & txtSuche.Text & "%' "
-        End If
-        dataBindingFrachtkosten.Filter = where
-        lblAnzahl.Refresh()
-        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
-    End Sub
-
-
-
-
-    Public Sub showDGVFrachtkosten()
-        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-
-        With dgvFrachtkosten
-            initDGVFrachtkosten("SELECT frtkst_id,frtkst_firmaId,kd_firma,frtkst_preisM3,frtkst_preisLDM,frtkst_provision FROM tblFrachtkosten,tblKunden WHERE kd_id=frtkst_firmaId  ")
-            locZeilen = -1
-            Dim top As String = "" ' "top 100"
-
-            'Tabelle Kommt/Geht bereinigen
-            If .RowCount = 0 Then Exit Sub
-            dgvFrachtkosten.Sort(.Columns(1), ListSortDirection.Descending)
-
-            .RowTemplate.Height = 20
-            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
-            .AllowUserToAddRows = False
-            .AllowUserToDeleteRows = False
-            .AllowUserToOrderColumns = False
-            .AllowUserToResizeColumns = True
-            .AllowUserToResizeRows = False
-            .RowTemplate.ReadOnly = True
-            .RowHeadersVisible = False
-            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
-            .MultiSelect = False
-
-            .Columns(0).Visible = False
-            .Columns(1).Visible = False
-
-            .Columns(2).MinimumWidth = 300
-            .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            .Columns(2).HeaderText = "Firma"
-
-            .Columns(3).Width = 100
-            .Columns(3).HeaderText = "Preis pro m³"
-            .Columns(3).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
-            .Columns(3).DefaultCellStyle.Format = "n"
-
-            .Columns(4).Width = 100
-            .Columns(4).HeaderText = "Preis pro LDM"
-            .Columns(4).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
-            .Columns(4).DefaultCellStyle.Format = "n"
-
-            .Columns(5).Width = 100
-            .Columns(5).HeaderText = "Provision"
-            .Columns(5).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
-            .Columns(5).DefaultCellStyle.Format = "n"
-
-            'Anzeige der Anzahl gewählter/aller Datensätze
-            lblAnzahl.Text = Format(.RowCount, "#,##0")
-            If (.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
-
-            initDGVFrachtkostenFilter()
-        End With
-        lblAnzahl.Refresh()
-        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
-
-    End Sub
-
-
-
-
-
-    Public Sub Tabelle_anzeigen()
-        btnRechner.Visible = False
-        pnlFilterAuftrag.Visible = False
-        If tbContrl.SelectedIndex = 0 Then showDGVKunden() : lblSuche.Visible = True : cboSearchAuftraege.Visible = False : cbxAbliefer.Visible = False : btnDuplicate.Visible = False : DatePicker_ausblenden()
-        If tbContrl.SelectedIndex = 1 Then showDGVAuftraege() : pnlFilterAuftrag.Visible = True : lblSuche.Visible = False : cboSearchAuftraege.Visible = True : cbxAbliefer.Visible = True : btnDuplicate.Visible = True : DatePicker_einblenden()
-        If tbContrl.SelectedIndex = 2 Then showDGVFrachtkosten() : lblSuche.Visible = True : cboSearchAuftraege.Visible = False : btnRechner.Visible = True : cbxAbliefer.Visible = False : btnDuplicate.Visible = False : DatePicker_ausblenden()
-    End Sub
-
-
-    Dim dataAdapterKunden As New SqlDataAdapter
-    Dim dataBindingKunden As New BindingSource
-
-    Private Sub initDGVKunden(bindingString As String)
-        Try
-            If frmLogin.TESTSYSTEM Then
-                Me.dataAdapterKunden = New SqlDataAdapter(bindingString, My.Resources.connStringDISPO_TEST)
-            Else
-                Me.dataAdapterKunden = New SqlDataAdapter(bindingString, My.Resources.connStringDISPO)
-            End If
-        Catch ex As SqlException
-            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
-        End Try
-        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterKunden)
-        Dim table As New DataTable()
-        Me.dataAdapterKunden.Fill(table)
-        table.Locale = System.Globalization.CultureInfo.InvariantCulture
-        dgvKunden.DataBindings.Clear()
-        Me.dataBindingKunden.DataSource = table
-
-        '  Me.dataAdapterKunden.Fill(0, 2, dataBindingKunden.DataSource)
-    End Sub
-
-    Public Sub initDGVKundenFilter()
-        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        Dim search As String = txtSuche.Text
-        Dim where As String = ""
-        If txtSuche.Text <> "" Then
-            Dim arr() As String = Split(txtSuche.Text.Replace(" ", ","), ",")
-            Dim cnt As Integer = 1
-            If arr.Count() > 0 Then cnt = arr.Count
-            Dim or_txt As String = ""
-            For i As Integer = 0 To cnt - 1 Step 1
-                If arr(i) <> "" Then search = arr(i).Trim
-                If i > 0 Then where += " AND "
-                '   where += " ( kd_firma LIKE '%" & search & "%' OR  kd_str LIKE '%" & search & "%' OR  kd_strnr LIKE '%" & search & "%' OR  kd_plz LIKE '%" & search & "%' OR  kd_ort LIKE '%" & search & "%' OR  kd_land LIKE '%" & search & "%' OR  kd_anspr1_vn LIKE '%" & search & "%' OR  kd_anspr1_nn LIKE '%" & search & "%' OR  kd_anspr2_vn LIKE '%" & search & "%' OR  kd_anspr2_nn LIKE '%" & search & "%' OR  kd_tel LIKE '%" & search & "%' OR  kd_fax LIKE '%" & search & "%' OR  kd_email LIKE '%" & search & "%' OR  kd_homepage LIKE '%" & search & "%' ) "
-                where += " ( kd_firma LIKE '%" & search & "%' OR  strasse LIKE '%" & search & "%' OR  ort LIKE '%" & search & "%' OR  kd_land LIKE '%" & search & "%' ) "
-            Next
-        End If
-        '  MsgBox(where)
-        dataBindingKunden.Filter = where
-
-
-
-        lblAnzahl.Refresh()
-        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
-    End Sub
-    Public Sub showDGVKunden()
-        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        With dgvKunden
-            Dim top As String = "" ' "top 100"
-            'initDGVKunden("SELECT * FROM tblKunden ")
-            initDGVKunden("SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_oez_id FROM tblKunden ")
-            'initDGVKunden(" SELECT " & top & " kd_id, kd_firma, kd_str , kd_strnr as strasse, kd_plz , kd_ort as ort, kd_land,kd_oez_id FROM tblKunden ")
-            locZeilen = -1
-            ' If Not Grid_aktiv Then Exit Sub
-
-            'Tabelle Kommt/Geht bereinigen
-            If .RowCount = 0 Then Exit Sub
-
-            .Sort(.Columns(1), ListSortDirection.Ascending)
-
-            .RowTemplate.Height = 20
-            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
-            .AllowUserToAddRows = False
-            .AllowUserToDeleteRows = False
-            .AllowUserToOrderColumns = False
-            .AllowUserToResizeColumns = True
-            .AllowUserToResizeRows = False
-            .RowTemplate.ReadOnly = True
-            .RowHeadersVisible = False
-            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
-            .ReadOnly = True
-
-            .Columns(0).Visible = False
-
-            .Columns(1).MinimumWidth = 300
-            .Columns(1).HeaderText = "Firma"
-            .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
-            '   .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-
-            .Columns(2).Width = 250
-            .Columns(2).HeaderText = "Straße"
-
-            .Columns(3).Width = 250
-            .Columns(3).HeaderText = "Ort"
-
-            .Columns(4).Width = 150
-            .Columns(4).HeaderText = "Land"
-
-            .Columns(5).Visible = False
-
-
-            initDGVKundenFilter()
-            'Anzeige der Anzahl gewählter/aller Datensätze
-            lblAnzahl.Text = Format(.RowCount, "#,##0") & " ausgewählt"
-            If (.RowCount = 100) Then lblAnzahl.Text &= "  (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
-        End With
-
-        lblAnzahl.Refresh()
-        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
-        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
-        'lblMs.Image = Nothing
-    End Sub
-
-
-    Private Sub Eintraege_festlegen()
-
-        For i As Integer = 0 To dgvKunden.RowCount - 1
-            'If (.Rows(i).Cells(1).Value = True) Then
-            ' .Rows(i).DefaultCellStyle.BackColor = Color.IndianRed
-            '.Item(1, i).BackColor = Color.IndianRed
-            '  Dim inImg As Image = My.Resources.uhr_green
-            '   dgvUID.Rows(i).Cells(5).Value.Image = inImg
-            '  End If
-        Next
-    End Sub
-
-    Private Sub dgvUID_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKunden.CellDoubleClick
-
-        '   rowId = dgvUID.CurrentRow.Cells(0).Value
-        If frmDetails.Visible Then
-            MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
-            frmDetails.BringToFront()
-        Else
-            frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
-            frmDetails.mainForm = "frmMain"
-        End If
-        frmDetails.Show()
-        Me.Enabled = False
-        AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
-    End Sub
-
-    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFrachtkosten.CellDoubleClick
-
-        If frmFrachtkosten.Visible Then
-            MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
-            frmFrachtkosten.BringToFront()
-        Else
-            frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
-        End If
-        frmFrachtkosten.Show()
-        Me.Enabled = False
-        AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
-    End Sub
-
-    Private Sub Button8_Click(sender As Object, e As EventArgs)
-        Me.Close()
-
-    End Sub
-
-
-
-
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnChange.Click
-        If tbContrl.SelectedIndex = 0 Then 'Kunden
-            Try
-
-                If frmDetails.Visible Then
-                    MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
-                    frmDetails.BringToFront()
-                Else
-                    frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
-                    frmDetails.mainForm = "frmMain"
-                    frmDetails.Show()
-                    AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
-                    Me.Enabled = False
-                End If
-            Catch ex As Exception
-                Me.Enabled = True
-            End Try
-        End If
-        If tbContrl.SelectedIndex = 1 Then 'Aufträge
-            Try
-                If frmAuftragNEU.Visible Then
-                    MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
-                    frmAuftragNEU.BringToFront()
-                Else
-                    frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
-                    frmAuftragNEU.Show()
-                    AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
-                    Me.Enabled = False
-                End If
-                ' Me.Enabled = False
-            Catch ex As Exception
-                Me.Enabled = True
-            End Try
-
-        End If
-        If tbContrl.SelectedIndex = 2 Then 'Aufträge
-            Try
-                If frmFrachtkostenNew.Visible Then
-                    MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
-                    frmFrachtkostenNew.BringToFront()
-                Else
-                    frmFrachtkostenNew.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
-                    frmFrachtkostenNew.Show()
-                    frmFrachtkostenNew.Text = "Änderung"
-                    AddHandler frmFrachtkostenNew.Disposed, AddressOf meEnabledTrue
-                    Me.Enabled = False
-                End If
-                ' Me.Enabled = False
-            Catch ex As Exception
-                Me.Enabled = True
-            End Try
-        End If
-    End Sub
-
-    Private Sub meEnabledTrue()
-        Me.Enabled = True
-        Tabelle_anzeigen()
-        Me.BringToFront()
-    End Sub
-
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnDel.Click
-
-        If tbContrl.SelectedIndex = 0 AndAlso dgvKunden.SelectedRows.Count > 0 Then
-            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
-                Case vbYes
-                    DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
-                    DISPO.delOeffnungszeiten(Convert.ToInt32(dgvKunden.CurrentRow.Cells(5).Value))
-                    Tabelle_anzeigen()
-                Case vbNo
-            End Select
-        End If
-        If tbContrl.SelectedIndex = 1 AndAlso dgvAuftraege.SelectedRows.Count > 0 Then
-
-            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
-                Case vbYes
-                    DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.CurrentRow.Cells(0).Value))
-                    Tabelle_anzeigen()
-                Case vbNo
-            End Select
-        End If
-
-        If tbContrl.SelectedIndex = 2 AndAlso dgvFrachtkosten.SelectedRows.Count > 0 Then
-            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
-                Case vbYes
-                    DISPO.delFrachtkosten(Convert.ToInt32(dgvFrachtkosten.CurrentRow.Cells(0).Value))
-                    Tabelle_anzeigen()
-                Case vbNo
-            End Select
-        End If
-    End Sub
-
-    Private Sub dgvUID_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs)
-        '  Eintraege_festlegen()
-    End Sub
-    Private Sub dgvUID_KeyDown(ByVal sender As Object, _
-                                     ByVal e As System.Windows.Forms.KeyEventArgs)
-
-        If e.KeyCode = Keys.Delete Then
-            e.Handled = True
-            If dgvKunden.SelectedRows.Count = 1 Then
-                Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
-                    Case vbYes
-                        DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
-                        Tabelle_anzeigen()
-                    Case vbNo
-
-                End Select
-            End If
-
-        End If
-    End Sub
-    Private Sub SearchChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged, cbxAbliefer.CheckStateChanged, txtSuche.Click, Button1.Click, cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged
-        txtSuche.Text = txtSuche.Text.Replace("'", "")
-        Dim anz As Integer = 0
-        If tbContrl.SelectedIndex = 0 Then initDGVKundenFilter() : anz = dgvKunden.RowCount
-        If tbContrl.SelectedIndex = 1 Then initDGVAuftraegeFilter() : anz = dgvAuftraege.RowCount
-        If tbContrl.SelectedIndex = 2 Then initDGVFrachtkostenFilter() : anz = dgvFrachtkosten.RowCount
-
-        lblAnzahl.Text = Format(anz, "#,##0")
-        If IsNumeric(anz) AndAlso CInt(anz) = 100 Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
-
-
-        'If Not nochange Then Tabelle_anzeigen()
-    End Sub
-
-    Private Sub txtPosSearch_TextChanged(sender As Object, e As EventArgs)
-        txtSuche.Text = ""
-        If Not nochange Then Tabelle_anzeigen()
-    End Sub
-
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        txtSuche.Text = ""
-        cbxAbliefer.CheckState = CheckState.Indeterminate
-        Tabelle_anzeigen()
-    End Sub
-
-
-    Private Sub Button6_Click(sender As Object, e As EventArgs)
-        frmHistory.rowId = dgvKunden.CurrentRow.Cells(0).Value
-        frmHistory.Show()
-    End Sub
-
-    Private Sub dgvUID_SelectionChanged(sender As Object, e As EventArgs)
-        ' Try
-        'If (dgvUID.CurrentRow.Cells(1).Value = True) Then
-        ' dgvUID.CurrentRow.Cells(1).Style.SelectionBackColor = Color.IndianRed
-        ' Else
-        '    dgvUID.CurrentRow.Cells(1).Style.SelectionBackColor = Color.White
-        '  End If
-        '  Catch ex As Exception
-
-        '  End Try
-    End Sub
-
-    Private Sub btnMitarb_Click(sender As Object, e As EventArgs)
-        frmMitarbeiter.Show()
-    End Sub
-
-    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
-        frmLogin.UpdateDISPO()
-    End Sub
-
-    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
-        Application.Exit()
-    End Sub
-
-    Private Sub dgvUID_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
-
-    End Sub
-
-    Private Sub Button7_Click(sender As Object, e As EventArgs)
-        Dim print As Boolean = True
-        If (dgvKunden.RowCount > 100) Then
-            print = (MsgBox("Möchten Sie wirklich " & dgvKunden.RowCount & " Einträge drucken?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Einträge drucken?") = vbYes)
-        End If
-        If print Then
-            Dim l As IList(Of cEntry)
-            l = DISPO.getDataBySQL(hSQL)
-            Dim where As String = ""
-            If MsgBox("Möchten Sie auch deaktivierte Kunden einschließen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Auswahl mit deaktivierten Kunden?") = vbNo Then
-                For i As Integer = 0 To (l.Count - 1) Step 1
-                    MsgBox(i & " - " & l.Count - 1)
-                    ' If l(i).deakt Then
-                    '                    l.RemoveAt(i) ' : i = i - 1
-                    'End If
-                Next
-            End If
-            frmPrintView.Show()
-            frmPrintView.BefuellenFirmen(l)
-        End If
-
-    End Sub
-
-    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
-
-    End Sub
-
-    Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick
-        frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
-        If frmAuftragNEU.Visible Then
-            MsgBox("Ein Antrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
-            frmAuftragNEU.BringToFront()
-        End If
-        frmAuftragNEU.Show()
-        AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
-        frmAuftragNEU.BringToFront()
-    End Sub
-
-
-
-    Private Sub tbContrl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbContrl.SelectedIndexChanged
-        txtSuche.Text = ""
-        txtSuche.Focus()
-        Tabelle_anzeigen()
-
-    End Sub
-
-
-    Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick
-        Try
-            If e.ColumnIndex = dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").ColumnIndex Then
-                Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").Value
-                DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val)
-                Tabelle_anzeigen()
-            End If
-        Catch ex As Exception
-        End Try
-    End Sub
-
-
-
-    Private WithEvents T As New Timers.Timer With {.Interval = 500, .Enabled = True, .AutoReset = True}
-    Private FormCount As Integer = 1
-    Private Sub SomeForm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
-        If e.KeyData = Keys.Escape Then
-            Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
-            If Not TheForm Is Nothing Then
-                TheForm.Close()
-            End If
-        End If
-        If e.KeyData = Keys.PrintScreen Then
-            Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
-            If Not TheForm Is Nothing Then
-                Dim c As New cProgramFunctions
-                c.screenshot()
-            End If
-        End If
-    End Sub
-    Private Sub HookControls(ByVal f As Control)
-        For Each Control As Control In f.Controls
-            AddHandler Control.KeyUp, AddressOf SomeForm_KeyUp
-            If Control.Controls.Count <> 0 Then
-                HookControls(Control)
-            End If
-        Next
-    End Sub
-    Private Sub T_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles T.Elapsed
-        If FormCount = 0 Then FormCount = 1
-        Dim FormOpened As Integer = My.Application.OpenForms.Count
-        If FormCount <> FormOpened Then
-            If FormOpened > FormCount Then
-                For x As Integer = 1 To (FormOpened - FormCount)
-                    Dim F As Form = My.Application.OpenForms.Item(FormOpened - x)
-                    AddHandler F.KeyDown, AddressOf SomeForm_KeyUp
-                    HookControls(F)
-                    FormCount = My.Application.OpenForms.Count
-                Next
-            Else
-                FormCount = My.Application.OpenForms.Count
-            End If
-        End If
-    End Sub
-
-    Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
-        'Process.Start(My.Resources.DISPO_Benutzerhandbuch)
-        Dim pdf As Byte() = My.Resources.DISPO_Benutzerhandbuch
-        Using tmp As New FileStream("tmp.pdf", FileMode.Create)
-            tmp.Write(pdf, 0, pdf.Length)
-        End Using
-        Process.Start("tmp.pdf")
-        ' Dim p As pdfviewer
-        ' pdfviewer.src = My.Resources.MyPdfFile
-        ' FileMode.OpenOrCreate(My.Resources.DISPO_Benutzerhandbuch)
-    End Sub
-
-    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnDuplicate.Click
-        Try
-            Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
-            AUFTRAG.atr_id = -1
-            AUFTRAG.atr_datum = Now
-            AUFTRAG.atr_frachtpos = Nothing
-            AUFTRAG.LADUNGEN.Clear()
-            AUFTRAG.BH_rechnungen.Clear()
-            AUFTRAG.SAVE()
-
-            Dim frmAuftragNEU As New frmAuftragNEU
-            frmAuftragNEU.auftragID = AUFTRAG.atr_id
-            AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
-            frmAuftragNEU.Show()
-
-            Exit Sub
-            Dim a As cAuftraege = DISPO.getAuftragById(dgvAuftraege.CurrentRow.Cells(0).Value)
-            a.atr_frachtpos = DISPO.getFrachtpos
-            a.atr_datum = Now
-            a.atr_abliefernachweis = False
-            a.atr_ladungen = New List(Of cLadungen)
-            a.bh_rechnungen = New List(Of cBuchhaltungRechnung)
-
-            a.cmr_ausl_land = ""
-            a.cmr_ausl_ort = ""
-            a.cmr_beigefDok = ""
-            a.cmr_anwAbs = ""
-            a.cmr_rueckerst = ""
-            a.cmr_frZahlanwFrei = ""
-            a.cmr_frZahlanwUnfrei = ""
-            a.cmr_besVereinb = ""
-            a.cmr_ausgefIn = ""
-            a.cmr_uebergabe_land = ""
-            a.cmr_uebergabe_ort = ""
-            a.cmr_uebergabe_datum = ""
-            a.cmr_vorbehFrachtf = ""
-
-            a.bh_mon = ""
-
-            a.bh_vermerke = ""
-            a.atr_notes = ""
-            a.atr_gefahrengut = ""
-            a.atr_frachtkosten = ""
-            a.atr_entladest_terminBis = ""
-            a.atr_entladest_terminVon = ""
-            a.atr_entladest_terminDat = ""
-            a.atr_ladest_terminBis = ""
-            a.atr_ladest_terminVon = ""
-            a.atr_ladest_terminDat = ""
-            a.atr_bemerkung = ""
-            a.atr_speditionsbuchNr = -1
-            a.atr_lkwArt = ""
-            a.atr_lkwKz = ""
-            a.atr_lkwNutzlast = ""
-            a.atr_anhKz = ""
-            a.atr_anhNutzlast = ""
-
-            DISPO.insertAuftragUndLadung(a)
-            DISPO.setFrachtpos(a.atr_frachtpos)
-            frmAuftragNEU.auftragID = DISPO.atr_id_insert
-            AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
-            frmAuftragNEU.Show()
-
-            'frmAuftragNEU.Show()
-        Catch ex As Exception
-            MsgBox("Fehler beim Duplizieren: " & ex.Message)
-        End Try
-
-    End Sub
-
-
-    Private Sub lblVersion_Click(sender As Object, e As EventArgs) Handles lblVersion.Click
-        frmInfo.Show()
-    End Sub
-
-    Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles Button3.Click
-        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
-        Me.Cursor = Cursors.WaitCursor
-        Dim eh As New SDL.frmCMR()
-        eh.Show()
-        Me.Cursor = Cursors.Default
-        '  End If
-
-        Exit Sub
-        frmCMR.Show()
-    End Sub
-
-
-    Private Sub btnRechner_Click(sender As Object, e As EventArgs) Handles btnRechner.Click
-        If dgvFrachtkosten.SelectedRows.Count > 0 Then
-            frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
-            frmFrachtkosten.Show()
-            AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
-        End If
-    End Sub
-
-
-    Private Sub btnSQL_Click(sender As Object, e As EventArgs) Handles btnSQL.Click
-        DISPO.doSQL(" " &
-                   "         INSERT INTO [DISPO].[dbo].tblBhUntern " &
-        " SELECT [atr_id] as [bhut_atrId] " &
-              " ,[bh_unterKennz_1] as [bhut_unternKennz] " &
-              " ,[bh_unterKennz_bis_1] as [bhut_bis] " &
-              " ,[bh_unterKennz_kosten_1] as [bhut_kosten] " &
-          " FROM DISPO.[dbo].[tblAuftraege] " &
-          " WHERE [bh_unterKennz_1]<>'' or [bh_unterKennz_bis_1]<>'' or [bh_unterKennz_kosten_1]<>'' " &
-                    " INSERT INTO [DISPO].[dbo].tblBhUntern " &
-        " SELECT [atr_id] as [bhut_atrId] " &
-              " ,[bh_unterKennz_2] as [bhut_unternKennz] " &
-              " ,[bh_unterKennz_bis_2] as [bhut_bis] " &
-              " ,[bh_unterKennz_kosten_2] as [bhut_kosten] " &
-          " FROM DISPO.[dbo].[tblAuftraege] " &
-          " WHERE [bh_unterKennz_2]<>'' or [bh_unterKennz_bis_2]<>'' or [bh_unterKennz_kosten_2]<>'' " &
-        " INSERT INTO [DISPO].[dbo].tblBhUntern " &
-        " SELECT [atr_id] as [bhut_atrId] " &
-              " ,[bh_unterKennz_3] as [bhut_unternKennz] " &
-              " ,[bh_unterKennz_bis_3] as [bhut_bis] " &
-              " ,[bh_unterKennz_kosten_3] as [bhut_kosten] " &
-          " FROM DISPO.[dbo].[tblAuftraege] " &
-          " WHERE [bh_unterKennz_3]<>'' or [bh_unterKennz_bis_3]<>'' or [bh_unterKennz_kosten_3]<>'' ")
-
-
-    End Sub
-
-    
-    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
-        Dim s As New SDL.frmSecureLoginKassenbuch
-        s.openKB = True
-        s.disableCBO = False
-        s.ShowDialog(Me)
-    End Sub
-
-    Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
-        showDGVAuftraege()
-    End Sub
-
-
-    Private Sub CmdHeute_Click(sender As Object, e As EventArgs) Handles CmdHeute.Click
-        DateVON.Value = Now()
-        DateBIS.Value = Now()
-    End Sub
-
-    Private Sub CmdTagMinus_Click(sender As Object, e As EventArgs) Handles CmdTagMinus.Click, CmdTagPlus.Click
-        If sender Is CmdTagPlus Then
-            DateVON.Value = DateVON.Value.AddDays(1)
-            DateBIS.Value = DateVON.Value
-        Else
-            DateVON.Value = DateVON.Value.AddDays(-1)
-            DateBIS.Value = DateVON.Value
-        End If
-    End Sub
-
-    Private Sub CmdMonat_Click(sender As Object, e As EventArgs) Handles CmdMonat.Click
-        DateVON.Value = Now.AddDays(-Now.Day + 1)
-        DateBIS.Value = Now()
-    End Sub
-
-    Private Sub CmdMonatMinus_Click(sender As Object, e As EventArgs) Handles CmdMonatMinus.Click, CmdMonatPlus.Click
-        If sender Is CmdMonatPlus Then
-            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(1)
-            DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
-        Else
-            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-1)
-            DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
-        End If
-    End Sub
-
-    Private Sub CmdJahr_Click(sender As Object, e As EventArgs) Handles CmdJahr.Click
-        DateVON.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
-        DateBIS.Value = Now()
-    End Sub
-
-    Private Sub CmdJahrMinus_Click(sender As Object, e As EventArgs) Handles CmdJahrMinus.Click, CmdJahrPlus.Click
-        If sender Is CmdJahrPlus Then
-            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
-            DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
-        Else
-            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(-1)
-            DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
-        End If
-    End Sub
-
-    Private Sub CmdAlle_Click(sender As Object, e As EventArgs) Handles CmdAlle.Click
-        Try
-            DateVON.Value = "01.01.1970"
-            DateBIS.Value = Now.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
-            cboAuftragsart.changeItem("Alle")
-            cboFiliale.changeItem("Alle")
-        Catch
-            MsgBox("Oh oh")
-        End Try
-
-    End Sub
-
-    Private Function DatePicker_einblenden()
-        'DateBIS.Visible = True
-        'DateVON.Visible = True
-        'LblVon.Visible = True
-        'LblBis.Visible = True
-        PnlDatum.Visible = True
-    End Function
-
-
-
-    Private Function DatePicker_ausblenden()
-        'DateBIS.Visible = False
-        'DateVON.Visible = False
-        'LblVon.Visible = False
-        'LblBis.Visible = False
-        PnlDatum.Visible = False
-    End Function
-
-    Private Sub btnExportVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
-        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
-    End Sub
-
-    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
-        frmMainV2.Show()
-    End Sub
-
-
-    Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
-        If cboFiliale.SelectedItem.text = "NEUHAUS" Then
-            frmAuswertung.Niederlassung = "4819"
-        ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
-            frmAuswertung.Niederlassung = "4807"
-        Else
-            Niederlassung = ""
-        End If
-        frmAuswertung.Show()
-    End Sub
-
-    Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
-        Dim dgvType As Type = dgv.[GetType]()
-        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
-                                                  BindingFlags.Instance Or BindingFlags.NonPublic)
-        pi.SetValue(dgv, True, Nothing)
-    End Sub
-
-End Class
diff --git a/UID/frmMain/frmMainV2.vb b/UID/frmMain/frmMainV2.vb
index 409d99a..33b30da 100644
--- a/UID/frmMain/frmMainV2.vb
+++ b/UID/frmMain/frmMainV2.vb
@@ -49,7 +49,8 @@ Public Class frmMainV2
     End Sub
 
     Private Sub frmMainV2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        lblVersion.Text = "Version: " & My.Resources.Version
+        lblVersion.Text = "Version: " & Application.ProductVersion
+
         cUserSettings.load()
         ShowChat()
         btnAuftraege.PerformClick()
diff --git a/UID/frmMain/usrcntlAuftraege.vb b/UID/frmMain/usrcntlAuftraege.vb
index 076d111..ef13f07 100644
--- a/UID/frmMain/usrcntlAuftraege.vb
+++ b/UID/frmMain/usrcntlAuftraege.vb
@@ -80,17 +80,34 @@ where "
         cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
         cboAuftragsart.changeItem("ALLE")
 
-
         cboFiliale.Items.Clear()
-        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
-        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
-        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
 
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
-            Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
-            Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "AMBAR"
+                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "5701"))
+                cboFiliale.changeItem("5701") : Niederlassung = "5701"
+            Case Else
+                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
+                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
+
+                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+                    Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
+                    Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
+                End Select
         End Select
 
+        'cboFiliale.Items.Clear()
+        'cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+        'cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
+        'cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
+
+        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+        '    Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
+        '    Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
+        'End Select
+
         DateBIS.Value = Now()
         DateVON.Value = Now.AddYears(-1).AddDays(1)
 
diff --git a/UID/frmMain/usrcntlFirmen.vb b/UID/frmMain/usrcntlFirmen.vb
index 3879eae..fdeb170 100644
--- a/UID/frmMain/usrcntlFirmen.vb
+++ b/UID/frmMain/usrcntlFirmen.vb
@@ -223,6 +223,9 @@ Public Class usrcntlFirmen
         If cboLand.SelectedItem IsNot "" And cboLand.SelectedItem IsNot "-" And cboLand.SelectedItem IsNot Nothing Then
             where &= " AND kd_land = '" & cboLand.SelectedItem & "'"
         End If
+
+
+        where &= " AND kd_AVISOfirma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
         'Else
         '    If cboRolle._value IsNot "-1" And cboRolle._value IsNot "" Then
         '        where &= " WHERE kd_rolle = '" & cboRolle._value & "'"
diff --git a/UID/frmMain/usrcntlFrachtkosten.vb b/UID/frmMain/usrcntlFrachtkosten.vb
index 4adfbea..3c728b0 100644
--- a/UID/frmMain/usrcntlFrachtkosten.vb
+++ b/UID/frmMain/usrcntlFrachtkosten.vb
@@ -22,7 +22,7 @@ Public Class usrcntlFrachtkosten
     End Sub
 
     Public Sub showDGVFrachtkosten()
-        Dim where As String = ""
+        Dim where As String = " AND frtkst_AVISOfirma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
         Dim search As String = ""
         Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
 
diff --git a/UID/frmMitarbeiter.vb b/UID/frmMitarbeiter.vb
index c8ba390..af6d381 100644
--- a/UID/frmMitarbeiter.vb
+++ b/UID/frmMitarbeiter.vb
@@ -15,7 +15,7 @@ Public Class frmMitarbeiter
         tmp = "Provider=SQLOLEDB;Server=DEVELOPER\DEVSQL;Database=UID;"
 
 
-        ConnStr = frmMain.ConnStr
+        '  ConnStr = old_frmMain.ConnStr
 
         Try
             '  Me.Size = My.Settings.frmMainSize
diff --git a/UID/frmSearch.vb b/UID/frmSearch.vb
index b3eb10e..6741c1a 100644
--- a/UID/frmSearch.vb
+++ b/UID/frmSearch.vb
@@ -31,7 +31,7 @@ Public Class frmSearch
         'je nach Auswahl SQL anpassen
         hSQL = "SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_firma, kd_str, kd_strnr, kd_land, kd_plz, kd_ort,  (kd_anspr1_vn + ' ' + kd_anspr1_nn) as anspr,kd_isRefNr,kd_refNr FROM tblKunden "
         Dim search As String = txtSuche.Text
-        Dim where As String = ""
+        Dim where As String = " WHERE kd_AVISOfirma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
         If txtSuche.Text <> "" Then
             'where += " kd_firma LIKE '%" & search & "%'"
 
@@ -44,14 +44,15 @@ Public Class frmSearch
             Dim or_txt As String = ""
             For i As Integer = 0 To cnt - 1 Step 1
                 If arr(i) <> "" Then search = arr(i).Trim
-                If i > 0 Then where += " AND "
-                where += " ( kd_firma LIKE '%" & search & "%' OR  kd_str LIKE '%" & search & "%' OR  kd_strnr LIKE '%" & search & "%' OR  kd_plz LIKE '%" & search & "%' OR  kd_ort LIKE '%" & search & "%' OR  kd_land LIKE '%" & search & "%' OR  kd_anspr1_vn LIKE '%" & search & "%' OR  kd_anspr1_nn LIKE '%" & search & "%' OR  kd_anspr2_vn LIKE '%" & search & "%' OR  kd_anspr2_nn LIKE '%" & search & "%' OR  kd_tel LIKE '%" & search & "%' OR  kd_fax LIKE '%" & search & "%' OR  kd_email LIKE '%" & search & "%' OR  kd_homepage LIKE '%" & search & "%' ) "
+                '       If i > 0 Then where += " AND "
+                where += " AND ( kd_firma LIKE '%" & search & "%' OR  kd_str LIKE '%" & search & "%' OR  kd_strnr LIKE '%" & search & "%' OR  kd_plz LIKE '%" & search & "%' OR  kd_ort LIKE '%" & search & "%' OR  kd_land LIKE '%" & search & "%' OR  kd_anspr1_vn LIKE '%" & search & "%' OR  kd_anspr1_nn LIKE '%" & search & "%' OR  kd_anspr2_vn LIKE '%" & search & "%' OR  kd_anspr2_nn LIKE '%" & search & "%' OR  kd_tel LIKE '%" & search & "%' OR  kd_fax LIKE '%" & search & "%' OR  kd_email LIKE '%" & search & "%' OR  kd_homepage LIKE '%" & search & "%' ) "
             Next
 
 
-            where = " WHERE " & where
+            'where = " WHERE " & where
         End If
 
+
         ' MsgBox(hSQL + where)
         dgvUID.DataSource = UID.AnzeigeTabelle(hSQL + where)
 
diff --git a/UID/frmTransportauftrag.Designer.vb b/UID/frmTransportauftrag.Designer.vb
index e4862f8..617f493 100644
--- a/UID/frmTransportauftrag.Designer.vb
+++ b/UID/frmTransportauftrag.Designer.vb
@@ -283,7 +283,7 @@ Partial Class frmTransportauftrag
         Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 79.0!))
         Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 58.0!))
         Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 69.0!))
-        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 89.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 90.0!))
         Me.TableLayoutPanel1.Controls.Add(Me.txt12_4, 6, 3)
         Me.TableLayoutPanel1.Controls.Add(Me.txt11_4, 5, 3)
         Me.TableLayoutPanel1.Controls.Add(Me.txt10_4, 4, 3)
@@ -325,42 +325,42 @@ Partial Class frmTransportauftrag
         '
         'txt12_4
         '
-        Me.txt12_4.Location = New System.Drawing.Point(403, 69)
+        Me.txt12_4.Location = New System.Drawing.Point(402, 69)
         Me.txt12_4.Name = "txt12_4"
         Me.txt12_4.Size = New System.Drawing.Size(66, 20)
         Me.txt12_4.TabIndex = 27
         '
         'txt11_4
         '
-        Me.txt11_4.Location = New System.Drawing.Point(334, 69)
+        Me.txt11_4.Location = New System.Drawing.Point(333, 69)
         Me.txt11_4.Name = "txt11_4"
         Me.txt11_4.Size = New System.Drawing.Size(63, 20)
         Me.txt11_4.TabIndex = 26
         '
         'txt10_4
         '
-        Me.txt10_4.Location = New System.Drawing.Point(276, 69)
+        Me.txt10_4.Location = New System.Drawing.Point(275, 69)
         Me.txt10_4.Name = "txt10_4"
         Me.txt10_4.Size = New System.Drawing.Size(52, 20)
         Me.txt10_4.TabIndex = 25
         '
         'txt9_4
         '
-        Me.txt9_4.Location = New System.Drawing.Point(197, 69)
+        Me.txt9_4.Location = New System.Drawing.Point(196, 69)
         Me.txt9_4.Name = "txt9_4"
         Me.txt9_4.Size = New System.Drawing.Size(73, 20)
         Me.txt9_4.TabIndex = 24
         '
         'txt8_4
         '
-        Me.txt8_4.Location = New System.Drawing.Point(109, 69)
+        Me.txt8_4.Location = New System.Drawing.Point(108, 69)
         Me.txt8_4.Name = "txt8_4"
         Me.txt8_4.Size = New System.Drawing.Size(82, 20)
         Me.txt8_4.TabIndex = 23
         '
         'txt7_4
         '
-        Me.txt7_4.Location = New System.Drawing.Point(61, 69)
+        Me.txt7_4.Location = New System.Drawing.Point(60, 69)
         Me.txt7_4.Name = "txt7_4"
         Me.txt7_4.Size = New System.Drawing.Size(42, 20)
         Me.txt7_4.TabIndex = 22
@@ -369,40 +369,40 @@ Partial Class frmTransportauftrag
         '
         Me.txt6_4.Location = New System.Drawing.Point(3, 69)
         Me.txt6_4.Name = "txt6_4"
-        Me.txt6_4.Size = New System.Drawing.Size(52, 20)
+        Me.txt6_4.Size = New System.Drawing.Size(51, 20)
         Me.txt6_4.TabIndex = 21
         '
         'txt12_3
         '
-        Me.txt12_3.Location = New System.Drawing.Point(403, 49)
+        Me.txt12_3.Location = New System.Drawing.Point(402, 49)
         Me.txt12_3.Name = "txt12_3"
         Me.txt12_3.Size = New System.Drawing.Size(66, 20)
         Me.txt12_3.TabIndex = 20
         '
         'txt10_3
         '
-        Me.txt10_3.Location = New System.Drawing.Point(276, 49)
+        Me.txt10_3.Location = New System.Drawing.Point(275, 49)
         Me.txt10_3.Name = "txt10_3"
         Me.txt10_3.Size = New System.Drawing.Size(52, 20)
         Me.txt10_3.TabIndex = 18
         '
         'txt9_3
         '
-        Me.txt9_3.Location = New System.Drawing.Point(197, 49)
+        Me.txt9_3.Location = New System.Drawing.Point(196, 49)
         Me.txt9_3.Name = "txt9_3"
         Me.txt9_3.Size = New System.Drawing.Size(73, 20)
         Me.txt9_3.TabIndex = 17
         '
         'txt8_3
         '
-        Me.txt8_3.Location = New System.Drawing.Point(109, 49)
+        Me.txt8_3.Location = New System.Drawing.Point(108, 49)
         Me.txt8_3.Name = "txt8_3"
         Me.txt8_3.Size = New System.Drawing.Size(82, 20)
         Me.txt8_3.TabIndex = 16
         '
         'txt7_3
         '
-        Me.txt7_3.Location = New System.Drawing.Point(61, 49)
+        Me.txt7_3.Location = New System.Drawing.Point(60, 49)
         Me.txt7_3.Name = "txt7_3"
         Me.txt7_3.Size = New System.Drawing.Size(42, 20)
         Me.txt7_3.TabIndex = 15
@@ -411,47 +411,47 @@ Partial Class frmTransportauftrag
         '
         Me.txt6_3.Location = New System.Drawing.Point(3, 49)
         Me.txt6_3.Name = "txt6_3"
-        Me.txt6_3.Size = New System.Drawing.Size(52, 20)
+        Me.txt6_3.Size = New System.Drawing.Size(51, 20)
         Me.txt6_3.TabIndex = 14
         '
         'txt12_2
         '
-        Me.txt12_2.Location = New System.Drawing.Point(403, 26)
+        Me.txt12_2.Location = New System.Drawing.Point(402, 26)
         Me.txt12_2.Name = "txt12_2"
         Me.txt12_2.Size = New System.Drawing.Size(66, 20)
         Me.txt12_2.TabIndex = 13
         '
         'txt11_2
         '
-        Me.txt11_2.Location = New System.Drawing.Point(334, 26)
+        Me.txt11_2.Location = New System.Drawing.Point(333, 26)
         Me.txt11_2.Name = "txt11_2"
         Me.txt11_2.Size = New System.Drawing.Size(63, 20)
         Me.txt11_2.TabIndex = 12
         '
         'txt10_2
         '
-        Me.txt10_2.Location = New System.Drawing.Point(276, 26)
+        Me.txt10_2.Location = New System.Drawing.Point(275, 26)
         Me.txt10_2.Name = "txt10_2"
         Me.txt10_2.Size = New System.Drawing.Size(52, 20)
         Me.txt10_2.TabIndex = 11
         '
         'txt9_2
         '
-        Me.txt9_2.Location = New System.Drawing.Point(197, 26)
+        Me.txt9_2.Location = New System.Drawing.Point(196, 26)
         Me.txt9_2.Name = "txt9_2"
         Me.txt9_2.Size = New System.Drawing.Size(73, 20)
         Me.txt9_2.TabIndex = 10
         '
         'txt8_2
         '
-        Me.txt8_2.Location = New System.Drawing.Point(109, 26)
+        Me.txt8_2.Location = New System.Drawing.Point(108, 26)
         Me.txt8_2.Name = "txt8_2"
         Me.txt8_2.Size = New System.Drawing.Size(82, 20)
         Me.txt8_2.TabIndex = 9
         '
         'txt7_2
         '
-        Me.txt7_2.Location = New System.Drawing.Point(61, 26)
+        Me.txt7_2.Location = New System.Drawing.Point(60, 26)
         Me.txt7_2.Name = "txt7_2"
         Me.txt7_2.Size = New System.Drawing.Size(42, 20)
         Me.txt7_2.TabIndex = 8
@@ -460,47 +460,47 @@ Partial Class frmTransportauftrag
         '
         Me.txt6_2.Location = New System.Drawing.Point(3, 26)
         Me.txt6_2.Name = "txt6_2"
-        Me.txt6_2.Size = New System.Drawing.Size(52, 20)
+        Me.txt6_2.Size = New System.Drawing.Size(51, 20)
         Me.txt6_2.TabIndex = 7
         '
         'txt12_1
         '
-        Me.txt12_1.Location = New System.Drawing.Point(403, 3)
+        Me.txt12_1.Location = New System.Drawing.Point(402, 3)
         Me.txt12_1.Name = "txt12_1"
         Me.txt12_1.Size = New System.Drawing.Size(66, 20)
         Me.txt12_1.TabIndex = 6
         '
         'txt11_1
         '
-        Me.txt11_1.Location = New System.Drawing.Point(334, 3)
+        Me.txt11_1.Location = New System.Drawing.Point(333, 3)
         Me.txt11_1.Name = "txt11_1"
         Me.txt11_1.Size = New System.Drawing.Size(63, 20)
         Me.txt11_1.TabIndex = 5
         '
         'txt10_1
         '
-        Me.txt10_1.Location = New System.Drawing.Point(276, 3)
+        Me.txt10_1.Location = New System.Drawing.Point(275, 3)
         Me.txt10_1.Name = "txt10_1"
         Me.txt10_1.Size = New System.Drawing.Size(52, 20)
         Me.txt10_1.TabIndex = 4
         '
         'txt9_1
         '
-        Me.txt9_1.Location = New System.Drawing.Point(197, 3)
+        Me.txt9_1.Location = New System.Drawing.Point(196, 3)
         Me.txt9_1.Name = "txt9_1"
         Me.txt9_1.Size = New System.Drawing.Size(73, 20)
         Me.txt9_1.TabIndex = 3
         '
         'txt8_1
         '
-        Me.txt8_1.Location = New System.Drawing.Point(109, 3)
+        Me.txt8_1.Location = New System.Drawing.Point(108, 3)
         Me.txt8_1.Name = "txt8_1"
         Me.txt8_1.Size = New System.Drawing.Size(82, 20)
         Me.txt8_1.TabIndex = 2
         '
         'txt7_1
         '
-        Me.txt7_1.Location = New System.Drawing.Point(61, 3)
+        Me.txt7_1.Location = New System.Drawing.Point(60, 3)
         Me.txt7_1.Name = "txt7_1"
         Me.txt7_1.Size = New System.Drawing.Size(42, 20)
         Me.txt7_1.TabIndex = 1
@@ -509,12 +509,12 @@ Partial Class frmTransportauftrag
         '
         Me.txt6_1.Location = New System.Drawing.Point(3, 3)
         Me.txt6_1.Name = "txt6_1"
-        Me.txt6_1.Size = New System.Drawing.Size(52, 20)
+        Me.txt6_1.Size = New System.Drawing.Size(51, 20)
         Me.txt6_1.TabIndex = 0
         '
         'txt11_3
         '
-        Me.txt11_3.Location = New System.Drawing.Point(334, 49)
+        Me.txt11_3.Location = New System.Drawing.Point(333, 49)
         Me.txt11_3.Name = "txt11_3"
         Me.txt11_3.Size = New System.Drawing.Size(63, 20)
         Me.txt11_3.TabIndex = 19
diff --git a/UID/frmMain.Designer.vb b/UID/old_frmMain.Designer.vb
similarity index 100%
rename from UID/frmMain.Designer.vb
rename to UID/old_frmMain.Designer.vb
diff --git a/UID/frmMain.resx b/UID/old_frmMain.resx
similarity index 100%
rename from UID/frmMain.resx
rename to UID/old_frmMain.resx
diff --git a/UID/old_frmMain.vb b/UID/old_frmMain.vb
new file mode 100644
index 0000000..3d188b2
--- /dev/null
+++ b/UID/old_frmMain.vb
@@ -0,0 +1,1059 @@
+'Imports System.ComponentModel
+'Imports System.IO
+'Imports System.Globalization
+'Imports System.Data.SqlClient
+'Imports System.Reflection
+
+'Public Class old_frmMain
+
+'    Public Shared ConnStr, ConnStrInfo As String
+'    Public Shared Niederlassung As String
+'    Private Grid_aktiv As Boolean = False
+'    Private Anzahl As Integer
+'    Private locZeilen As Integer = -1
+'    Private Suche_freigegeben As Boolean = False
+'    Private DISPO As New cOptionenDAL
+'    ' Public Shared rowId As Integer
+'    Private hSQL As String
+'    Private nochange As Boolean = False
+'    Private startdate As Date = Now.AddYears(-1)
+'    'Private startdatestring As String
+'    'Private enddate As Date
+'    'Private enddatestring As String = Format(Now(), "yyyymmdd")
+'    Private ein, aus As String
+
+
+
+
+'    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnNew.Click
+'        If tbContrl.SelectedIndex = 0 Then frmDetails.rowId = -1 : frmDetails.mainForm = "frmMain" : frmDetails.Show()
+'        If tbContrl.SelectedIndex = 1 Then frmAuftragNEU.auftragID = -1 : frmAuftragNEU.Show() : AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
+'        If tbContrl.SelectedIndex = 2 Then frmFrachtkostenNew.Show() : AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
+'    End Sub
+
+'    Private Sub frmMain_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+'        frmLogin.Close()
+'    End Sub
+
+'    Private Sub Main_Load(sender As Object, e As EventArgs) Handles Me.Load
+'        dgvAuftraege.DataSource = Me.dataBindingAuftraege
+'        dgvKunden.DataSource = Me.dataBindingKunden
+'        dgvFrachtkosten.DataSource = Me.dataBindingFrachtkosten
+
+
+'        cboAuftragsart.Items.Clear()
+'        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+'        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
+'        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
+'        cboAuftragsart.changeItem("ALLE")
+
+
+'        cboFiliale.Items.Clear()
+
+
+'        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+'            Case "AMBAR"
+'                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "5701"))
+'                cboFiliale.changeItem("5701") : Niederlassung = "5701"
+'            Case Else
+'                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+'                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
+'                cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
+
+'                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
+'                    Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
+'                    Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
+'                End Select
+'        End Select
+
+'        '   dgvResult.DataSource = null;
+'        '    dgvResult.DataSource = patientBindingSource;
+
+
+'        If VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME = "Andreas Luxbauer" Then btnSQL.Visible = True
+'        '  If frmLogin.USRBER > 0 Then btnMitarb.Visible = False
+'        '  If frmLogin.USRBER > 5 Then btnNew.Enabled = False : btnDel.Enabled = False : btnChange.Enabled = False
+'        Grid_aktiv = True
+'        Tabelle_anzeigen()
+'        lblVersion.Text = "Version: " & My.Resources.Version
+
+'        cboSearchAuftraege.Items.Add(New MyListItem("PosNr", "atr_frachtpos"))
+'        cboSearchAuftraege.Items.Add(New MyListItem("Auftraggeber", "atr_auftr_firma"))
+'        cboSearchAuftraege.Items.Add(New MyListItem("Frachtführer Bis", "atr_frachtf_firma"))
+'        cboSearchAuftraege.Items.Add(New MyListItem("Frachtführer Ab", "atr_frachtfAb_firma"))
+'        cboSearchAuftraege.Items.Add(New MyListItem("Transportunternehmen", "atr_frachtpos"))
+'        cboSearchAuftraege.Items.Add(New MyListItem("Ladestelle", "atr_ladest_firma"))
+'        cboSearchAuftraege.Items.Add(New MyListItem("Entladestelle", "atr_entladest_firma"))
+'        cboSearchAuftraege.SelectedIndex = 0
+
+'        DateBIS.Value = Now()
+'        '   DateBIS.Visible = False
+'        DateVON.Value = Now.AddYears(-1).AddDays(1)
+'        'DateVON.Visible = False
+'        'LblVon.Visible = False
+'        'LblBis.Visible = False
+
+'        EnableDoubleBuffered(dgvAuftraege)
+'        EnableDoubleBuffered(dgvFrachtkosten)
+'        EnableDoubleBuffered(dgvKunden)
+
+'        btnAuswertung.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUSWERTUNGEN", "DISPO")
+'        btnVollmacht.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VOLLMACHT", "DISPO")
+'        btnTest.Visible = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("TEST", "DISPO")
+'    End Sub
+
+
+'    Dim dataAdapterAuftraege As New SqlDataAdapter
+'    Dim dataBindingAuftraege As New BindingSource
+
+'    Private Sub initDGVAuftraege(bindingString As String)
+'        Dim sqlstr As String = bindingString
+'        ' dgvLKW.DataSource = bindingSDL
+'        Dim d As New SqlDataAdapter()
+'        Try
+'            'Dim connectionString As String = cSqlDb.GetNewOpenConnection
+'            If frmLogin.TESTSYSTEM Then
+'                Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST)
+'            Else
+'                Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO)
+'            End If
+
+'        Catch ex As SqlException
+'            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
+'        End Try
+'        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterAuftraege)
+'        Dim table As New DataTable()
+'        Me.dataAdapterAuftraege.Fill(table)
+'        table.Locale = System.Globalization.CultureInfo.InvariantCulture
+'        dgvAuftraege.DataBindings.Clear()
+'        Me.dataBindingAuftraege.DataSource = table
+'    End Sub
+
+'    Public Sub initDGVAuftraegeFilter()
+'        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        Dim andtxt As String = ""
+'        Dim where As String = ""
+'        If txtSuche.Text <> "" Then
+'            Dim oItem As MyListItem = CType(cboSearchAuftraege.SelectedItem, MyListItem)
+'            where = " " & oItem.Value & " LIKE '%" & txtSuche.Text & "%'"
+'            andtxt = " AND "
+'        End If
+
+'        If cboAuftragsart._value <> "" Then
+'            where &= andtxt & " atr_AuftragsArt='" & cboAuftragsart._value & "'  "
+'            andtxt = " AND "
+
+'        End If
+
+'        If cboFiliale._value <> "" Then
+'            where &= andtxt & " atr_FilialenNr='" & cboFiliale._value & "'  "
+'            andtxt = " AND "
+
+'        End If
+
+'        If cbxAbliefer.CheckState = CheckState.Checked Then
+'            where &= andtxt & " atr_abliefernachweis = 1"
+'        ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
+'            where &= andtxt & " atr_abliefernachweis = 0"
+'        End If
+'        'where &= andtxt & "atr_datum <= '" & enddatestring & "' AND atr_datum >= '" & startdatestring & "' "
+
+'        dataBindingAuftraege.Filter = where
+'        lblAnzahl.Refresh()
+'        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+'    End Sub
+
+
+
+
+'    Public Sub showDGVAuftraege()
+'        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+
+'        With dgvAuftraege
+
+
+'            initDGVAuftraege("SELECT atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr  FROM tblAuftraege  WHERE atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'")
+
+'            'initDGVAuftraege("SELECT atr_AuftragsArt,atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,atr_abliefernachweis,atr_FilialenNr  FROM tblAuftraege WHERE atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'")
+'            ' MsgBox("SELECT atr_id, atr_frachtpos,atr_datum,atr_auftr_firma, atr_frachtf_firma,atr_frachtfAb_firma,atr_trans_firma,
+'            'Case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma,
+'            'Case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma,
+'            'atr_abliefernachweis, atr_AuftragsArt, atr_FilialenNr  FROM tblAuftraege WHERE atr_datum <= '" & enddate.ToShortDateString & "' AND atr_datum >= '" & startdate.ToShortDateString & "'")
+
+'            locZeilen = -1
+'            Dim top As String = ""
+
+'            'Tabelle Kommt/Geht bereinigen
+'            For i As Integer = 0 To dgvAuftraege.Columns.Count - 1
+'                .Columns(i).ReadOnly = True
+'            Next
+
+'            If .RowCount = 0 Then Exit Sub
+
+'            .Sort(dgvAuftraege.Columns(1), ListSortDirection.Descending)
+'            .RowTemplate.Height = 20
+'            '.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+'            .AllowUserToAddRows = False
+'            .AllowUserToDeleteRows = False
+'            .AllowUserToOrderColumns = False
+'            .AllowUserToResizeColumns = True
+'            .AllowUserToResizeRows = False
+'            '.RowTemplate.ReadOnly = True
+'            .RowHeadersVisible = False
+'            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+'            .MultiSelect = False
+'            .Columns(0).Visible = False
+'            .Columns("atr_AuftragsArt").Visible = False
+
+'            .Columns(1).MinimumWidth = 70
+'            .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+'            .Columns(1).HeaderText = "FrachtposNr."
+
+'            .Columns(2).Width = 70
+'            .Columns(2).HeaderText = "Datum"
+
+'            .Columns(3).Width = 165
+'            .Columns(3).HeaderText = "Auftraggeber"
+
+'            .Columns(4).Width = 165
+'            .Columns(4).HeaderText = "Frachtführer Bis"
+
+'            .Columns("atr_frachtfAb_firma").Width = 165
+'            .Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"
+
+
+'            .Columns(6).Width = 165
+'            .Columns(6).HeaderText = "Transportunternehmen"
+
+'            .Columns(7).Width = 165
+'            .Columns(7).HeaderText = "Ladestelle/Absender"
+
+'            .Columns(8).Width = 165
+'            .Columns(8).HeaderText = "Entladest./Empfänger"
+
+'            .Columns(9).Width = 60
+'            .Columns(9).HeaderText = "Abl.Nachw."
+'            .Columns(9).ReadOnly = False
+'            .Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+'            .Columns("atr_FilialenNr").Width = 60
+'            .Columns("atr_FilialenNr").HeaderText = "Filiale"
+'            .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+'            .Columns("atr_Auftragsart").Width = 80
+'            .Columns("atr_Auftragsart").HeaderText = "Auftragsart"
+'            .Columns("atr_Auftragsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+'            .Columns("atr_Auftragsart").DisplayIndex = 11
+
+
+'            'Anzeige der Anzahl gewählter/aller Datensätze
+'            lblAnzahl.Text = Format(dgvAuftraege.RowCount, "#,##0")
+'            If (dgvAuftraege.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
+
+'            initDGVAuftraegeFilter()
+'        End With
+'        lblAnzahl.Refresh()
+'        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+'        'lblMs.Image = Nothing
+'    End Sub
+
+
+
+
+
+
+'    Dim dataAdapterFrachtkosten As New SqlDataAdapter
+'    Dim dataBindingFrachtkosten As New BindingSource
+
+'    Private Sub initDGVFrachtkosten(bindingString As String)
+'        Dim sqlstr As String = bindingString
+'        ' dgvLKW.DataSource = bindingSDL
+'        Dim d As New SqlDataAdapter()
+'        Try
+'            'Dim connectionString As String = cSqlDb.GetNewOpenConnection
+'            If frmLogin.TESTSYSTEM Then
+'                Me.dataAdapterFrachtkosten = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST)
+'            Else
+'                Me.dataAdapterFrachtkosten = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO)
+'            End If
+
+'        Catch ex As SqlException
+'            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
+'        End Try
+'        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterFrachtkosten)
+'        Dim table As New DataTable()
+'        Me.dataAdapterFrachtkosten.Fill(table)
+'        table.Locale = System.Globalization.CultureInfo.InvariantCulture
+'        dgvFrachtkosten.DataBindings.Clear()
+'        Me.dataBindingFrachtkosten.DataSource = table
+'    End Sub
+
+'    Public Sub initDGVFrachtkostenFilter()
+'        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        Dim andtxt As String = ""
+'        Dim where As String = ""
+'        If txtSuche.Text <> "" Then
+'            where = " kd_firma LIKE '%" & txtSuche.Text & "%' "
+'        End If
+'        dataBindingFrachtkosten.Filter = where
+'        lblAnzahl.Refresh()
+'        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+'    End Sub
+
+
+
+
+'    Public Sub showDGVFrachtkosten()
+'        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+
+'        With dgvFrachtkosten
+'            initDGVFrachtkosten("SELECT frtkst_id,frtkst_firmaId,kd_firma,frtkst_preisM3,frtkst_preisLDM,frtkst_provision FROM tblFrachtkosten,tblKunden WHERE kd_id=frtkst_firmaId  ")
+'            locZeilen = -1
+'            Dim top As String = "" ' "top 100"
+
+'            'Tabelle Kommt/Geht bereinigen
+'            If .RowCount = 0 Then Exit Sub
+'            dgvFrachtkosten.Sort(.Columns(1), ListSortDirection.Descending)
+
+'            .RowTemplate.Height = 20
+'            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+'            .AllowUserToAddRows = False
+'            .AllowUserToDeleteRows = False
+'            .AllowUserToOrderColumns = False
+'            .AllowUserToResizeColumns = True
+'            .AllowUserToResizeRows = False
+'            .RowTemplate.ReadOnly = True
+'            .RowHeadersVisible = False
+'            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+'            .MultiSelect = False
+
+'            .Columns(0).Visible = False
+'            .Columns(1).Visible = False
+
+'            .Columns(2).MinimumWidth = 300
+'            .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+'            .Columns(2).HeaderText = "Firma"
+
+'            .Columns(3).Width = 100
+'            .Columns(3).HeaderText = "Preis pro m³"
+'            .Columns(3).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
+'            .Columns(3).DefaultCellStyle.Format = "n"
+
+'            .Columns(4).Width = 100
+'            .Columns(4).HeaderText = "Preis pro LDM"
+'            .Columns(4).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
+'            .Columns(4).DefaultCellStyle.Format = "n"
+
+'            .Columns(5).Width = 100
+'            .Columns(5).HeaderText = "Provision"
+'            .Columns(5).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
+'            .Columns(5).DefaultCellStyle.Format = "n"
+
+'            'Anzeige der Anzahl gewählter/aller Datensätze
+'            lblAnzahl.Text = Format(.RowCount, "#,##0")
+'            If (.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
+
+'            initDGVFrachtkostenFilter()
+'        End With
+'        lblAnzahl.Refresh()
+'        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+
+'    End Sub
+
+
+
+
+
+'    Public Sub Tabelle_anzeigen()
+'        btnRechner.Visible = False
+'        pnlFilterAuftrag.Visible = False
+'        If tbContrl.SelectedIndex = 0 Then showDGVKunden() : lblSuche.Visible = True : cboSearchAuftraege.Visible = False : cbxAbliefer.Visible = False : btnDuplicate.Visible = False : DatePicker_ausblenden()
+'        If tbContrl.SelectedIndex = 1 Then showDGVAuftraege() : pnlFilterAuftrag.Visible = True : lblSuche.Visible = False : cboSearchAuftraege.Visible = True : cbxAbliefer.Visible = True : btnDuplicate.Visible = True : DatePicker_einblenden()
+'        If tbContrl.SelectedIndex = 2 Then showDGVFrachtkosten() : lblSuche.Visible = True : cboSearchAuftraege.Visible = False : btnRechner.Visible = True : cbxAbliefer.Visible = False : btnDuplicate.Visible = False : DatePicker_ausblenden()
+'    End Sub
+
+
+'    Dim dataAdapterKunden As New SqlDataAdapter
+'    Dim dataBindingKunden As New BindingSource
+
+'    Private Sub initDGVKunden(bindingString As String)
+'        Try
+'            If frmLogin.TESTSYSTEM Then
+'                Me.dataAdapterKunden = New SqlDataAdapter(bindingString, My.Resources.connStringDISPO_TEST)
+'            Else
+'                Me.dataAdapterKunden = New SqlDataAdapter(bindingString, My.Resources.connStringDISPO)
+'            End If
+'        Catch ex As SqlException
+'            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
+'        End Try
+'        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterKunden)
+'        Dim table As New DataTable()
+'        Me.dataAdapterKunden.Fill(table)
+'        table.Locale = System.Globalization.CultureInfo.InvariantCulture
+'        dgvKunden.DataBindings.Clear()
+'        Me.dataBindingKunden.DataSource = table
+
+'        '  Me.dataAdapterKunden.Fill(0, 2, dataBindingKunden.DataSource)
+'    End Sub
+
+'    Public Sub initDGVKundenFilter()
+'        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        Dim search As String = txtSuche.Text
+'        Dim where As String = ""
+'        If txtSuche.Text <> "" Then
+'            Dim arr() As String = Split(txtSuche.Text.Replace(" ", ","), ",")
+'            Dim cnt As Integer = 1
+'            If arr.Count() > 0 Then cnt = arr.Count
+'            Dim or_txt As String = ""
+'            For i As Integer = 0 To cnt - 1 Step 1
+'                If arr(i) <> "" Then search = arr(i).Trim
+'                If i > 0 Then where += " AND "
+'                '   where += " ( kd_firma LIKE '%" & search & "%' OR  kd_str LIKE '%" & search & "%' OR  kd_strnr LIKE '%" & search & "%' OR  kd_plz LIKE '%" & search & "%' OR  kd_ort LIKE '%" & search & "%' OR  kd_land LIKE '%" & search & "%' OR  kd_anspr1_vn LIKE '%" & search & "%' OR  kd_anspr1_nn LIKE '%" & search & "%' OR  kd_anspr2_vn LIKE '%" & search & "%' OR  kd_anspr2_nn LIKE '%" & search & "%' OR  kd_tel LIKE '%" & search & "%' OR  kd_fax LIKE '%" & search & "%' OR  kd_email LIKE '%" & search & "%' OR  kd_homepage LIKE '%" & search & "%' ) "
+'                where += " ( kd_firma LIKE '%" & search & "%' OR  strasse LIKE '%" & search & "%' OR  ort LIKE '%" & search & "%' OR  kd_land LIKE '%" & search & "%' ) "
+'            Next
+'        End If
+'        '  MsgBox(where)
+'        dataBindingKunden.Filter = where
+
+
+
+'        lblAnzahl.Refresh()
+'        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+'    End Sub
+'    Public Sub showDGVKunden()
+'        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        With dgvKunden
+'            Dim top As String = "" ' "top 100"
+'            'initDGVKunden("SELECT * FROM tblKunden ")
+'            initDGVKunden("SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_oez_id FROM tblKunden ")
+'            'initDGVKunden(" SELECT " & top & " kd_id, kd_firma, kd_str , kd_strnr as strasse, kd_plz , kd_ort as ort, kd_land,kd_oez_id FROM tblKunden ")
+'            locZeilen = -1
+'            ' If Not Grid_aktiv Then Exit Sub
+
+'            'Tabelle Kommt/Geht bereinigen
+'            If .RowCount = 0 Then Exit Sub
+
+'            .Sort(.Columns(1), ListSortDirection.Ascending)
+
+'            .RowTemplate.Height = 20
+'            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+'            .AllowUserToAddRows = False
+'            .AllowUserToDeleteRows = False
+'            .AllowUserToOrderColumns = False
+'            .AllowUserToResizeColumns = True
+'            .AllowUserToResizeRows = False
+'            .RowTemplate.ReadOnly = True
+'            .RowHeadersVisible = False
+'            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+'            .ReadOnly = True
+
+'            .Columns(0).Visible = False
+
+'            .Columns(1).MinimumWidth = 300
+'            .Columns(1).HeaderText = "Firma"
+'            .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+'            '   .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+'            .Columns(2).Width = 250
+'            .Columns(2).HeaderText = "Straße"
+
+'            .Columns(3).Width = 250
+'            .Columns(3).HeaderText = "Ort"
+
+'            .Columns(4).Width = 150
+'            .Columns(4).HeaderText = "Land"
+
+'            .Columns(5).Visible = False
+
+
+'            initDGVKundenFilter()
+'            'Anzeige der Anzahl gewählter/aller Datensätze
+'            lblAnzahl.Text = Format(.RowCount, "#,##0") & " ausgewählt"
+'            If (.RowCount = 100) Then lblAnzahl.Text &= "  (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
+'        End With
+
+'        lblAnzahl.Refresh()
+'        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+'        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+'        'lblMs.Image = Nothing
+'    End Sub
+
+
+'    Private Sub Eintraege_festlegen()
+
+'        For i As Integer = 0 To dgvKunden.RowCount - 1
+'            'If (.Rows(i).Cells(1).Value = True) Then
+'            ' .Rows(i).DefaultCellStyle.BackColor = Color.IndianRed
+'            '.Item(1, i).BackColor = Color.IndianRed
+'            '  Dim inImg As Image = My.Resources.uhr_green
+'            '   dgvUID.Rows(i).Cells(5).Value.Image = inImg
+'            '  End If
+'        Next
+'    End Sub
+
+'    Private Sub dgvUID_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKunden.CellDoubleClick
+
+'        '   rowId = dgvUID.CurrentRow.Cells(0).Value
+'        If frmDetails.Visible Then
+'            MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+'            frmDetails.BringToFront()
+'        Else
+'            frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
+'            frmDetails.mainForm = "frmMain"
+'        End If
+'        frmDetails.Show()
+'        Me.Enabled = False
+'        AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
+'    End Sub
+
+'    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFrachtkosten.CellDoubleClick
+
+'        If frmFrachtkosten.Visible Then
+'            MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+'            frmFrachtkosten.BringToFront()
+'        Else
+'            frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
+'        End If
+'        frmFrachtkosten.Show()
+'        Me.Enabled = False
+'        AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
+'    End Sub
+
+'    Private Sub Button8_Click(sender As Object, e As EventArgs)
+'        Me.Close()
+
+'    End Sub
+
+
+
+
+'    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnChange.Click
+'        If tbContrl.SelectedIndex = 0 Then 'Kunden
+'            Try
+
+'                If frmDetails.Visible Then
+'                    MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+'                    frmDetails.BringToFront()
+'                Else
+'                    frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
+'                    frmDetails.mainForm = "frmMain"
+'                    frmDetails.Show()
+'                    AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
+'                    Me.Enabled = False
+'                End If
+'            Catch ex As Exception
+'                Me.Enabled = True
+'            End Try
+'        End If
+'        If tbContrl.SelectedIndex = 1 Then 'Aufträge
+'            Try
+'                If frmAuftragNEU.Visible Then
+'                    MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+'                    frmAuftragNEU.BringToFront()
+'                Else
+'                    frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
+'                    frmAuftragNEU.Show()
+'                    AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
+'                    Me.Enabled = False
+'                End If
+'                ' Me.Enabled = False
+'            Catch ex As Exception
+'                Me.Enabled = True
+'            End Try
+
+'        End If
+'        If tbContrl.SelectedIndex = 2 Then 'Aufträge
+'            Try
+'                If frmFrachtkostenNew.Visible Then
+'                    MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+'                    frmFrachtkostenNew.BringToFront()
+'                Else
+'                    frmFrachtkostenNew.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
+'                    frmFrachtkostenNew.Show()
+'                    frmFrachtkostenNew.Text = "Änderung"
+'                    AddHandler frmFrachtkostenNew.Disposed, AddressOf meEnabledTrue
+'                    Me.Enabled = False
+'                End If
+'                ' Me.Enabled = False
+'            Catch ex As Exception
+'                Me.Enabled = True
+'            End Try
+'        End If
+'    End Sub
+
+'    Private Sub meEnabledTrue()
+'        Me.Enabled = True
+'        Tabelle_anzeigen()
+'        Me.BringToFront()
+'    End Sub
+
+'    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+
+'        If tbContrl.SelectedIndex = 0 AndAlso dgvKunden.SelectedRows.Count > 0 Then
+'            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+'                Case vbYes
+'                    DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
+'                    DISPO.delOeffnungszeiten(Convert.ToInt32(dgvKunden.CurrentRow.Cells(5).Value))
+'                    Tabelle_anzeigen()
+'                Case vbNo
+'            End Select
+'        End If
+'        If tbContrl.SelectedIndex = 1 AndAlso dgvAuftraege.SelectedRows.Count > 0 Then
+
+'            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+'                Case vbYes
+'                    DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.CurrentRow.Cells(0).Value))
+'                    Tabelle_anzeigen()
+'                Case vbNo
+'            End Select
+'        End If
+
+'        If tbContrl.SelectedIndex = 2 AndAlso dgvFrachtkosten.SelectedRows.Count > 0 Then
+'            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+'                Case vbYes
+'                    DISPO.delFrachtkosten(Convert.ToInt32(dgvFrachtkosten.CurrentRow.Cells(0).Value))
+'                    Tabelle_anzeigen()
+'                Case vbNo
+'            End Select
+'        End If
+'    End Sub
+
+'    Private Sub dgvUID_RowPostPaint(sender As Object, e As DataGridViewRowPostPaintEventArgs)
+'        '  Eintraege_festlegen()
+'    End Sub
+'    Private Sub dgvUID_KeyDown(ByVal sender As Object,
+'                                     ByVal e As System.Windows.Forms.KeyEventArgs)
+
+'        If e.KeyCode = Keys.Delete Then
+'            e.Handled = True
+'            If dgvKunden.SelectedRows.Count = 1 Then
+'                Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+'                    Case vbYes
+'                        DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
+'                        Tabelle_anzeigen()
+'                    Case vbNo
+
+'                End Select
+'            End If
+
+'        End If
+'    End Sub
+'    Private Sub SearchChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged, cbxAbliefer.CheckStateChanged, txtSuche.Click, Button1.Click, cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged
+'        txtSuche.Text = txtSuche.Text.Replace("'", "")
+'        Dim anz As Integer = 0
+'        If tbContrl.SelectedIndex = 0 Then initDGVKundenFilter() : anz = dgvKunden.RowCount
+'        If tbContrl.SelectedIndex = 1 Then initDGVAuftraegeFilter() : anz = dgvAuftraege.RowCount
+'        If tbContrl.SelectedIndex = 2 Then initDGVFrachtkostenFilter() : anz = dgvFrachtkosten.RowCount
+
+'        lblAnzahl.Text = Format(anz, "#,##0")
+'        If IsNumeric(anz) AndAlso CInt(anz) = 100 Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
+
+
+'        'If Not nochange Then Tabelle_anzeigen()
+'    End Sub
+
+'    Private Sub txtPosSearch_TextChanged(sender As Object, e As EventArgs)
+'        txtSuche.Text = ""
+'        If Not nochange Then Tabelle_anzeigen()
+'    End Sub
+
+'    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+'        txtSuche.Text = ""
+'        cbxAbliefer.CheckState = CheckState.Indeterminate
+'        Tabelle_anzeigen()
+'    End Sub
+
+
+'    Private Sub Button6_Click(sender As Object, e As EventArgs)
+'        frmHistory.rowId = dgvKunden.CurrentRow.Cells(0).Value
+'        frmHistory.Show()
+'    End Sub
+
+'    Private Sub dgvUID_SelectionChanged(sender As Object, e As EventArgs)
+'        ' Try
+'        'If (dgvUID.CurrentRow.Cells(1).Value = True) Then
+'        ' dgvUID.CurrentRow.Cells(1).Style.SelectionBackColor = Color.IndianRed
+'        ' Else
+'        '    dgvUID.CurrentRow.Cells(1).Style.SelectionBackColor = Color.White
+'        '  End If
+'        '  Catch ex As Exception
+
+'        '  End Try
+'    End Sub
+
+'    Private Sub btnMitarb_Click(sender As Object, e As EventArgs)
+'        frmMitarbeiter.Show()
+'    End Sub
+
+'    Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
+'        frmLogin.UpdateDISPO()
+'    End Sub
+
+'    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+'        Application.Exit()
+'    End Sub
+
+'    Private Sub dgvUID_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
+
+'    End Sub
+
+'    Private Sub Button7_Click(sender As Object, e As EventArgs)
+'        Dim print As Boolean = True
+'        If (dgvKunden.RowCount > 100) Then
+'            print = (MsgBox("Möchten Sie wirklich " & dgvKunden.RowCount & " Einträge drucken?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Einträge drucken?") = vbYes)
+'        End If
+'        If print Then
+'            Dim l As IList(Of cEntry)
+'            l = DISPO.getDataBySQL(hSQL)
+'            Dim where As String = ""
+'            If MsgBox("Möchten Sie auch deaktivierte Kunden einschließen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Auswahl mit deaktivierten Kunden?") = vbNo Then
+'                For i As Integer = 0 To (l.Count - 1) Step 1
+'                    MsgBox(i & " - " & l.Count - 1)
+'                    ' If l(i).deakt Then
+'                    '                    l.RemoveAt(i) ' : i = i - 1
+'                    'End If
+'                Next
+'            End If
+'            frmPrintView.Show()
+'            frmPrintView.BefuellenFirmen(l)
+'        End If
+
+'    End Sub
+
+'    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
+
+'    End Sub
+
+'    Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick
+'        frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
+'        If frmAuftragNEU.Visible Then
+'            MsgBox("Ein Antrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+'            frmAuftragNEU.BringToFront()
+'        End If
+'        frmAuftragNEU.Show()
+'        AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
+'        frmAuftragNEU.BringToFront()
+'    End Sub
+
+
+
+'    Private Sub tbContrl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbContrl.SelectedIndexChanged
+'        txtSuche.Text = ""
+'        txtSuche.Focus()
+'        Tabelle_anzeigen()
+
+'    End Sub
+
+
+'    Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick
+'        Try
+'            If e.ColumnIndex = dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").ColumnIndex Then
+'                Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").Value
+'                DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val)
+'                Tabelle_anzeigen()
+'            End If
+'        Catch ex As Exception
+'        End Try
+'    End Sub
+
+
+
+'    Private WithEvents T As New Timers.Timer With {.Interval = 500, .Enabled = True, .AutoReset = True}
+'    Private FormCount As Integer = 1
+'    Private Sub SomeForm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
+'        If e.KeyData = Keys.Escape Then
+'            Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
+'            If Not TheForm Is Nothing Then
+'                TheForm.Close()
+'            End If
+'        End If
+'        If e.KeyData = Keys.PrintScreen Then
+'            Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form)
+'            If Not TheForm Is Nothing Then
+'                Dim c As New cProgramFunctions
+'                c.screenshot()
+'            End If
+'        End If
+'    End Sub
+'    Private Sub HookControls(ByVal f As Control)
+'        For Each Control As Control In f.Controls
+'            AddHandler Control.KeyUp, AddressOf SomeForm_KeyUp
+'            If Control.Controls.Count <> 0 Then
+'                HookControls(Control)
+'            End If
+'        Next
+'    End Sub
+'    Private Sub T_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles T.Elapsed
+'        If FormCount = 0 Then FormCount = 1
+'        Dim FormOpened As Integer = My.Application.OpenForms.Count
+'        If FormCount <> FormOpened Then
+'            If FormOpened > FormCount Then
+'                For x As Integer = 1 To (FormOpened - FormCount)
+'                    Dim F As Form = My.Application.OpenForms.Item(FormOpened - x)
+'                    AddHandler F.KeyDown, AddressOf SomeForm_KeyUp
+'                    HookControls(F)
+'                    FormCount = My.Application.OpenForms.Count
+'                Next
+'            Else
+'                FormCount = My.Application.OpenForms.Count
+'            End If
+'        End If
+'    End Sub
+
+'    Private Sub btnHelp_Click(sender As Object, e As EventArgs) Handles btnHelp.Click
+'        'Process.Start(My.Resources.DISPO_Benutzerhandbuch)
+'        Dim pdf As Byte() = My.Resources.DISPO_Benutzerhandbuch
+'        Using tmp As New FileStream("tmp.pdf", FileMode.Create)
+'            tmp.Write(pdf, 0, pdf.Length)
+'        End Using
+'        Process.Start("tmp.pdf")
+'        ' Dim p As pdfviewer
+'        ' pdfviewer.src = My.Resources.MyPdfFile
+'        ' FileMode.OpenOrCreate(My.Resources.DISPO_Benutzerhandbuch)
+'    End Sub
+
+'    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnDuplicate.Click
+'        Try
+'            Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
+'            AUFTRAG.atr_id = -1
+'            AUFTRAG.atr_datum = Now
+'            AUFTRAG.atr_frachtpos = Nothing
+'            AUFTRAG.LADUNGEN.Clear()
+'            AUFTRAG.BH_rechnungen.Clear()
+'            AUFTRAG.SAVE()
+
+'            Dim frmAuftragNEU As New frmAuftragNEU
+'            frmAuftragNEU.auftragID = AUFTRAG.atr_id
+'            AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
+'            frmAuftragNEU.Show()
+
+'            Exit Sub
+'            Dim a As cAuftraege = DISPO.getAuftragById(dgvAuftraege.CurrentRow.Cells(0).Value)
+'            a.atr_frachtpos = DISPO.getFrachtpos
+'            a.atr_datum = Now
+'            a.atr_abliefernachweis = False
+'            a.atr_ladungen = New List(Of cLadungen)
+'            a.bh_rechnungen = New List(Of cBuchhaltungRechnung)
+
+'            a.cmr_ausl_land = ""
+'            a.cmr_ausl_ort = ""
+'            a.cmr_beigefDok = ""
+'            a.cmr_anwAbs = ""
+'            a.cmr_rueckerst = ""
+'            a.cmr_frZahlanwFrei = ""
+'            a.cmr_frZahlanwUnfrei = ""
+'            a.cmr_besVereinb = ""
+'            a.cmr_ausgefIn = ""
+'            a.cmr_uebergabe_land = ""
+'            a.cmr_uebergabe_ort = ""
+'            a.cmr_uebergabe_datum = ""
+'            a.cmr_vorbehFrachtf = ""
+
+'            a.bh_mon = ""
+
+'            a.bh_vermerke = ""
+'            a.atr_notes = ""
+'            a.atr_gefahrengut = ""
+'            a.atr_frachtkosten = ""
+'            a.atr_entladest_terminBis = ""
+'            a.atr_entladest_terminVon = ""
+'            a.atr_entladest_terminDat = ""
+'            a.atr_ladest_terminBis = ""
+'            a.atr_ladest_terminVon = ""
+'            a.atr_ladest_terminDat = ""
+'            a.atr_bemerkung = ""
+'            a.atr_speditionsbuchNr = -1
+'            a.atr_lkwArt = ""
+'            a.atr_lkwKz = ""
+'            a.atr_lkwNutzlast = ""
+'            a.atr_anhKz = ""
+'            a.atr_anhNutzlast = ""
+
+'            DISPO.insertAuftragUndLadung(a)
+'            DISPO.setFrachtpos(a.atr_frachtpos)
+'            frmAuftragNEU.auftragID = DISPO.atr_id_insert
+'            AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
+'            frmAuftragNEU.Show()
+
+'            'frmAuftragNEU.Show()
+'        Catch ex As Exception
+'            MsgBox("Fehler beim Duplizieren: " & ex.Message)
+'        End Try
+
+'    End Sub
+
+
+'    Private Sub lblVersion_Click(sender As Object, e As EventArgs) Handles lblVersion.Click
+'        frmInfo.Show()
+'    End Sub
+
+'    Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles Button3.Click
+'        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
+'        Me.Cursor = Cursors.WaitCursor
+'        Dim eh As New SDL.frmCMR()
+'        eh.Show()
+'        Me.Cursor = Cursors.Default
+'        '  End If
+
+'        Exit Sub
+'        frmCMR.Show()
+'    End Sub
+
+
+'    Private Sub btnRechner_Click(sender As Object, e As EventArgs) Handles btnRechner.Click
+'        If dgvFrachtkosten.SelectedRows.Count > 0 Then
+'            frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
+'            frmFrachtkosten.Show()
+'            AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
+'        End If
+'    End Sub
+
+
+'    Private Sub btnSQL_Click(sender As Object, e As EventArgs) Handles btnSQL.Click
+'        DISPO.doSQL(" " &
+'                   "         INSERT INTO [DISPO].[dbo].tblBhUntern " &
+'        " SELECT [atr_id] as [bhut_atrId] " &
+'              " ,[bh_unterKennz_1] as [bhut_unternKennz] " &
+'              " ,[bh_unterKennz_bis_1] as [bhut_bis] " &
+'              " ,[bh_unterKennz_kosten_1] as [bhut_kosten] " &
+'          " FROM DISPO.[dbo].[tblAuftraege] " &
+'          " WHERE [bh_unterKennz_1]<>'' or [bh_unterKennz_bis_1]<>'' or [bh_unterKennz_kosten_1]<>'' " &
+'                    " INSERT INTO [DISPO].[dbo].tblBhUntern " &
+'        " SELECT [atr_id] as [bhut_atrId] " &
+'              " ,[bh_unterKennz_2] as [bhut_unternKennz] " &
+'              " ,[bh_unterKennz_bis_2] as [bhut_bis] " &
+'              " ,[bh_unterKennz_kosten_2] as [bhut_kosten] " &
+'          " FROM DISPO.[dbo].[tblAuftraege] " &
+'          " WHERE [bh_unterKennz_2]<>'' or [bh_unterKennz_bis_2]<>'' or [bh_unterKennz_kosten_2]<>'' " &
+'        " INSERT INTO [DISPO].[dbo].tblBhUntern " &
+'        " SELECT [atr_id] as [bhut_atrId] " &
+'              " ,[bh_unterKennz_3] as [bhut_unternKennz] " &
+'              " ,[bh_unterKennz_bis_3] as [bhut_bis] " &
+'              " ,[bh_unterKennz_kosten_3] as [bhut_kosten] " &
+'          " FROM DISPO.[dbo].[tblAuftraege] " &
+'          " WHERE [bh_unterKennz_3]<>'' or [bh_unterKennz_bis_3]<>'' or [bh_unterKennz_kosten_3]<>'' ")
+
+
+'    End Sub
+
+
+'    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+'        Dim s As New SDL.frmSecureLoginKassenbuch
+'        s.openKB = True
+'        s.disableCBO = False
+'        s.ShowDialog(Me)
+'    End Sub
+
+'    Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
+'        showDGVAuftraege()
+'    End Sub
+
+
+'    Private Sub CmdHeute_Click(sender As Object, e As EventArgs) Handles CmdHeute.Click
+'        DateVON.Value = Now()
+'        DateBIS.Value = Now()
+'    End Sub
+
+'    Private Sub CmdTagMinus_Click(sender As Object, e As EventArgs) Handles CmdTagMinus.Click, CmdTagPlus.Click
+'        If sender Is CmdTagPlus Then
+'            DateVON.Value = DateVON.Value.AddDays(1)
+'            DateBIS.Value = DateVON.Value
+'        Else
+'            DateVON.Value = DateVON.Value.AddDays(-1)
+'            DateBIS.Value = DateVON.Value
+'        End If
+'    End Sub
+
+'    Private Sub CmdMonat_Click(sender As Object, e As EventArgs) Handles CmdMonat.Click
+'        DateVON.Value = Now.AddDays(-Now.Day + 1)
+'        DateBIS.Value = Now()
+'    End Sub
+
+'    Private Sub CmdMonatMinus_Click(sender As Object, e As EventArgs) Handles CmdMonatMinus.Click, CmdMonatPlus.Click
+'        If sender Is CmdMonatPlus Then
+'            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(1)
+'            DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
+'        Else
+'            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-1)
+'            DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
+'        End If
+'    End Sub
+
+'    Private Sub CmdJahr_Click(sender As Object, e As EventArgs) Handles CmdJahr.Click
+'        DateVON.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
+'        DateBIS.Value = Now()
+'    End Sub
+
+'    Private Sub CmdJahrMinus_Click(sender As Object, e As EventArgs) Handles CmdJahrMinus.Click, CmdJahrPlus.Click
+'        If sender Is CmdJahrPlus Then
+'            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
+'            DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
+'        Else
+'            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(-1)
+'            DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
+'        End If
+'    End Sub
+
+'    Private Sub CmdAlle_Click(sender As Object, e As EventArgs) Handles CmdAlle.Click
+'        Try
+'            DateVON.Value = "01.01.1970"
+'            DateBIS.Value = Now.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
+'            cboAuftragsart.changeItem("Alle")
+'            cboFiliale.changeItem("Alle")
+'        Catch
+'            MsgBox("Oh oh")
+'        End Try
+
+'    End Sub
+
+'    Private Function DatePicker_einblenden()
+'        'DateBIS.Visible = True
+'        'DateVON.Visible = True
+'        'LblVon.Visible = True
+'        'LblBis.Visible = True
+'        PnlDatum.Visible = True
+'    End Function
+
+
+
+'    Private Function DatePicker_ausblenden()
+'        'DateBIS.Visible = False
+'        'DateVON.Visible = False
+'        'LblVon.Visible = False
+'        'LblBis.Visible = False
+'        PnlDatum.Visible = False
+'    End Function
+
+'    Private Sub btnExportVollmacht_Click(sender As Object, e As EventArgs) Handles btnVollmacht.Click
+'        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VERAG_EXPORT, -1, , True)
+'    End Sub
+
+'    Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
+'        frmMainV2.Show()
+'    End Sub
+
+
+'    Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
+'        If cboFiliale.SelectedItem.text = "NEUHAUS" Then
+'            frmAuswertung.Niederlassung = "4819"
+'        ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
+'            frmAuswertung.Niederlassung = "4807"
+'        Else
+'            Niederlassung = ""
+'        End If
+'        frmAuswertung.Show()
+'    End Sub
+
+'    Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
+'        Dim dgvType As Type = dgv.[GetType]()
+'        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
+'                                                  BindingFlags.Instance Or BindingFlags.NonPublic)
+'        pi.SetValue(dgv, True, Nothing)
+'    End Sub
+
+'End Class
diff --git a/UID/rptAktendeckelDISPO.vb b/UID/rptAktendeckelDISPO.vb
index 23ae1fd..193d3bd 100644
--- a/UID/rptAktendeckelDISPO.vb
+++ b/UID/rptAktendeckelDISPO.vb
@@ -273,6 +273,10 @@ Public Class rptAktendeckelDISPO
 
     Private Sub rptAktendeckelDISPO_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture.Image = My.Resources.DispoAMBAR
+        End If
+
         Dim sumAuftraggeber As Double = 0
         sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Entladung.Text), Me.txtAuftraggeber_Entladung.Text, 0)
         sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Lagerung.Text), Me.txtAuftraggeber_Lagerung.Text, 0)
diff --git a/UID/rptTransportauftrag.rdlc b/UID/rptTransportauftrag.rdlc
index d33955d..6260f2d 100644
--- a/UID/rptTransportauftrag.rdlc
+++ b/UID/rptTransportauftrag.rdlc
@@ -3476,6 +3476,100 @@ wfcGKMmuRZPrv1GhNsd6SmEHlZY7v4Hw4UD5bMxyIzrs0r+qU9T1dNwzd74zSIYKOLf6MshHw2WzPs/A
 He0/rE74M32+S7K4poQ0HudtIkC9+/abfNrDlN8VS5cuNVcBvP4GAEA4y5ytJ0+ht+7Ney2ZNPqMladRgWNQa1J09qfq/Ftqc9YWDbeQI/05Swyc562dMCcCXhd88jiSooxFvhoz7NItuJ+HtO0467r2mZG4LIfzO2076XW2pb3mhJpxXdn1lBSDSgAABBLv0rPISEehddMVsqNpeX0Aax3nsZIfw3jc0V9ScB3l2eb6DJ4DFnLUmiFU1Pppa1w2A0pJ8+mTRy3jQMBrRJa03JYGltK24+6MP6vhkc/Z6rQs6ymF/J5J26cKteNrX8nO70QYVAIAICAdWIpfWRgosBgDLv36NlVbT6kKM5UsdP5bN8nzXTYLEVtucxYX6baSo9ZrPI3AbS/rgcy+AHkc8fy3FgbpB1y4mWljObfjrOs6yUwT/XuzDdD5rqc0HjAvIY24bF4lZj2lDDCoBABAMYbjDtFIwM9svYqU9ulyUYuF5qXH2Xoa6zPtvccVu46Nti19dWOey2f2Qo9jplLZctSambnE5T9raSBue1kOZCa9EWykLH+iG8545qsFmvP5Lr9ZS62fvybH/Cc9dxoZ/71OBkJ9B3caBVxT8vxubD20WOayWaevN0A+q/YQ7lHY/Q0AgOKMxR0j7STpDkdpdnCbjt7MjbhH7xqXRrfnsVpdT6nHWHkaxo9huK0ux1yYwcIeg23O2npKPUbPyzXukV3hWpHVedJw+Q1mdAfMY9Kd86wN0Ldu9ofj77Llnt8T7VrfW40OjnkiZf57cqrrTs73gQ6/m4v43i3yu7HVd2n/3rFyzbTaDygMu78BAFDEF/DCFTP978VtnZ0kA00Tkzpew2QagEHt17hOd0QaaLvOjdQ5ec3RwUI/f9WqVZ3esLcGyfo7uIFvDRJOV78z7dCpg09LOK1QBxZ3f2NQCQAAAAAAAImxphIAAAAAAAASY1AJAAAAAAAAiTGoBAAAAAAAgMQYVAIAAAAAAEBi
 DCoBAAAAAAAgsf8vwACzvB4PfnEdHAAAAABJRU5ErkJggg==</ImageData>
     </EmbeddedImage>
+    <EmbeddedImage Name="AmbarLogo">
+      <MIMEType>image/jpeg</MIMEType>
+      <ImageData>/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAYGBgYHBgcICAcKCwoLCg8ODAwODxYQERAREBYiFRkVFRkVIh4kHhweJB42KiYmKjY+NDI0PkxERExfWl98fKcBBgYGBgcGBwgIBwoLCgsKDw4MDA4PFhAREBEQFiIVGRUVGRUiHiQeHB4kHjYqJiYqNj40MjQ+TERETF9aX3x8p//CABEIA4QGQAMBIgACEQEDEQH/xAAxAAEAAwEBAQAAAAAAAAAAAAAAAwUGBAIBAQEAAwEBAAAAAAAAAAAAAAAAAgMEBQH/2gAMAwEAAhADEAAAAtUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD59AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD59AABDJ6IkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIkoiSiJKIZopQAAAAAAADz68+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKWKUAAAAAAAA8+vPoAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAililAAAAAAAAPPrz6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIpYpQAAAAAAADz68+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADm6cfrCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUsUoAAAAAAAB59efQAAAAAAAAAAAAAAAAAAAAPh9cvo6HL6OhD5OhAJ3NMewAAAAAAAAY/WZPWEgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIpYpQAAAAAAADz68+gAAAAAAAAAAAAAAAAAAA8+CVycp2UvvhPHn4JpIvZAD52cnQaeTk6wAAAAAAADH6zJ6wkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABFLFKAAAAAAAAefXn0AAAAAAAAAAAAHz4enPGdis5y7+Z2E0vjLxmmgz4uOePpOOJ8PH2yhOLt4pCzq/YhS/B7iSr9+Zem/Hc9Xj3n2h5MAAAAAADH6zJ6wkAAAAAAAAAAAAAAAAAAAAAAAAAAAAV/myiyVvZ57MIXAAAAAAAAAAAAAAAAAAAAAAARSxSgAAAAAAAHn159AAAAAAAAAjJHDAWUFVzlxBTxFnDwieLz7PBZlf5tKwk7qv2dPH1fSHzNGffUCVc3n5JOmPz0LKeX11TShx+7HpKae8nhZWWPpTrCNgAAAAAAAGP1mT1hIAAAAAAAAAAAAAAAAAAAAAAAAAAADNRSxdDhLqluq77AY+sAAAAAAAAAAAAAAAAAAAAAABFLFKAAAAAAAAefXn0AAAAAACAn4uOA6+XhgOzm8
+j59B8ltCmk9wFzxcYJe4r+r1xHdBzzW5oXTLbm5vdj1++Ukt/NGdF0Wqu/inmQt8+iMwegAAAAAAAAAAY/WZPWEgAAAAAAAAAAAAAAAAAAAAAAAAAAAM1FLF0OEuqW6rvsBj6wAAAAAAAAAAAAAAAAAAAAAAEUsUoAAAAAAAB59efQAAAAAfKwl4o60n5voAH08rmqJIvIHwdqU9VjotzQz9VndlqO61+1aOef6q0h5IAfD68Rk7z6AAAAAAAAAAAAMfrMnrCQAAAAAAAAAAAAAAAAAAAAAAAAAAAGaili6HCXVLdV32Ax9YAAAAAAAAAAAAAAAAAAAAAACKWKUAAAAAAAA8+vPoAAAAHCQ8XuqAAAJb6h9EvF9AD786Tvqe/wA2Z/Nx0y+xCrUQ15bKHmNLDnPPi956odvPEPvvo7Spn5RZdFKNF0ZX6axl+j1oFP1naAAAAAAADH6zJ6wkAAAAAAeaWdNvwVLTg7PHMnT1T1x7e9uVkq0aZw92beHkwBWyrseKm8aMFjDyLaOqXgFzYZb7XfqVRb5twRtPNJOi44Klpw9njmWU9U1e89vO7KyVaNM4O/NvDyeaili6PCdHOO1xIz7XEO37wi07M+jZqmauM+ztFWoAAr6m7JeclUuyd/zhTrtOqhRs1TMWtGuyFOsAAjpbKLnhqGjD3+eJOrtt83oKtPUMvRAAAililAAAAAAAAPPrz6AAAAPNP2V5wQ/PoAA++bspvllWgADr5Jjttq2w9h2DyYgKjg+/PAAAAnLjrj+es9Ha1XgAAB9+DTzUt16AAAAAAAx+syesJAAAAAIZM3bmRmzlD0eVhNC6pWfH7GATqWVajPVKu0w9gUXsfnGbeQEonV1wtqlvB5KvevM6XRznupio48+1GaMI9Hl3zwtqVtyHILKVjXIz1SptsPXzUUsW/jjrORZoW1izFYs/LyuSxTqD3yzt8rcZt9kM3QUX3h18wL8Z964y41t5hbVurlsqD2PX
+f5Xro134ydNyTZy7K8mvmD0eXbNC2s0HFZ1aZBm6AAAEUsUoAAAAAAAB59efQAAABV1vfXnGAAD5pc1oSmg7+AAAfPotVdalx6o7s+0ltmTyPAAAC6qdKVljndEesxq6MrgAAAetPlrcth6AAAAAAx+syesJAAAACNGn4TocUdwvDF1ghcBx0umiuyZp686+Z90eb7q9HdRzQ+wHudXq9l95OoFOoBR3idOVdnHt5ASiOuMvV59YusELwIKHS+LcuYe/GzltFne2u/nilinSu6S8r0dwx9UABwd72vL+dDn9vK+ffiynT8nLx5t8I04HR80dOqOQx9MEkMz2Od59VnNfMgF2W3s8xeZOjU8xqwCy89+XJi6wQuAAAAAililAAAAAAAAPPrz6AAAAKTmkkeVAegAO/g+FtVfPoAAAngFz44LIVnr34idkhXrWUpWgkM560orp+ijOXT5jTk0E71k/mng8Z9e+ClW/gq3r4fJJozToJ/QAAAAAGP1mT1hIAAABWWdFbl4ht5XrTUt5l6IZ9wAAFXU6bM7OUF2UBcU+po1/Rk6gAAHjM6mg0YOQauf901Hf5egGfeAABXU2py2vlvvxfk9+Dz1e0V5Vp7hj6oAACmueedGdG/jgCTz296Tn9sPJgAOXqewyr346HESRgPfJNNTXOTpBRtAAAAAAililAAAAAAAAPPrz6AAAAKB3Uc6PXPb1ML/gAAB6Onk1VeUoAAPk0QuIq+yOmLih8d8fIOqOEe/PwANPmNOTD0AA+fRlh41I9AAAAAAAY/WZPWEgAAAFBf0N2PjGzmWdvTXOLqhVqAAAZXVZXTzw04AGqyuqzdAM28AABSXdJdl4Bs5VhdUt1i6oVagAAGW1OW0YPg1c8BdUttVotBi64AAD598exzA6PCAdXLPGejHP7gAAAGd5+jn6HDCUALO3qbbF1gq0gAAAAARSxSgAAAAAAAHn159AAAAEeZ1VfbmqZ6/uhZWrCujb9AAB
+Ppsl0FjTa2uKMAAAllX6+fPsZh56AAA0+Y05MPQAAGWHjUj0AAAAAABj9Zk9YSAAAAU9xyWUUA3ceXS5W6z7bAZekAAAyuqyunnhpwANVldVm6AZt4AACku6S7LwDZyrC6pbrF1Qq1AAAMtqctowfBq55ND566+Q91Tl6uf2g8mAA4O/N3ZYRs5RPD5L59+PY6j1TXODshC4AADO8/Rz9DhhKAFpbVVri6wVaQAAAAAIpYpQAAAAAAADz68+gAAAACmp9hn78Pvn47ajZT/erkS+gAAn0eV9l/neziPpJKuOXr9Tphl57C3PW/LCvz7ghYAAA0+Y05MPQB45PYdyp+TqrXz7Gepik5vJU3mJv4sqJ66NFldVm3hn3AAAY/WZPWEgAAAAeZuHQZ/dyH34sovO7K9WbdoHFLRs6HOe9CAT5XR5zRhDRiAarK6rN0AzbwAAFJd0l2XgGzlWF1S3WLqhVqAAAZbU5bRg+DVz7mnvYM+6oGjD70Ob+136lVWGTpSniFntX1V2abkNXNHV6s+O5YuplUke3lLeoRnqmessvR73Ohd0Of6ToPpR880O7jhKAFra1dph64V6AAAAAAIpYpQAAAAAAADz68+gAAAABFKeZfm0uf0YrGu8WufdTJoQAAAWhyLGu3cb1eUPp7b0999o1Z/xNFGz4KdQ+zr+PSdPl6HnS5ztL5SeS2rOD5fk9eS3MHvgEnXwIWBOsBqsrqs3QDNvAAAx+syesJAAAAAK2ySryq8pdvJ8idQAAAAADVZXVZugGbeAAApLukuy8A2cqwuqW6xdUKtQAADLanLaMHwauffdnH2YOzR8Oqqb8dWNGIAAAdXkotG9Y+oFWmHPaeO3LmXRz7OYHsQAAAAALezrLPD1wr0AAAAAARSxSgAAAAAAAHn159AAAAAACrtEq8j9s6q7La1Ulhn3U6SMAAWdZ9NfnriWzNnEke3leryh+wt0lDa9Wffm+eef2HONXOD3wAAAAAAA
+AABqsrqs3QDNvAAAx+syesJAAAAAAPn08qeDSrsuVanxZRmWl8++ZxoxnGiGdaMZxo/pm9VFLTqCrSAAApLtOnKtUuyUt0U6whcAAAy2pWZsq1S3Px9hn3B5OGqu1lGX86qK3Lmmi9SjnOq/Qt4u0o1h5MABxdr2FBy6lfkyrTeZV5tpPnvmcaMZxoxnGjGcaT744bMz7gjaAAAAABFLFKAAAAAAAAefXn0AAAAAAAKS7+TpyE/ZV2UW1V09lG2ne/AABJp8pMaSh0Md2TPvXnXzHfwIz9Wtfe5elm3rzs5Qe+AAAAAAAAAANVldVm6AZt4AAGP1mT1hIAAAAAY42IAAAAAAAAAD59AAAAAAAAAAAAAAAAAAAADhpDUsd5NmzWlAAABESsnrAAZA17x7B8PrH7AAAAAililAAAAAAAAPPrz6AAAAAAAAPNHfeZ05DrmrbKLer6eujbTpIwADo02R6S/otHBdjoXrzr5q7pPsLNBUyd1OumXz2NCvhQr4UK+FD40PPKNK9ebsge+AAAANVldVm6AZt4AAGP1mT1hIAAAADmz9pzl6A5/ZKAeD25eg9Z7QxFZcAc3QfeeXMGp+wTmR0ksoIyRz9AAOY6QDmOl59B8+hzynsAGase+UHk9ObpADm6D6A55CQCssMmS6KX2Pn0U9wB8jJUcgQyHqusaIj0NR3HS+fSLK39YaMDj7Kc4NPR3gAAABFLFKAAAAAAAAefXn0AAAAAAAAAeKHQ+LKMh2+66VVzV9PXTspk0IAB06XIdZe0ejjuyZ5PBr5oexAAAAAAAPXTGfItfULagW5wGqyuqzdAM28AADH6zJ6wkAAAABnu+k058zfq8Kjk19YLPO9RzRT35n67S0ppcfp6E02XvKYl6LoZrlvOI+WFjTnDpqWQ5Ofo0JmLC3Dz6ryl6I9MU9h0ZM+9Fh1mX1VBaHLxS95V8+wzZfTccRUW/BYmf1+buDirfWpM1Nfjkz/i9K3i1FAaOi
+sM8dzQSAFPDDYlmcR2MlEbOn66g5eqzsTG2HJpCi5NjjDZ5fUY06ZtGMfrc3cHDw++851iK7jvM8aKwjkAAAAIpYpQAAAAAAADz68+gAAAAAAAAACOg0cVmfI933glC6rJ+ynXSunlPoAOjQ5b6bHgr7f2FNBqIr8ebXPNbnr3VHOqFI98jSeiF2dMLKqS7+VaODt46+rVoYM58rv00md1Xscu0PnVzaBfih1PP0U6gq1AAAY/WZPWEgAAAHn1xGb1ud0Rk9hjdcSU9nmCyrdPlDUdHFOVvmvuyCGGxLDP3HSZDW5XTlN1VV+dWb0mQNBT6TNF321VqHL1D595im49dkTR5vRZ0sF76KC6inMpqsprxR3lYeKuK9LGlu8yd0NlWHVa0V6Obz6M138OsKFf8AKTVdjOY/RV/UWgM13qc1zlnPeN0FKavI6vKmr9uMzWxzGnOfOW/IW2fteUvilKvT0l0ZXY5XVgEeUv6s0gAAAAIpYpQAAAAAAADz68+gAAAAAAAAAACGh0kVmbI9vrglG6r/AH2066T72cR9AAB091QND05Ua/3jRs2MGxhyg0HFWCWIAAHdxyWZ7Top+y3NefYZs28EgAAAMfrMnrCQAAACtshVWoUtZrRmL3qCrtBluq/5zK6/L6szt9IM1BrBUW4Z/k1Y56LShx9gyjVirtAZjTjJ29qFHeDJS6gV83UKK9Bz9AzuiBmdMEE4y0etFJdhQ8GtGXuu4U9VrRntCACluhk/mtGct+wcldeBXWIqbYKjo7xV0+sGUsLsOHuFLdABVrQAAAAARSxSgAAAAAAAHn159AAAAAAAAAAAAEVBpIrM+R7fdfKu64vndTspPvfXn0AAAAD750ZnV5RgA+vPiX3fkj99NlZRU2Fp7qvhmKdYPQAAAAMfrMnrCQAAAAAAAEXF2U530nbYnjvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKWKUAAAAAAAA8+vPo
+AAAAAAAAAAAAAiodHHZnyHZLXTruuWPuo2Un2xrgAAABLENRFnrmVdP87PN+OGSxsfY1Nl1qdQV6AAAAAAAAMfrMnrCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUsUoAAAAAAAB59efQAAAAAAAAAAAAABHQ6KOzPkeqavnXcwctjRspVrVnwA+H16ksoikk7LsnF0W/Z5Kt7/ajYEbAAAAAAAAAAMfrMnrCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUsUoAAAAAAAB59efQAAAAAAAAAAAAAAB4odD4soyMvXwzpto66yo2VfjvguyxSdFjbnq++1913wTlGoEgAAAAAAAAAAAMfrMnrCQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUsUoAAAAAAAB59efQAAAAAAAAAAAAAAAB4otB4nRlvVp3X46iy7VOv59K7wegAAAAAAAAAAAAAY/WZPWEgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIpYpQAAAAAAADz68+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADH6ykvj6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKWKUAAAAAAAA8+vPoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAililAAAAAAAAPPrz6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIpYpQAAAAAAADz68+gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACKWKUAAAAAAAA8+vPoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAililAAAAAAAAPPrz6AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIpYpQAAAAAAADz68+gAAAAAACDNyd5SetjGc/ZFKAAAAAAAMlrcgaXq5IzvY/YA5TqPh9YzVHSAAAAAAAAAChrNj5Mg1/gyc0WgLAAADKavJmh9efpmtfjtiAAAAAAAAAGf+l+AAAAAAAAADM2tRbFkAAAAAAAAAAAAAAAAAAAAAAAAAACKWKUAAAAAAAA8+vPoAAAAAAAyd5DRmyUdyez4fWN6jUMn8NahmCppjXsh1GlPh9ZvlNdkPcJp+vkE0uU0J6oubwbFldMfJcbrz2Zs0jH/AA2KivQrKY1jJxGxUt0AAAAAKW2yJ1ajm6QcB3sh9NcyOkOrJ6zJmh+/PpmNjjtiFHWmuZHXBzZs1rJDWoPRKychqGVgNi8+gpPhdqKQuitLJj/pr2V1QVVKa9keg0z59AAAAMvbVNsWQBmTTMnEbFw9wc+cNWyvg1rPaEOPOmuZL0at4hOll/Bq2f8ARfKa5CvqDTmaNKy0RrmO0x1nEdvzJyGpZC5LYAAAAAAEUsUoAAAAAAAB59efQAAAAAAA5ukZ3g2NMdvXm9IY3W5LZijvOIqb7M3hntdj5TW5eLyX0HviI9NT3AyGvyBpAZ7WZPWFdV2lWaUGM2GP2BU8f3uLb59GQ0lLYiptq003J1xGU2GN2QA8U9ObD3jNSdQBylP9r9cewMfq8iaXuCqqtLkjZZPWZM0P359MxscdsTG6ytqDXqW6MrdZyU11RU/Ds0Wa0pjNRl9kfc5o+EhtMxdG
+d1Of0xQyRyFxj9LQGk6Ai9e+IzmtyEprcxD5L2yqLcHGdLHjZqe4AMvbVNsWQDxmzT09Z5OnSZnSmVt6DZirtKsrdNmdGZPSZeY1tFX/AAsrekvDIa3JbMUN9QktzTXJX09xTmozOmzJ13dZZlH46eU0GO0udNH1hQyRyF0AAAAAACKWKUAAAAAAAA8+vPoAAAAAAA5+jMwGtp+HlOzR8vUY3Z4zuNLUc1edd756jIa/O8xq1BymporP2U9/j+00eQl5zTgz2syesK6ru8wbFQX5jNhj9gUnm7ypr2a8Ed/T6Uq62yrTTRSxGS2WN2QAAAAy1xnS6ucj6NYyfs1OM2dMWc2R7SyovGgO/J6zJmh+/PpmNjjtiPOW6zh0mZ1plNHBRGvUERpFLdGM2WN2R9BkZ+2rL/vChkjkLPK7HOmiZPqNFDmtWY/X5/lNWoOY1Di7QAAADL21TAa9k5Cx4rbOmwreHkJdNj9CZvXU3Aa2p4OY6NNmdMY3WV1Qa5QQGmjrbIyGzxmzFDfcBxXmO7ywqYZjUZnTZks7Ossyp5erlLfL7HMGnZX2TzVVqXQAAAAAAIpYpQAAAAAAADz68+gAAAAAABy9Q4uz6Hz78Mbqsrszj6/oAc3SOLq9gDzydo8xzACGYHN0jl6ggnADj99IA+RygCCcAAAAPEc4gTiD7MAIYO0efQOfoAHN0hHzdo8ewRyDhm6ABBOADx7AHj76AHN47AA5+gcXV7AAAAAEXmcQfZggnHJ1hx9PsIZhDwWubPujpboRSjh6JgBBOAHP46x8jlCOQfPofPPsAQSexQT1d2WIAAAAAAIpYpQAAAAAAADz68+gAAAAAAAAB8+jGbOGYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApK/VxmXaiQ8+gAAAAAAAAAAZvSDKx6n0ZzTAAAAAAABFLFKAAAAAAAAefXn0AAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARSxSgAAAAAAAHn159AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUsUoAAAAAAAB59efQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABFLFKAAAAAHn6fQAefSAnQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkImQiZCJkI+ywzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH/xAAC/9oADAMBAAIAAwAAACEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQggAAQAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAgRy3kGGAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAgAgizWU2233X4kkAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAgUAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAzRG331XnUW1pXgTrAAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAD/APAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAEI9BhR9d58t9YpARhAAAAAAAAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAA/wDwAAAAAAAAAAAAAAAAAAAAAAAKAAAAAAAAAAAAAAAHMQReQRcVLGUQABBCAAAAAAAAAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAP8A8AAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAR0EEGFEFWroAwR48+c88owgAAAAAAABQAAAAAAb36w8oAAGcz7woA/wB8eqCA9s++ssHAAANP9cOAAAAd9sAAAAoAAAAAAAAAAAAAcJBBZJBBBfAEX/8A/wD+x/8A/wD/AMAAAAAAABQAAAAA777Dr30ID/3XD6yV7rXL20P33zzvf2kBX3ff328Fr7rrkAAACgAAAAAAAAAAAABAEEG0
+EEFHGAD/AP8A/wDeoL//AP8A+wAAAAAAFAAAAA/vggAJvnH+gAAAv/fwwAE9uf8A4AAANv1X3AMBFD2Pz0EAAAAACgAAAAAAAAAAAAAIEEEUkEEEFl//AL/GurAzz733AAAAAAAUAAAAH9RAAAAV997AAAAj9TAAAAfteuAAAAX996BAAAD2/wDQQAAAAAAKAAAAAAAAAAAAAMzQQQQTQQQcZf8A99/+sAABBcAAAAAAABQAAAAP2MAAABT32gAAABT2oAAABb330AAAAD330AAAABb32AAAAAAACgAAAAAAAAAAAACQMUEEEEAkEFLb/wD/AP6wAAAFwAAAAAAAFAAAAFPTgAAAFffaAAAAFPagAAAFvfbSQAAEPcLYQAAAFvfYQAAAAAAKAAAAAAAAAAAAAAA75QQQVTSh+vP/AP8A/rAACKeaPNoAAAAUAAAAB89vLEFV99oAAAAU9qAAAAW9Y99FHF/8T/vDAIJe99qAAAAAAAoAAAAAAAAAAAAAAC0wBBBBRecTT/8AM89zrHvfbvfaAAAAFAAAAAAdfffffffaAAAAFPagAAAFvacfffffOQNvPffffffawAAAAAAKAAAAAAAAAAAAAAAAKVAQQVd/3RHn/ffffffffffaAAAAFAAAAAAAosdcPMPaAAAAEc4QAAAE84gMV9AIgAAAkesMMNM4wAAAAAAKAAAAAAAAAAAAAAAAATkSQQZYfv0PvffffffffffaAAAAFAAAAABAAAAAAAAAACAAAAAAAAAAAAAAAAAAAACBCAAAACAACAAAAAAKAAAAAAAAAAAAAAAAAIjbSQQQX9u1RjjjiNvffffaAAAAFAAAAACABAADBIBAACBAAAABACAAAEBAAAACAEEEADAAAACMAACAAAAKAAAAAAAAAAAAAAAAAAMB1SQQeWvPfffffffcsffaAAAAFAAAAAOAILIEYEEDRBEMECJKELcQPKOIPAbAAEBBFCKdRAAKcOYAAAAK
+AAAAAAAAAAAAAAAAAAABwERQQQbqvveNfb4LPf8A4MAAABQAAAATgghkyAyCRBCigBBWEgRBCHDQBQUTDAB0RCiQhyACjAAwAAAACgAAAAAAAAAAAAAAAAAAACNLWUEFEGGQwjGEEE8eMAAAABQAAABCCAABDgACBAAACBAAABCACBBBCCCCAABACDBCABBACABAAAAACgAAAAAAAAAAAAAAAAAAAABaf2UEEEEF00EMVjuIAAAAABQAAAAAAAAwQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAACLSWkEEEFFlG4EAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAUySUEUAqDEAAAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAClYbwCMAAAAAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAACZ8KEAAAAAAAAAAAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+CgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAABRAAAAAAAABQwAQAwAAAAAAAAACQwUAABCSgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAB0AQAQgAwQRmyDkSQAwAAAAAAAAAyAQwwBSgAAwAwwwAjwQwgAQgAAAAAAQQAwggAAAAwgwQQwBQwAAAAAACgAAAAAAAAAAAAAAABCRQADgFXigSgBQBQFDG1CgBCQADUAyDQBSjkAEChBQCgBCCBFWgDAgAAARQSBSjFFBAADxSBBgCgAAAAAACgAAAAAAAAAAAAAAAAxDwUyCUwSAmgAQhRwhjwCgAAABCgBADkBShCwgAAAAWACAgjkggAAAAES1gi0iikwABCj1QABQwUAAAAAACgAAAAAAAAAAAAAAABABRAABAACBACAACAAADACAAAAAAAACAAAACCBCAAAAACAAAAAAAAAACAAACBCQgCAAACDACAAACwAAAAAACgAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACDAAAAAAAAAAABCSAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+CgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgAAAAAAAAQwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwygAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/xAAC/9oADAMBAAIAAwAAABDzzzjzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzTzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzyHzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzDzDjjzzzzzzzzwHzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
+zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzjzEVAHjTzzzzzzzwHzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzjUEGBzwjwCxG3/zzzzzzzwHzzzzzzzzzzzzzzzzzzzzzzzzzzzzT3zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzjWyywghTwzbu61J5/wA88888888B8888888888888888888888888888+q88888888888888888888888888888888888888888d8AhU8co+9SS1uM/888888888888B8888888888888888888888888888+q8888888888888888888888888888888888888884VRBB4wF8jlOs88888888888888888B8888888888888888888888888888+q888888888888888888888888888888888888884shBBYwBRSGc49nu+W+un5488888888B8888884s/P4388+nPsq/8/Ots5+88uMMfN+8845uc8U8885NuZ8888888888888888885oBBMgBBVZ88u/8A/wDuxb//APPc8888888B88888wd6209vUv8A/cctvnf+v9vbtfOMstfPevJPd99PWPdXvvpvPPPPPPPPPPPPPPPPPMQQQSCAQUTEOX//AP8AaXv/AP8A/wDq8888888B8888/wDOLPPLdmfOhPPCP/e3vPLv+vvPPPH8LUfb3/PP/d/fzfPPPPPPPPPPPPPPPPPPPFgQQRKAQQUaMtpjp/3vJjlt5lPPPPPPAfPPPOfdfPPPFvfbPPPPOfTfPPPFfXufPPPOvff3/PPLP7PX/PPPPPPPPPPPPPPPPPPPPM5AQQQZAQQcVJrjr/8A7zzzj7zzzzzzzwHzzzyr3Xzzzz/3
+3zzzzzz3/wA888q99v8APPPLfff/ADzzzxX31fzzzzzzzzzzzzzzzzzzzzyqqwEEFC0kEFD3/wD/AP8A7zzyj7zzzzzzzwHzzzz323zzzz733zzzzzz3/wA888q9/wDP/PPLPdrfvPPPFffVPPPPPPPPPPPPPPPPPPPPPPOy7AQQRLDeua//AP8A/wDvPPrt5v8Az3zzzwHzzzz1a1r7vTf33zzzzzz3/wA888q9a9My66+5/wDLvf8APVb33/zzzzzzzzzzzzzzzzzzzzzyw3kkEEFSGJcjoc00ncv722pX3zzzzwHzzzzy7D3333333zzzzzz3/wA888q9tb99995U8L+9999999U88888888888888888888888v8ZBBBQT0/QSd9999999999988888B88888898/wCMvt+PvPPPPsv/ADzzyvL/AMM25H/888Ps+xyy/wC/fPPPPPPPPPPPPPPPPPPPPPPPDdJCQQREfqbmvfffffffffffPPPPAfPPPPPfPPPPPPPPPPPPPPPPPPPPPNPPPPPPPPPffPPPPNfPdPNfPPPPPPPPPPPPPPPPPPPPPGGzCQQZAfqz6wwwwfvfffffPPPPAfPPPPNfOPONOHPIXHeNPPPOPMPPOEeNOOPMPKRfLPNOPVdIfPHfPPPPPPPPPPPPPPPPPPPPPPGXrCQQfDMrTTTTXfffKlffPPPPAfPPPPPfXcVSDcRZKZbbeKccbaPNSXQWTdBTfDfNZbXGBXSZAVHPPPPPPPPPPPPPPPPPPPPPPPPPP1DQQQCgxcuON8lhiMM1fPPPAfPPPPLQcUPCZfdSfdfPOKHCXZaQDSXcQAdVfFMPQTFdRbNVfIXPPPPPPPPPPPPPPPPPPPPPPPPPK7DLAQQYMKfUUIQQFfn/ADzzzwHzzzyzy33xmV01y12w3yy3z0zzyywy1x211zzx10zxx333zzxzzzzzzzzzzzzzzzzzzzzzzzzzzzwgPyQEEEEE
+iwEZx55zzzzzzwHzzzzzzzyGFzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzmWSQEEEEEWUQdzzzzzzzzwHzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzuymQEQ82MzzzzzzzzzzzwHzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxjNHgIx/wA888888888888B88888888888888888888888888888888888888888888888888888888888888888888888888888888bb89888888888888888B888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888N8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
+8888888888888888888888888888888888888888888888888888888888888888888888888888888888888885ZU8888888981w498888888888NJIc885p988888888818888888888d88888888888888888888888888888888888888888888M44x50x901Y4xkxtx9051888888lt8J1pp9xx9dw558954d1518888898498118tFw51055px41V888888888888888888888888sJhFp94AxVt99B894sUoMV8pB88A8x85pptA0klVF5RVppc8AgV8B88989dZBpBAw9NpVV9VVp8V888888888888888888888888VhJUpt85FRs99109V9lp8V8888hZx9Ropp5l1B58VsE8pd9t05888888xQ59ItV41d99dU9VV514888888888888888888888888c8oVc8888ccs8ssMsc8c88888888s8M8888s88sss8s8css88888888c8sM8899s88888cs8c8M188888888888888888888888888sR88888888888888888888888888888888888888888888888888888888VZ88888888888tZ88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888488888888888888888888888
+888888888888888888888888888888888888888888888888888888888888888888888808888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888/8QARhEAAQMCAQYGDggHAAMAAAAAAQIDBAAFERASITFBURMUIGGBkQYVIjAyNFRxcoKSobHBM0BEUFJTYNEWIzVCQ2JzoLCy/9oACAECAQE/AP8AwBGYUp/6NpRG
+86BUe0NMDhpTgITpzdlPrSt5xSRoKiR9zC1T1AEMaCPxCnrfMYbK3GsEjbiD97Nw5TvgMrPPhTdkmq8LMT5zSLAP8j56BQtVsZ0uLx9JWFcas8bwAgnmGNPX7Yyz0qqRLkSDi44TzbPudn6Fr0BV58Qc9JPx+8gCTgASaj2iY9gSkIG9VN2WIyMX3SfOc0Vxu0RdDaUk/wCoxpy//ls+0acvM5epQT5hS5cpzwnlnpoknWfupn6Fr0BV58Qc9JPx+8YNqekgLWcxvftNF+2W4ZqAFL5tJ6TT96lOYhvBsc2k04644cVrKjzn7vZ+ha9AVefEHPST8fvC2RmnXFuvEBpoYmpt1dexQ1ihv3n65Dt8iUcUDBG1Z1UxZYjYGeC4efQKEOIkYCO37IpcGGsYGO30DD4VIsTKgSwsoO46RUiM9HXmOoIPuOWNEfkrzWkY7zsFR7EwgAvKKzuGgUiBDQMBHb6Rj8aVBhqGBjt+yBT9jjLBLRLZ6xUqFIiqwcTo2KGo5IdukSjikYI2rOqmLLDbAzwXDz6BSYcROqO37IpcGGsYGO30JAqRYmVAlhZQdx0ipEZ6OvMdRgdm45GfoWvQFONtuJKVoCk7iMa4jD8ma9kVxGH5M17IriMLyZv2RTtnguDQgoO9JqZZ5DAK0fzEc2sciJZpDwCnDwaefXTVmgtjSgrO9RrtfCww4u31U7Z4Lg0NlB3pNSrK+0Cpo8Indt5EO2yJWkDNR+I/KmbJDR4ec4ec4D3UIEIDxZv2avMaO1ECm2UJPCAYgAfXA8sMFoeCVYn65a7dxpZWv6JJ0853UlKUpCUgADUBRIAJJwFLucBBwL6ejE/Cmp0R44NvJJ3ajkkRmpLRbcTiNh2jnFS4rkV4tr6DvFQIS5b2aNCRpUrcKZZaYbDbaQEjI7cITRwW+nHcNPwpF0gLOAfT0gj40CCAQcRTjaHUKQtIKTrBpFjwlnOViwNI3nmpKUpSEpAAGoCiQBiaXc4D
+ZwL6ejE/CmrjCdOCH048+j45JEdqQ2W3E4g9YqZEcivFtWka0neKZ+ha9AU682ygrcUEpG2u2cDyhNds4HlCaFzgE4cYTSVpWkKSoEHaDjku1sGCpDKedaR8clrtiWkpeeTi4dKQf7cjr7LIxccSkc5rtrb8cOHHUabeadTi2tKhzHHJc7Yl9JdaGDo1j8WS1W0SDwro/lg6B+I0AAAAMAKJABJOApVxgpOBkI6Dj8Ku82K/FCGnQo54OH3u22pxxCE61EAdNMMoYZQ0nUkU++2w0pxZwSKmT35SznHBGxA1ZbfdnGVJbeUVN7zpKaBBAIOINXaKH4qlAd233Q+Yq3xRGjIRh3R0q85okJBJOAAxJq4XVyQpSGiUte9WWFPfiLGBxRtQaZebeaS4g4pUMjzzbLSnFnBKRU24PylHElKNiBlt90cjqShwlTXvT5qBCgCDiCMQausUPxVEDu0d0n5imfoWvQFXrxFXpJ5EeU/HXnNLI3jYagTkS2s4aFjwk5I9rCbmvEfykYLT06hkudyEUcG3gXSPZFOOOOLK1qKlHacjbrjSwttZSobRVsuQlDg3MA6B7QyXS3kzGi2NDysDzKpppDTaG0DBKRgKkyG4zKnFnQNm81LnPylErVgnYgah9VcTgroH3JZWwuckn+xJV8sl+fJdbZB0JGcfOeTZXy5EzCdLZw6Mt8fLcZLYOlw4HzDk2F857rB1EZwyX6Qc5pgHQBnK5NjfLkZTZOls+45AAkADUBV78RV6aeTbHyxMaOOhRzVeY5VKCUlR1AYmn3lPPLcVrUceQw8pl5txOtKgaSQoAjURiKKUkpJGlJxHwyX18qkIa2ITj0n6s+1nxY76d2YvmI+5LD445/yPxGS9AiernSnk9j+qT50fPL2Q/ZfX+XJsfj3qHJe/Hj6CeT2P65PqfPLeE4293mKT7+SyCXmwNZWMspJVGfA1ltQHVyo/i7P/ADT8Mt58fc9FPw+rWyS2krjvfRO6
+PMamxFxXig6UnSk7x3qNCkSs7gk45usk062tpakLTgoax9YtbwanNEnQo5p6cl8ilxtL6RiUaFebk9j+qT50fPL2Q/ZfX+XJsfj3qHJe/Hj6CeT2P65PqfPIhaVgkbFEHzinmkutLbVqUkin2VsOrbWMCk8izRC7JDpHcN6enIHEFakBQzkgEjz5LhFVFkrRh3J0oPNyY/i7P/NPwy3n+oO+ZPw+rxXET45ivH+Ykfy1U60tpxSFjBSTgeWxClSElTbRIG2oCIrTy2pjWCjqKtQpy3vRV8NCUeds7RU17h5K3M0pJwxB2HvDUaQ99G0pXOBQtE8jHgveKct81rSphWHNpqOgLkNIUNBWARQYZAADSMBzCuBa/LT1Vfmm0KjlKACQrHDmw73bpglR0knu06FiiAamWQKJXHISfwHV0UqBNSSDGc6Ek/CuJzPJnfYNcUl+Tu+yasTTrYkZ7ak4lOGIIy9kP2X1/lybH496hyXvx4+gnk9j+uT6nzyRZgauUphZwStw5vMrJPt7UtH4VjwVfI0/bpbBOc0SPxJ0iktOKOCUKJ3AVEs0h0gujg0c/hGmWW2W0ttpwSKddQy2txZwSkYmmbktE8yFalnBQ/1pKkrSFJIIIxBqVFZlN5jg8x2ipFmltE5ieETvGvqriUzyZ32DXE5fkzvsGuKSvJ3fZNMAhhoEaQhPwy3j+oPer8B9XQtSFpUk4EHEGnkIuUXhkAB9sYKG/l21SDCYzNiAD5xU+A3Lb3LHgqqJcHoTnF5IOaNu6row4uSp1tBU2oAhSRiKIIpiFJkaWmyRv1Cu0k7cjrrtJO3I667STtyOuhZJuI0I66i2eMyAVjhFc+qgABgBhlciMOKStTYzkkEK26MvZD9l9f5d7iynYzocQfONhFRJrEpGKDgrak6x3jsh+y+v8uTY/HvUOS9+PH0E8nsf1yfU+eS4ePSP+hq23dKwlqQrBWoLOo+fkuutsoK3FhKRtNXG5KlqzU4h
+oHQN/Ocltuaox4NzEtHrTTbjbqAtCgpJ2jvF3/qL/q//ACPrEWS5GeS4jpG8VMiNS2uNxdf96OVbZ6ormCtLatY3c9JUlaQpJxBGg1OgNy29OhY8FVR5Um2vFp1JKMdKfmKlORZ8yM20NvdKwwpCENpCUgAAYAd87Ifsvr/LviFqQoKSogjURTF8lNgBxKXB1Gk39nawseYg0L/F2tO+6u30P8t3qH712+h/lu9Q/eu30T8t3qH712+i/lO9Qq5z25nA5iFDMztfPyYEoRX+EKSruSMK/iBvydXXU+UJUguhJT3IGHJttwTD4XFsqz8NR3V/EDfk6uupLoefdcAwzlE4ZI1zlxgAlecn8KtIpu/t/wCRhQ9E40b9Ew0Nu9Q/enr+4Rg0yE86jjT8l99Wc64VHkMSX46s5pwppq/ujQ6yFc6ThQv8ba057q7fRPy3eofvXb6H+W71D967fQ/y3eofvXb6J+W71D967fxfynPdU2QmRKcdSCArDQeYYfWYU1yI7nJ0pPhJ31OhNyG+NxdIOlaRyrXcjHUGnDi0T7NAhQBBxBqVEZlN5qx5jtFBlVuntcIcUg448xpKgoAg4g987Ifsvr/L9HQZzkRzEaUHwk1Pgocb43F0oOlSRyrXcywQ06cWzqP4aBBAIOg1NhNy281WhQ8FW6kC6wO5COEbGraK7bzPIle+u28zyJXvrtvM8iV767bzPIle+mbs6VgOxFpTvAJoEEAjldkP2X1/l+j4E9cVze2fCTVwgIKONRtLatKgNnKtt1MfBp3Et7DtTTbjbiQpCgoHaO8uSGWhi44lPnNdtoZcQhCipSlADAZeyH7L6/y/SFvnqirzVaWleEKuFvCU8Zj900rSQNnKYkvx1YtLI+FMX46A810ppu7QXP8ALm+cYUmVGVqeQemuFa/GnrovMjW4nrp25wm9bwPMNNPX5A0NNE86qeus13/JmjcnRRJJxJJNNOFt1CwMc1QNC+xMBilYPmrt
+5D3L6qus9qWprg0kBGOk8/6Rt9wVGVmL7ppWsbquFuSE8Yjd00rSQNnf41qlv4HNzE71Uq12+O0eHeOO/HDqFOBAWQhRUnYcMP0nb7guKrNV3TR1irhb0ZvGY2ltWkgbO9obW4oJQkqO4VGsb68C8rMG7WaxtVvGxSx6yqk3t9zENANjfrNLWtaipaiTvP6Vt9wXFXmq0tK1pqfb0FHGYuls6SBs7wxEkPnBtsnn2UxZEIGfJc6BoFLuUCIkojoCj/rq6TUm6S38Rn5qdyf0zb7guKvA6Wz4San29Ckcai6UHSpI2cmNa5b+BCM1O9VItsCInPkLCjz6uqn722gZkZrpOgU/LkSDi44TzbP05AnriLwOls+Emp9vQtHGoulB0qSKQha1BKUkncKjWSQ5gXTwad2s1m2u368FL9pVSb4+vEMpCBv1mluLcUVLUVHef0/AnuRHN7Z8JNKudvjpJYQCpWkhIw66k3WW/iArMTuT/wCmu//EAE4RAAECBAIEBgsNBwQCAwAAAAECAwAEBREGEBIgMUETISJRYXEWMDVAUoGDkZKxwRQVMjRCRVBTVGJyc9EjYIKTorLCM1XS4UOQRHSg/9oACAEDAQE/AP8A2jnd+6wv247v3QtFotHFrTVXp0oDw0ygHwQbnzCJ3FExOK9zU1lQK+LTPwvFEm0tqVYbWbqS2kKPSB2k7u/VYjoqFKSqbAIJB5C/0iVrdLm3gyxM6ayCQNFQ2dY+jbRbXuImKrTpe/CzTaTzXuYfxfSm/gcK51C3rh7Gy9jMmOtSoViOvzXEw1b8Dd497sUT/wDqqdAPhr0RErgwXCpqZvzpR+piSpklIpswyEneraT2o7u/Zr40/wDmK9cYU7tM/gX6voq0W11KSkFSlAAbzE7iily1wlZeXzI2eeHsWVSZVoSkuE9Q01R72YmqHG8twJPhqsPNEvgs7X5vxIEMYUpDXwm1uH7yoZplPZtwco0n+EQEgbAB207u/Zr4
+0/8AmK9cYU7tM/gX6vpGr4llZAlpoB1/m3J64EpiCuKC3lFDR2aXJT4hElhKnsWL5U8rp4kwzLsMJ0WmkIH3RbvI7u/Zr40/+Yr1xhTu0z+Bfq+kMQT8wwy1LyoJmJg6KLbQIpGG5eVAemQHX9vHxhJztFotqWi0W7Ud2vVK3JU0WcVpOkcTadsTmLKm+SGSlhPMkXPnMLqlSWSVTr/8xUNViqtG6Z57xrKh5jEjjGabITNtBxO9aeSqJKflZ5kOy7oWN/OOgjOfqUnINacw4B4KdqldQidxjOOEiVbS0nco8pUOViqum6p5/wASyn1Q3V6o2bpnn/Gsn1xJYvqDRAmEoeT6Kop1Wkqii7DnKHwkHiUMqpXJKmizitN3c2nb4+aJzFlUfJDRSwnmSLnzmF1SpLJKp18+UVDVXqjRumef8ayR5jEjjGbbITNth1O9SeSqJKflJ5nhZdwKG8bx1jKa+NP/AJivXDL7zDgcZcUhY2KSbGPfiq/b5j0zHvxVft8x6ZgViqg/H3/TMS2KauyeU6l0cy0+0RS8USU4UtujgXTsBPJPUdSpYqkZUqbYHDuDmNkDxxM4qq7x5LqWhzISPWbwa1Viq/u570jEviisMnjeDg5lpHssYpuLJOZIbmE8As7yboMAgi4zqlfkaddCiXHfq0+3miaxbVHiQ0UMp+6LnzmFVqrKNzPP+JZEYVn56YqS0PTTrieBUbKUSL3He51VSjSptEyRdaWyhPRc9uPaDu1sQ1wU5oNMkGYWOL7g5zDji3FqWtRUpRuSTckwlKlEBIJJ2AQ1h6supCkyS7feIT/cREzSKnKpKnpRxKd6rXA8YykZ+ZkZhLzC7EbRuUOYxTKizUZVD7fFuWnelXNFZqzVMleENlOK4m0c5/QRNTcxNvqefcKlqylqJVZlIU1JrKTsJskH0rQ7h6stJKlSSyPukK/tJhSVJJSoEEbQYYfel3UOtLKFpNwRDuMCaaNBFps8k+CPvQta
+3FqWtRUpRuSTckwAVEAAknYIZw/WXkhSJJYB8IhH9xETFDq0ukqck12G0psv+2+UlPTMi+l5heiobRuI5jFLqTNRlEvN8R2LRvSqJr40/wDmK9cS0q/NOhphsrWQSAOiOx6s/Yl+cR2PVn7EvziFUCspBJknPFYw4240socQpChtSoWOWGa+vTRJTS7g8TSz/acsRYhXMrXKyq7Mg2WofLP6ZS0nNTStFhhbh36IvaDhuthN/cZ9JP6w/LTEuvQeZW2rmUCMsP4hXJrRLTKyZcmwJ2t/9QCCAQYxJXTIo9zS6v26xxq8AfrClKUoqUSSTck7TCUqUQEgknYBDdDq7idJMk7bpGj64wzSqhKVFTj8upCCyoXNtpI7zGodcapyGqe0HdqvvIYZdeWbJQkqPUInZt2cmnZhw8par9Q3CJOUenJlthlN1rPiHSYpVFk6a2NBIU7blOnaermGdbw0xNoW9KoDb4F7DiSuFJUlRSoEEGxBjDNRMnUUIUqzT1kK69xit1Ez9Qdcv+zSdFv8IhKVLUlKQSokAAbSTFEw4xJIQ9MIC5g8fHxhHQM6rRZSpNnTSEugcl0bR184iblXpSYcYeTZaDY5Ssq9NzDbDKbrWbCKTQ5SmtgpSFvW5Tp2+LmGdcw6xPIW6wkImB4gvoMLSpClJUCFJJBB2giMN1EyVRbSVWaeIQv2GJr40/8AmK9cYT7sN/lr1J2nyk80W5hoKG47x1GKzSHaZM6BOk2vjbXz9B6RAJBBBsRE7iFS8PMlK/2712l9Gj8I5YfoJqKy89cS6T41nmEMsMsNpbZbShA2JAtk/LsTDZbebStB3ERiCgGnKDzN1S6j40HmOWHa0kUqYS+bmVRcdKNwiZmHZl915w3WtRJiQkX5+aRLsjjVtO5I3kxTKPJ05sBpAK7cpw/CPerCwtFx4Sh5j2y8Xi8XyOV4vF+1Hdq4rfLVIWkf+RxKPb7MsGySUy782Rylq0E/hGriyTDFT4RI
+sl5Gl/FsOeEZJL9QW+oXDCbj8StmrjOSSW5ebA4wrg1dIPGMsGSSQ3MTihxk8GjqHGdXF8klioIfSLB9Nz+JO3JSlLUpSjckkmMJd2EflL1cQSSZulzAtdTaS4jrTmhCnFoQnaogDrMSks3KSzLDY5KEgak7Kom5R9hexxBHUdxhaFIWpKhYpJBHSIS4tAWEqsFpsrpFwfZlg6TQiSdmSOW6uw/CnvaSmA1UZ2SWbEq4VvpSrbrX1rRbUPbju1cZ9zGf/sp/tOWE1A0ZsDc4sHVxt8KQ6nPZngj5w8l/lq4u7keWRlhLuOn81erjfZT/ACvszwusJrUt0hY/pOrNFKZV8q2BtRPmzpy0oqEmtWxL7ZPUFa098dmvzl+vPCncZn8a/X3tiCQfWlqdlSRMS/GLb0xSam1UZVLqeJY4nEcx1SIvqVCrSNP4P3Q4QV7ABcww+zMModaWFIULgjVPbju1cRSpmaRMpSLqQAsfw5YQqSWX3JNxVg6bo/Hq42+FIdTnszwR84eS/wAtXF3cjyyMsJdx0/mr1cb7Kf5X2ZOtLaKQofCQlQ6lC8SswuWmWX0fCbWFDxRKTTM3LNvtKuhYvqYqqSJaQVLpV+1fFrcyN5yUw6llDxQQhalJSrnKduVFqSKhINuX/aJAS4OZQ1Z747NfnL9eeFu4sv8AiX/ce96iw7RZ8VGVTdhw2fbGwXiXmGpllt5pWkhYuDqkQInKvTpJYQ/MJSo7tpisu1GYlWpmlzV0JuVBG0wzW5WpNe5KsgA7EvgWKTFIlPckgyxphYTeyhvBNxqnOZqElK/68w2joJ44OJ6MDb3QfRMMVulPkBE43fmJ0fXE88puRmXWyLpaUpJ6hCpyaUoqVMOEnadIx7pmfr3PSMYMmH3UTqXHVKCS2Ugm9r31Tu1SAQQRFdpaqdPLSAeCWSpo9HN4oBIIINiIpWLlNpS1PJKwNjqdvjEN1mkuJChPMWPOsJPmMe+tM+3y38xMe+dN
++3S/8xMYxmZd9UjwLzblg5fRUFW2Z4I+cPJf5auLu5HlkZYS7jp/NXq432U/yvsyqVLVMUGnzbSbraYSFjnR/wBZUatzFMcIA02VHlt+0RJ1ymTiQW5lKVeAs6KoXMMNp0lvISnnKgBFSxVIyyVJliH3ej4A6zE1NPzb63nllS1HjMS0u7MvtstJutarARNUFlyjIkUW0m03Qr7/AP3Dja2nFtrSUqSSFA7QRFOqUzT3w6wroUk7FDmMSOKaZMpAdXwC94Xs8Rj31pf2+W/mJj30pn26X/mJj3yp322X/mJicIVOTJBBBdWQR154X7iSnWv+897utNvNrbcSFJULEGJV1ygVH3K8SZN5V21+CYBBsRs1q6h1NXnOEvcuEi/gnZFGrD1NfuLqaUeWj2iKnRJWqsCdp6k6ahcjYFfoYw5OMNU9uWeeSh5tSgpCzYjjgEEXBuInatISIAmJgBXg7VR2XUfwnfQjsuo/hO+hBxdR/Cd9CDi6kAGxd9GKjiifmipLJ4FvmT8I9ZhSlKJKiSTvObFSnWG1toeVwa0lKkE3Fjngj5w8l/lqndrVGny9QllMPDpSobUnnEVOkTdNd0XU3QTyHB8FXaMEfOHkv8tXF3cjyyMsJdx0/mr1cb7Kf5X2ZUXjpEj+SmK9hlxpS5mSQVNnjU0Nqero1ZeWfmXUtMtqWs7AIoVCbprZccsqYWOUdyRzDKvYeRUAX2LJmAPEvrh+Xel3VNPNqQsbQe0YY7hyflP7z3xUqezUJVbDg6Uq3pMUmqTFMmfe2omydjTh2a1foqaixpoAD6ByTzjmMONrbWpC0lKkmxBij1h+mvXTymlHloidp1Pr0qmYl1gO24l+xUU1ioUWlz70wvYP2bd7gHZeHXXHnFuOKKlqNyT2zBHzh5L/AC1Tu13G23UKQ4hKknalQuDE5hCnPEqZWtkncOUnzGF4Km/kTbR6wRBwZUd0xLnxqHsjsMqn10t6Sv8AjHYZVPrpb0lf
+8Y7DKn9fLekr/jAwZUftEv51fpGHqK/SxM8K6hfC6FtG/Fo31azTVVGS4BLgQdMKuRfZHYU/9tR6JijU5VOkhLqcCzpk3Att1a9RXKqJbQeS3weltF76Vo7Cn/tqPRMSEsZWTl2CoKLaAm/PbKoUCmzxK1taDh+WjiMP4KfBPATiCNwWkj1XhODKlfjflwOtR9kSuC2UkGZmlL+6gaMSkjKSTehLspQN9tp6zqTkhJzqNCYZSsbido6jEzguXUSZeaWjoWNKFYLn78mZYI6biDgypbn5fzq/SOwyqfXS3pK/4x2GVT66W9JX/GOwyp/Xy3nV+kDBdQ3zDHnV+kUmSXI09iWWoKUjSuRs41E981aksVKXKF8Sx8Be8GKPVn5J/wB7KjxFJs04dUiMQ0ATyC+wAH0jjHhiFJUhRSoEEGxBinVOapz4cZVxfKQdioVMt12izAZBSspsUHcoccKSpCilQIINiD2zBHzh5L/LVO7WA+gLRbWOQ76rFIYqTGieS6n4C4otYeYe97ajdLqTZtZ36pEYhw+JxKpmWTZ8DlJ8OFJKVFKgQQbERSas/TX9NvlIVxLQdhh44crNnFO8A+dt+Sf0MdjFM3VZP9Mdi9N/3ZP9Mdi9N/3ZP9Mdi9N/3ZP9MTOGpZLRMvUmlrHyVEC8KSUqIO0HWwR84eS/y1Tu1t2sMx3sIJ1hByGzIQe+K1RmqkzcWS+gchfsMUOsupd97qhdL6DZCj8rVIivYcTO3flgEv7xuXDzDzDim3W1IWNoI7SxJzcwbMsOL6hHY1U0suPOoS2hCCo3PHxZ4I+cPJf5ap3ax2Rsi8b8xAi8bsjtyvkY25GN0A5mNkXjZAgRfLdlaBti+QgReDlxd91uioqLWmjkzCByF8/QYodcWtfuCeuiYQdEE/K1SInKdJzqNGYZSvmO8dRibwYCSZWZt91f6iH8NVhn/wCPpjnQQYXT55s2XKuj+Ax7nf8AqV+iYTKzKjZLDh6kmJeg
+VZ/4MqoDnVyYlcGPGxmZlKehAvEphulS1iGNNXOvjhDaEJASkADcImmA/LvMk2C0FN+uFYPqYUQlbJG43jsPqvhM+lGHKNMUxEwXlpKnCniTu0b6p3axgwIG3LdG7IxugQNsHMQIucjAyEb4ORi5yOzLdkIGRjdG7Iwch33XKG3UEcK1ZEwgclWy/QYoddWpfuCf5EwjkhR+VrWi0Wi0Wi2ZIAuTE/iSmSd08Jwq/BRxw3iKuT0yn3HKjQB+Da/nMMqdU0guoCFkcpIN7ax3a94vleDlfK8XyvnfK+vfK8Xi+peL6t4v9AVuht1BvhG7ImEDkq5+gxRK45wnuCoXQ+g2So/K6D2g5vPssIK3XEoSN6jaJ/GEmzdMqgvK8LYmLYjrZ49JDJ/gREhhGSZsqZUXlc2xMNMtMoCG0JQkbABbXO7tPFHF+4lbojVRb00WQ+gchfP0GKJW3Uu+99Quh9JslSt/Qe0TlSkpJN330p6NpPiicxg86rg5CX6lKFz4hDNBrVUWHZ15SEnwzc+JMSGHabJ2UGuEX4a+PtR3fufWqI1UWtJNkPpHIX7DFFrbrbvvdUbpeSbIWrf0HVn8RUySuku8IsfIRxw9iCtVNZakmShJ8DjPjMSeEX3VcLPzBudqUm58ZiTpkjJJswwlJ8Lao+Pth3fuhWqKzUmriyX0jkL9hii1t5l73uqN0upOihZ39Bh11plBW4tKUjeTYRP4vkmLplkl5fPsTBXiOtmw0kNH+BESGEJRqyppZdV4I4kwywywgIabShI3AW7cd37o1mjM1Jncl5I5C/YYbw9XJ5YE28UoRyQVm/EOYRIYbpsnZRb4VwfKX7BAAAsO8Du/9UN+0jIjMjtd4vqiN8HtVu17vo3aM7RbK0WytA1SMrZWi2uIOVotAjfBi2VotlaLZWztlaLa27O2VotlaLZWi2paLZWi3fQORgQdsGBG+DAyMbsjG7I7IGzI5WgjM5DIQI3wY252gwYEHbBj
+dAzMAQcrZ7tQwYEHK0HbBgQY3QIMboGW7vm0AZGAIMbYtkRAyMDZkcrQY3ZHVEWi0CLRsgRvgxaDG2LZHU3QItlti2tui0DZFoMbYtBjbFsjAgiN0CDG6BFo3d+H6aEHtu7vw/TN4v2wRf8A/F//AP/EAGAQAAEDAgICCBAICQoFBAICAwECAwQABQYRBxITFCExUVWV0xAgIjAyNTZAQVJhcXN0srM0QnJ1gZGxtBUWIzNUYpKToRdQU2BwgoPB0dIkQ4SiwkVjlKMl4kRkkLDh/9oACAEBAAE/AOmufa2d6u57Jpn8y18gf2azvh1p9O57pXeUpkvxn2Qci42pOfBrDKkJ1UJTwAD+zV+OXX4jgUAGXFKI4c0FP+f/APks2a9/oMP/AOUvmqbdu5WgOQ4iUZjWKZC1EDyAtjpZ8sQoEuUUawYYW6U72eokqypq44qdabdTZLfktIUM56+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK2
+7iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27
+iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+YrbuLOJLdygvmK27iziS3coL5itu4s4kt3KC+Ypq73lq4QI0+1xmUSnFoQtqUp4hSGy5ugtI8XvLEXc/efUJHuzUD4DE9Cj2f7Nbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9n+zW8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ/s1vHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2f7Nbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9n+zW8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ/s1vHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2f7Nbx24wz66992c7yxF3P3n1CR7s1A
++AxPQo9n+o72kPBrD7zDl3QHGnFtrGxuHJSDkRuJqNIZlR2ZDCwtp1tK21DeUlQzB/rbeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/1HuHba8fOk3366wp3L2D5si+6H9bbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9n+o9w7bXj50m+/XWFO5ewfNkX3Q/rbeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/zUtaUJKlHIAZk05jPDDLhQ7dmEqHgJNR8W4ck65YujC9UZnI0MZYXz3buxTuN8LqAAuzFRcQ2aX8HntObhPUml4tw4y4Uu3RlJG+DX484U42Yo45wtluXZihjHDKiEi7MEmo1wiSs9gfQvLg7zuHba8fOk3366wp3L2D5si+6H9bbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9n+ajkavGFbJd0nbURBV44GSqu+CE2O7RnrfNJRrflEK+Kmp6mVzpCmewKzl0LJeZFmnplsq3gQoHeINYpvH4XeiyNqBjqN4fG8vRNYVxHOt01pjZCppZyAPgNW2UZcRt4jInf7yuHba8fOk3366wp3L2D5si+6H9bbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9n+ZioCnJTLYzU4kDz09fbcyCS8CfJUzGcBH0eUCpmkaI12Cm6m6SZa8wxr1cL5cZ5VsruSVb4Fbg6FnVbE3FlVy1trJOagnfJFYkurN1uhfYbDbCUhDSPIOihLjiwhtBWo7wAptliyNGXMUDJy/IsjweU1gd557DkNbw6teau8rh22vHzpN9+usKdy9g+bIvuh/W28duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ7/AMxw0qQyg5KcSPppy5wm999NPYitjXZPVIxxZ2R+eT9dSNJ1sbzCKlaVFq3Gm1VJ0h3Z4EJSR5zT2Krw6fzoTTt0uLvZy1/XRdLh3XFLNbG5lrbC4E+MU7nQwzhH8Nx1SVzW2GkK
+yUDQsuAbQnXlzttKB3gc6nuRnJr64reowVnUT5KOVA5nJIJPkqPa7jI7COoDxlbgpVttsMa0+enP+jb3TTmIktgs2qIGvBrkZrNRrc+87tiasqVnnqndz89YOUVWKL3lcO214+dJvv11hTuXsHzZF90P623jtxhn1177s53liLufvPqEj3ZqB8BiehR7PfGdKebQM1LSPOcqdvluaJSX0Z+AUvEdvAUUa68uAU9itARmhjVP66qlY4Q32TzKPMc6k6REA5JkKV8kVIx/JWSUNrPnVT2MLu6TkoJp29XV0nWlK+ilyH19m+s+dVbij4TWQA3qtOCrzdYjUqOEBpzeJNDRmhOWz3llHCARV1hswZ70Zl8PIRvOcNW96MxMZdktbKyD1aOGhjWwRhlEw80PlirxjaTcoTsPaMZlpfiDdpKVK3EoUfMKYi3ZSCllDyUHfAJSKTYJu+5sbflUoUbfb2fhF0bHkRu0ZeHGOxbdfPl3BRxKtPUw4DTfAdXM05Jv87MKdWlPBnqimrGM9Z53WNMxmGBk22BVlsUy6yEobQQ3n1ayNwCrdAbhRWmG+wQkDvK4dtrx86TffrrCncvYPmyL7ofzzN0koiTJMb8FFWwurb1tmyz1Tl4tfypI4oP7/wD/AFr+VJHFB/f/AP61hjEYv8eQ6IpZ2JwJyK9fPMeYfzjeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs96E0/NjR0lTzyEDympGK7a3mGyt1X6gp3FM5z8zECBwrNSb/NAXti4ob8idzKpWJrYns5Lr6hwmnsY5E7XiAeU0/iW7vZ5OhA8lOS5jv5yS4r6a1RvmsxTEKZIy2CM45nvaqc6Whba1IWkpUDkQd8VZIVvmzdinS9rs5Z7JRTo5tuRzdlrH0isR32zXCMiPb7WmPqqz2TwnoM3y6xmEx2ZziGk7yAaBnyVEhT7hNNYfuqxnsAbTwqOVGyR2hnKubKPIk5mirDEfsn3Xz5KN/tLP
+we1g+VZr8Zbk4co0VpHyUUqViOSSC84nydjQtk945uvn6TnTdjRlmtw503a4aCDqZ+ekMtI3EtpFZEneqBhq8TiNijKCfGVuCrXgBhopXNd1z4gqHBjx2ghlsNoHgHedw7bXj50m+/XWFO5ewfNkX3Q/nm+durp6297Z6OjDtfcfTp9n+cbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nvHMVMukCGkqfkIT5M92pGLgrMQ4y18C1bgqXebo+CXpgZRwIqXerQwSpx4vL8+dSMYL3osYAcJqTfbrI7J8pHAmlKWs5rWpR8poADoDdOSQSeAU7b57LAfdiuIaO8sjIUc8tyrbNwNAgsvvRy/LCBrI8tSNJRZyRbbY02jKpMhyTJekOdm4sqV5zRyPlpi3zXyAzGWfLlTOFLgoBTziGh5aVasOwxnKuGufFTS79h6LuRLfsh4V07i26u9RGYQ0P1U0tV9mbrjzmR4TlSLI4pX5V/6qbs0RPZAqNIhRUZarKQayA8FAE7wzNNxJTpybYWT5AajYXvcgZoiKA8tRdH9zc1S86hAqJo9t7e6+8tdQ7BaoeWwxEA5b5GdIQkDIDId63DttePnSb79dYU7l7B82RfdD+eb526unrb3tno6MO19x9On2f5xvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2evrcSkEkgAVc8aQIzxYioVJeByIRvCpV6vM0brgjNnfSndV9dS7naoJJde2Rzz66qmYukuZpjNBA8ZVSJsySSXn1q8me5WQ6OdA51aY8STco7MtzY2FqyWvgpy9YHsGaIcUSn0jLWyzFYhxlOvbBjLYQ1HCwpKR5OgchUW3T5ZAZjqI8Y7gqLg9ZAXLkBI8IFOPYXtA+K44P71TMcPkakNhLY8BpyVe7gc1uOZH6BTdkWd117d4BTdqiI+Jn5TSW0Iy1UgeYUEqO8Caj2a6SCA1EcOfhyqLga9P7q0ob85qPo5GQL8zzhIqNgOy
+NEFSVrPlNR8OWhhQLcNrPhIpERhvsGkJ8woIrLvi4dtrx86TffrrCncvYPmyL7ofzzfO3V09be9s9HRh2vuPp0+z/ON47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez166X2FbUkOL1ncupaTuqNTpl1u685TxYZ8DDZ9o1LvNrtaShsJUvxU/5mp+IbhMzAXsaPFTWWZzOZPCelttpuN0f2KGwpw+E+AVDwXYrI0mVfJiCobux51iKXbJdzU7bWtjj6uQTWVBIFEgVb7NOnnNtBSjwrVUTD1sgI2WQQsjfUveq4YwgxAW4iAsj6BUq9Xm6LIC1hJ8CdwUxZVq6p9w+YbppiFGY7BsZ8O+aAzOQFRLJdJf5mI4foyqHo/uLu6+6hsVEwDamdUvKW6fDwVFsdqijJmG2POM6S0hO8kCsqy79uHba8fOk3366wp3L2D5si+6H883zt1dPW3vbPR0Ydr7j6dPs/zjeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs9cUtKQSo5Ab5q6YoLwdYtp3UqyU+R1I81S5UWEFSZLubit9at1SqumJJczNtjNpr+JrLdz8PS59CyYkudjD4hFA2XstYZ1OnTLg+XpbynFnhO4OiTVlw1rBEianyoaq7X2Ham9jSElwDcbG8Kl3O53d5Q1iR4o3EiotnaRkp4654PBSEJSAEpAHAKgWO53BQDEZZT4xGQq3aO1nJUyR50IqFhe0QwNSKknhVu0ltKBklIA/mO4dtrx86TffrrCncvYPmyL7ofzzfO3V09be9s9HRh2vuPp0+z/ADjeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs9bdeQy2pxxYSlIzJNXe9vXdamWCpuEDkVbynf8A/lXS9RbW1sTaQXcupQN4eepUuRMeLr7hUr+A6aNHflvoYYbK3FnIAVZtG8NqGqRe3QDl2IOQTVxZjsXCU1Hc12UOEIVwjpDWGbMlzKa+nMA/k0msR34W5rY2
+iC+sfsio8J+c4p6QtQB3fKqmmUNpCG0ADgFWnCd0uJCtTYm/HVVqwVaoeqXEbM5wqpthttICEhKRwCsusKcSkZqUBUu/WthOS5jaeHdpjEdlfOTc9o03JZd7BxKvMaz75uHba8fOk3366wp3L2D5si+6H883zt1dPW3vbPR0Ydr7j6dPs/zjeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs9aUpKUkkgADdNX+5qusjYGnf8Agm+zy/5quDzVfL0i3tBpnIvqGSR4opa1uLU44oqWo7pPTWWxzr1K2vFAzHZKO8BUC02HB1uMh9SS6E9U4eyUeAVijGU6+OltCi3FG8geHz9LDjKly2WB8ZQz81OragQlKAyQy3uUy25c5bs2RmUlR1Bw1bbVLuL6WYzRPCfAKseDIMAJdfAee8u8KQhISAAAOlzFOyo7QzW6hI8pqTieyR+zmtk8AOdStIdna3GkuOGpOkuRuiPEA8pNScd35/eeSgeQVIvV0kElyY6fJrVm46sAkqUTkKuFvlW58MvpyUUhQ8xpmfNZILUlxPmUajYwv0fLVllXyhnUbSRdG8tlZbXUbSVDUAH4y0eao2NbC/8A/wAnU+XuVGulsk5FE1o+QGgtJ3lA96XDttePnSb79dYU7l7B82RfdDr92xVZLXrpflJU6k5FpHVLqdpPdzIg29IHgU8c/wCCakY7xK8c0y0tDwJbQkAfXmaOL8Sk5m6PfwpOM8TJ/wDU3D50pNQ9JF8ZAD7bD44SkpV/CrbpHtEjVTLacjLO+ezRUaVGlNB2O8h1B3lIII6zLnwYLevJkNso4VnKrjpKtjOsmHGckK8Cj+TRUrSTfXQQy3HY8oSVK/7qVjXE6j2yWPMlFDGmJx/6mv8AZTUXSLiFk/lSw+P10ZexlUDSdFWdWdBW3+u2dcVbr1a7mjWhy23dzMpByUPOk7vT3XFljtesl6UlboOWxN9Wqp2k93WIg29IT4FPH/JNP47xM6Tl
+MS2PAlCEgCl4uxIvfuj30ZCk4yxMnLK5ufSEmoeke/MZB5LD44VJ1VfWmrbpJtT+qiay5GV43ZoqLLiy2g7GfbdR4yFBQ6W+durp6297Z6NoxJdrO063CeShLigpWaAr7a/H/E/6U3+6RX4/4n/Sm/3SK/H/ABP+lN/ukV+P+J/0pv8AdIr8f8T/AKU3+6RSNIWJUqBL7S/IWxUfSfcARti3sL+QpSPt1qt+kGwy1JQ6pyMo/wBIOp+sUy80+2lxpxK0K3lJIIPWXnmWG1OvOJQhO+pRAAq4aQbBEUUNrckqH9ENz6zT+lCaSdgtzKODXWV/ZlT2kXEbnYmO18hv/cTTekPEiCCXWF+RTY/ypjSfcQRs9vjr+QVI+3WqBpFsUkpQ+HYyj4VjWR9aajS40toOx30OoPxkKCh1q54usNt1kuy0rcBI2Nvq1VM0n5Kyh27NPjOq/wAk0/pGxE6eo2u18hvP2ia/H/E/6U3+6RX4/wCJ/wBKb/dIrB9zmXSytypawp0uLBIAG4D1m8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ61iy6OjUt0ZQC3h+VPit1cZzFrglQA3Bqtp4TTzrr7q3XFZrUcz09lvU2zTBJiq+UnwKFX7EE6+SdmkKISOxbG8Omwm0F3Jaz8RBrFa1/g1LSd91wCrBYn7lIbjMjJtAGsrwAVarPFtkZDLCAOFXhJ6S8XmHaYpkSVZDeAG+TUnSYjLKPBPnUqpOkG+PAhGxNjyCpOIL1Jz2Wc6RwBWVOS5TpzW+tXnUaOZ3z0uC7T+Ebw2VD8mz1aq0iWfZYrc5tPVNbi/k9MlxxPYrUPMaj3u7Rstimuj6ajY8vzOWs4lz5QqNpLdGW2IYPyatWOLVcJDbGSm1r3tah3hcO214+dJvv11hTuXsHzZF90Ou3W8W+0Ri7KdCR4EjdUo8CRV+x1dLmVtRyY0fxUHq1edVEknp7fdJ9tfD0SQtpXkO4fON41h3H8WaU
+R7iEsPncDg/Nr/06Za0NoUtaglKRmSTkABWItIaElce1AKO8X1b390VLmy5rynpL63XDvqUc+nbddaWlba1IWN5STkRVg0iSo5QzdAXmv6YdmmosuNMYQ/HdS42sZhST0bve7dZ42zS3cvEQN1Sz5BV9xvdboVtsqMaOfiIPVH5SusQLjOt74eiSFtLHhSd/zjw1h3SDHlFuNcwGXTkA8OwV5+DpL526unrb3tnrltvFytbuyQ5K2z4U76T5xWHcewrgUR5wTHfO4FfEX0ylJSkqUQABmSaxBpDjxyuPbEh5YzBePYD5PDVwutwuTxdmSVuq8p3B5hvDp4U+bBeDsWQ40sHfScvrqwaRkLKGLsgIO8H0D2xTbiHEJWhYUlQzCgcwR018xFbbIyC+5m4R1DSd1Zq+Yyu92KkbJsDB3mmz7R6bR73NM+mc6zeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs9ZmyG4sd19w5JQkk0h5yS49MdPVvqJ8yBvCr9cDNnqAP5NvqUjp40WTLeDMdpTjh3kin40mOsofYW2oHIhQy6fB5G3JA4UViBObMY+AOZfXWF7S1brWyABruAKWfP0hrHt427dNrIVm1H3P73WsD2kQLQl1acnHuqPmqXHamxH2F5FC0kGrlCdgTn4zg3W1kdZacU06hxByUlQIrD92FztMd4K3dXJQ8o7wuHba8fOk3366wp3L2D5si+6HXMRYjiWOJmrJby/zbQO6auVzm3OUuTLdK1q+pI4APAOt4Rxs5BUiFcFlcYnJDh32/9U0lSVJCkkEEZgjoypUeJHdkPuBDbac1KNYnxdLvThabzaiJPUt+FflX1uwYhnWSUHGFazaj+UaPYqH+Rq0XaHdoTcqMvNJ3FJO+hXhBrEeIoljiaxyW8vcbaB3TVxuUy5SlyZbpW4r6gOADwDreEsaPWxSIk5RXEJyCt9TX+qaQtC0JWhQUlQBBBzBB6F87dXT1t72z17B+NlxF
+NwLi4VME5NvHfb8h8lAggEHoyZLEVhx99wIbQnNSjWJ8Xyru4phglqGDuI8K/KrreGsVzbI8EHN2Ko9WyTveVFQZ0WfFbkxnAtpYzB/yPSYqxYzZmtgj6q5ahuJO8geMqpUqRLfcfkOqccWc1KPT6Pe5pn0znWbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nrONZZERiGk7shwBXyRV7l7Ttryk7hI1E0M989Ma0WWdAYfubgBUs6iK0mXVEi6ogtpGTIzWfL0+HpQjXRoqPUr6k1cYu2YjzQ7LLNHnG6Kwbek3O0tpXuPsfk3U+VPSYkuyLbapEjMZhOSBwqNOOKccWtRzUokk+frOHLYq53aOxl1OtrL8wq8TG7XaH3RkNjbyR5/BWFlrescZ1w5qWMyfPWka0arjNwbTv9S51rR3d9gmOQXD1Du6jz94XDttePnSb79dYU7l7B82RfdDrd3usW0QHpLx3EDcHhUrwJFXO5y7pMdlSV6y1/UkeADydJHjSJTqWo7K3XFbyUAqNQNHd+kp13y1GHAs5q+pNJ0WvZbt2QD5GT/rT+jG6ISSzNjueRQUirjh29W0FUqC4hHjjqk/WnpcA4pLa0WqY51Cvg61HePidAkAEk5AVi/EqrtK2BhWURlR1P11eP0tswjfrlqKaiFttW8671CaZ0Xyz+eubSPkNlf2lNL0Wqy6i7gnysZD2qn6Or9GTrMFqSOBByV9SqkxZMV1TUhlbTg30rBSekw9f5Vjmh9rNTatx1rPILFXS5y7pNdlyV6y1n6EjwJHkHSMsPPuJbZaW4s7yUgqJ+gVb9Ht/ljWeS3GT/7hzV9Sab0WrI/KXcA+RnP7VCntF0kfmbo2r5TRT9hNXPBl/t2upUXZm077jJ1x/rRBHSYCxQYzyLXLX+RcOTCj8RR+L5j0L526unrb3tno4fwlMvrDzzEhpsNrCCF51/Jjdf06L/3V/Jjdf06L/wB1fyY3X9Oi/wDdX8mN
+1/Tov/dX8mN1/Tov/dUnRtfGmytp6M8R8QKIJ+sVcLPdLaoJmQ3WuAkdSfMRudLgDE5Vq2mWv1ZZ9jo4wxMq6yjGjrIiNK3P/cV43SJSpSglIJJ3gKtuBcQzsiY4joIz13jq/wABmab0XSCOrurY8zRP+Yp3RfOAOxXJlXykFNXHB2ILfrqXDLjad9xrqxRBByPSYUxK9ZJo1yTEcOTyP/MeUU06262hxtQUhaQpKhvEHoYmxAzZLep7cU+vNLKOFX+gqTIflPuPvuFbjiipSj4T0keNJlOhqOy46s7yUJKj/CoeAcSST1TDbA4XV/5JzNDRjdvDOi/91fyY3X9Oi/8AdWGLO9Z7SiG84hawtas0Z5dV1m8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ6ziV4vYhabI3GWCR5zWMXjqRWvATmenV2J81aOQBhaLWJ1LViO6FZOey9PughSTug5irLcUzoLa8/wAogZLFbafsN0RdI6SWV5Jktj2qg3FibEZejqCm1pBBHR0h3jbE5EFteaGd1flUetaPLRsEJc5xOS3jkj5IrSPdfzFvQr9ddYN7nYXyavVqTPtclhe+pHU+en2VsPutLGSkKIPWYclyJKZfbOSm1hQq1TW58GPJQcwtAPX7h22vHzpN9+usKdy9g+bIvuh1vHV9NyuhjNK/IRSUDyr+MekwxgyVeMpD5LMTxvjL+TVutNutjIahxkNp8JG+fKT0t/wHbZ6FvQwmLIyJ3OwWfKKuFumW6UuNKaLbifqI4RwjooWpCkqSohSSCCNwgisJ3v8ADFoaeWRszZ2N75Q8P01pDvpiQkW5leTsgZucKW+ktVpm3WWmNEaKlndUfAkcKjWH8F2y0oQ46hL8rfLqhmEn9QdLcbTbrmwWZcZDifATvjyg74rE+DZdmKn2Cp6H4/xkfL6fDOD5l7IeWSzEByLnhV5EVa7LbbUyG4cZKPGXvrV5z0t/wfa7whS9QMyfA8gb/wAo
+VdrRNtMtUaU3kobqVDsVDhHRBIOYrB9/F2tCS6vOQxkh7hPAr6avnbq6etve2ejox7UzvWv/ABHTrQhxCkLSFJIyIIzBFYh0exJCVv2sBl3ws/EVUmM/FfcYfaU24g5KQoZEHotOuMuodbUUrQoKSob4I3Qaw5eEXe0x5Q1QvLVdSPirFaQr8YUFNvZVk9JHVngb6Sw4dnXt/UZGo0k/lHj2Kf8AU1ZMMWmztjYGQt3LJTy91Z6W94StF4SpTjQaf8DzYAV9PDV+w7cLJI1JCdZtR/JvJ7FXSaOb+SF2l9W8Ctg+0miQASTkKxVfF3i7OuhX5FslDI8GqPD9PSYbwO/PSiVP1mWDkUI3lrH+QqDboNvZDUSOhpHAkb/nPXbx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nrN4cCsUzhwMprGI/LRD053q0YTG3rAWAeqacIIrSPbFQ7+p8DqJCc+sWq5OW6UHBuoO4tPkptxiUwFoIW04mrPdn8LTg24VLtj6v3SjUd9p9pDrawpChmFA5g1ebii3W6TKWewQdXz1IfckPuvLOalrKj9PWbZBXPnx4yB2awD5qbQzb4CUjIIZa+wVeZ6rhcpMgnslnLzVg3uehfJo1pBtG1bgmY2nJD/ZfKHWtHN4/O29xX6zfX7h22vHzpN9+usKdy9g+bIvuh1rFN1NqskuSg/lMghv5S9wHpMF4Y/DMpT8gHajKhrfrq8WkpSlISkAADIAbgAHT4kw/FvcFTbgCXkAll3wpP8AoalRX4kl2O+gocbUUrSfAR0cBXcW+87E4oBmSnUUT4FDdSav1zVdLtLllRKVrIbz8CBuJ6MKG/NlMxmEazjiglIrD9hi2SChhoAuHddd8K1dOtCHEKQtIUlQIUkjMEGsYYaNlnBbIJiPElo+KfEPS4Tw6q8zSp0ERWSC6fG4EU22202httAShIASkDIADp8QWSJeYC2H9xQ3WnPChVToUiDLfivp1XWllKh0
+cDXY2++soUsBqTk0vznsTV87dXT1t72z0dGQ/wDwcs8M1XsJ6zi7CzV4iF1hATMaT1B8ceIaUlSFKSoEKBIIO+COjo7vAiT34brgS0+2VjPwLbGdX25rut2lzDvLX1A4EDcA6Ngssi9XFqK1mE77q/EQN81b4EW3RGo0dsIbQOnnwItwiOxpLYW2sbo/zFX+yv2W4uRXN1PZNr8ZB6MKW9ClsSWTk40sLT9FYsv6EYUQ+wsa05CUI8yxmrpMCYWTPc/CMxGbDasmkHecUPD5h1+8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ6wauzurjWa2T2TQrF7BVEYd8RfWNH1+atN1cbkOhDD6ciTvAitIOJ7NdY6IcX8o62vPZfB1mx3pdvd2N0ksLO6PFpaWJUcg5OMuCrPepeFpQYkFTttcV1Kt8tVj3EDMwRosV0Lay2RRB6wELO8hR+ikQpbnYR3D5kmsA4ffYcdnSmSg5ZNg1j267TtJYQrJx85fR0MG9z0L5PQxVaUXS2PMIHVgZoPlFPMusOracQUqSciD1m1T12+exJQewWM/NVufbkxWn0HMLSCOvXDttePnSb79dYU7l7B82RfdDrWk+crWt8IL3MlPLT/2p6MeO7JkMsNJ1nHFpQgcJUchVpt7NrtsaI2MktoGf6yvCT1nSXaUNuRbk2ANf8k75xug9EEggg5EdJo1syQ2/dHUdUSW2fMOyPWcQ2hF3tUmKUjXKc2ifAsbxpaFIWpChkpJII4COilKlKCUgkk5ACsO2hu0WmPFSBr6us6eFZ3+s6SrMFMsXRpPVIIbe8x7E9FC1IWlaTkpJBB8oqbJMqZJkFORddW4Rwaxz6OjPtDK9eX7COtaRLKmHcW5zScm5WeuANwOJ6fAlnTb7K2+pI2aUA4o8CfijrOPbQmbZFvoRm7F/KJ+T8bpH7g8/AhRFdhGLmr/AIhz6NtguXCfFiNnJTzgRnwZ75qJFZhxmY7KAlttASke
+QdfvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2esGsZu7Uxow/wCAgA1c4olwH2uFOaa1SklJ3wcj05ANAAdZyqyXxyAsNO5qYJ/Zr/h5cf4rjLgqREdjqWC2oISdw+DKoNmudwbDkWOXEH4wprAuI3MjtZKfOoU1o6vK+zcaRTWjJ7/mXBP0IpnRpAH52W6rzDKmsC4fbA/IqV8o01hewNb0FqhAszB6hhlP0CjJtLQ/PMJ+qnL/AGVoHOcz9dYuvSbrdVLaVmy2NVHQwb3PQvk9G54cs09zXejJUrxvDS8B4fX/AMlY8xpzR1Yz2Knh/epeja3nsJTgpejNHxJ/1pp3RrKSCUzkHzpqQyWH3WScyhRST5qZaW86htAzUo5CnMIX9G/DJ81OYevTfZQXv2awQ1JYw5EbkpUlwFeYVvgZ7nXrh22vHzpN9+usKdy9g+bIvuh1rHzxdxNKGf5tDaB9WfRwBCTKxEytW8w2p36d4daxXBE3D9wa1c1JaLiPlN9V09lhog2mDGSkJ2NlIV8rLNR61jOEiHiOchCckrIcA+WMz0cFQTMxHCGWaWiXleZHWrzCE+1Topy/KsqAJ8CvAen0ZH/8JLHBMV7CetY5hGXhuXknNTJS8P7m/wDw6a2RTMuMOMB+dfQg+YmgAAAOsuNocbW2sZpUkpI8hqfFVDmyYyjmWnVIz4dU5Z9No2jIdvrrqgCWY6inzqIT3heO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs9YNaUYixMS+PFCh9FWGeJtuaXnmtA1VViW3bUmbMgfk3d3zHrIBJyAJPAKg4Jvs2CuYlsIQlJOS980QUrUlQIKTkQesWi9SLa5lurYPZIqNKjTWNkaIWhQ3U/wCRpsXLD0pU21EqYJzejeD6Ke0mQjEYXHjKW6odWk7moac0l3A9hDaFPaRL65vBpPmFLxviJe9L1fMKcxff3N+YqnL9eHOymu/XS581fZSXT/eNF1077ij9
+PSYN7noXyesPD8mvzGrp2xl+lV9tWntnD9Kmh2I83eFw7bXj50m+/XWFO5ewfNkX3Q61jbuouXykewOjowA/Cc88EYe11qR8He9Gr7O8dI3dF/0zfR0bd0Dnqi/aT1o7xpz84v5R6bRevOBcUcD6T9aetXxIVZrkk7xiuez02CgDie2/LX7B63ifuhuvrS+m0Y9tZ3q3/kO8Lx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nrOkO3F2C1ICcyg5HzGrLOVaLmWXCdgdNToTE+Itle8oZoVUqK9DkLYdGSkn6x1iHKXDlsyUpCi2oHVO8aw5fol6tzTzOSVZZLRwGseYJ2UuXKA2NffdbHhrdBIIII3x1iBcJVveDjCtz4yfAatl3jXFvNshLg7Js1fGGmpp2NATrJBIHD1vBvc9C+T1h782rzGrp2xl+lV9tWntnD9Kmk9iPN3hcO214+dJvv11hTuXsHzZF90OtY5QUYnn+XYyP2B0dG0hLd9daJA2WMoDykEHrUj4O96NX2d46Ru6L/AKZvo6Nu6Bz1RftJ60d405+cX8o9NoueGyXRnPdKW1gdaxM+iPYLm4pQH/DrSPOoZDpsMyhEv9seOWQfSkk+AL6knreKO6G6+tL6bRh2yn+rj2u8Lx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nrNzhImw34695aCKvdpWh5+M4MnGlEA1he9lX/AAEpWS07iCavloTcGCUjJ9HYnh8lKStC1IWkpWk5KHWLBiCXZJqH2iS3n1aOEVaLvDvEFEhhYUlQ6ocBrG+BSdkuFuR5XGhW6CQRkRvjrDTrrLiXGllKxvEU7cXbhqOOpAWlOqSPDl1vBvc9C+T1h782rzGrp2xl+lV9tWntnD9Kmk9iPN3hcO214+dJvv11hTuXsHzZF90OtaTIex3aLJA3HmMj8pB6Nnnm3XSHMyJDToUoDfKd4im1ocQhaCClQBB4QesyPg73o1fZ3jpG7ov+
+mb6Ojbugc9UX7SetHeNOfnF/KPTYLuSLdiCKtw5Nu5srPy97+PWtJVzS1bmICezfWFq8iEdMlRSoKByIOYNWK5oulqiSwRmtA1wPAsbih1rFHdDdfWl9Now7YXH0Cfa7wvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2etYzw4JrJlx0fl2x1Q8YVcIiwoPtZpdb3/orD18RcWA24rJ9A+usQ2TbSDKYTk8kdUPGFDwgjIjfHWMOYjmWKYl1oksk/lG6s95g3iGh+M4FAjqk+EVjPAIllc62pCXd9bfgVTrTjLq2nUFK0nIg9MAVKAHhpNvTq7qjnTbBZBSeHreDe56F8nrD35tXmNXTtjL9Kr7atPbOH6VNJ7EeboawrWTw1rJ4RWsnhrWHWrh22vHzpN9+usKdy9g+bIvuh1rSDbDMsReQjNyKsOf3N5XSaPsRofjC1yF5OtAlkn4yODzjrMj4O96NX2d46Ru6L/pm+jo27oHPVF+0nrR3jTn5xfyj0XraRY4lwTvKkOMr84AUOkwTiNN1t4jvL/wCKYSAvhWnwL6xNmR4UV2TIWENtpzUavl2eu9zfmObgUckJ8VA3h0bDZnrzOMVpQTk0tZUd4ZDc/jTiFtrWhaSFJUQoHwEdHAWI026WqDJXlHfVmk+BDnWsUd0N19aX02i/4bcvQo+3vC8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ60U79Y0w1tZxU6Mj8ks/lEjwGpCHoElMuOcgDmcqtF2auUYOJIDg7NNYjsfZTIqPSIH20DmOsWC/zLJLDrCzqE9WjwGsPYkt98ihxhwBY7NB3xWMcGW+5sOS0KSw+2kkr3gqt4qHASOikFSgB4aEBvV7I51YcMQrk4pt65hhz4gKd+rnhG8WoFRTthgbziKd63g3uehfJ6w9+bV5jV07Yy/Sq+2rT2zh+lTQ7EearzcRb7c/JIzKE7gqViG7yXluKlrGZ3gcgK/DN0/THfrr8M3T
+9Md+uvwzdP0x366gYlu0OQhwSVrGe6lRzBFI3us3DttePnSb79dYU7l7B82RfdDrTrSHW1tuJCkLSUqHCDV9tTlpukmIsHJKs2zwoO8ei066y4hxpakLSc0qSciCKwzjyNMS3FuSksyN4O7yHP8AQ0CCAQenkfB3vRq+zvHSN3Rf9M30dG3dA56ov2k9aO8ac/OL+UejhW1t3XBEuIs5Fb7hQeBYAIp5pxl1xpxBStCilSTvgjowJ0q3y2pUZwodbOYP+RrDmKYN8YySQ3JSPyjJP8U8I6adPiQI65Ep5LbaRvn7BwmsU4pkXx8JSC3FbP5Nvh/WV0mjuzGHbVznUAOSuw4Q2K0hWMw7iJ7STsMk9XwJc6TCOOQhLUC6Obg3G5B+xdJUlSQpJBBGYI6xijuhuvrS+m0XfCbp6Nr7T3heO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs9blR2nmVtLSFIUCFCsT4fXa5a0FObDmZQaZekWachxsnUJ3P9DVvnMT4oebyII6tPBWIbGYylSo6c2lHNaR8U0OsWu5y7XLRJjOFKhvjhFYgxxdL1HRH/Mt/HCT2VDepttbitVIoW85dnWG8GRLu2vXuQbeG82BV0wdd7Skry2wwPjp3x5xSSQQQciKw/jR6Lqx52brO9rHfFY4iWwGLNhBID2etq73W8G9z0L5PSy58OICp99CB5TUvHdnYzDZW6fIKd0jqzybhfWa/lFfIIVCT9dSiX5Lz29rrKsvPVs6i4RVKOSQ6nM0w606hJS4kpy8BrGeX4BleYdKN8eek7w6zcO214+dJvv11hTuXsHzZF90Ot43w4btBD7CQZUcEp4Vp8KaIIOR6SzYuvNp1UNPbKyNzYXM1JHm4KgaR7I+n/ikOxleYuJ+tNfj7hf9OV+6XX4+YX/Tj+6XX494X/Tj+7XQxzhj9P8A+xdDG2GeME/sqp/GOGlx3ki5IzKFADVV3jpG7ov+mb6Ojbugc9UX7Set
+HeNOfnF/KPR0cdzx9ac+wVpCw2oKN2jN5jekge30jLzzDqHWXFIWk5pUk5EVZtJMhlIbubBeAyydbyC/pFQ8XYdl5BFxaSeBw7H7VJmRFJ1kyWinhCwRUrElhiA7Nco4I30pWFq+pNXXSVDbC0W6Op5Xgdc6lFXS8XG6vl6Y+VnM6qd5KfMOkwrYF3q5JQoZR2slPK8ni+c0lKUJSlIASBkAN4AVdbZGukF6I+OoWN/wpPgIq62yVa5z0SQnJaDuHwKT4FDpLNim8WfqY7+s1/ROdUioOk23OaiZkN1k+FSCFpr8fcL/AKcr90uvx8wv+nH90uvx7wv+nH92uhjnDH6f/wBi6GN8M8YD9hVDGmGeMkfsqq/yGZN6uL7KwttyQtSFcIJ6bRaOru58jI9rvC8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ65erWxdIjrDoG6OpPAavNoXGfehyUbo3j/mKtlwlWWdqKOaDv8Ck0w/HmRw4jJbaxuir7ZVQHS80CWFn9nrTbbjriW20lSlHIAUbbJtyyxJb1HcgSngzGY6EaS/FeQ8yspWk5gisN4kj3ePsTuQfSOrQfDWI8EsyguTASG3t8t/FVT7D0d1bTrZQtJyKTTzrpaS2VkoBzA63hJwpw9CA8Toawq6X63WxBL7w1vAgb9XXHk6QVIiJ2FHD8an5UmQsredWsnfJPTQ7tcYSgpiStPkz3Kk4wXcLRIhy0AOEDVWKHSDfFJ3h1m4dtrx86TffrrCncvYPmyL7odcxtg5S1OXO3tEqOZfZT7ae/NI3dF/0zfR0bd0Dnqi/aT1o7xpz84v5R6OjjuePrTn2CloQ4hSFpCkqBBBGYINYvwk7Z3jJjgqhrVuHwtk/FPXLRaJl2lpjxkZnfWr4qE8Jqy2eJZ4CIrA3BurWd9auE9HFGG417h5HJEhsEsu/5HyGp0CXAkuRpTRbcRvg/aO8dFn/AKz/ANP/AOfeF47cYZ9de+7Od5Yi
+7n7z6hI92agfAYnoUez1zKsV4eRdIhcbSBIbGaTw+Sp8APpWy6ChxBOqeA1ZLzItUosvA6meS0/5iv8AhpcbwLZcFXqzuW1/NOZYWepVwdZ0XW1iVcJslxIJjpRqededY/tjiJqZyRmhwAKPAQOjFlPxH0PMrKVpOYIrDWJWLswELIRISOqTw+UViDDUO7tFWQQ+B1Lg+w1dbXMt8hTEhspUN4+AjhFaqhWR6ABNBrhNbEK2IVsQrYhWxCrfjS5QYjUZttspQMhnX8oN2/omqfx5e3W1ISW0Z+ECnn3n3C464pajvknrw3xSd4dZuHba8fOk3366wp3L2D5si+6HXcU4DanF2Zbsm3zura3kL/0NSYsiI8tmQyttxO+lQyI760jd0X/TN9HRt3QOeqL9pPWjvGnPzi/lHo6OO54+tOfYOg42262ttxCVoUMlJUMwQaxNgF+MVyrWC4zvqY31o+TwiiCCQRkR1nD+FLlenEqQjY42fVPq3vMnhNWeyQLPFDEVvLwrWeyWeEnpb9hy33tjUkJKXE/m3k9kmr5hq52Vw7O3rMk9S8nsT/oe8NFm9ef8D/z7wvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2eumsb4aUQbjGb9KkfbVwgiWgEbjqOxPD5DWHr8uC8Y8nPYyclDxTTrUeXGKF5LaWncNXa1PW2RqndaV2C+saLrk1GucuMtQG2EIy86KucKLPiuRnEAoUKvlmkWmYtlwZpO6hXCOjGkvxX0PMrKVpOYIrC+KI11Qlt5QQ+kdUnxqvVng3dgtOt+DqVjfBq92GZaJBQ6nNsnqHBvGo8hcdwOJCSR4CMwaMh92SreOso7gGQFJTkO+Bvik7w6zcO214+dJvv11hTuXsHzZF90OvXSy227NBuZHSvLsVbyk+Yirro0mNkrt0lLqP6NzqVVNs11gqWJMF5vV31FJ1frG53xpG7ov8Apm+jo27oHPVF+0nrR3jTn5xfyj0dHHc8
+fWnPsHSXvCNovAK3Gtiey3Hm8gfp4aumj6+RCtUYJlNDwo3F/smn40iOvUfZcbV4q0lJ/j0iUqWoJSkkneAGZNWzBmILjkpEQtI8d7qBVn0eWuEQ7NXtpwHMAjJsfRSUpSkJSAABkANwDp1oQ4goWkKSRkQRmDV40dWyWVOQXDFcJJKd9urjgvEMAayoheR47PV/w36cbcaWUOIUlQ30qGRHXdFu9ePOx/594Xjtxhn1177s53liLufvPqEj3ZqB8BiehR7PXnEJcSUqAIIyINYvwoYTi5cRObJOa0j4tXGBs6dkbADqf+4VhvEBjqEWSTqZ5bvxTUqKxMjlp0BSFDcP+Yq521+2yC24M0HsF+A9PHkPRn23mllK0KBSRWEMTs3yCnWUBJbADiKvdmjXaIpl0ZKHYL8INXK3SbdKXHfQQQdw+AjosvOsOodaWULScwRWFcZNTkCNJKUSN4E7y6nwI1wjLYkNhSFCsSw3bXc3oCFa+R6kjfINSMOps9kjPPDOVJIJ/VTwd8jfFJ3h1m4dtrx86TffrrCncvYPmyL7od4vWSzvkl23RlnhLaaXhTDizmbVH+hOr9lLwhhpe/a2fozFHA+Fjv20fvHP9a/EXCvFv/2u/wC6vxFwrxb/APa7/uo4Ewrxd/8Aa7/uoYEwrxef3rn+6vxFwrxb/wDa7/ur8RsLcWj965/uoYJwvxan9tf+tDBmGOLG/wBpdJwlhtO9a2PpBPW37fAkL13ojDisstZbaVH+Nfga0cWxP3KK/A1o4tifuUUxAgx167ERhtWWWshCUnL6Ot/ge0cWxf3SK/A1o4tifuUV+BrRxbE/coplhhhGoy0htOeeqhISP4dM8wy+goeaQtPiqAUP40/hLDcgZLtbA+QC37GVHAWFifgKh5nXP9aZwZhhlQUi2Nn5alrH1KJqNb4ET4PEZa8qEBPXX4sWSkJfYbcHAtIV9tO4Ww66MlWqN9CNX2aGC8MZ9rEftL/1o4Kw
+ud+2I+hax/nX4i4V4tH71z/dX4i4V4t/+13/AHV+IuFeLf8A7Xf91fiJhXi3/wC13/dX4i4V4t/+13/dX4jYV4tH71z/AHUMEYW4tT+8c/1oYLwxxYj9tf8ArQwfhob1ra/jUG1263hwQ4rbIXlragyzy7wvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2evvNNuoUhaQoKGRBrFeFV29xUqMkmOo7o8SrjA1832dxwb48asM4h1QIklXU7yVHfSamwo82OWXkgpI3DweUVcrc/bny25upPYL4R09pusu1TWpUdZCkndHgIrDt/iXyCh9ogLAycR4UmsQ2CPeIpSQEvJGaF1NhSIMlxh9BStJ6KVKSoKSSCN0EVF0gTottW04xszyU5Icz+2rDs16xTHXKOutbuuqtIjB2nEcA6lK8u+Rvik7w6zcO214+dJvv11hTuXsHzZF90P6muSorfZyGk+dQFNyGHfzbyFfJUD3/eO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs94PModbU24gFKhkQaxVhdy2uqkMJJjKP7NXCAcy+wOqHZJ4aw1iILCYkpXkQs/YamwmJrCmXk5g7x4KuVsftz+xujNB7BfgPT2G+zLLORIYUcvjo8ChVlvUO8QkSY698dUnwpNYjw6xd45IAS+kdQupcR+G+th9BStJyI6TCymY2IITyshmrVJ89Xu2ouduejnfIzSeA1LiPw5DjDyClaDkQe+Bvik7w6zcO214+dJvv11hTuXsHzZF90Oty30xokh9W800tZ8yRnWzSpUnddWpx1zh31KNRWEx4rDCexbbSgeZIy63KmRIbJelSG2WxvrWoJH8ah3KBOZL0SU0+3nlrNqChn1ifeLVbigTZ7DBV2IcWEk026262lxtaVoUAUqScwQfCCO95lwgW9rZJcpphGeWs4oJFRJkSYyl6LIbebO8tCgofw7xxTpEttlLkWKBJljMFIPUNn9Y1dsZ4juql7NPcQ
+2r/ktHUQBTcSY8krRHdWPGCSRQLjStwqSoHzEVY9IeIbU4kOyFS2N4tvEk/Qqor+2IzD+oU7I2leqd8awzyPWMYTDCwxd3wspUI6kpPlX1ArDjL02/WuPrLIXKbzGfgBzPSE5AmrlcH5lxmSS6rN59a9/wAY51hqJtPD9qY3c0xWyr5ShmejepogWifLyz2GOtYHCQKjCVLlMsIcUXHnUoTunfWcqYaSyy00neQgJHmAy6zeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs94yY7T7S2nUhSFDIg1ijDLtqfLrSSqMs7h8Wp8FSFGQwPKpIrDeIkvJTFlLyUNxCzUyGxMYUw+nNJ3jwVc7W/bXy2vdQewXwjp8OYil2Oal1pRLZP5RvwEVabtDu0NEmM4ClQ3R4QaxNhpi7MFaAEyEjqVcPkNSYz8V9bLyClaTkQeiFFKgoHIg5isLYqYnsojSVhMhIy+XV8w3Cu7eaxqugdS4KuGDbxDUdVrZUeBSaNruQ34bv7Jr8GXH9Ee/ZNfgy4/oj37Jr8GXH9Ee/ZNfgy4/oj37Jr8GXH9Ee/ZNfgy4/oj37Jr8GXH9Ee/ZNG23D9Ee/ZNKStCtVSSDwHro3xSd4dZuHba8fOk3366wp3L2D5si+6HW9IU1UTCdxKTkp0Ja/eHI1gqGmZim0tKGaQ+HD/hjX65pRlz3cSKYe1gw00jYB4CCMyqtENvnIXcJqgtMZxtKEcC1A9LivGUHDW1UvMLecezIQggZJTVjugu1rizwwtkPJKkoUQSBnl0LzKnS7rMdm6wfU8rXSrfSQex+itHdvnQMMR25YUla3FrShW+hCt4d76RJU5/FM5EnWCWiEMpO8EVolgTo1vuEl4LSy+tGwpPh1Qc194aRMbrt6VWq3O5SVp/LOjfaSfAPKaw3hq44imlpjqW0nN59W8gH7TVhwPYLMhBRGS8+BuvugKV9HBQAAyAqfZrXcWS1MhMvJPjJGY8xq+6KgmYw
+9a1kx1vJDzKjutoJ3Sk0kBIAAyAGQ6xpamFmwRo4Vls8kZjhSgZ1oshh/FAdKcxHjuL8xPUdJi6YYWGbu+lWqoRlpSeAr6kVZ4YnXaBFPYvSG0K8xO7QAAyHR0mz9qYVkNjspLiGh7RrAcAzsVW1HxW1l1XmbGfWrx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nvKVGZksuMuoCkKGRBrE2G3bS+VIBVHWepVweQ1PhKZUZDAOWeakj7RWHMRIfSiLJXkreQs1LiMymVMvpBSf4VdbS/bX8ldU0T1C+nwziWXYpqXEEqZUcnG6tdziXSG3JjOBSFD6qxNhlm7MFxsBMhI6lXD5DUiM9FeWy8gpWk5EHopUpCgpKiCN4irRjqdESlqUnZmx4fjComNrI+BrOls8ChQxHYlDPbbVfjDYv0tqvxhsX6W1X4w2L9Lar8YbF+ltV+MNi/S2q/GGxfpbVfjDYv0tqvxgsX6W1V6bwtdGiDJZbd+KtNSWNgfca1wsJOQUN49cG+KTvDrNw7bXj50m+/XWFO5ewfNkX3Q63pgmlMG1wwdxx5bp/uDIe1WiKGHb3OkkfmY2Q87h6D77EdtTjzqG0DfUshIH0mpWPsIxV6i7q2o/8AtpU4PrQDVuxdhu5FKYt0ZUtRyCFEoUfoXl0k7E+H7eVplXOO2pO+jWzX+yMzTekbBy1BIumXnacA9mod/sk4hMW5RnVHeSlwFX1dCVeMKPK1JU63LKCRk4tslJHnplTSmm1NFJbKQUFPYlJ3ssqkSY8VpTsh5tpsb61qCQPpNO6QsHtOls3RJPCltak/WBVuvNquaCqFNZf4QhQJHnFfjDh9pSkuXaGlaSQUl5IIIrFl7Ve75Kl/8rPUZHA2neq03rDsG1wYhvMHNlhCD+WRvpFbdhmLtvbLW19XW2XWGplw50i5YUky2yiVbnJClAIIU2pZJ3gOjcMU4etxWJV0YQpO+gK1l/UnM1Fx/hGS5qIuqEn/
+ANxK2x9agKZeZfbS6y4hxChmlSSCD5iOjKlxYjRdkvttNjfWtQSPrNL0h4PQ7sZugJ4Q24U/WBVvu1suSCuFMZfA39RQJHn6EmVGitF2Q+202N9a1BI+s1I0hYQYcLarqlR4UIWsfWkVbsQWW6fArgw8cs9UKyUB5Und6Eu522AUJlTWGCvPV2RYRnlwZ1EnQpranIslp5AVkVNrCgDwZincb4UiytrO3RvZN45BSkjzqAIoYnw5xzC/fIptxDjaHG1hSFJCkqBzBB3iOhMudug6m25jDGvnq7IsIzy4M6iXe1zSsRZzDxQM1BtYVkPLlT95whIUlT8+2OKG8VrbURQyyGW90J1+sttzEy4R2SB2KljW+qmtImD3HNQXQA8Km3Ej6yKiTYc1rZYslp5GeWs2oKH8OhKmRIbWyypDTKPGcUEj+NPaQ8HsuFs3RJPChtax9YFW6+Wi6fAZ7L5yzISrqh5x0CQKl42wpAVqvXVor4GwXfYBq24sw7c1JREubK1neQSULP0LyPRxJeG7LZZc5WWaEZNpPxlncAppubd7mlAJckynt8+FSzvmrDZIditjMRgdiM1q8K1nfUellzYcJsOSpLTKCrVCnFBIz4MzUO82ma4Wok+O8sJzKG3AogcOQq54sw7a1FMu5NJWDkUJzWsecJzNWvFmHrssIh3Fpbh3mzmhZ8wVl0LhjXC9uXqSLo1r55FKM3CPPqA1asRWS7/AZ7TqssygHJY86Tkehpcl694gRAdxmMV/S4a0U7TgW26XCW80yhx5DSVuKCR1Azp/SFhBl0tquqSeFDa1j6wKt16tNzBMKcy/kMyEKzI846GlmaWcPMRwr4RJSD5UoBVWjKEJWK461bzDTjv8NXpNME/NVrgg+O8v2RWiGAXLncZx3mWA2PO4f9E9avHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2e85sJiWwth9AUhQyIrEeHH7RIO4VMKPULqdCUwsvsdjnmpI8H
+lFYdxEmQhEaSvq95Cz4akxmZLKmXkBSSKu9nftrueRUyo9Svp8MYnl2KYFJJUwo/lG6tlziXOI3JjOBSFD6qxPhhq6sl1oBMlI3D41SYz8V5bLzZStJyIPTbtbtbtbtbtbtbtbtbvXRvik7w6zcO214+dJvv11hTuXsHzZF90Ot6VZhfxMGQrMR4yE5eVWa60SQw1Y5ckpyL8nf4UoFYpxNDw7b9mWNd1e4y0DkVmrjd79iWckPLdfcUr8mygHVT8lIprRni1xorMRtH6qnU51c7VcbTKMabHUy6BnkfCOEEVowxRKuLL9tmOFx1hAW04d8o3iDTzzTDTjrq0obQkqUpRyAA8JrFekOfcnHItucXHh72sNxx2rLgHEd4bS+2wllle84+SnOrpovvFugSZi50NSGG1OLGawck1CjrkzYrDfZuvIQnzqOVTpDcG2yZDh/Jx2FLV5QgZ0229LlobSM3HnQkeVSzUyXFsVkU86cmokcDz6oyAHnq53a9YquqE5LcW4vJiOjsUeb/ADNHRdisMhzYo+f9Hso1q0dYduttxBOXNhuMqaiFKSreJWfAav2Br/a4ki5TTH1AsFWq5molaqtVslXWexCihJddJCczkNwZkmv5KsU//wBT97WMwLJo+Yt6lDZChiOMt4kbqq0ewVTMWW7czSyVPK8yBTrrbLa3HVpQhCSpSlHIADwmsWaQJ1yddjW51TEMHLWTuLd/0FWvBWJbqyl+NAVsSt5ayEA/XU7AGK4TS3V24rQnfLSgv+ArRBGkhN2eWtYbCkNhsk5a++Tl0L3do1mtcma92LSMwnxlHcA+k1OuF9xXdkg67zriiGmU9igeSl6LsVpZDgaYJ8QO9VWjLDt0t17uTk6I4wWmA2Aobiis57hrGGLI2HIAVkFyXcww1/5HyCnpGIsV3Ld2aW+reQnsUD7Eiv5McWbDsm12c/E2Ua1ET7XOIOyR5LC/MpKhWD74b5YYstZBeGaHwPHTWmFw
+GfaW+BhxX1mrVfLo3ZnrHbmnC7Lkla1N5lRTqgagApzAWLm0a5tDpHkUhR+oGrpAct1wlQ3OzZcKD5xWCntmwpZlcEYI/Y6mlKSlJUogADMk7gArGWIHb/e3HUFRYbOxR0eTh86qtFobwngm4yngBLcjKW4eBShkhFWeEqfdYERO+9IbR9BNAACsb6RX9mdt1nd1EIzS7JG+TwIq14bxDfS49FiOvDPNTyzkCflK3zUjRxi5hBVtAOZDPJDiSa0XwZqcUupXszOwR1qdbOaMz2IChWMcYMYdiBDQS5MdB2Js7w/XVWWIsVXE5B6W+f2UD7Eil6McWJZ2Ta7JPiB0a1NOz7XOC0KcYksL8ykqG+DWGLyLzYoU9WqFrRk6BvBaTkqsdYyk3KY9AiPFEJpRQdU/niN8nyVb9G+KJ0ZL4YbZSpIUkOr1VEGouB8RQ73bG5cBexrlNguIIWjIKzOZHR0v3Mldutqd4Avr9lNaJrVti8yZ6gCmK1kn5bvQeeZYbU486htCd9SiEgecmvw7ZONYf75Ffh2ycaw/3yKjy4kpJVHkNOpByJbWFAH6K0wzDnaYYV47qk/wFWmbdo7jzVtU6HZCNiOxDNZTnnkMt2k6N8XLYU8YSQd/ULidc0C/GfBBW262vypUlST/AAIq44xxRidMa2xGnB+TSlxDPZOq3ipR8CalaPMUxYTkt2GnUQkqWkOJKwBUCdJgTGJcdwodaWFJINRn0SI7L6OxcbSseZQzrHMvbeK7s5rZhL2xj/DARVpwliS8soVFhOFgHqVrOojd4M6m6MsUxGC8GmHshmUNLzV9RAqHMmW6W3IjOrZfaVuEbhBHgNYZvCb1ZIU7cC1oycA3gtO4RWlyVndbfEB3Go5X9LhrD+Jbhh9996ElkrdQEEuJ1shX8q2KeCJ+6NfyrYp4In7o1/KtingifujV+v8APv0xMqaW9dLYbAQNUZAk1oogFjDrsk78mSoj5KOp61eO3GGfXXvu
+zneWIu5+8+oSPdmoHwGJ6FHs96T4MadHcjvoCkKFYhw+/aZKkKGsyrsF1NhLjL2djPU3yB8U1h3ESZCERpKxr7yF0+w0+0tp5AUhW+KvNletzhWgFTCjuK4OnwtiiXYpYIJUws/lG6ttzh3OKiRGcCkKH1VfMOQrs0ddIQ6OxcFXfD9xtbhDzZKPA4N495MxpL5AaaWrzCoWDb3KyJZ2NJ8K6i6Ov0iX9CRV5wxbbVZJbrSSpzIdUrpRvik7w6zcO214+dJvv11hTuXsHzZF90Ot4lmGbf7pIKs9eSvI/qpOQrBsRMHCtpby1f8Ahw4rzudXWMr4u9X6XIC82UKLbHyE1o7wwzarS1MdaG3JSAtRO+hB3kjoaX4zRtFukH84iXqDzLQSfZrRYXPxrRq721ndetKuIHEbBZ2VFIUkOv5H9lNaNcKtXaY7PloCo8ZQCUHeW50NJswRsJyUa2RfdbaHtGtHsMysW23qc0tKU6ryBArSLPTDwnPGfVP6rKP7xrAsAzsVWtvwId2VXmbGtWlUuDCuSd4y2gusDXyFZL+3KmIJaU2psrAzLZV8aodwgzmEvxZLbzat5SFA9DS7NS3aIETPq3pBX/dbFaKIKn8RuycupjxlH6V9SOhphnJztMIHdGu8v2RWiCCVzbnNO820hoedZzrSve1x2ItpZXkXk7I/8gHIJrRvhdm8XFyVKQFRouXUHeWs7w6LbDDSnVNtISXFayyBkVKyyzPQ0tKeGHIwR2Bmo1/2VVgG/wACx3svzU/knWS1sgGZbzIOdRZ0OYwl+NIbdbVvKQoEUSEgknIAZk1iW9O3q8ypiydQq1Wk+K2neFYSveCbBammRcmi+tIU+5qKzK6/H/CPGqP2VVpCudsud/21AeS42qOgLWARmoVojSoYelk7xmq9hNaT5xlYqeb8EZltoe2farRRYmmrc9dXEguvrKG/IhHQ0lxBHxbMUN55Dbv1pyrRhLD+E47fhYedb/jr/wCd
+aUMSGBbU2theT8tJ2TyNVo2w1t+ebnIRnHiq6gHeW7/+taVJwj4ZDHxpMhCPoT1daM4CpeK4znxYza3leyParSPf3LTYS2wrJ+WrYkEHIpTvqUKwdh/8P3tmKs5MoBceP6iaYYZjstsstpQ2hIShCRkAB0HkxI5emrQhKktHXdyAOondyJ4BV8uz94usqc7ubIvqU+BCBvJFYZv+B7Da2orNzbK8gXnNRWa11+P+EeNUfsqrHk+23HEciVAcStpbbeagMs1AZVo9D7eBJS0ZlZVJU39VRXksymHlthwIcSpSDvKCTnkaseJ7NemErhyUa+QKmVHJaPOOk0lSlv4umpO8yhptP7IVWiBoCzXJ3xpYT+ygdDSYZS8NmNGjOvLffQkhtBWQlPVV+A71xXM/crpaFtrUhaClaSQpJGRBHgIrRnFREwow5l1ch1x1XsitJcwycWSkZ5hhttoe1Wiy1xmLBt8sI2d91z8r4dRJyy6GJX2n8Q3d1rsFzXik8I1jWArPGtuHIK0sBD8hlLry/jK1t0VNebZhyXXOwQ0tSvMBSEKWtKEjMqIA85oBFttIBUAiLF3T5G00pTsmSpRzU465n5SpRqFHTFhRY6RklplCAPIkZdDH8ViLi26NsjJJWhZHlWgKNaKAsYZcJ3jLXlWO5hl4suy9bMId2If4YCawpo5tF1sMSdLdkpdeCjklQAyCiBR0TYc/SJn7aaOibDn6RM/bTS9FGG0JKjImZAeOmn9i2Z3Ys9j1zqZ7p1c9zOsKQPwfh21xiMlCOlS/lL6o9avHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2e9bjbo9wirYfQClX8DV+sUi0yVNOJzbV2C/ARUyEuKsvM/m88yB8WsO4iTIQiNKX1e8hdONodbU24kKQoZEGr1YnLesutAqjk/s9Ph/ElwscgLYWS2T1bZ3jWH8WWu9No2N0Id+M2rfqQ0w+2W1NhSDvg+GrrgGHJ1nIRLS/F301
+cMMXeCTrxypPjJ3RRBSciCD1yLbJ8sgMRnF+UCoGAbm/kX1paH1moOBrPGAU9m6ocO9Tlyw7aEEF6O1l8UZZ0dI+HtmDSHFk+AkZCl4ldfUhLKAEqI6qsUMOv2CQltJJ1Aa3ukQCpSQBmSaRvdZuHba8fOk3366wp3L2D5si+6HWrzI2jZ7hKzyLMZxY84FQY6pc6LHG+88hH7ZyrEkn8H4bubzQCS1EWEeQkZCrdG23cIUYnLZn22/21AUkBIAAyAGQ6Gl+4oKrZb0rzUNZ5af4JrRBb3DNuU8o6hDIZSryqIUaxTO2/iK6yPAqSsJ+Sg6orAUIQ8KWxOQzdb2Y+dw59DTDNGdphhfjuqT/AAFaH4ZVOuksp3EMoaB+Wc60wTgI1rhDfU4t1XmSMhWiKAXLtPm/FZYCPpdNXS3xLlAfhymwtp1ORH2EeUViDRnercpx2EDMjjxfzoHlTVru9xtEtMiG+tpxJ3QN5Q4FDwisP3RN2s0GeEamzNZlPAoHI1panJfv0aKk/B4wz+Us51ohglu2XGYR+efDafM2OhpMnCViuShO9HbQ1/DWNaK4Co2GdnVvyX1rHmT1FY+kqkYtupJJCHA2PMhIFaMWG2cJRlgAF511aj5lavS3e1Q7tb34UtGs04PpB8BHlFX/AEbXy2FbsVG3I4zOaOzA8qas97uVllpkwn1IUCNZPxVjgUKvN5EvAEu4tAo2eDvcBX1Bq1W1+63GNBYKA68rJJWchvZ1/JNiT+nhftq/21/JNiT+nhftq/21/JNiT+nhftq/21hWzrsdgiQnSguNhZcKd4qUomr5NVPvNxlk57LIWoebPcrCsFMDDtqjgZERkKV8pY1lfxPQ0vwyi622V4HY6kfS2a0W3KPCw7enX16rcd/ZV+Yop9y4YrxGSlP5WU7kgeBCB/kkVZ7VGtFtjQY6ckNIAz8Y+FR85rS9MQZtsgp322VOr/vnIezWh6CrO6ziNzqGU+0a0uSVLv0N
+jPqWogI861GtD0ZAhXaTl1SnkN/QkZ9HSBIWxhG6KScipCUfQtQTVmtMm8XJiBHUhLrutkVnJPUpKq/kmxJ/Twv21f7a/kmxJ/Twv21f7a/kmxJ/Twv21f7aw3aVWmxQYDmqVNN5Ly3iokqNYq0XuuPvTLMUZLJUqKep/YNPx7ha5pbeQ7HkNKB8KVJPgIrRziiVe7e+zMJXIilILvjoVvE9HSNHcZxfcSoZBwNrR5QUAVofmtGJdIRUAsOpdA4QoZdF51LLLrijklCCo+YDOpL7kmS8+s5rdcUtR4So5mrNERAtFvijcDMZtB84G6au0szbpOlFWezSHF5+RSs6w1D2lYLXGKdUojI1h+sRmau0pEG1zpSjklmOtf7IzqMw7LlsMNjNx51KE+dZypltLTTbad5CQkeYDKsezzBwpc1jsnEBkf4h1TWEIO38S2pg9js4WrzN9Wa0gTDEwnclBWRcQGh5dkORrBcPbmKbQ1q5gSA4fM31fQWtDaFLWoJSkEqJ3gBV+uJud5nzMyQ8+oo+TvJ/hWG4RsmFIjTg1FMxlOvZ+BRzWqn3XJD7rqzmtxZUo8JUc6tMVEK1QYqRklmO2j9kZdHFU82/Dt0kg5KTHWEfKX1Iq0wjPukGGP8AnyG28+AKORNAAAAbw61eO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs97XW1xrjFXHfSCCNw+EGr3ZZFqlLYeTmg9irwKFTIa4i9mZzLZO6B8WsO4iQ+ERZK8lbyF0tCVJKFpBSRug1fLAuGVSI4KmDvjwpoHMdMy88w4lxpxSFDeIORqxaS58QIano2dsfH+NVpxdZbkgBiUgKO+lW4a6had8EGpmHrTNz2aKjPhAyNS9HttWSWH1oqTo9uKCdheQsU/g++tf/wAbW81LsF5RvwXv2SaNpugO7Bkfu1V+DLl+gyP3aqFruZ3oMj92qm7BeXOxgvfSkio2Cb2/lrNBseU1E0dIGRkyj5kVFwtY
+IAClNIJHxlmp2LMN2sFOzt5j4rYq5aVDupgxP7y6uOLr9cCrZZi0pPxU7lLW44c1rUo+U51lVjvkqBKZSpeuyVjWSfBTKkPMNqGRSpANSsDWSS6XS3qk7+rX8n1j4FV/J9Y+BVfye2PgVUPBtmgvh1trWWN4q8FAZdZuHba8fOk3366wp3L2D5si+6HWtJ8va+FH0BWRfebaHtn2a0dw9tYtt+acwzrun+6KxXCdnYcusdoZrXGVqjhKd0CmHnI77TzZyW2tK0ngKTmKw/iO13uG07FfRshT1bJI10Hyir7iuy2Rha5MpBdA6lhBBcVVwm3HEd7W9sZW/IcCW207uQ3gkeasKWBuw2aPD3C72byh4XFb9XFh2PPlsOg67b60q84NYFxRapdhgRVy2m5MdoMqaWoJOSBkCM6u2MMPWppan57Slp/5TZC1k+YVizEKsQ3dc3YdjQEBttOeZ1U1otimNhgvHfkSFrHmT1FaUZyZOKFsp3ozCGz5z1daJoBYw+/KVvyZJI+SgZVAx5YZVxmQXHtrusvrbGykBLmqcs0mnpDDDKnnXUIbSM1LUQEgViSbGn3+5SoyQGnX1FGQyzHD9NYRgO27DdriujJxDGaxwFZKiKxtI2xiu8L8WQW/3fUVo4Q0jCFv1FA5lwr8iis0SACTV3mCfdZ0sbz0ha0+ZRzFYbgqgWC1xVDJTcZAX8ojM1jqMuNiu7JUD1b2yDzLGdaMsU21FrTapT6GXmnFFrXOQWlZzqTPgxW9kkS2WkeMtYSP41+P1mfvES2QCZTrzoQVp3G0jfJz6Npx3Yp0uTDW8I7zTy2wHCAHMlZApNSJMeMwt995DbSBmpajkAKvcpmderhJjIybekrU2MstxRqfZn2NGzlvIzdbgAqA8ZJDhFWi4LtlzhzUDMsOpXlwgb4qz3q2XeIiRCkocSQCpIPVIJ8ChUmZEhtFyTIbZQN9S1BI/jTePbNKvMS1wCqS465kp1O42kAEmsRz
+lQLDdJSDktuMso+URkKtMMTrpBineekNoPmUcjQAAAAyA6Gl9jWtNtf8SUU/tppi5y2LfMgtryZkrbU7wnYs8h5t2tF+GNpQjdpLeT8hOTP6rXQ0hT0zcV3BSDmhopZH9wZGtGcAxMKx1kZKkOLdPsitLMZbeIY7+R1HYicj5UE1owxNBtjsuBNeS0h9QW24o5JCgMiDS5kRDWzLkNJbyz1ysBP11d9ImH4BDUZ3bj6txKGTmnM8K60gxnJOEbmlCSSlKHPoQoKNYfuv4IvUGfqlQZdzUBvlJ3FVabpbrnETIhSUOoIGZSd1JPgUPAalzoUJvZJUlplHjOKCR/GouO7RPvbFrgBT5WVa728hISCavGM7TZrxGt80qRsrWvs2+lGZyAVUeVGlMpeYeQ62reWhQUD9IrSrdbfNusNmK4hxcdtYeWnhUexrRDbnmrfcJyxkh9xKEeUN9HSzYXHWo13ZSVbENif8id8Kqx3qZZLizNinq0bikneWk76TVm0h4buTILktMV7Iazbx1fqNKxLh1KQo3iFl6ZFYxx/YjaZ8GDKL77zKmwpsdQArcO7WGISZ2IbVGUnNC5SNccKQczWKZe0cOXZ9KtUpirCT5VDVFWSJt28W6NqlQdktpI8hVu9DSXOTFwpKRnkqQtDSfaNYAhKmYstgAzDSy8ryBsZ9DS9PLdtt0If858uK8zYrRNAD9/kylb0aMcvlOHKtMEwJt1riBW64+pwj5Ay/zrRJFDl+lPnL8lFIHnWafkMRmlOvvIbQnfUshIH0mseaQGJjDtrtThU2rcffG4FDxUVo+wqu7XBM6Q3/AMHGWD6RY3k1j6YYmE7ooHIrbDX7whNYVhpm4jtLChmlUpBUOFKTrHpNK84sYcajp35MlKT8lHVVo1gbbxXFWexjoW8foGQ63eO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs973m0RLpGWw6j5KvCDV6skq1yFMPozSexV4FCpkNcVeyt
+ZlvPMjwprD2IkvJRGlL3d5C6UAQUqAII3R4DV9w+Y5VJiAls7q0eLQOfTpUpBBSog8Iq3Yuv1vy2KYopHxV9UKg6VpSMhKhpX5Umoekuwv5B3ZGj5RUfFlgkZak5v6TSLjAc7CS2fMqg60rsVpP00CiiU05JjNjNbyB5zUvE9jijN2c15ganaTbKxmGEOOmrhpQurwIisIZH7VTb/d5yiZExxWfgzyFEk756ay4/vNrjpYBS6hPY62+KgaT5j2YkRNXgUDVrx9Gkv7FKBaBPUq8FMuocSFpWFJIzBHXLh22vHzpN9+usKdy9g+bIvuh1rSdaL5dhbGYENx5tBcW5q5b+4BWjLDF0tc24SbhCWwSyltoq8pzPQxfozmGU9NsyErbcJUuNvFB/UpeH780spVapgUP/AGV1bMB4ouJzTAWyjwuP/kxWFMDW7DyS8VbPLIyLxGQT5EDoY30dyLlMcuVrKNmc3XmVHLWPCk0vBWK0O7EbNJz8ic0/WKtGiu8Pq2S5uIiMgZkBQW5UkMiS8GNYtbIrY89/Vz3M6w3CVAsFrirGS24yAscCiMzWIMKYsuN7uUsWh4pdkLKOx7HPIVhW2LteH7bEcGTiGQXBwLV1RFX/AANiaDLecVDXJQtxRDrAK88+EDdFN2LEb5Sym2TlbuQSWl5Vg/Rm/HlNTryEZtkKbjAhW7wr6GO8H3hm+TJsaG4/HkulwFoFZSVbpCgKhYfxQ8sMxrdOGsfEUhP0k5Codsm2rBO0mWSuWiEsagIJLzgJP8TVuwFiZc+Il+1uoaLyA4slOSU57p6GOcFDELTciMtKJjKMk57zifFNTMK4jhOlt61Ssx4UtlaT5inMVEwriOY4G2bTKzPhU2UJ+tWQrBOjuXaZ7NyuLyNlbCtRlG7kVDLMnoKCikhJyOW4avOBsT259ZXCckIKjk6yC4D5wN0U1YMRyVIZRbJqt3IAtrAH11g3Rs7ClNz7xqa7ZzaYBCgDwqPQxVoy
+nsyXZNnb2ZhRKixnktHkHCKFkxAw5uWychQ4Glg1Cwdiy6OblukfLfzbH1rrBejw2OYi4TJKXJAQQhtA6hBVWkCLdZuHnIdvirecedQFhPgQk61YGwbe4uJIkq4W9xllkLXmrLsssh0ceWqRdMNSo8Zkuv67a20jhCqw9o9vL92ji5wVsREnXdKiOqA+KMqSkJSEpAAAyAHQm4OxfLmyZKrO9m88tZ3U/GOdWeD+D7VAh55liOhBPlSMjWLMLxcQWzYFr2N1s6zLuWeRq54LxLbXSh22vLHgWykuIP0ppjDeIH1hDdomEk/0KgKw1oyubcyNMui0MpadQ4GQQtaik55GloStCkKAKVAgg+EGsT6MbnFkOv2lsyIxzIaB/KI8nlpNlxAyvqbbOQryNLBqDgrFl0XmLe+nhW/+T9usFYBOH5JmyZQdkqaKAlAyQjOtI2EL9cLoq5RGhIZ2FCdjR2aNWk2XEKCUJts5Oe+A0sVh/Rpe7i425ObMONvkr/OEeRNQoUaDEZixmwhppAShI6Ljbbra23EJWhQIUlQzBB8BFYj0UyQ8t+yrStsn4OtWRT5lGpGGcQxnFIdtEsEcDSlD6xTeHb+6oBFpmk+hXVu0ZYpllBdYbjIO+XVjMDzJrDGj22WF9Exby5EpGeq4epSnMZHIVpEhXSfh/alvjLeW4+jXSnxE7tYDwje4OJI0ufb1stMtuEKVl2RTq9DSdarzdY9tj2+E4+lLi1uFOW4cgBWjTC13tlzmy58RbGTAbb1st0qPQ0kWPEV4vMcw7c67HZjgBQyyKlEk1ozw7Ns8Cc7OjqZffeACFeIgVpDwjiC93FmVCQ2602wEBBWEqzzJO/T2GMSRXCldpmJUPCltSh9aaaw5iea4lCbZNWfBroUB9aqw/ooluOJdvLoaaGR2BtWa1ec1EiRocdqPHaS202nJKE7wFaS7bd7na4UW3xXHv+I13AnwBKa0eYRvEC/7buEBbKGmF6ilZdmr
+c6TSbaL/AHeXb2oMB15lltSipOWWus1oywxcrU/cZVwiKZWpCG2gr61dbvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2e+LtaI1ziqZfR8lXhBq9WSTa5KmXkZoPYq8ChUyEuKvZWgdj8I8WsPYiS6lEaUvyIcP2GiPAQCDV+w9qa8qGnqd9bdA59a3a1l+Ma13PHP11sjnjq+utkc8dX11rr8Y1mTv8AWBmd4U1DdXukZCm4bSN0jM00y44oIbbKifABnVqwPdJmqt7Jhvy75qz2Zu1x9iQ6tflUeuXDttePnSb79dYU7l7B82RfdDvTHd5RasOTFZjZX0lloeVdYUtRuuILfF+JsoW58hG6f6sXjtxhn1177s53liLufvPqEj3ZqB8BiehR7PfN2tMS5xlMPpz8VXhSavljk2qSpl5OaD2K/ARUyEuMsutA6hOZHBWHcRBxKIspfkQ4fsPQv2Hs9aXDTu762+vMRpMgqDDK3Mt/VGdKSpCilQII3wenShazklJNNQFHdWcqbYab3k1Dt02asIjsLWfIKtej51Wquc8E/qJq3WK2wEgMR0gj4xGZrLrtw7bXj50m+/XWFO5ewfNkX3Q7xxLefwHZZE9LSXC2UAIJyCipQFQ9LtlcyEqDJZPhKcnBUvSthplrNhMl9fihGp9ZVWJcS3DEU8PyOpQnMMsp3kA1o3wou0QVz5bZTLkjcSd9Df8AVi8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ76ulri3KMth9AIO8fCDV9sUm0yVNOpzbPYL8BFTYK4yi8yDqE5qTwVh3EaVpRFlL8jaz9h6F+w8HgqVETksbq0cNbuZBBBG4QetmsBQbIi1ociKQ46tP5UnfBrGeAky0rnW5IS8BmpvxqdZeYcU282ULG+k9I2w64epTTUBI3VnOkNoTuJTVsw3dbiRsTCgnx1bgq14Ahsaq5iy6rxR2NRocaKgIYZShI8AHeFw7bXj50m+/XWFO
+5ewfNkX3Q7xxZhsYitqYZlqY1XQ4CE6wJAIyIp7RHfUqOxzYi08JKk0xoivilgPToiE8I1l1h3R3ZLM4mQvOVITkUrcG4g8KU/1ZvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2e+7pa41xirYfQCCNw+EGr7YZNpkqbdTm2rsF+AipsFUdReZB1N9SeCsOYjS4ERZS/IhZ+w1uir7h9MkKkxU5OgZqT4FUc0kpUCCDkQet2a9zrNJD8VfnT4DWGcVwb7GSUkIfA6ts1i3BMa8tKeYAblDePgVVwtsy3SVRpLRSsfxpuI6vfGQpqG0jdO6aaaWtQQ2gkneAFWzBV1m5KdTsKOFW/VqwZaYISot7K4PjLpDYQAEgADvK4dtrx86TffrrCncvYPmyL7of1tvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2e/LnbYtxjLYfQCkjcPhBq/2CTaZBQ4nWaV2C/AanQFsEvsZlO+pPB5RWHMSJWERpS/Ihdb1XywImgvsAJfG+PAqlpWhakLSUrSciD1uFKmRH0vRHFIcBzBFRtIskW9AdiAyQMirPcq63aXdX9lkkEjeAG9UWBLlrCGGVrPkFWvR/Ic1VznQgeInfq22K2W9IDEdIPjHdJrId6XDttePnSb79dYU7l7B82RfdD+tt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez37cbdGuEZbEhAKT/AAq/2CTaJJSoFTR7BdT7cWyX443N9SB9orDuJRkiNKXubyVnwVwEHzGr1Y2bggutgIkAbh8anmXWHVNOoKVjfB6whlxzsUmmoAG6s5+SkNoTuJTVuw/dLioBmOrV8c7gFWrR/FaCVzXC6rxBuCosGLEQEMMpQPIMu97h22vHzpN9+usKdy9g+bIvuh/W28duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ7+uNujT4y2H0BSVD6qxBh+TaJBBBUyo9Qup9uKSX448qkCsO4lLYTGlKz
+b3grwpoEFIUkgg7xFXazx7k1u5JeT2K6lRX4j6mX0ZKH1HpWojrngyFNQmkbp3TTbalEJQkk+AAVasGXWdqrWjYWz4VVa8F2mFkpaNmXwqpDCUJASAkDwAd83DttePnSb79dYU7l7B82RfdD+tt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez3/PgR50dbD7YUhQrEOHpNnkncKmVHqF1PthUS/HGS/jI4fKKw9iVcUhiQSWf4pptaHUJW2oKSRmCKuNsjXFgtujJXxV+EVPt0m3vFt5O58VfgIpKVKOSRnTUFxW6s5Cm4zTe8mosGVLcCI7KlqPgAq16Ppbuqua5sSfFG/Vrw5a7eAGY6c/CtQzNZDvu4dtrx86TffrrCncvYPmyL7of1tvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2f5gnQI82Mth9AUlQrEOHpNnkHcKmFHqF1cLbs2bzAydG+nwKqw4hegr2J3MtZ5KQd8V+EoRZS6l4FKhmKudwZmNFnYQU+AmkNIQMkpFW+w3S4KAYjqyPxjuCrVo+YRqrmulZ8RNRLdEhthEdhDafIO/rh22vHzpN9+usKdy9g+bIvuh/W28duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ/mGdBjzGFsPoCkKFYiw5ItEgqGamFHqF07Djuvh5TY1/tpDajkhCCeAAVa8H3afkot7E34y6tWCrVC1VugvODwqpphtCAEJCUjwAZVl3/cO214+dJvv11hTuXsHzZF90P623jtxhn1177s53liLufvPqEj3ZqB8BiehR7P8xTIbExhbD7YUhQoaOnNur13tWPnmnhIq24btVvSNijgqHx1bpoAAb38xXDttePnSb79dYU7l7B82RfdD+tt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez/Ue4dtrx86TffrrCncvYPmyL7of1tvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2f6jztFeKXJ9w
+fbdt2xvTH3kazywcnXCsZgINWSG5AstshulJXHhstLI3iW0BJy/rbeO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/2a3jtxhn1177s53liLufvPqEj3ZqB8BiehR7P9mt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez/ZreO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/2a3jtxhn1177s53liLufvPqEj3ZqB8BiehR7P9mt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez/ZreO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/2a3jtxhn1177s53liLufvPqEj3ZqB8BiehR7P9mt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez/ZreO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs94qlxUK1VSGgrgKgDQIO8f7I7x24wz66992c7yxF3P3n1CR7s1A+AxPQo9nr+LMUxMOQA4sa77mYZaB3zwnyVecWX28uEyZiw3nuMoJS2OhFnzobiXI0p5lY3ihZT9laN7zcrvZX3p8gvOIklAUQAcgkHvG9S5QvFzAkOgCW98Y+Oa0crWvCNvUtRUSp3dPpD0GJ8GQ4ttiWy4tHZJQsKKfOB0y58FD6Y65bCXlbzRWkLPmHe2ld99vEkcIdWkbRb3iR8ddbcl/pDv7Zrbkv9Id/bNbcl/pDv7Zrbkv8ASHf2zVhh3K83WNBakPDXVmtWuepQN8002lppttOeSEhIz4B0+JZUkYjvYD7gAuEgABR/pDWjda14RgqWoklb3vDWkRa0YOuqkKII2H3yagS5RnRAZDv55Hxjw96PvsR2y4+6htA31LUEgfSaZfZfbS4y6hxB3lIIUD9I71xxJkoxZd0pfcADwyAUfFFaJXHHLFOK1qUdun2E/wA73jtxhn1177s53liLufvPqEj3ZqB8BiehR7PX8eXR244nuBUvNDDhYbHAG60a4OgSYYu89lLx
+U4RHbVupATuFRFJZZSjUS0gJ8UAZVcsKYeuSCmTbGCfHSnUX9acjVgw/DsEeTHiOOFlx8uALOZGYAy7xvfbm5+uPe2a0bdx9v+U97w1pRdmsYZG1ioIXIQl9Q8Qg1b35kebGdhqWl9LidjKN/WpOeqM9/KiQASTkBvmrPj+xXi5NQIqZOyua2qVIAT1AKuhelSmrPcVxE5vojOFofrhJypbji1qWtalLJzKicyTWBpUx7CtuclqWp0oVkV75QCQnvWTbLbLcDkmDHeWBkFONpWcuDMivwBYuKYX7hFfgCxcUwv3CKuUDDVugSZj9qhBtlsrV+QRVxmbdnSJOxNthxZUG0JCUpHgAArRjhv8AB1rNxfRlIlgFIO+lrrGJu6S+fOMn3hrRp3HwPlve8NaR+4y6/wCB75NQPh8T06Pa700qvzFYl2J1S9hQwgsp8G7vmtE788X55loqMZUdReHgHAe9cd91149MPZFaIe0M/wBePsJ/ne8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ6/iZhcfEV4aVviY6foKiRWi69RJNiTbtcCRGUrNB31IUcwodOq72pK9RVxihXAXUg0haFpCkKCgd4g5jpHpEdhOs8822OFagn7aautseVqtT4yzwJdST0rtztrKtV2dHQeBTiUn+JpmTHfGbLzbg4UKCvsq99ubn6497ZrRt3H2/5T3vDTzLL7S2nW0rQoZKQoZgjyg1Ewzh6DJ2zFtjDboOYWE7o+TwdDHVyTb8L3FeeS3W9hR53NytG3dlbfM97pXRdwlhp6Ttly0Ri7nmTqbhPlFABIAAAAGQHReuNvYOT01hs8C3Ep+2mZ0KR+ZlMufIWFfZ0rrzLKNd11CE8KiAP401c7a8rVanR1q4EuJJ69pVxJsz7dmYX1DRC5HlX4E1gnDqr7e2mlpzjs5OPnwao+L9NJASAAAABkAOitaEJKlqCRwk5CvwzaNbV/CUTPg2ZFIWhaQpCgoHwg5j
+o4m7pL584yfeGtGncfA+W97w1pH7jLr/AIHvk1A+HxPTo9rovXO2sK1Xp0dtXApxKT/E0zIjvjNl5twcKFBX2dFSkpBKiABvk1+GLRrav4Si58GyopC0LSFJUFA7xBzHSPPssIK3nUNoG+pRCR9ZpiVFkAlh9t0cKFBX2dNcrNarohKJ0Np8J7HXG6PMat9otdrbKIURphJ39QZZ+c9Fx1ppOs44lCeFRAFJu9pWrVTcYpPAHUmgQQCD0XpDDCdZ55DY4VKCR/Gm7ra3Varc+Ms8CXUk9cx33XXj0w9kVoh7Qz/Xj7CekJAGZpd3tKDku4xUngLqRTMiO+M2Xm3BwpUFfZ0hIFLu9pbVqruMVJ4C6kU1OhPbjUplfyVhX2dItxDaSpawkDwk5CheLSpWqLjFKuAOooEKAIIIPSPyY0ZOs++20nhWoJH8aZkR30a7LyHE8KFBQ/h1l+fBjHJ+Wy0eBawn7aYlRZAzYfbcHChQV9nSKWlCSpSgAN8k5CjebODkblEB9MimpMd78082v5Kgr7O8Lx24wz66992c7yxF3P3n1CR7s1A+AxPQo9nr+kfBUiW6bvbmStzVykNJ3zl8cVHkyYj6HmHVtOoPUrSSlQNWTSxcI4S1dIwkoAA2VvJDlWbEtlvTRXClpWR2TZ6lafOD0L32mufqb3sGtld/pFfXV0xTiG/bFF13NiCAhEZkHJQHCBuqNP4YxFHZLz1olobAzKi0rcqzYgu1lfS7CkrQArNTZOba/lJrCeJI2ILWmQ2nUdR1D7fir6GNdITkJ9222lQDqM0vP7+oeBFH8KXaUVZSJb6vlOrNTLLeIKAuXbpTKfGcaUkfWawvjy62R9tDzq5EPcC2lnMpH6hNRpTEqOzIZWFtuIC0KHhChmKnzotuhvSpDgQ00nWUaxNj+8Xl5aGHVxYm6EtIVkVD9cirfYL1chrQrc+8nxkoOr9dPWzElhdS+uNLiKG86AUj9oU66486464oqWtR
+UpXCScya0bdx9v8AlPe8NaSSRhGcQfjte2Kww44cSWQFau2Ef2xWkSHNmYadZhsOuul5shDYJVkDU+z3uC0lydBlMtlWqFOoUkE/TUOLLlyEMRGXHXlZ6qGwSo5DM5AV+LGK+KLh+6XVmaeZwzAbeQpDiIDaVpVuEKCKU67mfyit/hrDZJw7Zfm+P7sVcrjEtcF+XJWENNJzJrEeP71eHVpZeXFi7oS22SCR+uaiWq6TszEgSX/RtqX9gp6NPgPJ2Zh+O6DmNdKm1DyjOsH6R5sN9qHdni9FUcg8rdW35z4RQIIBBzFaXlKTarZkT8KPs1Yr9LstxRNZyWtKFpAWTlmpOVPv3/EMouLEqY7wISpernwBO9UmJLhu7HJjusuD4riShX1GtHONZhnN2m4Pl1t3MMOLOakr8UnrmJr6zYrPJmryKwNVpHjOHeFPvvypDjzqyt11ZUpR3ypVYGw6LHZG0OJAkPZOP+fwJ+jo41xw3YUpiREpcmLGe72LY4TU+63W6vhcuU8+snqQTmBn4o3hSrDfEtbKq1TA345ZXlVrvd1tD4chS3GiFZqQD1KsvGTWC8Xs4jhrC0BuWz+eQN4jwKT0MTd0l8+cZPvDWjTuPgfLe94a0j9xl1/wPfJqB8PienR7XQx7juc7OftlufLLDKihxxByUtY3wDUKy3i4pUuJb5L6RvqQ2VCi3ebNJCy3KhvDeJCmlVAWtyDEWs5qUygk8JIrGOLo2HISckhyU7mGWv8AyV5Ku1/vF7fK5kpxzNWaWh2Cfkpr8Xb/ALCXvwRN2PxthXlVov13ssgOQpK28lZqbPYK+UmsI4ojYgtYfACH2yEPtcCuEeQ1iuHtjDV3bHZCI4pPnQNYVhu5qgX+1yVukIRJRrkneQTkqsWYll4huSykr2q2ohhryeMfKawpbVXC9tQVAp2diQkZ5jdDSik/QRSly4sgpUtaHWnMiM91KkmrLdUXKzwZqQAXmUqIG8FeEdDSzey5
+OiWxl05Mp2R4Dx1b1aKLS5Juci5OlRRGRqI8q11pcWtOIYWSj8AR7xdaH1rVOu+aifyLfQxxj/8ABLirdbQlUofnXCMw3UudcrpIC5L70h072sSo+YCnLLeW29kctktKPGLKwKw7iG9WqdGRFmOIbLyQpknNBzPinoY2x+u3vOW21kbOncee3w2eBPlpSrpdpRUdsS31fKcXUyyXmEjXlW2UyjxnGlJH1msMY6u1jebQt1b8TcCmVnPJP6hO9UKXHmRGJMdYW06gLQrhB61jvuuvHph7IrRD2hn+vH2E9JjO6XeZiG6Q1Sn3GkSlobZBOqAk5DqRSML4jcbLibNNKfQrpl+bb5Ou047HfbOWYJQpNaPMXvXyM9FmEGWwAdf+kR0MVYqhYchBaxsj7mYaZByKvKeAVecU3y9ur21LXsajuMIJS2PoqLg3FEtoOM2iQUHeKgEe1lVzsF6tAbXOgusBZyQo7xPnFaPL5eF4lt8NdwfXHWHAptaypOQQT0MbY2aw80iPHQlya4nNKT2KE8Kqn3S7XiQFSpD0hwqOqjdIBPgSkU7h6/Ms7M5aZqG/HLKwKseKLzY3kqiSVbGD1TCiS2r6Kw5fot+tbU1jcz6lxvPMoWN8VpDjF/CVxI7JrUcB+SoVgy9ptGIYsp91QZAWl3zFNX++z7/cXJDpWUAkNNDdDaK0VbIjFC0nMAw3Mx9IrS0tab/EyUfgafaNaHlrVIvOaifybP2q6GllRGGo5BPw9v2F1gNxw4utAK1fnVewehpEWtOL7kAsgfkvdirdi67WyzP26G5sezPlxb2+sAgDJNJtV8nBcpMCa+CSpTobWvPylVRpUyDIDsd5xl1B7JJKVCsBYpXf7YsSMttxyEu/rg7y+hjXHjNh/wCEiJS7NUMyD2LQ4VVPu16vcgbZkvyVqV1De6RmfFSKbwNixxAWmzvgfrZJP1E1Ott0s8lDcth2M9lrJz3DlwgitFN3uk565sy5rz6G22yg
+OKKsiSev3jtxhn1177s53liLufvPqEj3ZqB8BiehR7PeF/wJYb2VOLZLEgnMvtbij5xvGr5ozv8Abgt2MkTGR4W+zA8qajyJMOQh5h1bTzas0qSSlSSKwFi83+EtmSQJscDX/XT49XvtLdPU3vYPQwnYLZaLVFMVgBx1lC3HTurUSM+hpSw1GgPx7pFQEIkLKHkD+k3wqtGV0XCxMyxmdjloLSh5QM0msWXVVpw9cJiFZOJb1Wz+us6oqFFfuNwjxkEl2Q8lGZ3d1Z3zVkscCyQW4sRoAADXX8ZavCpVLQhxCkLSFJUMiCMwQaxxZG7LiKVHZQEsLAdZTwJXWie4uSLDIirPwV/JHyVjOtLt3cSYFrQ5klSS+6n+CawHhxF9vQS+nOMwnZHhw8CabbbabS22hKEJACUpGQAHgAFLQlaSlSQpJGRBGYNXdtDd1uLaEhKEynUpSN4AKNaNu4+3/Ke94a0l9yE75bXtisL90tj+cI/vB0NLnc9D9eT7Cq0bd2Vt8z3uldB78y78g0rfNYa7nLJ83x/ditLt4cL8G1NuEICNmdTwknJNYBw01fbxlIGcaOkOOjxuBNNMtMtobabShCQAlKRkAB4ABV1tNvucJyLMYS42oeHfB4QfARV4trtrukyC4c1MulOfCPAa0c3Ry44XjbKsrcjrUwT5Eb38DWmDtTbPWj7NYRtcW7YigQpWtsLilFYByJCElWVRIcWEwhiKwhppAyShAyArSLaWJ+GZjqkDZYo2VtfhGW+Ktjxj3KE8N9uQ2v8AZUD0ky62uCpCZk+NHUoZpDrqUEjyaxr8ZsN8eW7/AOS3/rX4zYb48t3/AMlv/Wo8mNKZQ9HfbdaVnquNqCknI5HIjpdJGIzdbwYbK840MlA4FObyjWjXD237r+EHkZsQ1Ap4FO+DoyX0R47z6+xbbUs+ZIzq5T37jPkzHzm484Vq8mfgHkFaPsKRLZaY055kKmSWwsqUN1CVbyR0NKOGYhgG
+8sNhDza0h/IdmlRyBNYOuq7XiO3vgnUU6GnBwocOXQxN3SXz5xk+8NaNO4+B8t73hrSP3GXX/A98moHw+J6dHtUc8jlUgOJfeDmeuFqCs9/POsJXC0yrBB2gtGo2yhCmxvoWBuhQp6Ow+0tp5pDiFDJSVgKBHlBpCEoQlCQAlIAAHgArF13cu2IJ8gr1kBwttcAQg5CtG2FokO1MXR9pK5UlOugkdg2d4DoaWLBGbZjXdhtKFl3Yn8vjZjNJrRfcXYuJkMA9RKaWhY8qRrg1OQFwpSTvKZWD9I6GALDFt2HobxYTtiU2HXF+EhW6kVqIzB1RmN41pLs34OxG4+23kzMTsqeDX3l1ojuwdgTbasnWYXsqPkLp55thl151QShtBUpR3gEjMmrxcXbpdJk1zsnnSoDgHgH0CsH2cWbD8OMfzhTsj3y17pFaXe6GF6gj3i60PfDrv6FusQ3M2qyXCcACplklIO8VHcFLW/KkKWoqcddXmTvlSlGsJYUg2G3NDYkmUtAL7pG7n4o8g6F3wrZLsUuPxUB9BSUvoGqsapzrEtzVarDcZqMtdpk6mfjq3E1GYkXCcywk6z0h4JBV4VLO+asNgt9jgNRYrSQQBsjmXVLV4VE0pKVpKVJBSRkQd0GseWRizYhfYjjJl1AebT4oV4K0ST3H7LMirWSIz/UeRLg6MmVFiMl6TIaZbBAK3FBCRn5TX4zYb48t3/yW/wDWvxmw3x5bv/kt/wCtQ7nbZ+ybTnR5Gplr7E4lzVz3s9UnpMd91149MPZFaIe0M/14+wnpGLdAjuvOsxWkOOrK3FhIClKPhJrMcNaW7XGDUC5tBAWXCy6R4cxmmtGz62sXQgDkHEOIV5tUmiQASaxVenL1e5coqJaCihgHwNp3q0ZYTiohIvMtlK3nSdrhXxEDcz856GmDtVa/WlezWjruxtf+L7pVLWlCFLUcgkEk+QVeLk9dLnLmvHNTzhV5h4B9ArAmFotntMd9bSTM
+fbC3XCN1IVuhA6GlWwRoU2LcY6EoEoqS6kDIa6fDWiKe6i6zoOt+TdY2TL9ZBrFwzwxefU3fs6GFbDEtFliMIYSHVNpW8rwqWRWojPPVGfDlWlzugiepp9o1oc+E3r0bP2q6GlruZj+vt+wusBd11o9Kr2D0NI3dhcv8L3YrRbhy1z0y7hLZDy2HghtCt1A3M8+hpatLEa4wZ7SAkyULS4AN9TdaJHlJxFJbBOS4aiR5lCrtcEW22zJqxmGGVLy4chvVNmSJ0x+VIWVuvLKlHymsEYUi2S2tPOtAzHUBTyyN1OfxB0NLnb6F6mPaNaHfhl49C11+8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ7y0s2GKwIl2YbCFuu7E9lvKOWaTWjqU7HxbbwhRAd121jhBSTV77S3T1N72D0LV2sgerNeyOhpSS2cKOlW+JDRRWECRiiy5fpjX21pWUoYZSAdwym86YQ+t1KWErLnxQgEq+jKtrX/APoZ37K62tf/AOhnfsrpy33hw5rhy1HhLazWiONKjs3kPsON5rYy10lPjVpRWpWLXwd5LDQFaHQgC9rO/wDkB7XRvfbm5+uPe2a0bdx9v+U97w1pL7kJ3y2vbFYX7pbH84R/eDoaXO56H68n2FVo27srb5nvdK6D35l35BpW+aw13OWT5vj+7FaSlqVi6aCd5DQH7NaHUI2G8r+Prsj2ujpHCBjC5avA17sVofKvwZdB4BJR7NaYO1Ns9aPs1o67sbX/AIvu1dDGHctevU3KjfCGfSJ+3pNMPbG1err9ro6OO4y1f4/vldJj3En4Esqw0vKVIzbZ8nCqosV+ZJZjsIK3XVhKE8JNYdsrFktEaE1lmhObi8sitZ3yeji9xbeF70pByO03B9YypIBUkHezpsANoA3gkdDGKELwtegve2o4fpAzFRiRIZI3w4nL6+hibukvnzjJ94a0adx8D5b3vDWkfuMuv+B75NQPh8T06Pa6GO9Hst6W
+/dLUjZNkJW+x4QrhRTEm52mWVNOPxZDZyOWaFDyEVhnSnKQ61GvIDjZOW2UjJaflCnXUriLcaUFAtFSFA5g7mYI6CI181E6jM3VyGrkleWVbWv8A/Qzv2V0uFe3E6q401Q4ChZrA8C4M4rtLjkR9CQ6c1KQoAZpNSvgz/o1fZ0LF2ktXqbHsDoaTbKJ2HVSW0Euw1bIPkby6wJdvwXiaC4pzVaeVsLvmcrSddzAw4thHZzF7F5kb6q0f2X8K4kjBY/JR/wAu5/c3h0NLvdDC9QR7xdaHvh139C3Wk4qbwlICfjvNA+bPOsNJCsQ2gHe24z7XSaUVLGE3gneL7QVTKXlOoDIWXCepCcyrPyZVta//ANDO/ZXW1r//AEM79ldOW+8OHNcOWo8JbWa0RxpUZ287Ow60FJYy10lOeRV0dJ3chL9Kz7fR0N/+vf8ATf8An0mO+668emHsitEPaGf68fYT0b7eoditr0yQdxG4lI31KO8kVeseYiurjn/FrjsneZZJQAPKRumo2H8TT0pcZt0x1KhmF6qsiPOauVivttYS5OgvstFYSFLHUlVaPO7C1+dz2DV7eVHst0eT2TcN5Y86UE9CzsIj2m3MoACW4rSR9CR0NMHaq1+tK9mtHXdja/8AF90qsULWjDd6UgkEQX/YPQ2tf/6Cd+yutrX/APoZ37K6cg3pwAORZigOFCzWjWDOYxVHW7FebRsLoJUggb1Ys7mbz6m77NDfHR0ud0ET1NPtGtDnwm9ejZ+1XQ0tdzMf19v2F1gLuutHpVewehpG7sLl/he7FaH+1Nz9aHsdDTH8Hsvy3/sTWifuoc9Sc9pNaTH1tYRmBJ/OONIPmKqsbaXb1bG1DMKlsg+YrHR0udvoXqY9o1od+GXj0LXX7x24wz66992c7yxF3P3n1CR7s1A+AxPQo9nr7ONrKLvLtUp0Rn2XSgFZyQvzGgQQCDmD0NLl5YWiFam3ApaHNmdA+LuEJrRrBdlYriOJ
+HUR0LdWfo1avfaW6epvewehau1kD1Zr2R0NLl6YU3DtLa83A5s73k3MkitHFuXNxVDWOwjBTy/oGQrH1vVPwrcUI7NtIeT/hnM1Zriu2XWDNTn+QeSsgeFPhH0ioUyNOisyozgW06kKQodGPJjyUFbDyHEhRSSk5jMb4rS5BLV7hy/ivxtX+82a0VXhiFeZEN45CY2kIP66Og44202txxaUISCVKUcgAPCTV2dbdulwdbUFIXJdUlQ8IKiQa0bdx9v8AlPe8NaS+5Cd8tr2xWF+6Wx/OEf3g6Glzueh+vJ9hVaNyBjG2+Z73Sug9+Zd+QaVvmsNdzlk+b4/uxWlm3KYvkaYANSQwB/ebrRbe2LfeX4j6glMxCUpUTkAtG8Og44hptbjiglCQSpROQAHhNYmuiLrfrhNQMkOOnU+QnqRWjC3Kh4XbcWghUl5b30diK0wdqbZ60fZrR13Y2v8Axfdq6GMO5a9epuVG+EM+kT9vWlrShKlrUEpSCSTuAAVjHEKr9e35IJ2BH5NgfqDw+c1opw3rLcvUhG4nNuMPaX0l0ibdtk6L/TR3G/20kU42tpxba0lK0qKVJO4QRuEGsG3xq9WGI8FgvNoDb44Fp6GlC8Mw8PLhhzJ+WoJCf1EnNRrDFuXcr/bYyd4vpUvyIR1SuhibukvnzjJ94a0adx8D5b3vDWkfuMuv+B75NQPh8T06Pa6DL7L7SXWXUONqGaVpIIPmIq7WG03hktToiHOBWWSx5lCr9bU2u8z4KXNdLLxSlXkrR1Jdk4RgF06xRsjY+SlRAq929Vtu8+GQRsL60p+TnuGtHl+j3PD8VjX/AOIiIDTiPInsT0dtRts7W2ZGzahXsefVaoOWeVSvgz/o1fZ0LH2ktXqbPsDoOtIeacaWM0LSUqHCCMjV4tztpu0yEonNh4pB3iRvg1i/Eir69bVf0MNtK+DZVDNZFaL7LtCwGWsZOzVBfmQncT0NLvdDC9QR7xdaHvh139C3
+WOIKp2FbqyhBUsNBxIG/m2QuoUpyHMjSmwCtl1DiQeFJzq13GNc4EeZHWFNuoCh5Cd8HyjoSpkWI3skh9DSMwAVkDMnwCsbQFz8LXVhCCpYa10gb+bZC6tc5VuuUOYkZlh5DmW9nqneq3TYs+ExKjOBbTqApJHRjy4soOFh5DgQsoWUHMBQ3SOtY77rrx6YeyK0Q9oZ/rx9hPR0xPrDVmY+IpTyz505CtG9thz8TspkpCkstLdSg7ylJ6Gl15kWCGyXE7IZyFBHhICF1o87sLX53PYNXGOJNvmRzvOsOI/aSRSkqSopUMiDkRWELq1dMPW99CgVJZS24OBaBkehpemxFRrdES8gvpeK1Ng5kDKtHXdja/wDF90qpTCJEZ9hYzS42pCvMoZVJjuRpDzDqcltOKQocBScjWE7/ABrzZIr6FjZUISh9HhC0joolxnH3I6HkKdbAK0A5lIO9mKxZ3M3n1N32aG+OjpdQRfYSvAYg/go1ogltt3W5Rj2TrCVJ/wAM9DS3KjixRYxdTsxmIWG/DqhKgTWAu660elV7B6GkbuwuX+F7sVof7U3P1oex0NMfwey/Lf8AsTWifuoc9Sc9pNaQYapeErklPZNpS6P7igTUCTtSdEk5Z7C8hzL5BzqLJZlxmZDCwpt1AWhXCD0NKk2JKxAylh9DhajhDmqc8lZk5Vod+GXj0LXX7x24wz66992c7yxF3P3n1CR7s1A+AxPQo9nr+P4E2Pia5POx3ENPO6zayOpUMqtuJL7a9UQ7i+2kbyM9ZH7KsxUrSFi6SyWl3IpSd8obQg/WBUePOuMsNstuvvuq3hmpSifCawNhMYetylP6plv5F0+KPAir32lunqb3sHoWfSLiS1MNsB1t9pG4lLySogcAIINTdK+I30FDDUaPmOySkqV/3UyzcLrOCG0uyZLyvKpSifCTWB8KjD1sJfyMt/JTx4OBAogGscYIl2eW9LiMlcBxRUCkZ7Dn8VVWLFd7sRVt
+KTk2rfaWNZFHS3iItBIiwgrxtRf+6rpjDEt6OxPzXNRW4GWhqA5+RO/WjqDLg4XjtSmFtLLri9RYyOSjWMMOIxBZ3IwKUvoOuws+BQ/1qXDm22WtiQ04y+0reO4QR4RUPSZiqKwhkvsvBIyCnUZqq6YmxJiFxDD8h10KOSWGk5JJ+Snfp9h2O+6w6gpcbWpC0nwKSciK0bdx9v8AlPe8NaS+5Cd8tr2xWF+6Wx/OEf3g6GkS0u3PDMgMglxhQeSnh1d+oE6Tb5jEuMvUdZWFINL0t4jLYSmLCCvCrUX/ALqd+DuejP2UrfNYa7nLJ83x/disU4eYxBaXYayEuA6zLniLFXS0XG0S1R5jC2nEncPgV5UmrdpHxTBYQyJLbyUjIbMjWNXrG+Ir0zsEmUEsnfaaTqA+esHYKm36U2682puCg5uOHc1/1UU22hptDaEhKEpCUpG8ANwCtMHam2etH2a0dd2Nr/xfdq6GMO5a9epuVG+EM+kT9vWtKOJDBtyLWwvJ+WnNwjfS0P8Ad0GMQXyO0hlm6S220DJKEuqAAr8Z8R8czf3y6/GfEfHM398urfiTEC58NCrvNKVPtggvKyIKuhpEwPIMly7W1krQvdkMoGZCvHFWq83OzydsQZK2V+HgV5FA7ho6VMVFGrrRQfGDVSZV0vU/XeW7JkunIDLMnyACsA4QVY465cwDbjwyy39iRwdDE3dJfPnGT7w1o07j4Hy3veGtI/cZdf8AA98moHw+J6dHtUvsFeY1bcQX2wyXBElOskLOu0oZpz8qVUrSvics6gbhhXjhs5+1TLM+6z9RtC35Mh0nhKlKOZJrDtpTZ7LCgAglpvqyPCtRzUa0i4LeuoTc4CNaU2nJ1vwuIHB5RUOdcbTMD0Z12O+2cj4D5lA/Yaj6WcRtoydYhunxihQ9k1P0k4pmNKbEluOg7+wI1T9ZzNaKYlzXep1xfaeLS4ikbOv46ytJ3zUr4M/6NX2dCx9pLV6mz7A6
+Olyz7HMhXRG88nYXPlI3RVhta7td4UFJI2Z0BR4EDdUaabQ00htCQEISEpA8AG4Ohpd7oYXqCPeLrQ98Ou/oW+hjrBUmzzHZcVorguKKgU7uxE/FNWTE97salbRlFCFdk2oBSD9BpzSlixackux0eVLVR5V7vt4iF1yRLd2ZJy3Vaoz3chvAdDHWCJVqlvTobJXBcUVHVGewk+A+SrHii9WJZMGSQg9k0oayD9FHS3iLYshFghfjai/91XTGeJrxk09NWEHc2JkagP7O6a0ZW+bBw2USmFtKclLcSlYyOqQB1rHfddePTD2RUO8XWC2puJPkMIKtYpbcUkE8O5X4z4j45m/vl1ZsR392721ty7TFIXLZSpJeUQQVitJlgkXWzNPxkFbsRZXqAZlSFdllVuuEu2TmZkVzUeaVmk09pYxKtoIQ1DbV4VhBJ/iadjYhvbc26uofkIZTm68d4DPeFWy5SrXPjzYqgHWVZpzGY4CDWBcaXLEc2a1KYYbQyylSQ2Dvk+UmtImDJUSc/dYTJXFeOu6EjMtL/wBDVmxDd7I6pyBKU3rdknIKQrzg1L0kYskslrbiGgRkS22EqqXbbsmIi5S2XQ2+6Upcc33FZZk7u6a0dd2Nr/xfdq6GkbBMiQ+u725krUR/xLSd8kfHFWu8XSzStnhSFsuA5KHgPkUDTWlvEaGylcaEtXjFCx9iquWkPFNwbLZmBhB3wwnU/jv1onhXFlV1lyWHUofDYQ4sEa5BJNYs7mbz6m77NDfHR0nYeeulqZlxmyt6ISSkb6m1b9QZ0u3y2pUV5TTzas0qFOaUsVra1A5HQfHDW7Upq8TmHbrJ2Z1vZA2p9e8VHMgAmsBd11o9Kr2D0NI3dhcv8L3YrQ/2pufrQ9joaY/g9l+W/wDYmtE/dQ56k57SacbQ62ttxIUhSSlSSMwQd8GsX4Rm2Ca6Q2pcJayWXgNwDxVVZcX3+yNlqFLyaJ/NLAWkebOrjjzFVzRsC5pQ
+lXxWUhBP0jdq4Wq4W4sCZHUyp5vZEJVuK1ScsyPBWh34ZePRNdfvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2evvsMSGltPNIcbUMlIWApJ84NTNHmEpZKjbg0rhaWpFNaLsJoXmpl9zyKdNWyyWm1JUmDCaYzACikbp853z0L32lunqb3sHoDCOHLpbobku2tKcVHaJcTmhZOqN8ppGjDCSV6xjPKHil1WVWyyWm1JUmDCaY1hkopG6fOeiQCCCMwan4AwpNJUu2pbVwskt/wABTei7CaFZqZkL8inTVtw3YbWQqHb2WlAZa+Wa/wBo5no3Sw2e7pCZ8Jp7IZBRGSh5iKOi7Ceya2wyMvE2U5VasO2S0fAYDTKssisDNZHlUczUjBuGJL7r71qZW66srWo55lSjmTUGBDt8ZEaIylplGeqgbwzOZqdAh3CMuNLZS6yogqQreORzFR8G4YjPtPs2plDrSwtChnmFJOYPRuej7C9xeU8uGWnFHNSmlFGdQtHOE4iwvaJeUP6ZZWKIBBBG5X4jYS4nY/jTDLUdlplpAS22gIQkbwSkZAdCbbLfPZ2GZFaeRwLSDT+jHCTy9ZMZ5ryIdOX8c6g6PsJwiFC3B1XC8oufwO5SUpSkJSAABkAN4dC52a2XVttufFQ+hCtZIVnuGoWFMO2+S3Ki21pp1vPVWM8xmMuhJjMSo7rD7YW04kpWk7xBoYHwmkgi0MAjz9auWGrFdHw/OgNvOhAQFKz7EV+IuEuJ2P41+IuEuJ2P41+IuEuJ2P41+IuEuJ2P403gnCra0LRaGQpJBB3dwjo3PBuGrmtbkm2tlxRzLiM0KJ4SU0jRbhNKwS1IUPFLpq14estpzMGA0ySMioDNRHyjmejKwDhKXJfkv2zWdecU44rZnRmpZzJyCqtlsg2uG3DhM7EwgkpRrFWWsczuqJNXK2wrnCdhzGtkYcy10ZlOeqQobqSDvim9HmDm3ELRa8lJIIOzO/7uhdcL
+2G7Eqm29pxeWWyDNK/rTX8luE9fW2KR8nZTlVqw/ZrOk7RhNskjIq31EeVRzPRumF7BdVFc23NOLI7PdSv605GjoswoVZhuSPIHaiYHwpAyLVraUvxnSXPboAAZClJCklJGYIyNfiLhLidj+NNNNstNtNpCUISEpSPAAMgOjcLbAuUcx5sdDzWsFaiuEVbsM2G2SDIhW9pl3VKddOeeR6Nzw5Y7q+h+dAbecSgIClZ5hIOeVWzD9mtK3VwITbCnAAspz3QOgpIUCCAQRkQan6PsJzSVG3BpXCyoo/gNymNGGEmlZqjvO+Rbp/wDHKrfabZbGyiFDaYSd/UTln5+jPwFhScSpdtQ2s/GaJb/gKb0XYTQrMtSF+QumrbhmwWtQXCtrLSwMgvLWX+0rM9bmYRw3NkuyZNsacecOa1nPMmvxFwlxOx/GvxFwlxOx/GmcF4WZdbdbtLKVoUFJUM9wjoXXA2Gbo6p5+CEuqJKnGiUEk1E0a4TjOBZiLe8jrhIpuNGajiO2y2hkJ1Q2EgJA4Mql6NMJyXi6IrjWe+lpwhNWbDlmsiFCBES2VDJaySpSvOT0JeDMLTFqW9aGNYnMlALfsZVDwZheEtK2LSwFJOYKgXCCPlk1phdAhWlrhecV9QrRgwXcXRV/0TLy/rTqdG54Pw3dFrXKtrRcVvuJzQs+cpoaLMKa2epJ82y1b8F4Yt6krYtbOuk5ha83CD5159CRHZksOsPIC23ElK0neIO+K/EbCXE7H8ekumBcMXNxTr8AIdUSS40S2ST4TlUPRthOK4HDEW8RvB1ZUKl2a1zISIT8NtcZBBS1lkkau9kBUPCOG4UlqTGtjTbzZzQsZ5joTcJ4dnyVyZVtadeXlrLOeZyGVWyz2y1NuNwIqGELVrKCc909C6WS1XYNCfEQ+GySjWz3M6t2GbFa5BkQre2y6UFOsnPePQcbbdbU24hKkKBCkqGYIPgIp/AmEn1Zrs7I+QVI9girdhmwWxxL
+kO2MNuDeXlmsfSrM1pbWDiKKjghp/io1oca6q9u+RhPtdfvHbjDPrr33ZzvLEXc/efUJHuzUD4DE9Cj2e9L32lunqb3sHoWrtZA9Wa9kf1x2RsL1NdOvlnq57uXD0CQASTkK0iYiYvN6CIruvFjI1EKG8pR7JQrRBbnDKuVwKOoDQYSfKSFHvcOIUpSQtJKTkoA7o6EqXGhx3JEh1LbTaSpSlHIAVia8fhq+TZw1ghxeTYO+EJGQrRVb1xLA9KXvynypPyEdT1+8duMM+uvfdnO8sRdz959Qke7NQPgMT0KPZ70vfaW6epvewehau1kD1Zr2R/XHS8XEXW1rTmP+GVkofKqLizEsRISzd5QTwFZUPqVVwxRiC4tFqXc33Gzvo1tVJ84TViw1dr4+lERg7Hnkt5QIbRVissSyWxiFH7FAzUs761HfUe99ITr7GMp62lrbOTRCkkp+IKj4yxTHSEt3iTkPGVr+1nVxvt4uhG3p77wG8lSupHmG9WFMEXO+vtLW2tmFvreIy1hwIqPHZjMNMMoCG20BCEjeAHX7x24wz66992c7yxF3P3n1CR7s1A+AxPQo9nvR1tDra23EhSFpKVA+EHcIr8SMJ8TR6QhDaEoQMkpAAHAB/XFxpp1BQ42laTvhQBFP4Twy+c3LNDz4Q0E+zUfCmGoxzas8QHhLYV7VIQhCQlCQlI3gBkB3w/FiyU6r8dp1PAtIUP407g/C7qs1WWJ/dbCfZqLhrD8Q5sWmIg+NsSSfrPeN47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez/ZreO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/2a3jtxhn1177s53liLufvPqEj3ZqB8BiehR7P9mt47cYZ9de+7Od5Yi7n7z6hI92agfAYnoUez/ZreO3GGfXXvuzneWIu5+8+oSPdmoHwGJ6FHs/2a3jtxhn1177s53liLufvPqEj3ZqB8BiehR7P9mt47cYZ9de+7Od
+5Yi7n7z6hI92agfAYnoUez/ZreO3GGfXXvuznXBGvvGUT/4qudpqPeUuILk+MpAI1kiMpJI4AdkPS3CIJsCZFK9TZ2HGtbLPLXSU50zbsWtNNtpvluyQgJGdvXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1
+tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1t
+LF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9bSxdx5beT18/W0sXceW3k9fP1tLF3Hlt5PXz9NWi9uXC3yZ91iPNxXFrS2zEUySpbZb3VF1fjf/68T//Z</ImageData>
+    </EmbeddedImage>
   </EmbeddedImages>
   <Language>de-AT</Language>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>