neu

Aviso.sln

@@ -1,7 +1,7 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
+# Visual Studio Version 17
-VisualStudioVersion = 15.0.28307.106
+VisualStudioVersion = 17.0.31612.314
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Aviso", "Aviso\Aviso.vbproj", "{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}"
 EndProject
@@ -31,138 +31,187 @@ Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
 		Debug|Mixed Platforms = Debug|Mixed Platforms
+		Debug|x64 = Debug|x64
 		Debug|x86 = Debug|x86
 		Release|Any CPU = Release|Any CPU
 		Release|Mixed Platforms = Release|Mixed Platforms
+		Release|x64 = Release|x64
 		Release|x86 = Release|x86
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x86
-		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
-		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.ActiveCfg = Debug|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x64.Build.0 = Debug|x64
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.ActiveCfg = Debug|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.Build.0 = Debug|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Any CPU.ActiveCfg = Release|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.ActiveCfg = Release|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.Build.0 = Release|x86
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x64.ActiveCfg = Release|x64
+		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x64.Build.0 = Release|x64
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.ActiveCfg = Release|x86
 		{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.Build.0 = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Any CPU.ActiveCfg = Debug|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x64.ActiveCfg = Debug|x64
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.ActiveCfg = Debug|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Debug|x86.Build.0 = Debug|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Any CPU.ActiveCfg = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.ActiveCfg = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|Mixed Platforms.Build.0 = Release|x86
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x64.ActiveCfg = Release|x64
+		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x64.Build.0 = Release|x64
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.ActiveCfg = Release|x86
 		{3B5EAEB2-0477-4899-A893-3049DD458B9B}.Release|x86.Build.0 = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = Debug|x86
+		{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|Mixed Platforms.ActiveCfg = Release|x86
 		{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
+		{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
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x64.Build.0 = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Any CPU.Build.0 = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.ActiveCfg = Release|Any CPU
+		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x64.Build.0 = Release|Any CPU
 		{D8EDB976-2F90-46C1-9642-63BE8C4F5F1F}.Release|x86.ActiveCfg = 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|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Debug|Mixed Platforms.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}.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|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{289BCD77-BC00-4BA1-95ED-A79176D99525}.Release|Mixed Platforms.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
 		{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|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.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}.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|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|Any CPU
+		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|Any CPU
 		{A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x64.Build.0 = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.Build.0 = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x64.ActiveCfg = Release|Any CPU
+		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x64.Build.0 = Release|Any CPU
 		{D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x86.ActiveCfg = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.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}.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|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Release|Mixed Platforms.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
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|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|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{5B947A66-009A-4BB6-B925-F84A01045095}.Release|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
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x64.Build.0 = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Debug|x86.Build.0 = Debug|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Any CPU.Build.0 = Release|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x64.ActiveCfg = Release|Any CPU
+		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x64.Build.0 = Release|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x86.ActiveCfg = Release|Any CPU
 		{A734141E-2C4E-4D70-81E8-A88184282AF5}.Release|x86.Build.0 = Release|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x64.Build.0 = Debug|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|x86.Build.0 = Debug|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.ActiveCfg = Release|Any CPU
+		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.Build.0 = Release|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.ActiveCfg = Release|Any CPU
 		{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x86.Build.0 = Release|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
+		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x64.ActiveCfg = Debug|Any CPU
+		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x64.Build.0 = Debug|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Debug|x86.Build.0 = Debug|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Any CPU.Build.0 = Release|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|Mixed Platforms.Build.0 = Release|Any CPU
+		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x64.ActiveCfg = Release|Any CPU
+		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x64.Build.0 = Release|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.ActiveCfg = Release|Any CPU
 		{CB95CC0E-D73A-4D11-9FF8-197A392D831F}.Release|x86.Build.0 = Release|Any CPU
 	EndGlobalSection

Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb

@@ -23,6 +23,7 @@ Partial Class usrctlStatVERIMEX
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.Button3 = New System.Windows.Forms.Button()
@@ -35,10 +36,26 @@ Partial Class usrctlStatVERIMEX
         Me.datStatVon = New System.Windows.Forms.DateTimePicker()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.btnAbfDetailbereicht = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.btnAbfAuswerten = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cboAbfFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.dgvAbfertigungTR = New System.Windows.Forms.DataGridView()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.datAbfStatBis = New System.Windows.Forms.DateTimePicker()
+        Me.datAbfStatVon = New System.Windows.Forms.DateTimePicker()
+        Me.btnAbfBericht = New System.Windows.Forms.Button()
+        Me.btnAbfExcel = New System.Windows.Forms.Button()
         Me.Panel3.SuspendLayout()
         Me.Panel4.SuspendLayout()
         CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        CType(Me.dgvAbfertigungTR, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Panel3
@@ -53,6 +70,16 @@ Partial Class usrctlStatVERIMEX
         Me.Panel3.Size = New System.Drawing.Size(701, 423)
         Me.Panel3.TabIndex = 0
         '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Location = New System.Drawing.Point(310, 389)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(135, 23)
+        Me.Button4.TabIndex = 4
+        Me.Button4.Text = "Detailbericht (Excel)"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
         'Label9
         '
         Me.Label9.AutoSize = True
@@ -105,7 +132,7 @@ Partial Class usrctlStatVERIMEX
         Me.cboFirma._value = ""
         Me.cboFirma.FormattingEnabled = True
         Me.cboFirma.Location = New System.Drawing.Point(386, 11)
-        Me.cboFirma.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
+        Me.cboFirma.Margin = New System.Windows.Forms.Padding(2)
         Me.cboFirma.Name = "cboFirma"
         Me.cboFirma.Size = New System.Drawing.Size(111, 21)
         Me.cboFirma.TabIndex = 5
@@ -173,29 +200,165 @@ Partial Class usrctlStatVERIMEX
         Me.Button1.Text = "Excel"
         Me.Button1.UseVisualStyleBackColor = True
         '
-        'Button4
+        'Panel1
         '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Panel1.Controls.Add(Me.btnAbfDetailbereicht)
-        Me.Button4.Location = New System.Drawing.Point(310, 389)
+        Me.Panel1.Controls.Add(Me.Label2)
-        Me.Button4.Name = "Button4"
+        Me.Panel1.Controls.Add(Me.Panel2)
-        Me.Button4.Size = New System.Drawing.Size(135, 23)
+        Me.Panel1.Controls.Add(Me.btnAbfBericht)
-        Me.Button4.TabIndex = 4
+        Me.Panel1.Controls.Add(Me.btnAbfExcel)
-        Me.Button4.Text = "Detailbericht (Excel)"
+        Me.Panel1.Location = New System.Drawing.Point(15, 467)
-        Me.Button4.UseVisualStyleBackColor = True
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(701, 423)
+        Me.Panel1.TabIndex = 5
+        '
+        'btnAbfDetailbereicht
+        '
+        Me.btnAbfDetailbereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbfDetailbereicht.Location = New System.Drawing.Point(310, 389)
+        Me.btnAbfDetailbereicht.Name = "btnAbfDetailbereicht"
+        Me.btnAbfDetailbereicht.Size = New System.Drawing.Size(135, 23)
+        Me.btnAbfDetailbereicht.TabIndex = 4
+        Me.btnAbfDetailbereicht.Text = "Detailbericht (Excel)"
+        Me.btnAbfDetailbereicht.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(3, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(208, 13)
+        Me.Label2.TabIndex = 0
+        Me.Label2.Text = "Abfertigung TR"
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel2.Controls.Add(Me.btnAbfAuswerten)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.cboAbfFirma)
+        Me.Panel2.Controls.Add(Me.dgvAbfertigungTR)
+        Me.Panel2.Controls.Add(Me.Label4)
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.datAbfStatBis)
+        Me.Panel2.Controls.Add(Me.datAbfStatVon)
+        Me.Panel2.Location = New System.Drawing.Point(3, 24)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(670, 359)
+        Me.Panel2.TabIndex = 1
+        '
+        'btnAbfAuswerten
+        '
+        Me.btnAbfAuswerten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbfAuswerten.Location = New System.Drawing.Point(532, 8)
+        Me.btnAbfAuswerten.Name = "btnAbfAuswerten"
+        Me.btnAbfAuswerten.Size = New System.Drawing.Size(135, 23)
+        Me.btnAbfAuswerten.TabIndex = 6
+        Me.btnAbfAuswerten.Text = "Auswerten"
+        Me.btnAbfAuswerten.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(346, 13)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(35, 13)
+        Me.Label3.TabIndex = 0
+        Me.Label3.Text = "Firma:"
+        '
+        'cboAbfFirma
+        '
+        Me.cboAbfFirma._allowedValuesFreiText = Nothing
+        Me.cboAbfFirma._allowFreiText = False
+        Me.cboAbfFirma._value = ""
+        Me.cboAbfFirma.FormattingEnabled = True
+        Me.cboAbfFirma.Location = New System.Drawing.Point(386, 11)
+        Me.cboAbfFirma.Margin = New System.Windows.Forms.Padding(2)
+        Me.cboAbfFirma.Name = "cboAbfFirma"
+        Me.cboAbfFirma.Size = New System.Drawing.Size(111, 21)
+        Me.cboAbfFirma.TabIndex = 5
+        '
+        'dgvAbfertigungTR
+        '
+        Me.dgvAbfertigungTR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAbfertigungTR.Location = New System.Drawing.Point(6, 38)
+        Me.dgvAbfertigungTR.Name = "dgvAbfertigungTR"
+        Me.dgvAbfertigungTR.RowHeadersWidth = 62
+        Me.dgvAbfertigungTR.Size = New System.Drawing.Size(661, 318)
+        Me.dgvAbfertigungTR.TabIndex = 7
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(179, 15)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(10, 13)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "-"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(3, 15)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(51, 13)
+        Me.Label5.TabIndex = 1
+        Me.Label5.Text = "Zeitraum:"
+        '
+        'datAbfStatBis
+        '
+        Me.datAbfStatBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datAbfStatBis.Location = New System.Drawing.Point(194, 12)
+        Me.datAbfStatBis.Name = "datAbfStatBis"
+        Me.datAbfStatBis.Size = New System.Drawing.Size(105, 20)
+        Me.datAbfStatBis.TabIndex = 4
+        '
+        'datAbfStatVon
+        '
+        Me.datAbfStatVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datAbfStatVon.Location = New System.Drawing.Point(70, 12)
+        Me.datAbfStatVon.Name = "datAbfStatVon"
+        Me.datAbfStatVon.Size = New System.Drawing.Size(105, 20)
+        Me.datAbfStatVon.TabIndex = 2
+        '
+        'btnAbfBericht
+        '
+        Me.btnAbfBericht.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbfBericht.Location = New System.Drawing.Point(598, 389)
+        Me.btnAbfBericht.Name = "btnAbfBericht"
+        Me.btnAbfBericht.Size = New System.Drawing.Size(75, 23)
+        Me.btnAbfBericht.TabIndex = 3
+        Me.btnAbfBericht.Text = "Bericht"
+        Me.btnAbfBericht.UseVisualStyleBackColor = True
+        '
+        'btnAbfExcel
+        '
+        Me.btnAbfExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbfExcel.Location = New System.Drawing.Point(517, 389)
+        Me.btnAbfExcel.Name = "btnAbfExcel"
+        Me.btnAbfExcel.Size = New System.Drawing.Size(75, 23)
+        Me.btnAbfExcel.TabIndex = 2
+        Me.btnAbfExcel.Text = "Excel"
+        Me.btnAbfExcel.UseVisualStyleBackColor = True
         '
         'usrctlStatVERIMEX
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.Panel3)
         Me.Name = "usrctlStatVERIMEX"
-        Me.Size = New System.Drawing.Size(844, 510)
+        Me.Size = New System.Drawing.Size(844, 927)
         Me.Panel3.ResumeLayout(False)
         Me.Panel3.PerformLayout()
         Me.Panel4.ResumeLayout(False)
         Me.Panel4.PerformLayout()
         CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        CType(Me.dgvAbfertigungTR, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -214,4 +377,18 @@ Partial Class usrctlStatVERIMEX
     Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Button3 As Button
     Friend WithEvents Button4 As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents btnAbfDetailbereicht As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents btnAbfAuswerten As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents cboAbfFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents dgvAbfertigungTR As DataGridView
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents datAbfStatBis As DateTimePicker
+    Friend WithEvents datAbfStatVon As DateTimePicker
+    Friend WithEvents btnAbfBericht As Button
+    Friend WithEvents btnAbfExcel As Button
 End Class

Aviso/Auswertung/usrctlStatVERIMEX.vb

@@ -32,6 +32,32 @@ Public Class usrctlStatVERIMEX
     End Sub
 
 
+    Sub initAbf()
+        Dim whereFiliale = ""
+        Dim innerJoinFiliale = ""
+        Select Case cboAbfFirma._value
+            Case ""
+            Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
+            Case "ATILLA" : whereFiliale = " and tblSendungen.FilialenNr='4801' "
+
+            Case Else
+                whereFiliale = " and tblSendungen.FilialenNr<>'4801' and Filialen.Firma='" & cboAbfFirma._value & "' "
+                innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
+        End Select
+
+        With dgvAbfertigungTR
+            Dim sqlstr = "SELECT  mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_anzahlHandling) as Sendungen ,count(distinct(avisoid)) as LKW
+                  FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
+                  " & innerJoinFiliale & "
+                  where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "'  and tblSnd_AbfertigungTR_MA is not null 
+                  " & whereFiliale & "
+                  group by mit_vname,mit_nname"
+            'früher: Datum statt tblSnd_AbfertigungTR
+
+            dgvAbfertigungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
+
+        End With
+    End Sub
 
 
 
@@ -111,6 +137,16 @@ Public Class usrctlStatVERIMEX
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
         cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*Nicht zugeordnet", "0"))
         cboFirma.changeItem("")
+
+        cboAbfFirma.Items.Clear()
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        cboAbfFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*Nicht zugeordnet", "0"))
+        cboAbfFirma.changeItem("ATILLA")
         '     cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", ""))
     End Sub
 
@@ -118,11 +154,16 @@ Public Class usrctlStatVERIMEX
         init()
     End Sub
 
-    Private Sub datStatVon_KeyDown(sender As Object, e As KeyEventArgs) Handles datStatVon.KeyDown, datStatBis.KeyDown, cboFirma.KeyDown
+    Private Sub databfStatVon_KeyDown(sender As Object, e As KeyEventArgs) Handles datStatVon.KeyDown, datStatBis.KeyDown, cboFirma.KeyDown
         If e.KeyCode = Keys.Return Then
             init()
         End If
     End Sub
+    Private Sub datStatVon_KeyDown(sender As Object, e As KeyEventArgs) Handles datAbfStatVon.KeyDown, datAbfStatBis.KeyDown, cboAbfFirma.KeyDown, datStatVon.KeyDown, datStatBis.KeyDown, cboFirma.KeyDown
+        If e.KeyCode = Keys.Return Then
+            initAbf()
+        End If
+    End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
         Me.Cursor = Cursors.WaitCursor
@@ -156,4 +197,103 @@ Public Class usrctlStatVERIMEX
         End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub btnAbfDetailbereicht_Click(sender As Object, e As EventArgs) Handles btnAbfDetailbereicht.Click
+        Me.Cursor = Cursors.WaitCursor
+
+        Try
+
+
+            Dim whereFiliale = ""
+            Dim innerJoinFiliale = ""
+            Select Case cboFirma._value
+                Case ""
+                Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
+                Case Else
+                    whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' "
+                    innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
+            End Select
+
+
+            Dim sqlstr = "SELECT   (Select isnull(Filialen.firma,'') FROM [FMZOLL\SQLFMZOLL].VERAG.dbo.Filialen WHERE [tblSendungen].FilialenNr=Filialen.FilialenNr) Firma,
+                        mit_vname + ' ' + mit_nname as Mitarbeiter, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSnd_Empfaenger as Empfänger, tblSnd_Colli Colli, tblSnd_Gewicht Gewicht, tblSnd_Abfertigungsart_ID Abfertigungsart, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe
+                        FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
+                        " & innerJoinFiliale & "
+                        where cast(tblSnd_AbfertigungTR as date) BETWEEN  '" & datStatVon.Value & "' and '" & datStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null 
+                        " & whereFiliale & "
+                        ORDER BY Firma, Mitarbeiter,Auftraggeber,LKW_Nr,tblSnd_PosUnterNr"
+
+            SDL.cProgramFunctions.genExcelFromDT_NEW(SQL.loadDgvBySql(sqlstr, "AVISO"))
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnAbfExcel_Click(sender As Object, e As EventArgs) Handles btnAbfExcel.Click
+        Me.Cursor = Cursors.WaitCursor
+        SDL.cProgramFunctions.genExcelFromDGV_NEW(dgvAbfertigungTR, False)
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnAbfBericht_Click(sender As Object, e As EventArgs) Handles btnAbfBericht.Click
+
+
+        Dim print As New frmPrintLayout
+        print.Text = "Speditionsbericht"
+
+        Dim rpt As New rptStat_VERIMEX_AbklTR
+
+        rpt.DataSource = dgvAbfertigungTR.DataSource
+
+
+
+
+        If rpt.DataSource Is Nothing OrElse rpt.DataSource.rows.count = 0 Then
+            rpt.Dispose() : print.Dispose()
+            MsgBox("Keine Daten vorhanden!")
+            Exit Sub
+        End If
+
+        Dim sum = 0
+        rpt.lblUeberschrift.Text = "Abfertigung (NCTS) TR  " & datStatVon.Text & " bis " & datStatBis.Text
+        rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
+
+        'Dim cnt As Integer = 0
+        rpt.lblDat.Text = Now.ToLongDateString
+        Dim sumSnd As Integer = 0
+        Dim sumLKW As Integer = 0
+
+
+        AddHandler rpt.Detail.Format, Sub()
+                                          'rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
+                                          'rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
+                                          rpt.lblAnzSnd.Text = rpt.Fields.Item("Sendungen").Value
+                                          rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
+
+                                          rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
+
+                                          sumSnd += CInt(rpt.Fields.Item("Sendungen").Value)
+                                          sumLKW += CInt(rpt.Fields.Item("LKW").Value)
+                                      End Sub
+        AddHandler rpt.GroupHeader1.Format, Sub()
+                                                '  If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
+                                                sumSnd = 0
+                                                sumLKW = 0
+                                            End Sub
+        AddHandler rpt.GroupFooter1.Format, Sub()
+                                                rpt.lblAnzSndSum.Text = sumSnd
+                                                rpt.lblAnzLKWSum.Text = sumLKW
+                                            End Sub
+
+        print.Viewer.LoadDocument(rpt)
+        print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        print.Show()
+    End Sub
+
+    Private Sub btnAbfAuswerten_Click(sender As Object, e As EventArgs) Handles btnAbfAuswerten.Click
+        initAbf()
+    End Sub
 End Class

Aviso/Aviso.vbproj

@@ -80,11 +80,10 @@
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestCertificateThumbprint>2508FAE878AAAD6136689CC8171DC8A749727DD4</ManifestCertificateThumbprint>
+    <ManifestCertificateThumbprint>5A6BD29D23A7643243CD6EFA1FEF21BAF955E653</ManifestCertificateThumbprint>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestKeyFile>
+    <ManifestKeyFile>AL20210908.pfx</ManifestKeyFile>
-    </ManifestKeyFile>
   </PropertyGroup>
   <PropertyGroup>
     <GenerateManifests>true</GenerateManifests>
@@ -1170,6 +1169,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="AL20210908.pfx" />
     <None Include="App.config" />
     <None Include="Aviso_TemporaryKey.pfx" />
     <None Include="Dokumentenbeschriftung\PageReport1.rdlx">
@@ -1509,7 +1509,7 @@
     </PreBuildEvent>
   </PropertyGroup>
   <PropertyGroup>
-    <PostBuildEvent>D:\Andreas\Programmierung\VB\Zertifikate\signtool.exe sign /f D:\Andreas\Programmierung\VB\Zertifikate\Zert_20092019.pfx /p BmWr501956 "Aviso.exe"</PostBuildEvent>
+    <PostBuildEvent>D:\Andreas\Programmierung\VB\Zertifikate\signtool.exe sign /f D:\Andreas\Programmierung\VB\Zertifikate\AL20210908.pfx /p verag2001 "Aviso.exe"</PostBuildEvent>
   </PropertyGroup>
   <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
     <PropertyGroup>

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.6.8.6")>
+<Assembly: AssemblyVersion("3.7.0.1")>
-<Assembly: AssemblyFileVersion("3.6.8.6")>
+<Assembly: AssemblyFileVersion("3.7.0.1")>

Aviso/My Project/Resources.Designer.vb

@@ -80,6 +80,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property abfetigungTR_aktiv() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("abfetigungTR_aktiv", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property abfetigungTR_inaktiv() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("abfetigungTR_inaktiv", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1149,6 +1169,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property sdf2sdf1sdf5sd4fsd4f8sdf48sdfsdfsdf() As String
+            Get
+                Return ResourceManager.GetString("sdf2sdf1sdf5sd4fsd4f8sdf48sdfsdfsdf", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1509,7 +1538,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 3.6.8.6 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 3.7.0.1 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Aviso/My Project/Resources.resx

@@ -536,7 +536,7 @@
     <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>3.6.8.6</value>
+    <value>3.7.0.1</value>
   </data>
   <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -610,4 +610,13 @@
   <data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sdf2sdf1sdf5sd4fsd4f8sdf48sdfsdfsdf" xml:space="preserve">
+    <value />
+  </data>
 </root>

Aviso/frmAvisoWeiterleiten.vb

@@ -103,18 +103,24 @@ Public Class frmAvisoWeiterleiten
 
     Sub btnWeiterleitung_Clicked(WLart As String, id As String, bezeichnung As String, Optional bezeichnungFirma As String = "")
         Dim text = ""
+        Dim WeiterleitungTextTV = ""
         Dim code = 3
         Select Case WLart
             Case "T"
                 text = "Ins Team '" & bezeichnung & "' [" & bezeichnungFirma & "] gegeben."
+                WeiterleitungTextTV = bezeichnungFirma & "/" & bezeichnung
             Case "A"
                 text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
             Case "N"
                 text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
             Case "F"
                 text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
             Case "B"
                 text = "An '" & bezeichnung & "' gegeben."
+                WeiterleitungTextTV = bezeichnung
         End Select
 
         'Anhänge:
@@ -145,7 +151,7 @@ Public Class frmAvisoWeiterleiten
         Else
             ASF.insertVermerkAllg(AvisoId, text, 46)
             If rtbVermerk.Text.Trim <> "" Then ASF.insertVermerkAllg(AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
-            ASF.AktUebernehmen_Zuruecksetzen(AvisoId)
+            ASF.AktUebernehmen_Zuruecksetzen(AvisoId, WeiterleitungTextTV)
         End If
 
         ' Me.Close()

Aviso/frmEintragAviso.designer.vb

@@ -75,7 +75,10 @@ Partial Class frmEintragAviso
         Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblAktenuebersicht = New System.Windows.Forms.Label()
         Me.grpAviso = New System.Windows.Forms.GroupBox()
+        Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label4 = New System.Windows.Forms.Label()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.lblErr_KdNr = New System.Windows.Forms.Label()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.lblErrVorraussuchtlEintreffen = New System.Windows.Forms.Label()
@@ -103,7 +106,6 @@ Partial Class frmEintragAviso
         Me.lblErr_Frächter = New System.Windows.Forms.Label()
         Me.lblErr_LKW = New System.Windows.Forms.Label()
         Me.lblErr_Grenzstelle = New System.Windows.Forms.Label()
-        Me.Button1 = New System.Windows.Forms.Button()
         Me.lblAtrAvis = New System.Windows.Forms.Label()
         Me.lblAtr = New System.Windows.Forms.Label()
         Me.Label17 = New System.Windows.Forms.Label()
@@ -112,8 +114,8 @@ Partial Class frmEintragAviso
         Me.lblVoraussEintreff = New System.Windows.Forms.Label()
         Me.datVoraussichtlichesEintreffen = New System.Windows.Forms.DateTimePicker()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.cbxWarenort = New System.Windows.Forms.CheckBox()
         Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.cbxWarenort = New System.Windows.Forms.CheckBox()
         Me.lblZA = New System.Windows.Forms.Label()
         Me.btnAbsSrch = New System.Windows.Forms.Button()
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
@@ -145,12 +147,12 @@ Partial Class frmEintragAviso
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
-        Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblTeamAvisierer = New System.Windows.Forms.Label()
-        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblTeamFraechter = New System.Windows.Forms.Label()
+        Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
+        Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
         Me.panAdmin.SuspendLayout()
         Me.grpAviso.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -725,6 +727,8 @@ Partial Class frmEintragAviso
         '
         'grpAviso
         '
+        Me.grpAviso.Controls.Add(Me.lblTeamFraechter)
+        Me.grpAviso.Controls.Add(Me.lblTeamAvisierer)
         Me.grpAviso.Controls.Add(Me.cboTransportmittelart)
         Me.grpAviso.Controls.Add(Me.Label4)
         Me.grpAviso.Controls.Add(Me.PictureBox1)
@@ -783,6 +787,32 @@ Partial Class frmEintragAviso
         Me.grpAviso.TabStop = False
         Me.grpAviso.Text = "Aviso"
         '
+        'cboTransportmittelart
+        '
+        Me.cboTransportmittelart._allowedValuesFreiText = Nothing
+        Me.cboTransportmittelart._allowFreiText = False
+        Me.cboTransportmittelart._value = ""
+        Me.cboTransportmittelart.BackColor = System.Drawing.Color.White
+        Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTransportmittelart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboTransportmittelart.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboTransportmittelart.FormattingEnabled = True
+        Me.cboTransportmittelart.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "WO_GE", "???"})
+        Me.cboTransportmittelart.Location = New System.Drawing.Point(245, 139)
+        Me.cboTransportmittelart.Name = "cboTransportmittelart"
+        Me.cboTransportmittelart.Size = New System.Drawing.Size(146, 28)
+        Me.cboTransportmittelart.TabIndex = 17
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Black
+        Me.Label4.Location = New System.Drawing.Point(242, 125)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(120, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "Art des Transportmittels:"
+        '
         'PictureBox1
         '
         Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.lorry
@@ -793,6 +823,18 @@ Partial Class frmEintragAviso
         Me.PictureBox1.TabIndex = 48
         Me.PictureBox1.TabStop = False
         '
+        'Button1
+        '
+        Me.Button1.FlatAppearance.BorderSize = 0
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
+        Me.Button1.Location = New System.Drawing.Point(357, 85)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(37, 20)
+        Me.Button1.TabIndex = 10
+        Me.Button1.UseVisualStyleBackColor = True
+        Me.Button1.Visible = False
+        '
         'lblErr_KdNr
         '
         Me.lblErr_KdNr.AutoSize = True
@@ -1177,18 +1219,6 @@ Partial Class frmEintragAviso
         Me.lblErr_Grenzstelle.Text = "Grenzstelle eingeben!"
         Me.lblErr_Grenzstelle.Visible = False
         '
-        'Button1
-        '
-        Me.Button1.FlatAppearance.BorderSize = 0
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
-        Me.Button1.Location = New System.Drawing.Point(357, 85)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(37, 20)
-        Me.Button1.TabIndex = 10
-        Me.Button1.UseVisualStyleBackColor = True
-        Me.Button1.Visible = False
-        '
         'lblAtrAvis
         '
         Me.lblAtrAvis.AutoSize = True
@@ -1279,17 +1309,6 @@ Partial Class frmEintragAviso
         Me.pnl.TabIndex = 22
         Me.pnl.Visible = False
         '
-        'cbxWarenort
-        '
-        Me.cbxWarenort.AutoSize = True
-        Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.cbxWarenort.Location = New System.Drawing.Point(134, 2)
-        Me.cbxWarenort.Name = "cbxWarenort"
-        Me.cbxWarenort.Size = New System.Drawing.Size(70, 17)
-        Me.cbxWarenort.TabIndex = 1
-        Me.cbxWarenort.Text = "Warenort"
-        Me.cbxWarenort.UseVisualStyleBackColor = True
-        '
         'txtBestimmungszollstelle
         '
         Me.txtBestimmungszollstelle._allowFreitext = False
@@ -1316,6 +1335,17 @@ Partial Class frmEintragAviso
         Me.txtBestimmungszollstelle.TabIndex = 2
         Me.txtBestimmungszollstelle.usrcntl = Nothing
         '
+        'cbxWarenort
+        '
+        Me.cbxWarenort.AutoSize = True
+        Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.cbxWarenort.Location = New System.Drawing.Point(134, 2)
+        Me.cbxWarenort.Name = "cbxWarenort"
+        Me.cbxWarenort.Size = New System.Drawing.Size(70, 17)
+        Me.cbxWarenort.TabIndex = 1
+        Me.cbxWarenort.Text = "Warenort"
+        Me.cbxWarenort.UseVisualStyleBackColor = True
+        '
         'lblZA
         '
         Me.lblZA.AutoSize = True
@@ -1721,23 +1751,6 @@ Partial Class frmEintragAviso
         Me.clmnPfad.ReadOnly = True
         Me.clmnPfad.Visible = False
         '
-        'UsrCntlEintragAvisoAtilla
-        '
-        Me.UsrCntlEintragAvisoAtilla.BackColor = System.Drawing.Color.White
-        Me.UsrCntlEintragAvisoAtilla.Location = New System.Drawing.Point(424, 49)
-        Me.UsrCntlEintragAvisoAtilla.Name = "UsrCntlEintragAvisoAtilla"
-        Me.UsrCntlEintragAvisoAtilla.Size = New System.Drawing.Size(360, 487)
-        Me.UsrCntlEintragAvisoAtilla.TabIndex = 8
-        Me.UsrCntlEintragAvisoAtilla.Visible = False
-        '
-        'UsrCntlAviso_Vorpapiere1
-        '
-        Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(12, 489)
-        Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
-        Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157)
-        Me.UsrCntlAviso_Vorpapiere1.TabIndex = 20
-        '
         'cboFirma
         '
         Me.cboFirma._allowedValuesFreiText = Nothing
@@ -1758,31 +1771,52 @@ Partial Class frmEintragAviso
         Me.Label2.TabIndex = 5
         Me.Label2.Text = "FIRMA:"
         '
-        'cboTransportmittelart
+        'lblTeamAvisierer
         '
-        Me.cboTransportmittelart._allowedValuesFreiText = Nothing
+        Me.lblTeamAvisierer.BackColor = System.Drawing.Color.Transparent
-        Me.cboTransportmittelart._allowFreiText = False
+        Me.lblTeamAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cboTransportmittelart._value = ""
+        Me.lblTeamAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.cboTransportmittelart.BackColor = System.Drawing.Color.White
+        Me.lblTeamAvisierer.Location = New System.Drawing.Point(258, 288)
-        Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.lblTeamAvisierer.Name = "lblTeamAvisierer"
-        Me.cboTransportmittelart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.lblTeamAvisierer.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.cboTransportmittelart.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTeamAvisierer.Size = New System.Drawing.Size(88, 13)
-        Me.cboTransportmittelart.FormattingEnabled = True
+        Me.lblTeamAvisierer.TabIndex = 49
-        Me.cboTransportmittelart.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "WO_GE", "???"})
+        Me.lblTeamAvisierer.Text = "TEAM"
-        Me.cboTransportmittelart.Location = New System.Drawing.Point(245, 139)
+        Me.lblTeamAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
-        Me.cboTransportmittelart.Name = "cboTransportmittelart"
+        Me.lblTeamAvisierer.UseCompatibleTextRendering = True
-        Me.cboTransportmittelart.Size = New System.Drawing.Size(146, 28)
+        Me.lblTeamAvisierer.Visible = False
-        Me.cboTransportmittelart.TabIndex = 17
         '
-        'Label4
+        'lblTeamFraechter
         '
-        Me.Label4.AutoSize = True
+        Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
-        Me.Label4.ForeColor = System.Drawing.Color.Black
+        Me.lblTeamFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(242, 125)
+        Me.lblTeamFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Label4.Name = "Label4"
+        Me.lblTeamFraechter.Location = New System.Drawing.Point(258, 249)
-        Me.Label4.Size = New System.Drawing.Size(120, 13)
+        Me.lblTeamFraechter.Name = "lblTeamFraechter"
-        Me.Label4.TabIndex = 14
+        Me.lblTeamFraechter.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.Label4.Text = "Art des Transportmittels:"
+        Me.lblTeamFraechter.Size = New System.Drawing.Size(88, 13)
+        Me.lblTeamFraechter.TabIndex = 50
+        Me.lblTeamFraechter.Text = "TEAM"
+        Me.lblTeamFraechter.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblTeamFraechter.UseCompatibleTextRendering = True
+        Me.lblTeamFraechter.Visible = False
+        '
+        'UsrCntlAviso_Vorpapiere1
+        '
+        Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(12, 489)
+        Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
+        Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157)
+        Me.UsrCntlAviso_Vorpapiere1.TabIndex = 20
+        '
+        'UsrCntlEintragAvisoAtilla
+        '
+        Me.UsrCntlEintragAvisoAtilla.BackColor = System.Drawing.Color.White
+        Me.UsrCntlEintragAvisoAtilla.Location = New System.Drawing.Point(424, 49)
+        Me.UsrCntlEintragAvisoAtilla.Name = "UsrCntlEintragAvisoAtilla"
+        Me.UsrCntlEintragAvisoAtilla.Size = New System.Drawing.Size(360, 487)
+        Me.UsrCntlEintragAvisoAtilla.TabIndex = 8
+        Me.UsrCntlEintragAvisoAtilla.Visible = False
         '
         'frmEintragAviso
         '
@@ -1978,4 +2012,6 @@ Partial Class frmEintragAviso
     Friend WithEvents Label2 As Label
     Friend WithEvents cboTransportmittelart As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label4 As Label
+    Friend WithEvents lblTeamFraechter As Label
+    Friend WithEvents lblTeamAvisierer As Label
 End Class

Aviso/frmEintragAviso.vb

@@ -29,6 +29,7 @@ Public Class frmEintragAviso
 
     Public ATT As List(Of String)
     Dim PROG As New cProgramFunctions
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Public Sub New()
         InitializeComponent()
@@ -210,16 +211,28 @@ Public Class frmEintragAviso
         AddHandler kdAvisierer.PropertyChanged, Sub()
                                                     If kdAvisierer.KdNr_value > 0 Then
                                                         btnAvisiererKd.Enabled = True
+                                                        Dim KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdAvisierer.KdNr_value)
+                                                        If KUNDE_ERW IsNot Nothing Then lblTeamAvisierer.Text = SQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN", "")
+                                                        If lblTeamAvisierer.Text <> "" Then lblTeamAvisierer.Visible = True
                                                     Else
                                                         btnAvisiererKd.Enabled = False
+                                                        lblTeamAvisierer.Visible = False
                                                     End If
                                                 End Sub
         AddHandler kdFrächter.PropertyChanged, Sub()
                                                    If kdFrächter.KdNr_value > 0 Then
                                                        btnFraechterKd.Enabled = True
+
+                                                       Dim KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdFrächter.KdNr_value)
+                                                       If KUNDE_ERW IsNot Nothing Then lblTeamFraechter.Text = SQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN", "")
+                                                       If lblTeamFraechter.Text <> "" Then lblTeamFraechter.Visible = True
                                                    Else
                                                        btnFraechterKd.Enabled = False
+                                                       lblTeamFraechter.Visible = False
                                                    End If
+
+
+
                                                End Sub
         AddHandler kdAuftraggeber.PropertyChanged, Sub()
                                                        If kdAuftraggeber.KdNr_value > 0 Then

Aviso/frmHauptfenster.vb

@@ -2554,12 +2554,16 @@ Public Class frmHauptfenster
     End Function
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
         'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
-        'Exit Sub
+        Dim mailTo = "al@verag.ag"
+        Dim betreff = "Betreff - TESTMAIL"
+        Dim htmlBody = "E-Mail Body <b> HTML </b>"
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False)
+        Exit Sub
 
-        Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, {3})
+        Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, ) '{5})
 
         For Each d In dt.Rows
