diff --git a/BONManager.sln b/BONManager.sln
index 8bf9ae0..eb58ddc 100644
--- a/BONManager.sln
+++ b/BONManager.sln
@@ -1,22 +1,31 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 2013
-VisualStudioVersion = 12.0.40629.0
+# Visual Studio Version 17
+VisualStudioVersion = 17.3.32929.385
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BONManager", "BONManager\BONManager.vbproj", "{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
+		Debug|x64 = Debug|x64
 		Release|Any CPU = Release|Any CPU
+		Release|x64 = Release|x64
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
 		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|x64.ActiveCfg = Debug|x64
+		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Debug|x64.Build.0 = Debug|x64
 		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|Any CPU.Build.0 = Release|Any CPU
+		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|x64.ActiveCfg = Release|x64
+		{9F3DB1DA-A40F-41AD-8B92-97692B1EFB28}.Release|x64.Build.0 = Release|x64
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
 	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {287155E2-5E91-4D19-8CD4-3933A6A3C410}
+	EndGlobalSection
 EndGlobal
diff --git a/BONManager/App.config b/BONManager/App.config
index c0528be..bc4784e 100644
--- a/BONManager/App.config
+++ b/BONManager/App.config
@@ -1,12 +1,12 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <configSections>
     </configSections>
     <connectionStrings>
-        <add name="BONManager.My.MySettings.TESTConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=BON_Manager;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
-        <add name="BONManager.My.MySettings.PRODConnectionString" connectionString="Data Source=YM5T001348;Initial Catalog=BON_Manager;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" />
+        <add name="BONManager.My.MySettings.TESTConnectionString" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=BON_Manager;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
+        <add name="BONManager.My.MySettings.PRODConnectionString" connectionString="Data Source=YM5T001348;Initial Catalog=BON_Manager;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"/>
     </connectionStrings>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
-</configuration>
\ No newline at end of file
+</configuration>
diff --git a/BONManager/BONManager.vbproj b/BONManager/BONManager.vbproj
index b0e351c..b7cb986 100644
--- a/BONManager/BONManager.vbproj
+++ b/BONManager/BONManager.vbproj
@@ -11,10 +11,26 @@
     <AssemblyName>BONManager</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <TargetFrameworkProfile />
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
@@ -22,6 +38,7 @@
     <OutputPath>bin\Debug\</OutputPath>
     <DocumentationFile>BONManager.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -48,23 +65,62 @@
   <PropertyGroup>
     <ApplicationIcon>bon.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
+    <DebugSymbols>true</DebugSymbols>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>BONManager.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>BONManager.xml</DocumentationFile>
+    <Optimize>true</Optimize>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <DebugType>pdbonly</DebugType>
+    <PlatformTarget>x64</PlatformTarget>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <SignManifests>true</SignManifests>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ManifestCertificateThumbprint>5A6BD29D23A7643243CD6EFA1FEF21BAF955E653</ManifestCertificateThumbprint>
+  </PropertyGroup>
+  <PropertyGroup>
+    <TargetZone>LocalIntranet</TargetZone>
+  </PropertyGroup>
+  <PropertyGroup>
+    <GenerateManifests>true</GenerateManifests>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
-    <Reference Include="GrapeCity.ActiveReports.Chart.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
-    <Reference Include="GrapeCity.ActiveReports.Diagnostics.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
-    <Reference Include="GrapeCity.ActiveReports.Document.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
-      <Private>True</Private>
+    <Reference Include="GrapeCity.ActiveReports">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Export.Image.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
-      <Private>True</Private>
+    <Reference Include="GrapeCity.ActiveReports.Chart">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Chart.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Extensibility.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
-      <Private>True</Private>
+    <Reference Include="GrapeCity.ActiveReports.Core.Document">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Core.Document.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff">
-      <Private>True</Private>
+    <Reference Include="GrapeCity.ActiveReports.Document">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Document.dll</HintPath>
     </Reference>
-    <Reference Include="GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
-      <Private>True</Private>
+    <Reference Include="GrapeCity.ActiveReports.Export.Image">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Export.Image.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.Viewer.Common">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Common.dll</HintPath>
+    </Reference>
+    <Reference Include="GrapeCity.ActiveReports.Viewer.Win">
+      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\GrapeCity.ActiveReports.Viewer.Win.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Data" />
@@ -139,6 +195,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="My Project\Resources.Designer.vb">
       <AutoGen>True</AutoGen>
@@ -179,7 +236,9 @@
     <EmbeddedResource Include="frmMain.resx">
       <DependentUpon>frmMain.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="My Project\licenses.licx">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </EmbeddedResource>
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
@@ -191,6 +250,7 @@
     </EmbeddedResource>
   </ItemGroup>
   <ItemGroup>
+    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>
@@ -205,6 +265,18 @@
   <ItemGroup>
     <Content Include="bon.ico" />
   </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.8">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4.8 %28x86 und x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
diff --git a/BONManager/My Project/Application.Designer.vb b/BONManager/My Project/Application.Designer.vb
index 73bf778..c4e2ae3 100644
--- a/BONManager/My Project/Application.Designer.vb	
+++ b/BONManager/My Project/Application.Designer.vb	
@@ -14,8 +14,8 @@ Option Explicit On
 
 Namespace My
     
-    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
-    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
     ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
     ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
     '
@@ -25,7 +25,7 @@ Namespace My
         Public Sub New()
             MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
             Me.IsSingleInstance = false
-            Me.EnableVisualStyles = true
+            Me.EnableVisualStyles = false
             Me.SaveMySettingsOnExit = true
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
diff --git a/BONManager/My Project/Application.myapp b/BONManager/My Project/Application.myapp
index 739ea6f..0b334b0 100644
--- a/BONManager/My Project/Application.myapp	
+++ b/BONManager/My Project/Application.myapp	
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
-<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   <MySubMain>true</MySubMain>
   <MainForm>frmMain</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
-  <EnableVisualStyles>true</EnableVisualStyles>
+  <EnableVisualStyles>false</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
 </MyApplicationData>
\ No newline at end of file
diff --git a/BONManager/My Project/Resources.Designer.vb b/BONManager/My Project/Resources.Designer.vb
index fd891f5..0e350fd 100644
--- a/BONManager/My Project/Resources.Designer.vb	
+++ b/BONManager/My Project/Resources.Designer.vb	
@@ -1,40 +1,41 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
 Option Strict On
 Option Explicit On
 
+Imports System
 
 Namespace My.Resources
     
-    'This class was auto-generated by the StronglyTypedResourceBuilder
-    'class via a tool like ResGen or Visual Studio.
-    'To add or remove a member, edit your .ResX file then rerun ResGen
-    'with the /str option, or rebuild your VS project.
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
     '''<summary>
-    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
     Friend Module Resources
-
+        
         Private resourceMan As Global.System.Resources.ResourceManager
-
+        
         Private resourceCulture As Global.System.Globalization.CultureInfo
-
+        
         '''<summary>
-        '''  Returns the cached ResourceManager instance used by this class.
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -44,17 +45,17 @@ Namespace My.Resources
                 Return resourceMan
             End Get
         End Property
-
+        
         '''<summary>
-        '''  Overrides the current thread's CurrentUICulture property for all
-        '''  resource lookups using this strongly typed resource class.
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
-            Set(ByVal value As Global.System.Globalization.CultureInfo)
+            Set
                 resourceCulture = value
             End Set
         End Property
diff --git a/BONManager/My Project/Settings.Designer.vb b/BONManager/My Project/Settings.Designer.vb
index 0f0a05b..ba65fcc 100644
--- a/BONManager/My Project/Settings.Designer.vb	
+++ b/BONManager/My Project/Settings.Designer.vb	
@@ -15,21 +15,21 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
         
         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
         
-#Region "Funktion zum automatischen Speichern von My.Settings"
+#Region "Automatische My.Settings-Speicherfunktion"
 #If _MyType = "WindowsForms" Then
     Private Shared addedHandler As Boolean
 
     Private Shared addedHandlerLockObject As New Object
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
         If My.Application.SaveMySettingsOnExit Then
             My.Settings.Save()
         End If
diff --git a/BONManager/My Project/app.manifest b/BONManager/My Project/app.manifest
new file mode 100644
index 0000000..e29a158
--- /dev/null
+++ b/BONManager/My Project/app.manifest	
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="utf-8"?>
+<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <!-- UAC-Manifestoptionen
+             Wenn Sie die Ebene der Benutzerkontensteuerung für Windows ändern möchten, ersetzen Sie den 
+             Knoten "requestedExecutionLevel" wie folgt.
+
+        <requestedExecutionLevel  level="asInvoker" uiAccess="false" />
+        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
+        <requestedExecutionLevel  level="highestAvailable" uiAccess="false" />
+
+            Durch Angabe des Elements "requestedExecutionLevel" wird die Datei- und Registrierungsvirtualisierung deaktiviert. 
+            Entfernen Sie dieses Element, wenn diese Virtualisierung aus Gründen der Abwärtskompatibilität
+            für die Anwendung erforderlich ist.
+        -->
+        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
+      </requestedPrivileges>
+      <applicationRequestMinimum>
+        <PermissionSet class="System.Security.PermissionSet" version="1" Unrestricted="true" ID="Custom" SameSite="site" />
+        <defaultAssemblyRequest permissionSetReference="Custom" />
+      </applicationRequestMinimum>
+    </security>
+  </trustInfo>
+  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+    <application>
+      <!-- Eine Liste der Windows-Versionen, unter denen diese Anwendung getestet
+           und für die sie entwickelt wurde. Wenn Sie die Auskommentierung der entsprechenden Elemente aufheben,
+           wird von Windows automatisch die kompatibelste Umgebung ausgewählt. -->
+      <!-- Windows Vista -->
+      <!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
+      <!-- Windows 7 -->
+      <!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
+      <!-- Windows 8 -->
+      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
+      <!-- Windows 8.1 -->
+      <!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
+      <!-- Windows 10 -->
+      <!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
+    </application>
+  </compatibility>
+  <!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere
+       DPI-Werte skaliert wird. WPF-Anwendungen (Windows Presentation Foundation) sind automatisch mit DPI-Werten kompatibel, eine Aktivierung 
+       ist nicht erforderlich. Für Windows Forms-Anwendungen für .NET Framework 4.6, die diese Einstellung aktivieren, muss 
+       auch die Einstellung "'EnableWindowsFormsHighDpiAutoResizing" in der Datei "app.config" auf TRUE festgelegt werden. 
+       
+       Hierdurch können für die Anwendung lange Pfade verwendet werden. Weitere Informationen finden Sie unter https://docs.microsoft.com/windows/win32/fileio/maximum-file-path-limitation.-->
+  <!--
+  <application xmlns="urn:schemas-microsoft-com:asm.v3">
+    <windowsSettings>
+      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
+      <longPathAware xmlns="http://schemas.microsoft.com/SMI/2016/WindowsSettings">true</longPathAware>
+    </windowsSettings>
+  </application>
+  -->
+  <!-- Designs für allgemeine Windows-Steuerelemente und -Dialogfelder (Windows XP und höher) aktivieren -->
+  <!--
+  <dependency>
+    <dependentAssembly>
+      <assemblyIdentity
+          type="win32"
+          name="Microsoft.Windows.Common-Controls"
+          version="6.0.0.0"
+          processorArchitecture="*"
+          publicKeyToken="6595b64144ccf1df"
+          language="*"
+        />
+    </dependentAssembly>
+  </dependency>
+  -->
+</assembly>
\ No newline at end of file
diff --git a/BONManager/My Project/licenses.licx b/BONManager/My Project/licenses.licx
index 98d441c..5b6d191 100644
--- a/BONManager/My Project/licenses.licx	
+++ b/BONManager/My Project/licenses.licx	
@@ -1,2 +1,2 @@
-GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
-GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
diff --git a/BONManager/frmMain.Designer.vb b/BONManager/frmMain.Designer.vb
index 28a6ca6..f5c0acc 100644
--- a/BONManager/frmMain.Designer.vb
+++ b/BONManager/frmMain.Designer.vb
@@ -24,7 +24,7 @@ Partial Class frmMain
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.txtRgId = New System.Windows.Forms.TextBox()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -41,7 +41,8 @@ Partial Class frmMain
         Me.lblErr_RgIdLeer = New System.Windows.Forms.Label()
         Me.lblErr_BtrgLeer = New System.Windows.Forms.Label()
         Me.lblErr_BonBetrag = New System.Windows.Forms.Label()
-        Me.Button3 = New System.Windows.Forms.Button()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label5 = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
@@ -50,6 +51,7 @@ Partial Class frmMain
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.ComboBox1)
         Me.pnl.Controls.Add(Me.Button3)
         Me.pnl.Controls.Add(Me.Label5)
         Me.pnl.Controls.Add(Me.txtRgId)
