neu
This commit is contained in:
57
Aviso.sln
57
Aviso.sln
@@ -1,7 +1,7 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 15
|
||||
VisualStudioVersion = 15.0.28307.106
|
||||
# Visual Studio Version 17
|
||||
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.Build.0 = Debug|x86
|
||||
{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
|
||||
{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
|
||||
|
||||
199
Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb
generated
199
Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb
generated
@@ -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.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
|
||||
Me.Panel1.Controls.Add(Me.btnAbfDetailbereicht)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.Panel2)
|
||||
Me.Panel1.Controls.Add(Me.btnAbfBericht)
|
||||
Me.Panel1.Controls.Add(Me.btnAbfExcel)
|
||||
Me.Panel1.Location = New System.Drawing.Point(15, 467)
|
||||
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
|
||||
|
||||
@@ -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
|
||||
@@ -80,11 +80,10 @@
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestCertificateThumbprint>2508FAE878AAAD6136689CC8171DC8A749727DD4</ManifestCertificateThumbprint>
|
||||
<ManifestCertificateThumbprint>5A6BD29D23A7643243CD6EFA1FEF21BAF955E653</ManifestCertificateThumbprint>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestKeyFile>
|
||||
</ManifestKeyFile>
|
||||
<ManifestKeyFile>AL20210908.pfx</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>
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.6.8.6")>
|
||||
<Assembly: AssemblyFileVersion("3.6.8.6")>
|
||||
<Assembly: AssemblyVersion("3.7.0.1")>
|
||||
<Assembly: AssemblyFileVersion("3.7.0.1")>
|
||||
|
||||
31
Aviso/My Project/Resources.Designer.vb
generated
31
Aviso/My Project/Resources.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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>
|
||||
@@ -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:
|
||||
@@ -141,11 +147,11 @@ Public Class frmAvisoWeiterleiten
|
||||
If Art = "S" Then
|
||||
ASF.insertSendungsVermerk(SendungsId, AvisoId, text, 46)
|
||||
If rtbVermerk.Text.Trim <> "" Then ASF.insertSendungsVermerk(SendungsId, AvisoId, "WL: " & rtbVermerk.Text.Trim, 46)
|
||||
ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
|
||||
ASF.SendungUebernehmen_Zuruecksetzen(SendungsId, AvisoId) ' , Optional MaId As Integer = -1, Optional GesendetAn As Boolean = False)
|
||||
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()
|
||||
|
||||
172
Aviso/frmEintragAviso.designer.vb
generated
172
Aviso/frmEintragAviso.designer.vb
generated
@@ -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.Label4 = New System.Windows.Forms.Label()
|
||||
Me.lblTeamAvisierer = 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.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
|
||||
Me.lblTeamAvisierer.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblTeamAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTeamAvisierer.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.lblTeamAvisierer.Location = New System.Drawing.Point(258, 288)
|
||||
Me.lblTeamAvisierer.Name = "lblTeamAvisierer"
|
||||
Me.lblTeamAvisierer.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.lblTeamAvisierer.Size = New System.Drawing.Size(88, 13)
|
||||
Me.lblTeamAvisierer.TabIndex = 49
|
||||
Me.lblTeamAvisierer.Text = "TEAM"
|
||||
Me.lblTeamAvisierer.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
Me.lblTeamAvisierer.UseCompatibleTextRendering = True
|
||||
Me.lblTeamAvisierer.Visible = False
|
||||
'
|
||||
'Label4
|
||||
'lblTeamFraechter
|
||||
'
|
||||
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:"
|
||||
Me.lblTeamFraechter.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblTeamFraechter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblTeamFraechter.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.lblTeamFraechter.Location = New System.Drawing.Point(258, 249)
|
||||
Me.lblTeamFraechter.Name = "lblTeamFraechter"
|
||||
Me.lblTeamFraechter.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<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>
|
||||
<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>
|
||||
|
||||
@@ -98,30 +98,54 @@ 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
|
||||
SAVE_ME = True
|
||||
If saveAll Then
|
||||
For Each s In SENDUNG_LIST
|
||||
If s.SAVE() = False Then SAVE_ME = False
|
||||
s.SAVE_HANDLING() 'derzeit ohne Funktion
|
||||
s.SAVE_VORKOSTEN() 'derzeit ohne Funktion
|
||||
Next
|
||||
Else
|
||||
SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
|
||||
SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
|
||||
SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
|
||||
End If
|
||||
SAVE_ABRECHUNG()
|
||||
|
||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "UNISPED"
|
||||
' SQL.doSQL("UPDATE Aviso SET DakosyRef='" & txtDyRef.Text & "' WHERE AvisoId='" & AvisoId & "'", "AVISO")
|
||||
'End Select
|
||||
loadDataInLIST()
|
||||
|
||||
|
||||
If VALIDATE_ME() Then
|
||||
|
||||
SAVE_ME = True
|
||||
If saveAll Then
|
||||
For Each s In SENDUNG_LIST
|
||||
If s.SAVE() = False Then SAVE_ME = False
|
||||
s.SAVE_HANDLING() 'derzeit ohne Funktion
|
||||
s.SAVE_VORKOSTEN() 'derzeit ohne Funktion
|
||||
Next
|
||||
Else
|
||||
SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
|
||||
SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
|
||||
SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
|
||||
End If
|
||||
SAVE_ABRECHUNG()
|
||||
|
||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' 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,8 +2742,46 @@ 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!
|
||||
|
||||
txtAnzahlPos.Visible = (cboFiliale._value = "7001")
|
||||
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")
|
||||
|
||||
Dim tmp = cboAbfertigungsart._value
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
60
Aviso/usrCntlVermerkeATilla.Designer.vb
generated
60
Aviso/usrCntlVermerkeATilla.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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, 2 : optionCell.Value = "wartend..."
|
||||
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 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
|
||||
|
||||
@@ -54,8 +54,11 @@ Public Class usrcntlAktDetailsATILLA
|
||||
End Sub
|
||||
Public Sub reload(id)
|
||||
Try
|
||||
|
||||
UsrCntlVermerkeATilla1.init(id)
|
||||
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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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" />
|
||||
|
||||
258
AvisoTV/frmAnzeige.Designer.vb
generated
258
AvisoTV/frmAnzeige.Designer.vb
generated
@@ -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.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.DataGridViewTextBoxColumn10 = 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
|
||||
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
|
||||
Me.DataGridViewTextBoxColumn10.HeaderText = ""
|
||||
Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
|
||||
Me.DataGridViewTextBoxColumn10.ReadOnly = True
|
||||
Me.DataGridViewTextBoxColumn10.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
|
||||
|
||||
@@ -71,8 +71,8 @@ Public Class frmAnzeige
|
||||
|
||||
Me.Left = 0
|
||||
Me.Top = 0
|
||||
Me.Width = 1920
|
||||
Me.Height = 1080
|
||||
' Me.Width = 1920
|
||||
' 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,22 +309,29 @@ 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 StandortATILLA Or Standort = "IMEX" Or Standort = "FRONTOFFICE" Then
|
||||
'bei Mitarbeiter nur User aus letzter Bearbeiter rausfiltern
|
||||
Dim x As String = ""
|
||||
Dim n As Integer = 0
|
||||
While n < hMitarbeiter.Length
|
||||
If hMitarbeiter.Substring(n, 1) <> "/" Then
|
||||
x += hMitarbeiter.Substring(n, 1)
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
n += 1
|
||||
End While
|
||||
hMitarbeiter = x
|
||||
|
||||
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 = ""
|
||||
Dim n As Integer = 0
|
||||
While n < hMitarbeiter.Length
|
||||
If hMitarbeiter.Substring(n, 1) <> "/" Then
|
||||
x += hMitarbeiter.Substring(n, 1)
|
||||
Else
|
||||
Exit While
|
||||
End If
|
||||
n += 1
|
||||
End While
|
||||
hMitarbeiter = x
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim hFertig As String = ""
|
||||
@@ -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
|
||||
|
||||
BIN
Diverses/miniButtons/abfetigungTR_aktiv.jpg
Normal file
BIN
Diverses/miniButtons/abfetigungTR_aktiv.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
BIN
Diverses/miniButtons/abfetigungTR_inaktiv.jpg
Normal file
BIN
Diverses/miniButtons/abfetigungTR_inaktiv.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
BIN
Diverses/miniButtons/statusBtn_abfetigungTR.psd
Normal file
BIN
Diverses/miniButtons/statusBtn_abfetigungTR.psd
Normal file
Binary file not shown.
@@ -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" />
|
||||
|
||||
Reference in New Issue
Block a user