-            MsgBox(d("LKW_Nr"))
+            MsgBox(d("LKW_Nr") & " - " & d("Status"))
         Next
 
 
@@ -3168,6 +3172,7 @@ Public Class frmHauptfenster
     Private Sub EMAILTESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILTESTToolStripMenuItem.Click
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL", , False, True)
 
+
     End Sub
 
     Private Sub FreigabeMailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreigabeMailTestToolStripMenuItem.Click
@@ -5086,7 +5091,7 @@ Public Class AvisoStatusFunctions
 
 
 
-    Public Function AktUebernehmen_Zuruecksetzen(AvisoID) As Boolean
+    Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "") As Boolean
         Try
 
             'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -5110,6 +5115,8 @@ Public Class AvisoStatusFunctions
 
             Aviso.LetzterMitarbeiterId = -1
             Aviso.letzterMitarbeiter = "Weiterleitung" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+            Aviso.WeiterleitungTextTV = WeiterleitungTextTV ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+
             Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
 
@@ -5312,6 +5319,46 @@ Public Class AvisoStatusFunctions
 
     End Function
 
+    Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1) As Boolean
+
+        If SendungsId Is Nothing Then Return False
+        If Not IsNumeric(SendungsId) Then Return False
+        If AvisoID Is Nothing Then Return False
+        If Not IsNumeric(AvisoID) Then Return False
+
+        Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
+
+        SENDUNG_TMP.saveSachbearbeiter = True
+
+        'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
+        'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
+
+        SENDUNG_TMP.tblSnd_anzahlHandling = anzahl
+
+        If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then
+            SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            'SENDUNG_TMP.tblSnd_FilialeAbfertigung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
+            'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
+            '    SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            'End If
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+
+            SENDUNG_TMP.tblSnd_AbfertigungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        Else
+            SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        End If
+        Return SENDUNG_TMP.SAVE()
+
+    End Function
+
     Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean
 
         If SendungsId Is Nothing Then Return False