@@ -72,21 +74,22 @@ Partial Class frmMain
         Me.pnl.Size = New System.Drawing.Size(453, 208)
         Me.pnl.TabIndex = 0
         '
-        'Label5
+        'Button3
         '
-        Me.Label5.AutoSize = True
-        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(-32, 74)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(206, 31)
-        Me.Label5.TabIndex = 1
-        Me.Label5.Text = "Rechnungs-Nr.:"
-        Me.Label5.Visible = False
+        Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button3.Location = New System.Drawing.Point(155, 136)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(79, 28)
+        Me.Button3.TabIndex = 15
+        Me.Button3.Text = "ADMIN"
+        Me.Button3.UseVisualStyleBackColor = False
         '
         'txtRgId
         '
         Me.txtRgId.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtRgId.Location = New System.Drawing.Point(180, 71)
+        Me.txtRgId.Location = New System.Drawing.Point(216, 28)
         Me.txtRgId.Name = "txtRgId"
         Me.txtRgId.Size = New System.Drawing.Size(100, 38)
         Me.txtRgId.TabIndex = 2
@@ -97,9 +100,9 @@ Partial Class frmMain
         Me.Button2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button2.Location = New System.Drawing.Point(6, 168)
+        Me.Button2.Location = New System.Drawing.Point(6, 136)
         Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(145, 28)