Aviso/frmSendungsdetailsNEU.resx

@@ -118,103 +118,6 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
-        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
-        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
-        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
-        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
-        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
-        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
-        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
-        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
-        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
-        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
-        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
-        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
-        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
-        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
-        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
-        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
-        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
-        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
-        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
-        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
-        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
-        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
-        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
-        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
-        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
-        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
-        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
-        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
-        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
-        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
-        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
-        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
-        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
-        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
-        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
-        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
-        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
-        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
-        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
-        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
-        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
-        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
-        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
-        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
-        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
-        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
-        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
-        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
-        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
-        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
-        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
-        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
-        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
-        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
-        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
-        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
-        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
-        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
-        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
-        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
-        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
-        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
-        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
-        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
-        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
-        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
-        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
-        AElFTkSuQmCC
-</value>
-  </data>
   <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1628,9 +1531,6 @@
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
   </data>
-  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>296, 17</value>
-  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1642,18 +1542,103 @@
   <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>296, 17</value>
   </metadata>
-  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>True</value>
+    <value>
-  </metadata>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-    <value>True</value>
+        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-  </metadata>
+        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-    <value>True</value>
+        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-  </metadata>
+        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-    <value>True</value>
+        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-  </metadata>
+        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
+        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
+        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
+        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
+        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
+        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
+        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
+        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
+        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
+        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
+        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
+        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
+        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
+        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
+        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
+        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
+        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
+        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
+        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
+        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
+        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
+        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
+        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
+        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
+        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
+        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
+        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
+        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
+        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
+        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
+        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
+        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
+        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
+        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
+        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
+        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
+        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
+        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
+        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
+        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
+        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
+        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
+        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
+        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
+        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
+        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
+        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
+        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
+        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
+        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
+        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
+        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
+        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
+        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
+        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
+        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
+        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
+        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
+        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
+        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
+        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
+        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
+        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
+        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
+        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
+        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
+        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
+        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
+        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
+        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
+        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
+        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
+        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
   <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
@@ -1842,7 +1827,7 @@
   <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
+        wQAADsEBuJFr7QAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
         pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
         Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
         /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
@@ -1854,7 +1839,7 @@
   <data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
+        wQAADsEBuJFr7QAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
         DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
         rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
         i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
@@ -1866,7 +1851,7 @@
   <data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
+        wQAADsEBuJFr7QAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
         h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
         twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
         kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
@@ -1877,7 +1862,7 @@
   <data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
+        wQAADsEBuJFr7QAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
         n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
         N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
         oAc0QjgAAAAASUVORK5CYII=
@@ -1886,7 +1871,7 @@
   <data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
+        wQAADsEBuJFr7QAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
         5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
         Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
         08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
@@ -1898,9 +1883,6 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>

Aviso/frmSendungsdetailsNEU.vb

@@ -98,12 +98,16 @@ Public Class frmSendungsdetailsNEU
         txtColli.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
         txtGewicht.Focus() 'DAMIT evtl. LEAVE Events ausgelöst werden
 
-        loadDataInLIST()
-
         If AVISO.Abgeschlossen Then
             'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
             Return True
         End If
+
+        loadDataInLIST()
+
+
+        If VALIDATE_ME() Then
+
             SAVE_ME = True
             If saveAll Then
                 For Each s In SENDUNG_LIST
@@ -122,6 +126,26 @@ Public Class frmSendungsdetailsNEU
             '    Case "UNISPED"
             '        SQL.doSQL("UPDATE Aviso SET DakosyRef='" & txtDyRef.Text & "' WHERE AvisoId='" & AvisoId & "'", "AVISO")
             'End Select
+        End If
+    End Function
+
+    Function VALIDATE_ME() As Boolean
+        Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
+
+        If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
+            'Firma=Cluster, zB Front-Office --> darf alle Firmen auswählen.
+        Else
+            If FilialeAktFirma <> "" Then
+                If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
+                    If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                    If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                    If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                    If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                    If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                End If
+            End If
+        End If
+        Return True
     End Function
 
     Sub NEXT_SENDUNG()
@@ -887,6 +911,8 @@ Public Class frmSendungsdetailsNEU
         newRow.tblSnd_Vorbereitet = Nothing
         newRow.tblSnd_AbklaerungTR = Nothing
         newRow.tblSnd_AbklaerungTR_MA = Nothing
+        newRow.tblSnd_AbfertigungTR = Nothing
+        newRow.tblSnd_AbfertigungTR_MA = Nothing
 
 
         newRow.tblSnd_SendungID = -1
@@ -2687,12 +2713,15 @@ Public Class frmSendungsdetailsNEU
                     Case "AMBAR"
                         If cboFiliale._value <> "5701" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER
                     Case "VERAG"
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) <> "VERAG" Then sperren = True 'Grundsätzlich wenn nicht VERAG --> sperren
+
                         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
                             If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True
                         End If
                         If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "IMEX" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
                             sperren = False
                         End If
+
                 End Select
             End If
         End If
@@ -2713,6 +2742,44 @@ Public Class frmSendungsdetailsNEU
     End Sub
     Private Sub cboFiliale_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiliale.SelectedIndexChanged
         '  btnKassenbuchEintrag.Enabled = True