+        Me.Button2.Size = New System.Drawing.Size(143, 28)
         Me.Button2.TabIndex = 13
         Me.Button2.Text = "Liste ausg. Bons"
         Me.Button2.UseVisualStyleBackColor = False
@@ -109,10 +112,10 @@ Partial Class frmMain
         Me.Button1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button1.Location = New System.Drawing.Point(6, 136)
+        Me.Button1.Location = New System.Drawing.Point(6, 104)
         Me.Button1.Margin = New System.Windows.Forms.Padding(0)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(145, 28)
+        Me.Button1.Size = New System.Drawing.Size(143, 28)
         Me.Button1.TabIndex = 12
         Me.Button1.Text = "Bon Storno"
         Me.Button1.UseVisualStyleBackColor = False
@@ -143,7 +146,7 @@ Partial Class frmMain
         '
         Me.Label3.AutoSize = True
         Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(152, 80)
+        Me.Label3.Location = New System.Drawing.Point(156, 80)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(147, 31)
         Me.Label3.TabIndex = 6
@@ -153,7 +156,7 @@ Partial Class frmMain
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(62, 37)
+        Me.Label2.Location = New System.Drawing.Point(66, 37)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(237, 31)
         Me.Label2.TabIndex = 3
@@ -263,17 +266,24 @@ Partial Class frmMain
         Me.lblErr_BonBetrag.Text = "Der Bon-Betrag muss größer 0 sein!"
         Me.lblErr_BonBetrag.Visible = False
         '