+        If loaded Then
+            If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
+
+                If cboFiliale._value <> "" Then
+
+                    Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
+                    Dim FilialeNeuFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value,, "")
+
+                    If FilialeNeuFirma <> "FRONTOFFICE" And FilialeAktFirma <> "FRONTOFFICE" Then
+                        If FilialeAktFirma <> "" And FilialeNeuFirma <> "" Then
+                            If FilialeAktFirma <> FilialeNeuFirma Then
+                                Dim kdGesetz As Boolean = False
+                                If txtAvisierer.KdNr_value > 0 Then kdGesetz = True
+                                If txtAuftraggeber.KdNr_value > 0 Then kdGesetz = True
+                                If txtEmpfaenger.KdNr_value > 0 Then kdGesetz = True
+                                If txtFrachtfuehrer.KdNr_value > 0 Then kdGesetz = True
+                                If txtAbsender.KdNr_value > 0 Then kdGesetz = True
+                                'If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(txtAvisierer.KdData_KUNDE.FilialenNr,, "") <> FilialeNeuFirma Then kdGesetz
+                                If kdGesetz Then
+                                    If vbYes = MsgBox("Es wurden bereits Kundennummern einer anderen Firma im Verbund eingetragen. Möchten Sie fortfahren?" & vbNewLine & vbNewLine & "(Die Kundenummern werden zurückgesetzt.)", vbYesNoCancel) Then
+                                        txtAvisierer.setKdNrKeepName()
+                                        txtAuftraggeber.setKdNrKeepName()
+                                        txtEmpfaenger.setKdNrKeepName()
+                                        txtFrachtfuehrer.setKdNrKeepName()
+                                        txtAbsender.setKdNrKeepName()
+                                    Else
+                                        cboFiliale.changeItem(FilialeAktFirma)
+                                        Exit Sub
+                                    End If
+                                End If
+                            End If
+                        End If
+                    End If
+                End If
+                End If
+            End If
+
+
 
             txtAnzahlPos.Visible = (cboFiliale._value = "7001")
         Label4.Visible = (cboFiliale._value = "7001")

Aviso/usrCntlBenachrichtigungen.vb

@@ -13,7 +13,7 @@
 
             With gridAvisoBenachrichtigungen
                 .DefaultCellStyle.Font = gridFont
-                .Columns.Clear()
+                If .Columns IsNot Nothing AndAlso .Columns.Count > 0 Then .Columns.Clear()
 
                 '.RowTemplate.Height = rowHeight  'muss vor Bindung sein
 

Aviso/usrCntlVermerkeATilla.Designer.vb

@@ -29,6 +29,8 @@ Partial Class usrCntlVermerkeATilla
         Me.btnLKWStandzeitFeierteage = New System.Windows.Forms.Button()
         Me.btnLKWStandzeitWE = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.btnAbfertigungTr = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.lblErrSendung = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
@@ -42,7 +44,6 @@ Partial Class usrCntlVermerkeATilla
         Me.btnAuftragFehlt = New System.Windows.Forms.Button()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.Button2 = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -111,6 +112,7 @@ Partial Class usrCntlVermerkeATilla
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.btnAbfertigungTr)
         Me.pnl.Controls.Add(Me.Button2)
         Me.pnl.Controls.Add(Me.Button1)
         Me.pnl.Controls.Add(Me.lblErrSendung)
@@ -132,9 +134,38 @@ Partial Class usrCntlVermerkeATilla
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(435, 311)
+        Me.pnl.Size = New System.Drawing.Size(494, 311)
         Me.pnl.TabIndex = 111
         '
+        'btnAbfertigungTr
+        '
+        Me.btnAbfertigungTr.BackColor = System.Drawing.Color.White
+        Me.btnAbfertigungTr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbfertigungTr.Image = Global.AVISO.My.Resources.Resources.abklaerungTR_Inaktiv
+        Me.btnAbfertigungTr.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnAbfertigungTr.Location = New System.Drawing.Point(407, 9)
+        Me.btnAbfertigungTr.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnAbfertigungTr.Name = "btnAbfertigungTr"
+        Me.btnAbfertigungTr.Size = New System.Drawing.Size(85, 83)
+        Me.btnAbfertigungTr.TabIndex = 120
+        Me.btnAbfertigungTr.Text = "Abfertigung " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "TR"
+        Me.btnAbfertigungTr.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnAbfertigungTr.UseVisualStyleBackColor = False
+        Me.btnAbfertigungTr.Visible = False
+        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.White
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button2.Location = New System.Drawing.Point(12, 204)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(183, 27)
+        Me.Button2.TabIndex = 119
+        Me.Button2.Text = "Unbedingt Schichtleiter fragen!"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
         'Button1
         '
         Me.Button1.BackColor = System.Drawing.Color.White
@@ -170,14 +201,21 @@ Partial Class usrCntlVermerkeATilla
         '
         'txtSendung
         '
+        Me.txtSendung._DateTimeOnly = False
         Me.txtSendung._numbersOnly = False
+        Me.txtSendung._numbersOnlyKommastellen = ""
         Me.txtSendung._Prozent = False
         Me.txtSendung._ShortDateNew = False
+        Me.txtSendung._ShortDateOnly = False
         Me.txtSendung._TimeOnly = False
         Me.txtSendung._value = Nothing
         Me.txtSendung._Waehrung = False
+        Me.txtSendung._WaehrungZeichen = True
         Me.txtSendung.ForeColor = System.Drawing.Color.Black
         Me.txtSendung.Location = New System.Drawing.Point(199, 117)
+        Me.txtSendung.MaxLineLength = -1
+        Me.txtSendung.MaxLines_Warning = ""
+        Me.txtSendung.MaxLines_Warning_Label = Nothing
         Me.txtSendung.Name = "txtSendung"
         Me.txtSendung.Size = New System.Drawing.Size(183, 20)
         Me.txtSendung.TabIndex = 115
@@ -279,22 +317,10 @@ Partial Class usrCntlVermerkeATilla
         '
         'ContextMenuStrip1
         '
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
-        'Button2
-        '
-        Me.Button2.BackColor = System.Drawing.Color.White
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.Button2.Location = New System.Drawing.Point(12, 204)
-        Me.Button2.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(183, 27)
-        Me.Button2.TabIndex = 119
-        Me.Button2.Text = "Unbedingt Schichtleiter fragen!"
-        Me.Button2.UseVisualStyleBackColor = False
-        '
         'usrCntlVermerkeATilla
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -303,7 +329,7 @@ Partial Class usrCntlVermerkeATilla
         Me.BackColor = System.Drawing.SystemColors.Control
         Me.Controls.Add(Me.pnl)
         Me.Name = "usrCntlVermerkeATilla"
-        Me.Size = New System.Drawing.Size(435, 311)
+        Me.Size = New System.Drawing.Size(494, 311)
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
         Me.ResumeLayout(False)
@@ -328,5 +354,5 @@ Partial Class usrCntlVermerkeATilla
     Friend WithEvents lblErrSendung As System.Windows.Forms.Label
     Friend WithEvents Button1 As System.Windows.Forms.Button
     Friend WithEvents Button2 As System.Windows.Forms.Button
-
+    Friend WithEvents btnAbfertigungTr As Button
 End Class

Aviso/usrCntlVermerkeATilla.vb

@@ -10,21 +10,26 @@ Public Class usrCntlVermerkeATilla
     Dim hStatus As Integer
     Public AvisoID As Integer = -1
 
+    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+
     Public Sub New()
         InitializeComponent()
     End Sub
 
-    Public Sub New(AvisoID)
+    Public Sub New(AvisoID, Sendung)
         InitializeComponent()
         Me.AvisoID = AvisoID
+        Me.Sendung = Sendung
     End Sub
 
-    Public Sub init(AvisoID)
+    Public Sub init(AvisoID, Sendung)
         Me.Refresh()
         Me.AvisoID = AvisoID
+        Me.Sendung = Sendung
     End Sub
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click,
-         btnNichtAvisiert.Click, btnLKWFertig.Click, btnAuftragFehlt.Click, btnRechnungFehlt.Click, btnATRErstellt.Click, btnOK.Click, Button1.Click, Button2.Click
+         btnNichtAvisiert.Click, btnLKWFertig.Click, btnAuftragFehlt.Click, btnRechnungFehlt.Click, btnATRErstellt.Click, btnOK.Click, Button1.Click, Button2.Click,
+        btnAbfertigungTr.Click
 
         lblErr240Zeichen.Visible = False
         lblErrSendung.Visible = False
@@ -58,6 +63,27 @@ Public Class usrCntlVermerkeATilla
         ElseIf sender Is Button2 Then
             If txtSendung.Text.Trim = "" Then lblErrSendung.Visible = True : Exit Sub
             insertVermerk("Unbedingt Schichtleiter zu Sendung '" & txtSendung.Text.Trim & "' fragen!", 51)
+        ElseIf sender Is btnAbfertigungTr Then
+
+            If Sendung IsNot Nothing Then
+
+                Dim anzahl As String = "0"
+                If Sendung.tblSnd_AbfertigungTR Is Nothing Then
+                    anzahl = InputBox("Anzahl T1/T2:")
+                    If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
+                        Exit Sub
+                    Else
+                        anzahl = CInt(anzahl)
+                    End If
+                End If
+
+
+                Dim FUNC As New AvisoStatusFunctions
+                FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl)
+                Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
+                    initControls()
+
+                End If
         ElseIf sender Is btnOK Then
             If txtDetail.Text.Trim = "" Then lblErr240Zeichen.Visible = True : Exit Sub
             If txtDetail.Text.Length <= 80 Then
@@ -72,7 +98,15 @@ Public Class usrCntlVermerkeATilla
             End If
         End If
     End Sub
-
+    Sub initControls()
+        If Sendung IsNot Nothing Then
+            If Sendung.tblSnd_AbfertigungTR Is Nothing Then
+                btnAbfertigungTr.Image = My.Resources.abfetigungTR_inaktiv
+            Else
+                btnAbfertigungTr.Image = My.Resources.abfetigungTR_aktiv
+            End If
+        End If
+    End Sub
     Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
         If AvisoID <= 0 Then MsgBox("Fehler: Keine Aviso-ID!") : Exit Sub
 
@@ -92,5 +126,11 @@ Public Class usrCntlVermerkeATilla
         RaiseEvent VERMERKEingetragen()
     End Sub
 
+    Private Sub usrCntlVermerkeATilla_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControls()
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbfertigungTR", "AVISO") Then
+            btnAbfertigungTr.Visible = True
+        End If
+    End Sub
 End Class

Aviso/usrcntlAktDetails.vb

@@ -416,7 +416,7 @@ Public Class usrcntlAktDetails
         With dgvSendungen
             '    Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1)
             .Columns.Clear()
-            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA " &
+            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA ,tblSnd_AbfertigungTR, tblSnd_AbfertigungTR_MA " &
                                                       " FROM tblSendungen  WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID
 
             '   If .RowCount = 0 Then .Columns.Clear() : Exit Sub
@@ -433,6 +433,8 @@ Public Class usrcntlAktDetails
             .Columns("tblSnd_Vorgeschrieben").Visible = False
             .Columns("tblSnd_AbklaerungTR").Visible = False
             .Columns("tblSnd_AbklaerungTR_MA").Visible = False
+            .Columns("tblSnd_AbfertigungTR").Visible = False
+            .Columns("tblSnd_AbfertigungTR_MA").Visible = False
             .Columns("tblSnd_Vorbereitet").Visible = False
             .Columns("LetzterMitarbeiter").Visible = False
             .Columns("LetzterMitarbeiterId").Visible = False
@@ -503,6 +505,8 @@ Public Class usrcntlAktDetails
                 .Columns.Add(c)
             End If
 
+
+
             c = New DataGridViewImageColumn
             c.Name = "StatusVorbereitetQS"
             c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
@@ -520,6 +524,16 @@ Public Class usrcntlAktDetails
             c.HeaderText = "VG"
             .Columns.Add(c)
 
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbfertigungTR", "AVISO") Then
+                c = New DataGridViewImageColumn
+                c.Name = "StatusAbfertigungTR"
+                c.Image = My.Resources.abfetigungTR_inaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                c.ToolTipText = "Status 'AbfertigungTR' eintragen"
+                c.HeaderText = "TR"
+                .Columns.Add(c)
+            End If
+
             c = New DataGridViewImageColumn
             c.Name = "SpeditionsbuchEintragen"
             c.Image = My.Resources.speditionsbuchInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
@@ -779,6 +793,10 @@ Public Class usrcntlAktDetails
                     txtMAinfo_AbklaerungTR.Text = "-"
                     txtMAinfo_AbklaerungTR.Tag = ""
 
+                    'picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Inaktiv
+                    'txtMAinfo_AbfertigungTR.Text = "-"
+                    'txtMAinfo_AbfertigungTR.Tag = ""
+
                     If dgvSendungen.SelectedRows.Count > 0 Then
                         sendwhere = " AND VermerkArt='S'  AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
 
@@ -794,6 +812,15 @@ Public Class usrcntlAktDetails
                             txtMAinfo_AbklaerungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value
                         End If
 
+                        'AbfertigungTR
+                        'pnlMAInfoXX.Visible = True
+                        'If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then
+                        '    picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Aktiv
+                        '    txtMAinfo_AbfertigungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-")
+                        '    txtMAinfo_AbfertigungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value
+                        'End If
+
+
                         'Vorbereitet
                         pnlMAInfo.Visible = True
                         If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
@@ -995,6 +1022,10 @@ Public Class usrcntlAktDetails
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                     init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
 
+                Case "46"
+                    MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText)
+                    init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+
                 Case "36"
                     myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 37
@@ -1189,18 +1220,24 @@ Public Class usrcntlAktDetails
                                 optionCell.ToolTipText = "SMS Satus"
                                 optionCell.Style.BackColor = Color.White
                                 optionCell.LinkColor = Color.Black
+
+                                'Select Case MSG.Status
+                                '    Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
+
+
                                 Select Case SMS.sms_Status
-                                    Case -1, 0 : optionCell.Value = ""
+                                    Case -1 : optionCell.Value = ""
-                                    Case 1, 2 : optionCell.Value = "wartend..."
+                                    Case com.esendex.sdk.core.MessageStatus.Submitted, com.esendex.sdk.core.MessageStatus.Sent, com.esendex.sdk.core.MessageStatus.Connecting, com.esendex.sdk.core.MessageStatus.Acknowledged, com.esendex.sdk.core.MessageStatus.Scheduled
+                                        optionCell.Value = "wartend..."
                                         optionCell.Style.BackColor = Color.PapayaWhip
                                         optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
-                                    Case 3
+                                    Case com.esendex.sdk.core.MessageStatus.Delivered, com.esendex.sdk.core.MessageStatus.PartiallyDelivered
                                         optionCell.Value = "OK - Empfangen!"
                                         optionCell.LinkColor = Color.Green
                                         ' optionCell.Style.BackColor = Color.Green
                                         ' optionCell.LinkColor = Color.White
                                         'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
-                                    Case 4 : optionCell.Value = "SMS: Sendefehler!"
+                                    Case Else : optionCell.Value = "SMS: Sendefehler!"
                                         optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
                                         optionCell.LinkColor = Color.Red
                                         optionCell.Style.BackColor = Color.PapayaWhip
@@ -1734,6 +1771,14 @@ Public Class usrcntlAktDetails
                     initDgvSendungen()
                 End If
 
+                Me.Cursor = Cursors.Default
+            Case "StatusAbfertigungTR"
+                sendAktiv = False
+                Me.Cursor = Cursors.WaitCursor
+                If FUNC.setSendungAbfertigungTR(SendungsId, AvisoID) Then
+                    initDgvSendungen()
+                End If
+
                 Me.Cursor = Cursors.Default
 
             Case "StatusVorgeschrieben"
@@ -1852,6 +1897,7 @@ Public Class usrcntlAktDetails
         If dgvSendungen.DataSource Is Nothing Then Return False
         If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False
         If dgvSendungen.Columns("tblSnd_AbklaerungTR") Is Nothing Then Return False
+        If dgvSendungen.Columns("tblSnd_AbfertigungTR") Is Nothing Then Return False
         'If dgvSendungen.Columns("StatusAbklaerungTR") Is Nothing Then Return False
         If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False
         If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False
@@ -1881,6 +1927,15 @@ Public Class usrcntlAktDetails
                         DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' eintragen"
                     End If
                 End If
+                If dgvSendungen.Columns("StatusAbfertigungTR") IsNot Nothing Then
+                    If r.Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then
+
+                        DirectCast(r.Cells("StatusAbfertigungTR"), DataGridViewImageCell).Value = My.Resources.abfetigungTR_aktiv
+                        DirectCast(r.Cells("StatusAbfertigungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abfertigung-TR' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_AbfertigungTR").Value & ")"
+                    Else
+                        DirectCast(r.Cells("StatusAbfertigungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abfertigung-TR' eintragen"
+                    End If
+                End If
 
                 If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
                     DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv

Aviso/usrcntlAktDetailsATILLA.vb

@@ -54,8 +54,11 @@ Public Class usrcntlAktDetailsATILLA
     End Sub
     Public Sub reload(id)
         Try
-
+            Dim SENDUNG = Nothing
-            UsrCntlVermerkeATilla1.init(id)
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                SENDUNG = SENDUNG_LIST(0)
+            End If
+            UsrCntlVermerkeATilla1.init(id, SENDUNG)
             '  reloadTimer.Enabled = True
             loaded = False
             pnlOptionen.Visible = False

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -47,6 +47,7 @@ Public Class usrcntlAktDetailsATILLANeu
     Dim WithEvents timerAktUebernommen As New Timer
     Dim SQL As New SDL.SQL
     Dim ADMIN As New cADMIN
+    Dim painted = False ' Damit gridVermerke Formattierung nicht dauernd anspringt..
 
     Sub New(AvisoID)
 
@@ -57,14 +58,25 @@ Public Class usrcntlAktDetailsATILLANeu
 
     End Sub
     Public Sub reload(id)
+        AvisoID = id
 
-        UsrCntlVermerkeATilla1.init(id)
+        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID)
+
+        TextBox1.Text = ""
+        If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+            TextBox1.Text = SENDUNG_LIST(0).AbfertigungsNr
+        End If
+        Dim SENDUNG = Nothing
+        If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+            SENDUNG = SENDUNG_LIST(0)
+        End If
+        UsrCntlVermerkeATilla1.init(id, SENDUNG)
         '  reloadTimer.Enabled = True
         loaded = False
         pnlOptionen.Visible = False
         pnlDetailsRechts.Enabled = False
         pnlDetailsRechts.Cursor = Cursors.WaitCursor
-        AvisoID = id
+
         Dim v As Boolean = (AvisoID > 0)
         setVisible(btnAnkunft, v)
         setVisible(btnFreigabe, v)
@@ -80,12 +92,7 @@ Public Class usrcntlAktDetailsATILLANeu
 
         Details_anzeigen()
 
-        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID)
 
-        TextBox1.Text = ""
-        If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-            TextBox1.Text = SENDUNG_LIST(0).AbfertigungsNr
-        End If
 
         pnlDetailsRechts.Enabled = True
         pnlDetailsRechts.Cursor = Cursors.Default
@@ -356,6 +363,7 @@ Public Class usrcntlAktDetailsATILLANeu
             .Columns("Mitarbeiter").MinimumWidth = 50
             .Columns("Mitarbeiter").HeaderText = "Mitarbeiter"
             .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("SMSId").Visible = False     'tblSnd_Empfaengernicht anzeigen
 
 
             '  .Columns.Add(New DataGridViewButtonColumn)
@@ -407,7 +415,7 @@ Public Class usrcntlAktDetailsATILLANeu
         Dim sendwhere = ""
 
         Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," &
-                                "/* CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],*/ Hinweis_Vermerk as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter]" &
+                                "/* CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],*/ Hinweis_Vermerk as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],SMSId" &
                              " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                              " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
                              " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -427,6 +435,7 @@ Public Class usrcntlAktDetailsATILLANeu
         gridVermerke_SpaltenFestlegen()
 
         timer.Enabled = True
+        painted = False
 
     End Sub
 
@@ -586,6 +595,9 @@ Public Class usrcntlAktDetailsATILLANeu
                     myVermerk.VermerkCodeId = 37
                     VermerkeDAL.SpeichernVermerk(myVermerk)
                     init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                Case "46"
+                    MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText)
+                    init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
             End Select
             loaded = False
             Dim tmpIndex = -1
@@ -597,6 +609,7 @@ Public Class usrcntlAktDetailsATILLANeu
 
     Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
         '     If dgvSendungen.RowCount = 0 Then Exit Sub
+        If painted Then Exit Sub
         Try
             For Each r As DataGridViewRow In gridVermerke.Rows
                 '  If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
@@ -669,9 +682,44 @@ Public Class usrcntlAktDetailsATILLANeu
                                 optionCell.Value = "Kontaktdaten erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
                             End If