-        'Button3
+        'ComboBox1
         '
-        Me.Button3.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button3.Location = New System.Drawing.Point(158, 168)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(76, 28)
-        Me.Button3.TabIndex = 15
-        Me.Button3.Text = "ADMIN"
-        Me.Button3.UseVisualStyleBackColor = False
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(6, 175)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(228, 21)
+        Me.ComboBox1.TabIndex = 16
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(4, 31)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(206, 31)
+        Me.Label5.TabIndex = 1
+        Me.Label5.Text = "Rechnungs-Nr.:"
+        Me.Label5.Visible = False
         '
         'frmMain
         '
@@ -308,9 +318,9 @@ Partial Class frmMain
     Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents Label4 As System.Windows.Forms.Label
     Friend WithEvents Panel1 As System.Windows.Forms.Panel
-    Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents txtRgId As System.Windows.Forms.TextBox
     Friend WithEvents lblErr_RgIdLeer As System.Windows.Forms.Label
     Friend WithEvents Button3 As System.Windows.Forms.Button
-
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label5 As Label
 End Class
diff --git a/BONManager/frmMain.vb b/BONManager/frmMain.vb
index 6290b09..a95564e 100644
--- a/BONManager/frmMain.vb
+++ b/BONManager/frmMain.vb
@@ -1,4 +1,5 @@
 Imports System.Drawing.Printing