+
+                        Case 46
+
+                            If r.Cells("SMSId").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("SMSId").Value) Then
+                                Dim SMS As New VERAG_PROG_ALLGEMEIN.cSMS(r.Cells("SMSId").Value)
+                                optionCell.ToolTipText = "SMS Satus"
+                                optionCell.Style.BackColor = Color.White
+                                optionCell.LinkColor = Color.Black
+
+                                'Select Case MSG.Status
+                                '    Case MessageStatus.Expired, MessageStatus.Failed, MessageStatus.FailedAuthorisation, MessageStatus.Cancelled, MessageStatus.Rejected
+
+
+                                Select Case SMS.sms_Status
+                                    Case -1 : optionCell.Value = ""
+                                    Case com.esendex.sdk.core.MessageStatus.Submitted, com.esendex.sdk.core.MessageStatus.Sent, com.esendex.sdk.core.MessageStatus.Connecting, com.esendex.sdk.core.MessageStatus.Acknowledged, com.esendex.sdk.core.MessageStatus.Scheduled
+                                        optionCell.Value = "wartend..."
+                                        optionCell.Style.BackColor = Color.PapayaWhip
+                                        optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
+                                    Case com.esendex.sdk.core.MessageStatus.Delivered, com.esendex.sdk.core.MessageStatus.PartiallyDelivered
+                                        optionCell.Value = "OK - Empfangen!"
+                                        optionCell.LinkColor = Color.Green
+                                        ' optionCell.Style.BackColor = Color.Green
+                                        ' optionCell.LinkColor = Color.White
+                                        'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
+                                    Case Else : optionCell.Value = "SMS: Sendefehler!"
+                                        optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
+                                        optionCell.LinkColor = Color.Red
+                                        optionCell.Style.BackColor = Color.PapayaWhip
+                                        optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
+                                        'optionCell.LinkColor = Color.White
+                                        'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
+                                End Select
+                            End If
                     End Select
                 End If
             Next
+            painted = True
 
         Catch ex As Exception
             MsgBox(ex.Message)
@@ -1288,6 +1336,7 @@ Public Class usrcntlAktDetailsATILLANeu
                 Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
 
                 Dim f As New SDL.frmZollanmeldung(ncts_Art, Nothing, AVISO, SND, Now.ToString("yy"), ZOLL_SYSTEM)
+
                 AddHandler f.FormClosed, Sub()
                                              initdgvZollAnmeldungen()
                                          End Sub

AvisoTV/AvisoTV.vbproj

@@ -72,6 +72,25 @@
   <PropertyGroup>
     <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
   </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
+    <DebugSymbols>true</DebugSymbols>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>AvisoTV.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>full</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\x64\Release\</OutputPath>
+    <DocumentationFile>AvisoTV.xml</DocumentationFile>
+    <Optimize>true</Optimize>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>pdbonly</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Data" />

AvisoTV/frmAnzeige.Designer.vb

@@ -27,6 +27,11 @@ Partial Class frmAnzeige
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -40,12 +45,15 @@ Partial Class frmAnzeige
         Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.gridAnkunft = New System.Windows.Forms.DataGridView()
+        Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.colAnkunft = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Dauer = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.letzterMitarbeiter = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnBuero = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnImEx = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.lblZeit = New System.Windows.Forms.Label()
         Me.lblZeile1 = New System.Windows.Forms.Label()
         Me.lblZeile2 = New System.Windows.Forms.Label()
@@ -119,6 +127,7 @@ Partial Class frmAnzeige
         Me.gridFertig = New System.Windows.Forms.DataGridView()
         Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewImageColumn()
         Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label26 = New System.Windows.Forms.Label()
         Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -126,14 +135,7 @@ Partial Class frmAnzeige
         Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.colAnkunft = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Dauer = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.letzterMitarbeiter = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnBuero = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnImEx = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
         CType(Me.gridAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picConnectionProblem, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -183,10 +185,97 @@ Partial Class frmAnzeige
         Me.gridAnkunft.RowsDefaultCellStyle = DataGridViewCellStyle9
         Me.gridAnkunft.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
         Me.gridAnkunft.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.gridAnkunft.Size = New System.Drawing.Size(826, 493)
+        Me.gridAnkunft.Size = New System.Drawing.Size(826, 444)
         Me.gridAnkunft.TabIndex = 1
         Me.gridAnkunft.TabStop = False
         '
+        'colFertig
+        '
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
+        Me.colFertig.DefaultCellStyle = DataGridViewCellStyle3
+        Me.colFertig.HeaderText = "KOMMEN/TAMAM"
+        Me.colFertig.Name = "colFertig"
+        Me.colFertig.ReadOnly = True
+        Me.colFertig.Width = 140
+        '
+        'colLKWNr
+        '
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.colLKWNr.DefaultCellStyle = DataGridViewCellStyle4
+        Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA"
+        Me.colLKWNr.Name = "colLKWNr"
+        Me.colLKWNr.ReadOnly = True
+        Me.colLKWNr.Width = 400
+        '
+        'colAnkunft
+        '
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black
+        Me.colAnkunft.DefaultCellStyle = DataGridViewCellStyle5
+        Me.colAnkunft.HeaderText = "ANKUNFT/GELIS"
+        Me.colAnkunft.Name = "colAnkunft"
+        Me.colAnkunft.ReadOnly = True
+        Me.colAnkunft.Width = 300
+        '
+        'Dauer
+        '
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.Color.Black
+        Me.Dauer.DefaultCellStyle = DataGridViewCellStyle6
+        Me.Dauer.HeaderText = "DAUER/SÜRE"
+        Me.Dauer.Name = "Dauer"
+        Me.Dauer.ReadOnly = True
+        Me.Dauer.Width = 200
+        '
+        'letzterMitarbeiter
+        '
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black
+        Me.letzterMitarbeiter.DefaultCellStyle = DataGridViewCellStyle7
+        Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI"
+        Me.letzterMitarbeiter.Name = "letzterMitarbeiter"
+        Me.letzterMitarbeiter.ReadOnly = True
+        Me.letzterMitarbeiter.Width = 500
+        '
+        'clmnBuero
+        '
+        Me.clmnBuero.HeaderText = "BÜRO/KAPI"
+        Me.clmnBuero.Name = "clmnBuero"
+        Me.clmnBuero.ReadOnly = True
+        Me.clmnBuero.Visible = False
+        '
+        'clmnImEx
+        '
+        Me.clmnImEx.HeaderText = "ART"
+        Me.clmnImEx.Name = "clmnImEx"
+        Me.clmnImEx.ReadOnly = True
+        Me.clmnImEx.Visible = False
+        '
+        'clmnArt
+        '
+        Me.clmnArt.HeaderText = ""
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.ReadOnly = True
+        Me.clmnArt.Width = 30
+        '
         'lblZeit
         '
         Me.lblZeit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -195,7 +284,7 @@ Partial Class frmAnzeige
         Me.lblZeit.ForeColor = System.Drawing.Color.White
         Me.lblZeit.Location = New System.Drawing.Point(0, 0)
         Me.lblZeit.Name = "lblZeit"
-        Me.lblZeit.Size = New System.Drawing.Size(352, 108)
+        Me.lblZeit.Size = New System.Drawing.Size(352, 107)
         Me.lblZeit.TabIndex = 0
         Me.lblZeit.Text = "17.10. 14:38:00"
         Me.lblZeit.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -222,9 +311,9 @@ Partial Class frmAnzeige
         Me.lblZeile2.BackColor = System.Drawing.Color.White
         Me.lblZeile2.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblZeile2.ForeColor = System.Drawing.Color.Red
-        Me.lblZeile2.Location = New System.Drawing.Point(361, 54)
+        Me.lblZeile2.Location = New System.Drawing.Point(361, 49)
         Me.lblZeile2.Name = "lblZeile2"
-        Me.lblZeile2.Size = New System.Drawing.Size(723, 54)
+        Me.lblZeile2.Size = New System.Drawing.Size(739, 49)
         Me.lblZeile2.TabIndex = 3
         Me.lblZeile2.Text = "0123456789012345678901234567890123456789x"
         Me.lblZeile2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -243,7 +332,7 @@ Partial Class frmAnzeige
         Me.lblSeite.ForeColor = System.Drawing.Color.White
         Me.lblSeite.Location = New System.Drawing.Point(1106, 0)
         Me.lblSeite.Name = "lblSeite"
-        Me.lblSeite.Size = New System.Drawing.Size(146, 65)
+        Me.lblSeite.Size = New System.Drawing.Size(146, 57)
         Me.lblSeite.TabIndex = 2
         Me.lblSeite.Text = "10/10"
         Me.lblSeite.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -593,9 +682,9 @@ Partial Class frmAnzeige
         Me.lblAnzahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.lblAnzahl.Font = New System.Drawing.Font("Arial", 28.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblAnzahl.ForeColor = System.Drawing.Color.White
-        Me.lblAnzahl.Location = New System.Drawing.Point(1106, 61)
+        Me.lblAnzahl.Location = New System.Drawing.Point(1106, 55)
         Me.lblAnzahl.Name = "lblAnzahl"
-        Me.lblAnzahl.Size = New System.Drawing.Size(146, 47)
+        Me.lblAnzahl.Size = New System.Drawing.Size(146, 53)
         Me.lblAnzahl.TabIndex = 4
         Me.lblAnzahl.Text = "15"
         Me.lblAnzahl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -618,7 +707,7 @@ Partial Class frmAnzeige
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.picVERAG.BackColor = System.Drawing.Color.Transparent
         Me.picVERAG.Image = Global.AvisoTV.My.Resources.Resources.Verag_AG_Logopng
-        Me.picVERAG.Location = New System.Drawing.Point(359, 29)
+        Me.picVERAG.Location = New System.Drawing.Point(359, -1)
         Me.picVERAG.Name = "picVERAG"
         Me.picVERAG.Size = New System.Drawing.Size(741, 58)
         Me.picVERAG.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -712,9 +801,9 @@ Partial Class frmAnzeige
         Me.Panel2.Controls.Add(Me.lblAnzahl)
         Me.Panel2.Controls.Add(Me.lblSeite)
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(0, 514)
+        Me.Panel2.Location = New System.Drawing.Point(0, 515)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1250, 110)
+        Me.Panel2.Size = New System.Drawing.Size(1250, 109)
         Me.Panel2.TabIndex = 3
         '
         'lblBigInfo2
@@ -724,9 +813,9 @@ Partial Class frmAnzeige
         Me.lblBigInfo2.BackColor = System.Drawing.Color.Firebrick
         Me.lblBigInfo2.Font = New System.Drawing.Font("Microsoft Sans Serif", 50.0!)
         Me.lblBigInfo2.ForeColor = System.Drawing.Color.White
-        Me.lblBigInfo2.Location = New System.Drawing.Point(351, 54)
+        Me.lblBigInfo2.Location = New System.Drawing.Point(351, 47)
         Me.lblBigInfo2.Name = "lblBigInfo2"
-        Me.lblBigInfo2.Size = New System.Drawing.Size(57, 52)
+        Me.lblBigInfo2.Size = New System.Drawing.Size(57, 47)
         Me.lblBigInfo2.TabIndex = 37
         Me.lblBigInfo2.Text = "-"
         Me.lblBigInfo2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -739,7 +828,7 @@ Partial Class frmAnzeige
         Me.lblBigInfo.BackColor = System.Drawing.Color.Firebrick
         Me.lblBigInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 50.0!)
         Me.lblBigInfo.ForeColor = System.Drawing.Color.White
-        Me.lblBigInfo.Location = New System.Drawing.Point(351, 2)
+        Me.lblBigInfo.Location = New System.Drawing.Point(351, 0)
         Me.lblBigInfo.Name = "lblBigInfo"
         Me.lblBigInfo.Size = New System.Drawing.Size(57, 52)
         Me.lblBigInfo.TabIndex = 36
@@ -805,7 +894,7 @@ Partial Class frmAnzeige
         Me.grpTestAnzeige.Controls.Add(Me.txtSchrift5)
         Me.grpTestAnzeige.Controls.Add(Me.txtBreite4)
         Me.grpTestAnzeige.Controls.Add(Me.pnl)
-        Me.grpTestAnzeige.Location = New System.Drawing.Point(424, 185)
+        Me.grpTestAnzeige.Location = New System.Drawing.Point(424, 107)
         Me.grpTestAnzeige.MaximumSize = New System.Drawing.Size(700, 330)
         Me.grpTestAnzeige.Name = "grpTestAnzeige"
         Me.grpTestAnzeige.Size = New System.Drawing.Size(700, 330)
@@ -1036,7 +1125,7 @@ Partial Class frmAnzeige
         Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle15
         Me.gridFertig.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
         Me.gridFertig.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.gridFertig.Size = New System.Drawing.Size(424, 493)
+        Me.gridFertig.Size = New System.Drawing.Size(424, 444)
         Me.gridFertig.TabIndex = 36
         Me.gridFertig.TabStop = False
         '
@@ -1073,6 +1162,20 @@ Partial Class frmAnzeige
         Me.DataGridViewTextBoxColumn8.ReadOnly = True
         Me.DataGridViewTextBoxColumn8.Visible = False
         '
+        'Label26
+        '
+        Me.Label26.BackColor = System.Drawing.Color.LightGray
+        Me.Label26.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!)
+        Me.Label26.ForeColor = System.Drawing.Color.Black
+        Me.Label26.Location = New System.Drawing.Point(0, 465)
+        Me.Label26.Name = "Label26"
+        Me.Label26.Size = New System.Drawing.Size(1250, 50)
+        Me.Label26.TabIndex = 39
+        Me.Label26.Text = "OK / PROBLEM: Lütfen kasaya gelin | Dođite na šalter | Bitte an den Schalter komm" &
+    "en"
+        Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
         'DataGridViewTextBoxColumn1
         '
         Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -1084,6 +1187,7 @@ Partial Class frmAnzeige
         Me.DataGridViewTextBoxColumn1.HeaderText = "FERTIG/TAMAM"
         Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
         Me.DataGridViewTextBoxColumn1.ReadOnly = True
+        Me.DataGridViewTextBoxColumn1.Visible = False
         '
         'DataGridViewTextBoxColumn2
         '
@@ -1156,106 +1260,28 @@ Partial Class frmAnzeige
         '
         Me.DataGridViewTextBoxColumn9.HeaderText = "ART"
         Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
+        Me.DataGridViewTextBoxColumn9.ReadOnly = True
         Me.DataGridViewTextBoxColumn9.Visible = False
         '
-        'colFertig
+        'DataGridViewTextBoxColumn10
         '
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        Me.DataGridViewTextBoxColumn10.HeaderText = ""
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightGreen
+        Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.LightGreen
+        Me.DataGridViewTextBoxColumn10.ReadOnly = True
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn10.Width = 30
-        Me.colFertig.DefaultCellStyle = DataGridViewCellStyle3
-        Me.colFertig.HeaderText = "KOMMEN/TAMAM"
-        Me.colFertig.Name = "colFertig"
-        Me.colFertig.ReadOnly = True
-        Me.colFertig.Width = 140
-        '
-        'colLKWNr
-        '
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.colLKWNr.DefaultCellStyle = DataGridViewCellStyle4
-        Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA"
-        Me.colLKWNr.Name = "colLKWNr"
-        Me.colLKWNr.ReadOnly = True
-        Me.colLKWNr.Width = 400
-        '
-        'colAnkunft
-        '
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black
-        Me.colAnkunft.DefaultCellStyle = DataGridViewCellStyle5
-        Me.colAnkunft.HeaderText = "ANKUNFT/GELIS"
-        Me.colAnkunft.Name = "colAnkunft"
-        Me.colAnkunft.ReadOnly = True
-        Me.colAnkunft.Width = 300
-        '
-        'Dauer
-        '
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.Color.Black
-        Me.Dauer.DefaultCellStyle = DataGridViewCellStyle6
-        Me.Dauer.HeaderText = "DAUER/SÜRE"
-        Me.Dauer.Name = "Dauer"
-        Me.Dauer.ReadOnly = True
-        Me.Dauer.Width = 200
-        '
-        'letzterMitarbeiter
-        '
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black
-        Me.letzterMitarbeiter.DefaultCellStyle = DataGridViewCellStyle7
-        Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI"
-        Me.letzterMitarbeiter.Name = "letzterMitarbeiter"
-        Me.letzterMitarbeiter.ReadOnly = True
-        Me.letzterMitarbeiter.Width = 500
-        '
-        'clmnBuero
-        '
-        Me.clmnBuero.HeaderText = "BÜRO/KAPI"
-        Me.clmnBuero.Name = "clmnBuero"
-        Me.clmnBuero.ReadOnly = True
-        Me.clmnBuero.Visible = False
-        '
-        'clmnImEx
-        '
-        Me.clmnImEx.HeaderText = "ART"
-        Me.clmnImEx.Name = "clmnImEx"
-        Me.clmnImEx.ReadOnly = True
-        Me.clmnImEx.Visible = False
-        '
-        'clmnArt
-        '
-        Me.clmnArt.HeaderText = ""
-        Me.clmnArt.Name = "clmnArt"
-        Me.clmnArt.ReadOnly = True
-        Me.clmnArt.Width = 30
         '
         'frmAnzeige
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1250, 624)
+        Me.Controls.Add(Me.picConnectionProblem)
         Me.Controls.Add(Me.grpTestAnzeige)
         Me.Controls.Add(Me.gridAnkunft)
         Me.Controls.Add(Me.gridFertig)
-        Me.Controls.Add(Me.picConnectionProblem)
-        Me.Controls.Add(Me.Panel2)
         Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.Label26)
+        Me.Controls.Add(Me.Panel2)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
@@ -1364,4 +1390,6 @@ Partial Class frmAnzeige
     Friend WithEvents clmnBuero As DataGridViewTextBoxColumn
     Friend WithEvents clmnImEx As DataGridViewTextBoxColumn
     Friend WithEvents clmnArt As DataGridViewTextBoxColumn
+    Friend WithEvents Label26 As Label
+    Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn
 End Class

AvisoTV/frmAnzeige.vb

@@ -71,8 +71,8 @@ Public Class frmAnzeige
 
         Me.Left = 0
         Me.Top = 0
-        Me.Width = 1920
+        '  Me.Width = 1920
-        Me.Height = 1080
+        '  Me.Height = 1080
 
         Me.Text += " " & Application.ProductVersion
 
@@ -221,7 +221,7 @@ Public Class frmAnzeige
         End If
 
         where = " WHERE "
-        Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx, ZOLLDigitalEingereicht  FROM Aviso "
+        Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter,WeiterleitungTextTV, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx, ZOLLDigitalEingereicht  FROM Aviso "
         where &= " Status IN( " & stat_tmp & ") "
         If CLUSTER <> "" Then
             where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') "
@@ -244,6 +244,7 @@ Public Class frmAnzeige
 
     Dim contrnamecnt As Integer = 0
     Public Sub Listen_ermitteln()
+        picConnectionProblem.Visible = False
         Dim connok As Boolean = False
         Try
             Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
@@ -257,7 +258,7 @@ Public Class frmAnzeige
             ' End Using
             'conn.Close()
         Catch ex As Exception
-            'MsgBox("what " & ex.Message)
+            picConnectionProblem.Visible = True    'MsgBox("what " & ex.Message)
         End Try
 
         If connok Then
@@ -308,9 +309,15 @@ Public Class frmAnzeige
                             Dim hDauer As Long = DateDiff(DateInterval.Minute, CDate(VarToDate((dr.Item("Ankunft")))), Now)
                             Dim Dauer As String = Minuten_auf_Text(hDauer)
                             Dim hMitarbeiter As String = VarToStr(dr.Item("LetzterMitarbeiter"))
+                            Dim WeiterleitungTextTV As String = VarToStr(dr.Item("WeiterleitungTextTV"))
+
                             Dim ImEx As String = VarToStr(dr.Item("ImEx"))
                             Dim ZOLLDigitalEingereicht As String = If(CBool(dr.Item("ZOLLDigitalEingereicht")), "D", "")
 
+
+                            If (hMitarbeiter = "Weiterleitung" Or hMitarbeiter = "") And WeiterleitungTextTV <> "" Then
+                                hMitarbeiter = WeiterleitungTextTV
+                            Else
                                 If StandortATILLA Or Standort = "IMEX" Or Standort = "FRONTOFFICE" Then
                                     'bei Mitarbeiter nur User aus letzter Bearbeiter rausfiltern
                                     Dim x As String = ""
@@ -325,6 +332,7 @@ Public Class frmAnzeige
                                     End While
                                     hMitarbeiter = x
                                 End If
+                            End If
 
                             Dim hFertig As String = ""
                             ' If VarToBool(dr.Item("LKW_fertig")) Then hFertig = "OK"
@@ -423,7 +431,7 @@ Public Class frmAnzeige
                 End Using
 
             Catch ex As Exception
-                MsgBox("ERR: " & ex.Message & ex.StackTrace)
+                picConnectionProblem.Visible = True 'sdfsdf  MsgBox("ERR: " & ex.Message & ex.StackTrace)
             End Try
 
             'Ermitteln 
@@ -459,16 +467,16 @@ Public Class frmAnzeige
             lblBigInfo.Visible = False
             displayZeilen = False
             displayZeilenBIG = False
-            Dim Panel2Height = 109
+            Dim Panel2Height = 109 '143
             If Not IsNothing(AvisoTV) Then
                 Select Case AvisoTV.Art
                     Case "INFO"
-                        Panel2Height = 109
+                        Panel2Height = 109 '143 
                         lblZeile1.Text = AvisoTV.FixeZeile1.Trim
                         lblZeile2.Text = AvisoTV.FixeZeile2.Trim
                         displayZeilen = True
                     Case "BIG"
-                        Panel2Height = 310
+                        Panel2Height = 310 '344
                         displayZeilenBIG = True
 
                         lblBigInfoVisible = True
@@ -784,8 +792,6 @@ Public Class frmAnzeige
         frmAnzeige_Load(Me, New EventArgs)
     End Sub
 
-
-
     Sub loadsettings()
         For Each c In grpTestAnzeige.Controls
             If c.GetType.Name = "TextBox" Then

Gemeinsames/Gemeinsames.vbproj

@@ -80,6 +80,14 @@
   <PropertyGroup>
     <SignManifests>true</SignManifests>
   </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
+    <PlatformTarget>x64</PlatformTarget>
+    <OutputPath>bin\x64\Debug\</OutputPath>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
+    <PlatformTarget>x64</PlatformTarget>
+    <OutputPath>bin\x64\Release\</OutputPath>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
     <Reference Include="GrapeCity.ActiveReports.Design.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL" />