+Imports GrapeCity.ActiveReports
 
 Public Class frmMain
     Public TESTSYSTEM As Boolean = False
@@ -40,31 +41,56 @@ Public Class frmMain
         Me.Cursor = Cursors.WaitCursor
         Dim rpt As New rptBeleg
 
-
         rpt.lblBetrag.Text = CDbl(bon.bon_betrag_Bon).ToString("C")
         rpt.lblAusstelldatum.Text = CDate(bon.bon_datum).ToShortDateString
         rpt.lblGueltigBis.Text = CDate(bon.bon_gueltigBis).ToShortDateString
         rpt.lblBonId.Text = bon.bon_Id
         rpt.lblRgId.Text = bon.bon_RgId
 
-        If printername = "" Then
-            initPrinterName()
+        printername = ComboBox1.Text
+        'If printername = "" Then
+        '    MsgBox("Kein Drucker")
+        '    Exit Sub
+        '    ' initPrinterName()
+        'End If
+
+        If printername <> "" Then
+            rpt.Document.Printer.PrinterName = printername
+        Else
+            Dim p As New PrintDialog
+            If p.ShowDialog() = DialogResult.OK Then
+                printername = p.PrinterSettings.PrinterName
+            Else
+                rpt.Dispose()
+            End If
         End If
 
-        Dim print As New frmPrint
-        print.WindowState = FormWindowState.Minimized
-        print.Visible = False
-        AddHandler print.Viewer.LoadCompleted, Sub()
-                                                   If printername <> "" Then print.Viewer.Document.Printer.PrinterName = printername
-                                                   If Not print.Viewer.Print(False) Then
-                                                       MsgBox("Problem beim Drucken.")
-                                                   End If
-                                                   print.Close()
-                                               End Sub
+        rpt.Run(False)
+        rpt.Document.Printer.PrinterSettings.Copies = 1
 
-        print.Viewer.LoadDocument(rpt)
-        print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
-        print.Show()
+        If Not rpt.Document.Print(False, False) Then
+            MsgBox("Problem beim Drucken.")
+        End If
+        rpt.Dispose()
+
+        'Dim print As New frmPrint
+        'print.WindowState = FormWindowState.Minimized
+        'print.Visible = False
+        'AddHandler print.Viewer.LoadCompleted, Sub()
+        '                                           If printername <> "" Then
+        '                                               rpt.Document.Printer.PrinterName = printername
+        '                                               'print.Viewer.Document.Printer.PrinterName = printername
+        '                                           End If
+
+        '                                           If Not print.Viewer.Print(False) Then
+        '                                               MsgBox("Problem beim Drucken.")
+        '                                           End If
+        '                                           print.Close()
+        '                                       End Sub
+
+        'print.Viewer.LoadDocument(rpt)
+        'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        'print.Show()
 
 
 
@@ -76,31 +102,32 @@ Public Class frmMain
         Me.WindowState = FormWindowState.Minimized
     End Sub
 
-    Sub initPrinterName()
-        Dim sPrinters As New ArrayList
-        For Each sPrinter As String In PrinterSettings.InstalledPrinters
-            sPrinters.Add(sPrinter)
-            'MsgBox(sPrinter)
-        Next
-        ' Array sortieren
-        sPrinters.Sort()
-        Dim oPS As New System.Drawing.Printing.PrinterSettings
-        For i As Integer = 0 To sPrinters.Count - 1
-            If sPrinters(i).ToString.Contains("EPSON") Then
-                'MsgBox("EPSON!!!!")
-                printername = sPrinters(i)
-            End If
-        Next
+    'Sub initPrinterName()
+    '    Dim sPrinters As New ArrayList
+    '    For Each sPrinter As String In PrinterSettings.InstalledPrinters
+    '        sPrinters.Add(sPrinter)
+    '        'MsgBox(sPrinter)
+    '    Next
+    '    ' Array sortieren
+    '    sPrinters.Sort()
+    '    Dim oPS As New System.Drawing.Printing.PrinterSettings
+    '    For i As Integer = 0 To sPrinters.Count - 1
+    '        If sPrinters(i).ToString.Contains("EPSON") Then
+    '            'MsgBox("EPSON!!!!")
+    '            printername = sPrinters(i)
+    '        End If
+    '    Next
 
-        '     For Each printer In PrinterSettings.InstalledPrinters
-        'If printer.ToString.Contains("EPSON") Then
-        'print.Viewer.Document.Printer.PrinterName = printer
-        'End If
-        '   Next
-    End Sub
+    '    '     For Each printer In PrinterSettings.InstalledPrinters
+    '    'If printer.ToString.Contains("EPSON") Then
+    '    'print.Viewer.Document.Printer.PrinterName = printer
+    '    'End If
+    '    '   Next
+    'End Sub
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
-        initPrinterName()
+        ' initPrinterName()
+        initDrucker(ComboBox1, "EPSON")
         Me.Location = New Point(My.Computer.Screen.WorkingArea.Width / 2 - (Me.Width / 2) - 100, My.Computer.Screen.WorkingArea.Height - Me.Height)
     End Sub
 
@@ -128,4 +155,49 @@ Public Class frmMain
             frmAdminFunc.ShowDialog(Me)
         End If
     End Sub
+
+
+    Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "", Optional usePRINTER_LIST As Boolean = True)
+        ' alle installierten Drucker ermitteln und 
+        ' in in ein ArrayList-Objekt speichern
+        Dim sPrinters As ArrayList
+        sPrinters = New ArrayList
+        For Each sPrinter As String In System.Drawing.Printing.PrinterSettings.InstalledPrinters
+            sPrinters.Add(sPrinter)
+        Next
+
+        ' Array sortieren
+        sPrinters.Sort()
+
+        ' jetzt alle Drucker in sortierter Reihenfolge in einer
+        ' ComboBox zur Auswahl anbieten
+        For i As Integer = 0 To sPrinters.Count - 1
+            cboPrinter.Items.Add(sPrinters(i))
+        Next
+
+        If sPrinters.Count > 0 Then
+            cboPrinter.SelectedIndex = 0
+            If srch <> "" Then
+                For Each i In cboPrinter.Items
+                    If i.ToString.ToUpper.Contains(srch.ToUpper) Then
+                        cboPrinter.SelectedItem = i
+                        Exit Sub
+                    End If
+                Next
+            End If
+
+
+            'Standard-Drucker:
+            Dim oPS As New System.Drawing.Printing.PrinterSettings
+            For Each i In cboPrinter.Items
+                If i.ToString.ToUpper.Contains(oPS.PrinterName.ToUpper) Then '  If i.ToString = srchPrinter Then ' Contains, weil sonst \\dc02\ stört
+                    cboPrinter.SelectedItem = i
+                    Exit Sub
+                End If
+            Next
+
+        End If
+    End Sub
+
+
 End Class