MS Concat via GD Picture

This reverts commit f298a1fa59.

EB_Creator/App.config

@@ -1,16 +1,15 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <configSections>
-        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
-            <section name="EB_Creator.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+            <section name="EB_Creator.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
         </sectionGroup>
     </configSections>
     <connectionStrings>
-        <add name="EB_Creator.My.MySettings.MyConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
-            providerName="System.Data.SqlClient" />
+        <add name="EB_Creator.My.MySettings.MyConnectionString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient"/>
     </connectionStrings>
     <startup> 
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
     </startup>
     <applicationSettings>
         <EB_Creator.My.MySettings>
@@ -42,7 +41,7 @@
                 <value>1</value>
             </setting>
             <setting name="oSQLThread2" serializeAs="String">
-                <value />
+                <value/>
             </setting>
             <setting name="PROC_BEFORE_POS" serializeAs="String">
                 <value>False</value>
@@ -52,4 +51,4 @@
             </setting>
         </EB_Creator.My.MySettings>
     </applicationSettings>
-</configuration>
+</configuration>

EB_Creator/EB_Creator.vbproj

@@ -11,9 +11,10 @@
     <AssemblyName>EB_Creator</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Console</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <Deterministic>true</Deterministic>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>

EB_Creator/EB_Creator/App.config

@@ -1,8 +1,8 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <configSections>
-        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
-            <section name="EB_Creator.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
+        <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+            <section name="EB_Creator.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
         </sectionGroup>
     </configSections>
     <connectionStrings>
@@ -10,7 +10,7 @@
             providerName="System.Data.SqlClient" />
     </connectionStrings>
     <startup> 
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
     </startup>
     <applicationSettings>
         <EB_Creator.My.MySettings>
@@ -26,9 +26,6 @@
             <setting name="CONCAT_TEMPFolder" serializeAs="String">
                 <value>E:\TEMP\EBTemp</value>
             </setting>
-            <setting name="Path2PDFTK" serializeAs="String">
-                <value>E:\Portable\PDFTKCommand\pdftk.exe</value>
-            </setting>
             <setting name="Concatted_File_Suffix" serializeAs="String">
                 <value>_CC</value>
             </setting>
@@ -46,4 +43,4 @@
             </setting>
         </EB_Creator.My.MySettings>
     </applicationSettings>
-</configuration>
+</configuration>

EB_Creator/EB_Creator/EB_Creator.vbproj

@@ -11,9 +11,10 @@
     <AssemblyName>EB_Creator</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Console</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
     <Deterministic>true</Deterministic>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -69,23 +70,27 @@
     <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
     <Reference Include="DevExpress.XtraReports.v21.2.Extensions, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
-    <Reference Include="DigitalData.Modules.Database">
-      <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+    <Reference Include="DigitalData.Modules.Database, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
-    <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
     <Reference Include="GdPicture.NET.14">
       <HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
     </Reference>
-    <Reference Include="NLog">
-      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\NLog.dll</HintPath>
+    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="System" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Configuration.Install" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression" />
     <Reference Include="System.ServiceProcess" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />
@@ -108,6 +113,7 @@
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>
       <DependentUpon>Application.myapp</DependentUpon>
+      <DesignTime>True</DesignTime>
     </Compile>
     <Compile Include="MyService.vb">
       <SubType>Component</SubType>
@@ -138,12 +144,6 @@
     <Compile Include="RptStampIcon.vb">
       <SubType>Component</SubType>
     </Compile>
-    <Compile Include="RptErgebnisbericht.Designer.vb">
-      <DependentUpon>RptErgebnisbericht.vb</DependentUpon>
-    </Compile>
-    <Compile Include="RptErgebnisbericht.vb">
-      <SubType>Component</SubType>
-    </Compile>
     <Compile Include="XtraReportEB.Designer.vb">
       <DependentUpon>XtraReportEB.vb</DependentUpon>
     </Compile>
@@ -168,9 +168,6 @@
     <EmbeddedResource Include="RptStampIcon.resx">
       <DependentUpon>RptStampIcon.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="RptErgebnisbericht.resx">
-      <DependentUpon>RptErgebnisbericht.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="XtraReportEB.resx">
       <DependentUpon>XtraReportEB.vb</DependentUpon>
       <SubType>Designer</SubType>
@@ -187,6 +184,7 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <None Include="App.config" />
+    <None Include="packages.config" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

EB_Creator/EB_Creator/My Project/Application.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <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>
 '------------------------------------------------------------------------------
 

EB_Creator/EB_Creator/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>

EB_Creator/EB_Creator/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

EB_Creator/EB_Creator/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.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
@@ -54,17 +54,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
-            "rity Info=True;User ID=sa;Password=dd")>  _
-        Public ReadOnly Property MyConnectionString() As String
-            Get
-                Return CType(Me("MyConnectionString"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
@@ -102,15 +91,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("E:\Portable\PDFTKCommand\pdftk.exe")>  _
-        Public ReadOnly Property Path2PDFTK() As String
-            Get
-                Return CType(Me("Path2PDFTK"),String)
-            End Get
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("_CC")>  _
@@ -156,6 +136,17 @@ Namespace My
                 Return CType(Me("oSQLThread2"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
+            "rity Info=True;User ID=sa;Password=dd")>  _
+        Public ReadOnly Property MyConnectionString() As String
+            Get
+                Return CType(Me("MyConnectionString"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

EB_Creator/EB_Creator/My Project/Settings.settings

@@ -2,14 +2,6 @@
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
   <Settings>
-    <Setting Name="MyConnectionString" Type="(Connection string)" Scope="Application">
-      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
-&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
-  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
-  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
-&lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
-    </Setting>
     <Setting Name="DEBUG" Type="System.Boolean" Scope="Application">
       <Value Profile="(Default)">False</Value>
     </Setting>
@@ -22,9 +14,6 @@
     <Setting Name="CONCAT_TEMPFolder" Type="System.String" Scope="Application">
       <Value Profile="(Default)">E:\TEMP\EBTemp</Value>
     </Setting>
-    <Setting Name="Path2PDFTK" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">E:\Portable\PDFTKCommand\pdftk.exe</Value>
-    </Setting>
     <Setting Name="Concatted_File_Suffix" Type="System.String" Scope="Application">
       <Value Profile="(Default)">_CC</Value>
     </Setting>
@@ -40,5 +29,13 @@
     <Setting Name="oSQLThread2" Type="System.String" Scope="Application">
       <Value Profile="(Default)">select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION order by DOC_ID DESC</Value>
     </Setting>
+    <Setting Name="MyConnectionString" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

EB_Creator/EB_Creator/My Project/licenses.licx

@@ -0,0 +1 @@
+DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

EB_Creator/EB_Creator/MyService.vb

@@ -5,6 +5,8 @@ Imports DigitalData.Modules.Database
 Imports DevExpress.DataAccess.Sql
 Imports GdPicture14
 Imports System.Drawing
+Imports DevExpress.Pdf.Native
+Imports DevExpress.XtraRichEdit
 
 Public Class MyService
 #Region "+++++ variables +++++"
@@ -177,7 +179,9 @@ Public Class MyService
                     oDTEB_Workload = MyDatabase.GetDatatable(oSQLWorkload2)
                     For Each oRow As DataRow In oDTEB_Workload.Rows
                         Dim oSQL As String
+
                         oDocID = oRow.Item(0).ToString
+                        Logger.Debug($"Generator_Run on DocID {oDocID}")
                         Try
                             oOutputfilename = oRow.Item("Outputfilename").ToString
                         Catch ex As Exception
@@ -191,11 +195,12 @@ Public Class MyService
                             If oDTEB.Rows.Count > 0 Then
                                 Create_EB_Report(oDocID.ToString, GeneratorID, oOutputfilename, OutputFolder, oReRun)
                             Else
-                                Logger.Warn($"No EB-Rows [{oSQL}]")
+                                Logger.Warn($"DocID {oDocID} - No EB-Rows [{oSQL}]")
                                 Delete_EB2bCreated(oDocID)
                             End If
 
                         End If
+                        Logger.Debug($"")
                     Next
                 End If
             End If
@@ -308,31 +313,29 @@ Public Class MyService
                 End If
 
                 If Not IsNothing(oOriginFile) Then
-                    If File.Exists(My.Settings.Path2PDFTK) Then
-                        If Create_MyStempel(pDocID, GENID) = True Then
-                            'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report
-                            Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID)
+                    If Create_MyStempel(pDocID, GENID) = True Then
+                        'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report
+                        Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID)
 
-                            If oStampedResult <> "" Then
-                                If Concat_Files(pDocID, oOriginFile, GENID, Outputfilename, OutputFolder, oStampedResult, MyFreigabebericht) = True Then
-                                    If pRerun = False Then
-                                        Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID,GEN_ID) VALUES ({Convert.ToInt64(pDocID)},'{GENID}')"
-                                        MyDatabase.ExecuteNonQuery(oInsert)
-                                    End If
-
-
-                                    Logger.Info($"#### Created Ergebnisbericht for DocID: {pDocID} - GENID: {GENID}! #####")
+                        If oStampedResult <> "" Then
+                            If Concat_Files(pDocID, oOriginFile, GENID, Outputfilename, OutputFolder, oStampedResult, MyFreigabebericht) = True Then
+                                If pRerun = False Then
+                                    Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID,GEN_ID) VALUES ({Convert.ToInt64(pDocID)},'{GENID}')"
+                                    MyDatabase.ExecuteNonQuery(oInsert)
                                 End If
-                            Else
-                                Logger.Info("ERROR: CreateStampedPDF = False or """)
+
+
+                                Logger.Info($"#### Created Ergebnisbericht for DocID: {pDocID} - GENID: {GENID}! #####")
                             End If
                         Else
-                            Logger.Warn("Create_MyStempel = False")
-                            Delete_EB2bCreated(pDocID)
+                            Logger.Info($"DocID: {pDocID} ERROR: CreateStampedPDF = False or """)
                         End If
+                    Else
+                        Logger.Warn($"DocID: {pDocID} - Create_MyStempel = False")
+                        Delete_EB2bCreated(pDocID)
                     End If
                 Else
-                    Logger.Warn("OriginFile is nothing!!")
+                    Logger.Warn($"DocID: {pDocID}OriginFile is nothing!!")
                 End If
             Else
                 Logger.Warn($"Error in Create_EB_Report for DocID: {pDocID} - GENID: {GENID} - ERROR: EB_Reportfile {oMyErgebnisbericht} is not existing!!")
@@ -391,7 +394,7 @@ Public Class MyService
                     MyStempel1 = oTempStempel
                 End If
 
-                Logger.Info($"...Stampreport created for DocID: {pDocID} - GENID {GENID}!")
+                Logger.Info($"DocID: {pDocID} - Stampreport created for GENID {GENID}!")
                 Return True
             Else
                 If GENID = "02" Then
@@ -411,7 +414,7 @@ Public Class MyService
     End Function
     Private Function CreateStampedPDF(oOriginFile As String, pDocID As Integer, GENID As String)
         Try
-            Logger.Info($"Trying to CreateStampedPDF for DocID: {pDocID} - GENID {GENID}...")
+            Logger.Info($"### DocID: {pDocID} - Trying to CreateStampedPDF - GENID {GENID}...")
             Dim MyLocalStempel As String
             If GENID = "01" Then
                 MyLocalStempel = MyStempel1
@@ -426,17 +429,17 @@ Public Class MyService
             Dim oGdPictureImaging As New GdPictureImaging()
             'Creating a new empty PDF document.
             If oGdPicturePDF.LoadFromFile(oOriginFile, False) = GdPictureStatus.OK Then
-                Logger.Debug($"{pDocID}..oGdPicturePDF Created")
+                Logger.Debug($"DocID: {pDocID} - ..oGdPicturePDF Created")
                 Dim oYDistance = oGdPicturePDF.GetPageHeight
                 'Just to remind you that units are set to points and the origin is set to bottom left by default.
                 'Loading an image from a file.
                 Dim imageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(MyLocalStempel)
 
                 If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then
-                    Logger.Debug($"{pDocID}..GdPictureImaging.GetStat")
+                    Logger.Debug($"DocID: {pDocID} ..GdPictureImaging.GetStat")
                     'Adding an image as a resource into the PDF document - we decided not to draw the image in this moment.
                     Dim imageResName As String = oGdPicturePDF.AddImageFromGdPictureImage(imageID, False, False)
-                    Logger.Debug($"{pDocID}..oGdPicturePDF.AddImageFromGdPictureImage")
+                    Logger.Debug($"DocID: {pDocID} ..oGdPicturePDF.AddImageFromGdPictureImage")
                     If System.IO.File.Exists(oStampedOriginWithPicture) Then
                         System.IO.File.Delete(oStampedOriginWithPicture)
                     End If
@@ -446,8 +449,7 @@ Public Class MyService
                     If (oGdPicturePDF.GetStat() <> GdPictureStatus.OK) OrElse
                    (oGdPicturePDF.DrawImage(imageResName, My.Settings.XDistance, oYDistance, oGdPictureImaging.GetWidth(imageID) / 5, oGdPictureImaging.GetHeight(imageID) / 5) <> GdPictureStatus.OK) OrElse
                    (oGdPicturePDF.SaveToFile(oStampedOriginWithPicture) <> GdPictureStatus.OK) Then
-                        Logger.Warn("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString())
-                        'MessageBox.Show("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                        Logger.Warn("Unexprecter Error while stamping. Invalid GDPictureState: " + oGdPicturePDF.GetStat().ToString())
                         Return ""
                     End If
                     Logger.Debug($"{pDocID}..oGdPicturePDF.SaveToFile")
@@ -456,14 +458,14 @@ Public Class MyService
 
 
                 Else
-                    Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString())
+                    Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Invalid GDPictureState: " + oGdPictureImaging.GetStat().ToString())
                     Return ""
-                    'MessageBox.Show("The image can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
+
                 End If
                 oGdPicturePDF.CloseDocument()
             Else
-                Logger.Warn("The new PDF document can't be created. Error: " + oGdPicturePDF.GetStat().ToString())
-                'MessageBox.Show("The new PDF document can't be created. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Logger.Warn("The new PDF document can't be created. Invalid GDPictureState: " + oGdPicturePDF.GetStat().ToString())
+
                 Return ""
             End If
             oGdPictureImaging.Dispose()
@@ -474,12 +476,11 @@ Public Class MyService
             Dim oSuccess As Boolean = True
             sw.Start()
             Logger.Debug("Waiting for file: " & oStampedOriginWithPicture)
-
             Do While File.Exists(oStampedOriginWithPicture) = False
                 If sw.Elapsed.TotalSeconds = 30 Then
-                    Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
+                    Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
                 ElseIf sw.Elapsed.TotalMinutes = 1 Then
-                    Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
+                    Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
                     oSuccess = False
                     Exit Do
                 End If
@@ -488,9 +489,9 @@ Public Class MyService
             sw.Stop()
             Try
                 File.Delete(MyLocalStempel)
-                Logger.Debug($"Deleted StempelFile [{MyLocalStempel}]!")
+                Logger.Debug($"DocID: {pDocID} - Deleted StempelFile [{MyLocalStempel}]!")
             Catch ex As Exception
-                Logger.Warn($"Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
+                Logger.Warn($"DocID: {pDocID} - Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
             End Try
             If oSuccess = True Then
                 Return oStampedOriginWithPicture
@@ -504,8 +505,65 @@ Public Class MyService
         End Try
 
     End Function
-    Private Function Concat_Files(DocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, MyOriginStamped As String, MyFreigabebericht As String)
-        Dim oConcatSuccessfull As Boolean = True
+    Private Function GDPIctureConcat2Files(pDocID As Int32, pFile1 As String, pFile2 As String, pDestination As String) As Boolean
+        Try
+            Dim oErrorOccured As Boolean = False
+            Dim arPDF As GdPicturePDF() = New GdPicturePDF(1) {}
+            arPDF(0) = New GdPicturePDF()
+            arPDF(1) = New GdPicturePDF()
+            If (arPDF(0).LoadFromFile(pFile1, False) = GdPictureStatus.OK) AndAlso
+                (arPDF(1).LoadFromFile(pFile2, False) = GdPictureStatus.OK) Then
+                Dim dstPDF As GdPicturePDF = arPDF(0).MergeDocuments(arPDF)
+                'You can use also arPDF[1] or arPDF[2] object to call the MergeDocuments method.
+                Dim oStatusFile1 As GdPictureStatus = arPDF(0).GetStat()
+                Dim oStatusFile2 As GdPictureStatus = arPDF(1).GetStat()
+                If oStatusFile1 = GdPictureStatus.OK Then
+                    If oStatusFile2 = GdPictureStatus.OK Then
+                        Logger.Debug($"DocID: {pDocID} - Status of both documents is OK...Now Save2File")
+                        If dstPDF.SaveToFile(pDestination) = GdPictureStatus.OK Then
+                            Logger.Debug($"DocID: {pDocID} - Merged document has been successfully saved!")
+                            dstPDF.CloseDocument()
+                        Else
+                            Logger.Warn($"DocID: {pDocID} - GDPictureState of ResultFile is not OK")
+                            oErrorOccured = True
+                        End If
+                    Else
+                        Logger.Warn($"DocID: {pDocID} - GDPictureState of File2 is not OK - InvalidStateID [{oStatusFile2.ToString}]")
+                        oErrorOccured = True
+                    End If
+                Else
+                    Logger.Warn($"DocID: {pDocID} - GDPictureState of File1 is not OK - InvalidStateID [{oStatusFile1.ToString}]")
+                    oErrorOccured = True
+                End If
+                dstPDF.Dispose()
+                arPDF(1).CloseDocument()
+                arPDF(0).CloseDocument()
+            Else
+                Logger.Warn($"DocID: {pDocID} - Loading of the source documents has failed")
+                Dim ostate As GdPictureStatus = arPDF(0).LoadFromFile(pFile1, False)
+
+                Logger.Warn($"  >> File1: {pFile1}")
+                Logger.Warn($"      >> oFatalState File1: {ostate.ToString()}")
+                Logger.Warn($"  >> File2: {pFile2}")
+                ostate = arPDF(1).LoadFromFile(pFile2, False)
+                Logger.Warn($"      >> oFatalState File2: {ostate.ToString()}")
+                oErrorOccured = True
+            End If
+            arPDF(1).Dispose()
+            arPDF(0).Dispose()
+            If oErrorOccured = True Then
+                Return False
+            Else
+                Return True
+            End If
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+    Private Function Concat_Files(pDocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, MyOriginStamped As String, MyFreigabebericht As String)
+        Dim oConcatSuccessfull As Boolean
         Dim MyFile2Concat As String
         Try
             If Outputfilename = "STANDARD" Then
@@ -515,82 +573,111 @@ Public Class MyService
                 pOutputFolder = My.Settings.Path_ConcattedFile
             End If
             MyFile2Concat = Path.Combine(pOutputFolder, Outputfilename)
-            If File.Exists(My.Settings.Path2PDFTK) Then
-                If File.Exists(MyFile2Concat) Then
-                    Try
-                        File.Delete(MyFile2Concat)
-                    Catch ex As Exception
-                        Logger.Warn($"Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
-                        Return False
-                    End Try
-
-                End If
+            If File.Exists(MyFile2Concat) Then
                 Try
-                    Dim oPDFTKProcess As New Process
-                    Dim ProcID
-                    oPDFTKProcess.StartInfo.FileName = My.Settings.Path2PDFTK
-                    oPDFTKProcess.StartInfo.CreateNoWindow = True
-
-                    Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """"
-
-                    oPDFTKProcess.StartInfo.Arguments = _argument & " cat output " & MyFile2Concat
-                    Logger.Debug("Arguments: " & _argument & " cat output " & MyFile2Concat)
-                    oPDFTKProcess.Start()
-                    ProcID = oPDFTKProcess.Id
-
-                    Dim oProcID As Process
-                    oProcID = Process.GetProcessById(ProcID)
-
-                    Dim sw As Stopwatch = New Stopwatch()
-                    sw.Start()
-
-                    Do While oProcID.HasExited = False
-
-                        If sw.Elapsed.TotalSeconds = 30 Then
-                            Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
-                        ElseIf sw.Elapsed.TotalMinutes = 1 Then
-                            Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
-                            Exit Do
-                        End If
-                    Loop
-                    Logger.Debug("...process has exited: ")
-                    sw.Stop()
-                    Logger.Debug("Waiting for file: " & MyFile2Concat)
-                    sw.Start()
-                    Do While File.Exists(MyFile2Concat) = False
-                        If sw.Elapsed.TotalSeconds = 30 Then
-                            Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & MyFile2Concat)
-                        ElseIf sw.Elapsed.TotalMinutes = 1 Then
-                            Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & MyFile2Concat)
-                            oConcatSuccessfull = False
-                            Exit Do
-                        End If
-
-                    Loop
-                    sw.Stop()
-
-                    Try
-                        File.Delete(MyOriginStamped)
-                        Logger.Debug($"Deleted file [{MyOriginStamped}]!")
-                        File.Delete(MyFreigabebericht)
-                        Logger.Debug($"Deleted file [{MyFreigabebericht}]!")
-                    Catch ex As Exception
-                        Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
-                    End Try
-                    Return oConcatSuccessfull
-
+                    File.Delete(MyFile2Concat)
                 Catch ex As Exception
-                    Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)")
+                    Logger.Warn($"DocID: {pDocID} - Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
                     Return False
                 End Try
 
-
-            Else
-                Logger.Warn("pdftk is not existing")
-                Return False
             End If
-        Catch ex As Exception
+            Threading.Thread.Sleep(500)
+            oConcatSuccessfull = GDPIctureConcat2Files(pDocID, MyOriginStamped, MyFreigabebericht, MyFile2Concat)
+            If oConcatSuccessfull Then
+                Try
+                    File.Delete(MyOriginStamped)
+                    Logger.Debug($"DocID: {pDocID} - Deleted file [{MyOriginStamped}]!")
+                    File.Delete(MyFreigabebericht)
+                    Logger.Debug($"DocID: {pDocID} - Deleted file [{MyFreigabebericht}]!")
+                Catch ex As Exception
+                    Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
+                End Try
+            End If
 
+            Return oConcatSuccessfull
+            'If File.Exists(My.Settings.Path2PDFTK) Then
+            '    If File.Exists(MyFile2Concat) Then
+            '        Try
+            '            File.Delete(MyFile2Concat)
+            '        Catch ex As Exception
+            '            Logger.Warn($"DocID: {pDocID} - Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
+            '            Return False
+            '        End Try
+
+            '    End If
+            '    Try
+
+
+
+            '        Dim oPDFTKProcess As New Process
+            '        Dim ProcID
+            '        oPDFTKProcess.StartInfo.FileName = My.Settings.Path2PDFTK
+            '        oPDFTKProcess.StartInfo.CreateNoWindow = True
+
+            '        Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """" 'XXXXX_CC_StampedOriginal mit YYYY_ERPT
+
+            '        oPDFTKProcess.StartInfo.Arguments = _argument & " cat output " & MyFile2Concat
+            '        Logger.Debug($"DocID: {pDocID} - Arguments: " & _argument & " cat output " & MyFile2Concat)
+            '        'Start der Verkettung Stempel mit Ergebnisbericht
+            '        oPDFTKProcess.Start()
+            '        ProcID = oPDFTKProcess.Id
+
+            '        Dim oProcID As Process
+            '        oProcID = Process.GetProcessById(ProcID)
+            '        Threading.Thread.Sleep(1000)
+            '        Dim sw As Stopwatch = New Stopwatch()
+            '        sw.Start()
+
+            '        Do While oProcID.HasExited = False
+            '            If sw.Elapsed.TotalSeconds = 30 Then
+            '                Logger.Info($"DocID: {pDocID} - Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
+            '            ElseIf sw.Elapsed.TotalSeconds = 60 Then
+            '                Logger.Info($"DocID: {pDocID} - Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
+            '                Exit Do
+            '            End If
+            '        Loop
+            '        Logger.Debug($"DocID: {pDocID} - ...process has exited: ")
+            '        Threading.Thread.Sleep(500)
+            '        sw.Stop()
+            '        Logger.Debug($"DocID: {pDocID} - Waiting for MyFile2Concat: " & MyFile2Concat)
+
+            '        sw.Start()
+            '        Do While File.Exists(MyFile2Concat) = False
+            '            If sw.Elapsed.TotalSeconds = 30 Then
+            '                Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting for MyFile2Concat (30 sec) for file: " & MyFile2Concat)
+            '            ElseIf sw.Elapsed.TotalSeconds = 60 Then
+            '                Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting for MyFile2Concat (60 sec) for file: " & MyFile2Concat)
+            '                oConcatSuccessfull = False
+            '                Exit Do
+            '            End If
+
+            '        Loop
+            '        sw.Stop()
+
+            '        Try
+            '            File.Delete(MyOriginStamped)
+            '            Logger.Debug($"DocID: {pDocID} - Deleted file [{MyOriginStamped}]!")
+            '            File.Delete(MyFreigabebericht)
+            '            Logger.Debug($"DocID: {pDocID} - Deleted file [{MyFreigabebericht}]!")
+            '        Catch ex As Exception
+            '            Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
+            '        End Try
+            '        Return oConcatSuccessfull
+
+            '    Catch ex As Exception
+            '        Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)")
+            '        Return False
+            '    End Try
+
+
+            'Else
+            '    Logger.Warn("pdftk is not existing")
+            '    Return False
+            'End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
         End Try
     End Function
     Sub Delete_EB2bCreated(pDocID As Long)

EB_Creator/EB_Creator/RptErgebnisbericht.Designer.vb

@@ -1,987 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Public Class RptErgebnisbericht
-    Inherits DevExpress.XtraReports.UI.XtraReport
-
-    'XtraReport overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        If disposing AndAlso components IsNot Nothing Then
-            components.Dispose()
-        End If
-        MyBase.Dispose(disposing)
-    End Sub
-
-    'Required by the Designer
-    Private components As System.ComponentModel.IContainer
-
-    'NOTE: The following procedure is required by the Designer
-    'It can be modified using the Designer.  
-    'Do not modify it using the code editor.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
-        Dim SelectQuery1 As DevExpress.DataAccess.Sql.SelectQuery = New DevExpress.DataAccess.Sql.SelectQuery()
-        Dim Column1 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression1 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Table1 As DevExpress.DataAccess.Sql.Table = New DevExpress.DataAccess.Sql.Table()
-        Dim Column2 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression2 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column3 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression3 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column4 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression4 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column5 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression5 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column6 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression6 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column7 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression7 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column8 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression8 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column9 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression9 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column10 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression10 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column11 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression11 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column12 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression12 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column13 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression13 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column14 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression14 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column15 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression15 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column16 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression16 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column17 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression17 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column18 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression18 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column19 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression19 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column20 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression20 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column21 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression21 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim Column22 As DevExpress.DataAccess.Sql.Column = New DevExpress.DataAccess.Sql.Column()
-        Dim ColumnExpression22 As DevExpress.DataAccess.Sql.ColumnExpression = New DevExpress.DataAccess.Sql.ColumnExpression()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(RptErgebnisbericht))
-        Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
-        Me.XrTable4 = New DevExpress.XtraReports.UI.XRTable()
-        Me.XrTableRow4 = New DevExpress.XtraReports.UI.XRTableRow()
-        Me.XrTableCell36 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell37 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell38 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
-        Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand()
-        Me.XrPageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo()
-        Me.XrPageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo()
-        Me.ReportHeaderBand1 = New DevExpress.XtraReports.UI.ReportHeaderBand()
-        Me.XrLabel18 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine()
-        Me.XrLabel10 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel9 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel8 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel7 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel6 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel5 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel4 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel3 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel17 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel11 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel13 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel14 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel15 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.GroupHeaderBand1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
-        Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
-        Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
-        Me.XrTableCell1 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell2 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell5 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell6 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.GroupHeaderBand2 = New DevExpress.XtraReports.UI.GroupHeaderBand()
-        Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
-        Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
-        Me.XrTableCell3 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell4 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.GroupHeaderBand3 = New DevExpress.XtraReports.UI.GroupHeaderBand()
-        Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
-        Me.XrTable3 = New DevExpress.XtraReports.UI.XRTable()
-        Me.XrTableRow3 = New DevExpress.XtraReports.UI.XRTableRow()
-        Me.XrTableCell19 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell20 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.XrTableCell21 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.GroupFooterBand1 = New DevExpress.XtraReports.UI.GroupFooterBand()
-        Me.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
-        Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand()
-        Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand()
-        Me.XrLabel21 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel20 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components)
-        Me.Title = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.GroupCaption3 = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.GroupData3 = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.DetailCaption3 = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.DetailData3 = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.DetailData3_Odd = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.DetailCaptionBackground3 = New DevExpress.XtraReports.UI.XRControlStyle()
-        Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle()
-        CType(Me.XrTable4, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.XrTable3, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
-        '
-        'Detail
-        '
-        Me.Detail.BackColor = System.Drawing.Color.Yellow
-        Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable4})
-        Me.Detail.HeightF = 27.16669!
-        Me.Detail.Name = "Detail"
-        Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
-        Me.Detail.StylePriority.UseBackColor = False
-        Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
-        '
-        'XrTable4
-        '
-        Me.XrTable4.BackColor = System.Drawing.Color.Transparent
-        Me.XrTable4.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 0!)
-        Me.XrTable4.Name = "XrTable4"
-        Me.XrTable4.OddStyleName = "DetailData3_Odd"
-        Me.XrTable4.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow4})
-        Me.XrTable4.SizeF = New System.Drawing.SizeF(611.0!, 25.0!)
-        Me.XrTable4.StylePriority.UseBackColor = False
-        '
-        'XrTableRow4
-        '
-        Me.XrTableRow4.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell36, Me.XrTableCell37, Me.XrTableCell38})
-        Me.XrTableRow4.Name = "XrTableRow4"
-        Me.XrTableRow4.Weight = 11.5R
-        '
-        'XrTableCell36
-        '
-        Me.XrTableCell36.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[FG_Email]")})
-        Me.XrTableCell36.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell36.Multiline = True
-        Me.XrTableCell36.Name = "XrTableCell36"
-        Me.XrTableCell36.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell36.StyleName = "DetailData3"
-        Me.XrTableCell36.StylePriority.UseFont = False
-        Me.XrTableCell36.Text = "XrTableCell36"
-        Me.XrTableCell36.Weight = 0.072235621703670289R
-        '
-        'XrTableCell37
-        '
-        Me.XrTableCell37.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[FG_Freigabe]")})
-        Me.XrTableCell37.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell37.Multiline = True
-        Me.XrTableCell37.Name = "XrTableCell37"
-        Me.XrTableCell37.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell37.StyleName = "DetailData3"
-        Me.XrTableCell37.StylePriority.UseFont = False
-        Me.XrTableCell37.Text = "XrTableCell37"
-        Me.XrTableCell37.Weight = 0.026664891578518712R
-        '
-        'XrTableCell38
-        '
-        Me.XrTableCell38.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[FG_Wann]")})
-        Me.XrTableCell38.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell38.Multiline = True
-        Me.XrTableCell38.Name = "XrTableCell38"
-        Me.XrTableCell38.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell38.StyleName = "DetailData3"
-        Me.XrTableCell38.StylePriority.UseFont = False
-        Me.XrTableCell38.Text = "XrTableCell38"
-        Me.XrTableCell38.TextFormatString = "{0:dd.MM.yyyy HH:mm}"
-        Me.XrTableCell38.Weight = 0.036902460293284575R
-        '
-        'TopMargin
-        '
-        Me.TopMargin.Name = "TopMargin"
-        Me.TopMargin.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
-        Me.TopMargin.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
-        '
-        'BottomMargin
-        '
-        Me.BottomMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPageInfo1, Me.XrPageInfo2})
-        Me.BottomMargin.Name = "BottomMargin"
-        Me.BottomMargin.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
-        Me.BottomMargin.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
-        '
-        'XrPageInfo1
-        '
-        Me.XrPageInfo1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 6.0!)
-        Me.XrPageInfo1.Name = "XrPageInfo1"
-        Me.XrPageInfo1.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrPageInfo1.PageInfo = DevExpress.XtraPrinting.PageInfo.DateTime
-        Me.XrPageInfo1.SizeF = New System.Drawing.SizeF(313.0!, 23.0!)
-        Me.XrPageInfo1.StyleName = "PageInfo"
-        Me.XrPageInfo1.TextFormatString = "{0:dd.MM.yyyy HH:mm' Uhr'}"
-        '
-        'XrPageInfo2
-        '
-        Me.XrPageInfo2.LocationFloat = New DevExpress.Utils.PointFloat(331.0!, 6.00001!)
-        Me.XrPageInfo2.Name = "XrPageInfo2"
-        Me.XrPageInfo2.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrPageInfo2.SizeF = New System.Drawing.SizeF(285.9999!, 23.0!)
-        Me.XrPageInfo2.StyleName = "PageInfo"
-        Me.XrPageInfo2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
-        Me.XrPageInfo2.TextFormatString = "Seite {0} von {1}"
-        '
-        'ReportHeaderBand1
-        '
-        Me.ReportHeaderBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel18, Me.XrLine1, Me.XrLabel10, Me.XrLabel9, Me.XrLabel8, Me.XrLabel7, Me.XrLabel6, Me.XrLabel5, Me.XrLabel4, Me.XrLabel3, Me.XrLabel16, Me.XrLabel17, Me.XrLabel11, Me.XrLabel12, Me.XrLabel13, Me.XrLabel14, Me.XrLabel15, Me.XrLabel1})
-        Me.ReportHeaderBand1.HeightF = 312.0833!
-        Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
-        '
-        'XrLabel18
-        '
-        Me.XrLabel18.Font = New System.Drawing.Font("Arial", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel18.LocationFloat = New DevExpress.Utils.PointFloat(0!, 279.0833!)
-        Me.XrLabel18.Multiline = True
-        Me.XrLabel18.Name = "XrLabel18"
-        Me.XrLabel18.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel18.SizeF = New System.Drawing.SizeF(395.4604!, 23.0!)
-        Me.XrLabel18.StylePriority.UseFont = False
-        Me.XrLabel18.Text = "Zusammenfassung:"
-        '
-        'XrLine1
-        '
-        Me.XrLine1.LineWidth = 2.0!
-        Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 256.0833!)
-        Me.XrLine1.Name = "XrLine1"
-        Me.XrLine1.SizeF = New System.Drawing.SizeF(627.0!, 23.0!)
-        '
-        'XrLabel10
-        '
-        Me.XrLabel10.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Mandant Name]")})
-        Me.XrLabel10.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel10.LocationFloat = New DevExpress.Utils.PointFloat(416.1523!, 120.0001!)
-        Me.XrLabel10.Multiline = True
-        Me.XrLabel10.Name = "XrLabel10"
-        Me.XrLabel10.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel10.SizeF = New System.Drawing.SizeF(200.8477!, 22.99998!)
-        Me.XrLabel10.StylePriority.UseFont = False
-        Me.XrLabel10.Text = "XrLabel10"
-        '
-        'XrLabel9
-        '
-        Me.XrLabel9.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Mandant]")})
-        Me.XrLabel9.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel9.LocationFloat = New DevExpress.Utils.PointFloat(416.1523!, 83.95837!)
-        Me.XrLabel9.Multiline = True
-        Me.XrLabel9.Name = "XrLabel9"
-        Me.XrLabel9.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel9.SizeF = New System.Drawing.SizeF(140.8081!, 23.0!)
-        Me.XrLabel9.StylePriority.UseFont = False
-        Me.XrLabel9.Text = "XrLabel9"
-        '
-        'XrLabel8
-        '
-        Me.XrLabel8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[RechnungNr]")})
-        Me.XrLabel8.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(416.1523!, 44.74999!)
-        Me.XrLabel8.Multiline = True
-        Me.XrLabel8.Name = "XrLabel8"
-        Me.XrLabel8.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel8.SizeF = New System.Drawing.SizeF(140.8083!, 23.0!)
-        Me.XrLabel8.StylePriority.UseFont = False
-        Me.XrLabel8.Text = "XrLabel8"
-        '
-        'XrLabel7
-        '
-        Me.XrLabel7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[KreditorName_Lang]")})
-        Me.XrLabel7.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel7.LocationFloat = New DevExpress.Utils.PointFloat(124.9569!, 213.7501!)
-        Me.XrLabel7.Multiline = True
-        Me.XrLabel7.Name = "XrLabel7"
-        Me.XrLabel7.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel7.SizeF = New System.Drawing.SizeF(492.0431!, 23.0!)
-        Me.XrLabel7.StylePriority.UseFont = False
-        Me.XrLabel7.Text = "XrLabel7"
-        '
-        'XrLabel6
-        '
-        Me.XrLabel6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[KreditorNummer]")})
-        Me.XrLabel6.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(124.9569!, 154.2084!)
-        Me.XrLabel6.Multiline = True
-        Me.XrLabel6.Name = "XrLabel6"
-        Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel6.SizeF = New System.Drawing.SizeF(145.8333!, 23.0!)
-        Me.XrLabel6.StylePriority.UseFont = False
-        Me.XrLabel6.Text = "XrLabel6"
-        '
-        'XrLabel5
-        '
-        Me.XrLabel5.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Referenz]")})
-        Me.XrLabel5.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(124.9569!, 120.0001!)
-        Me.XrLabel5.Multiline = True
-        Me.XrLabel5.Name = "XrLabel5"
-        Me.XrLabel5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel5.SizeF = New System.Drawing.SizeF(145.8333!, 23.0!)
-        Me.XrLabel5.StylePriority.UseFont = False
-        Me.XrLabel5.Text = "XrLabel5"
-        '
-        'XrLabel4
-        '
-        Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Belegdatum]")})
-        Me.XrLabel4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(124.9569!, 85.00004!)
-        Me.XrLabel4.Multiline = True
-        Me.XrLabel4.Name = "XrLabel4"
-        Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel4.SizeF = New System.Drawing.SizeF(145.8333!, 23.0!)
-        Me.XrLabel4.StylePriority.UseFont = False
-        Me.XrLabel4.Text = "XrLabel4"
-        Me.XrLabel4.TextFormatString = "{0:dd.MM.yyyy}"
-        '
-        'XrLabel3
-        '
-        Me.XrLabel3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Erhalten wann]")})
-        Me.XrLabel3.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel3.LocationFloat = New DevExpress.Utils.PointFloat(124.9569!, 44.74999!)
-        Me.XrLabel3.Multiline = True
-        Me.XrLabel3.Name = "XrLabel3"
-        Me.XrLabel3.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel3.SizeF = New System.Drawing.SizeF(145.8334!, 23.0!)
-        Me.XrLabel3.StylePriority.UseFont = False
-        Me.XrLabel3.Text = "XrLabel3"
-        Me.XrLabel3.TextFormatString = "{0:dd.MM.yyyy}"
-        '
-        'XrLabel16
-        '
-        Me.XrLabel16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel16.LocationFloat = New DevExpress.Utils.PointFloat(295.4604!, 44.74999!)
-        Me.XrLabel16.Multiline = True
-        Me.XrLabel16.Name = "XrLabel16"
-        Me.XrLabel16.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel16.SizeF = New System.Drawing.SizeF(100.0!, 23.0!)
-        Me.XrLabel16.StylePriority.UseFont = False
-        Me.XrLabel16.Text = "Belegnummer:"
-        '
-        'XrLabel17
-        '
-        Me.XrLabel17.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel17.LocationFloat = New DevExpress.Utils.PointFloat(295.4604!, 83.95837!)
-        Me.XrLabel17.Multiline = True
-        Me.XrLabel17.Name = "XrLabel17"
-        Me.XrLabel17.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel17.SizeF = New System.Drawing.SizeF(100.0!, 23.0!)
-        Me.XrLabel17.StylePriority.UseFont = False
-        Me.XrLabel17.Text = "Mandant:"
-        '
-        'XrLabel11
-        '
-        Me.XrLabel11.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel11.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 44.74999!)
-        Me.XrLabel11.Multiline = True
-        Me.XrLabel11.Name = "XrLabel11"
-        Me.XrLabel11.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel11.SizeF = New System.Drawing.SizeF(100.0!, 23.0!)
-        Me.XrLabel11.StylePriority.UseFont = False
-        Me.XrLabel11.Text = "Eingang:"
-        '
-        'XrLabel12
-        '
-        Me.XrLabel12.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel12.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 85.00004!)
-        Me.XrLabel12.Multiline = True
-        Me.XrLabel12.Name = "XrLabel12"
-        Me.XrLabel12.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel12.SizeF = New System.Drawing.SizeF(100.0!, 23.0!)
-        Me.XrLabel12.StylePriority.UseFont = False
-        Me.XrLabel12.Text = "Belegdatum:"
-        '
-        'XrLabel13
-        '
-        Me.XrLabel13.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel13.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 120.0001!)
-        Me.XrLabel13.Multiline = True
-        Me.XrLabel13.Name = "XrLabel13"
-        Me.XrLabel13.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel13.SizeF = New System.Drawing.SizeF(100.0!, 23.0!)
-        Me.XrLabel13.StylePriority.UseFont = False
-        Me.XrLabel13.Text = "Referenz:"
-        '
-        'XrLabel14
-        '
-        Me.XrLabel14.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel14.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 154.2084!)
-        Me.XrLabel14.Multiline = True
-        Me.XrLabel14.Name = "XrLabel14"
-        Me.XrLabel14.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel14.SizeF = New System.Drawing.SizeF(118.9569!, 23.0!)
-        Me.XrLabel14.StylePriority.UseFont = False
-        Me.XrLabel14.Text = "Kreditornummer:"
-        '
-        'XrLabel15
-        '
-        Me.XrLabel15.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel15.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 213.7501!)
-        Me.XrLabel15.Multiline = True
-        Me.XrLabel15.Name = "XrLabel15"
-        Me.XrLabel15.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel15.SizeF = New System.Drawing.SizeF(118.9569!, 23.0!)
-        Me.XrLabel15.StylePriority.UseFont = False
-        Me.XrLabel15.Text = "Kreditorname:"
-        '
-        'XrLabel1
-        '
-        Me.XrLabel1.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 6.00001!)
-        Me.XrLabel1.Multiline = True
-        Me.XrLabel1.Name = "XrLabel1"
-        Me.XrLabel1.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel1.SizeF = New System.Drawing.SizeF(611.0!, 25.55338!)
-        Me.XrLabel1.StyleName = "Title"
-        Me.XrLabel1.StylePriority.UseFont = False
-        Me.XrLabel1.Text = "Ergebnisbericht des WISAG e-invoice Portal"
-        '
-        'GroupHeaderBand1
-        '
-        Me.GroupHeaderBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
-        Me.GroupHeaderBand1.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("GroupTypeID", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
-        Me.GroupHeaderBand1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
-        Me.GroupHeaderBand1.HeightF = 30.0!
-        Me.GroupHeaderBand1.Name = "GroupHeaderBand1"
-        '
-        'XrTable1
-        '
-        Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
-        Me.XrTable1.Name = "XrTable1"
-        Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
-        Me.XrTable1.SizeF = New System.Drawing.SizeF(627.0!, 30.0!)
-        '
-        'XrTableRow1
-        '
-        Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell1, Me.XrTableCell2, Me.XrTableCell5, Me.XrTableCell6})
-        Me.XrTableRow1.Name = "XrTableRow1"
-        Me.XrTableRow1.Weight = 1.0R
-        '
-        'XrTableCell1
-        '
-        Me.XrTableCell1.Multiline = True
-        Me.XrTableCell1.Name = "XrTableCell1"
-        Me.XrTableCell1.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell1.StyleName = "GroupCaption3"
-        Me.XrTableCell1.StylePriority.UseTextAlignment = False
-        Me.XrTableCell1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
-        Me.XrTableCell1.Weight = 0.016107705923227147R
-        '
-        'XrTableCell2
-        '
-        Me.XrTableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[GroupType]")})
-        Me.XrTableCell2.Multiline = True
-        Me.XrTableCell2.Name = "XrTableCell2"
-        Me.XrTableCell2.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell2.StyleName = "GroupData3"
-        Me.XrTableCell2.StylePriority.UseTextAlignment = False
-        Me.XrTableCell2.Text = "XrTableCell2"
-        Me.XrTableCell2.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        Me.XrTableCell2.Weight = 2.8491731450234843R
-        '
-        'XrTableCell5
-        '
-        Me.XrTableCell5.BackColor = System.Drawing.Color.FromArgb(CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer))
-        Me.XrTableCell5.BorderColor = System.Drawing.Color.White
-        Me.XrTableCell5.Borders = DevExpress.XtraPrinting.BorderSide.Bottom
-        Me.XrTableCell5.BorderWidth = 2.0!
-        Me.XrTableCell5.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell5.ForeColor = System.Drawing.Color.White
-        Me.XrTableCell5.Multiline = True
-        Me.XrTableCell5.Name = "XrTableCell5"
-        Me.XrTableCell5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell5.StylePriority.UseBackColor = False
-        Me.XrTableCell5.StylePriority.UseBorderColor = False
-        Me.XrTableCell5.StylePriority.UseBorders = False
-        Me.XrTableCell5.StylePriority.UseBorderWidth = False
-        Me.XrTableCell5.StylePriority.UseFont = False
-        Me.XrTableCell5.StylePriority.UseForeColor = False
-        Me.XrTableCell5.StylePriority.UsePadding = False
-        Me.XrTableCell5.StylePriority.UseTextAlignment = False
-        Me.XrTableCell5.Text = "Freigabe"
-        Me.XrTableCell5.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        Me.XrTableCell5.Weight = 1.0389501415011511R
-        '
-        'XrTableCell6
-        '
-        Me.XrTableCell6.BackColor = System.Drawing.Color.FromArgb(CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer))
-        Me.XrTableCell6.BorderColor = System.Drawing.Color.White
-        Me.XrTableCell6.Borders = DevExpress.XtraPrinting.BorderSide.Bottom
-        Me.XrTableCell6.BorderWidth = 2.0!
-        Me.XrTableCell6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell6.ForeColor = System.Drawing.Color.White
-        Me.XrTableCell6.Multiline = True
-        Me.XrTableCell6.Name = "XrTableCell6"
-        Me.XrTableCell6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell6.StylePriority.UseBackColor = False
-        Me.XrTableCell6.StylePriority.UseBorderColor = False
-        Me.XrTableCell6.StylePriority.UseBorders = False
-        Me.XrTableCell6.StylePriority.UseBorderWidth = False
-        Me.XrTableCell6.StylePriority.UseFont = False
-        Me.XrTableCell6.StylePriority.UseForeColor = False
-        Me.XrTableCell6.StylePriority.UsePadding = False
-        Me.XrTableCell6.StylePriority.UseTextAlignment = False
-        Me.XrTableCell6.Text = "Wann"
-        Me.XrTableCell6.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        Me.XrTableCell6.Weight = 1.5256522791576401R
-        '
-        'GroupHeaderBand2
-        '
-        Me.GroupHeaderBand2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
-        Me.GroupHeaderBand2.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("DOC_ID", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
-        Me.GroupHeaderBand2.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
-        Me.GroupHeaderBand2.HeightF = 25.0!
-        Me.GroupHeaderBand2.Level = 1
-        Me.GroupHeaderBand2.Name = "GroupHeaderBand2"
-        Me.GroupHeaderBand2.Visible = False
-        '
-        'XrTable2
-        '
-        Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
-        Me.XrTable2.Name = "XrTable2"
-        Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
-        Me.XrTable2.SizeF = New System.Drawing.SizeF(616.9999!, 25.0!)
-        '
-        'XrTableRow2
-        '
-        Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell3, Me.XrTableCell4})
-        Me.XrTableRow2.Name = "XrTableRow2"
-        Me.XrTableRow2.Weight = 1.0R
-        '
-        'XrTableCell3
-        '
-        Me.XrTableCell3.Multiline = True
-        Me.XrTableCell3.Name = "XrTableCell3"
-        Me.XrTableCell3.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell3.StyleName = "GroupCaption3"
-        Me.XrTableCell3.Text = "DOC ID"
-        Me.XrTableCell3.Weight = 0.076042996920072117R
-        '
-        'XrTableCell4
-        '
-        Me.XrTableCell4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[DOC_ID]")})
-        Me.XrTableCell4.Multiline = True
-        Me.XrTableCell4.Name = "XrTableCell4"
-        Me.XrTableCell4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell4.StyleName = "GroupData3"
-        Me.XrTableCell4.Text = "XrTableCell4"
-        Me.XrTableCell4.Weight = 0.87318763384396236R
-        '
-        'GroupHeaderBand3
-        '
-        Me.GroupHeaderBand3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel1})
-        Me.GroupHeaderBand3.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
-        Me.GroupHeaderBand3.HeightF = 38.00001!
-        Me.GroupHeaderBand3.Level = 2
-        Me.GroupHeaderBand3.Name = "GroupHeaderBand3"
-        '
-        'XrPanel1
-        '
-        Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable3})
-        Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
-        Me.XrPanel1.Name = "XrPanel1"
-        Me.XrPanel1.SizeF = New System.Drawing.SizeF(617.0!, 38.00001!)
-        Me.XrPanel1.StyleName = "DetailCaptionBackground3"
-        '
-        'XrTable3
-        '
-        Me.XrTable3.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 3.750006!)
-        Me.XrTable3.Name = "XrTable3"
-        Me.XrTable3.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow3})
-        Me.XrTable3.SizeF = New System.Drawing.SizeF(601.0!, 29.0417!)
-        '
-        'XrTableRow3
-        '
-        Me.XrTableRow3.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell19, Me.XrTableCell20, Me.XrTableCell21})
-        Me.XrTableRow3.Name = "XrTableRow3"
-        Me.XrTableRow3.Weight = 1.0R
-        '
-        'XrTableCell19
-        '
-        Me.XrTableCell19.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell19.Multiline = True
-        Me.XrTableCell19.Name = "XrTableCell19"
-        Me.XrTableCell19.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell19.StyleName = "DetailCaption3"
-        Me.XrTableCell19.StylePriority.UseFont = False
-        Me.XrTableCell19.Text = "Email-Adresse"
-        Me.XrTableCell19.Weight = 0.072235612817611247R
-        '
-        'XrTableCell20
-        '
-        Me.XrTableCell20.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell20.Multiline = True
-        Me.XrTableCell20.Name = "XrTableCell20"
-        Me.XrTableCell20.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell20.StyleName = "DetailCaption3"
-        Me.XrTableCell20.StylePriority.UseFont = False
-        Me.XrTableCell20.Text = "Ja/Nein"
-        Me.XrTableCell20.Weight = 0.026664912202107805R
-        '
-        'XrTableCell21
-        '
-        Me.XrTableCell21.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrTableCell21.Multiline = True
-        Me.XrTableCell21.Name = "XrTableCell21"
-        Me.XrTableCell21.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrTableCell21.StyleName = "DetailCaption3"
-        Me.XrTableCell21.StylePriority.UseFont = False
-        Me.XrTableCell21.Text = "Datum Uhrzeit"
-        Me.XrTableCell21.Weight = 0.041894447347321118R
-        '
-        'GroupFooterBand1
-        '
-        Me.GroupFooterBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel2})
-        Me.GroupFooterBand1.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail
-        Me.GroupFooterBand1.HeightF = 6.00001!
-        Me.GroupFooterBand1.Name = "GroupFooterBand1"
-        Me.GroupFooterBand1.Visible = False
-        '
-        'XrLabel2
-        '
-        Me.XrLabel2.Borders = DevExpress.XtraPrinting.BorderSide.None
-        Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
-        Me.XrLabel2.Multiline = True
-        Me.XrLabel2.Name = "XrLabel2"
-        Me.XrLabel2.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel2.SizeF = New System.Drawing.SizeF(610.0!, 2.08!)
-        Me.XrLabel2.StyleName = "GroupCaption3"
-        Me.XrLabel2.StylePriority.UseBorders = False
-        '
-        'GroupHeader1
-        '
-        Me.GroupHeader1.HeightF = 0!
-        Me.GroupHeader1.Level = 3
-        Me.GroupHeader1.Name = "GroupHeader1"
-        Me.GroupHeader1.Visible = False
-        '
-        'DetailReport
-        '
-        Me.DetailReport.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail1})
-        Me.DetailReport.Level = 0
-        Me.DetailReport.Name = "DetailReport"
-        '
-        'Detail1
-        '
-        Me.Detail1.BackColor = System.Drawing.Color.DarkOrange
-        Me.Detail1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel21, Me.XrLabel20, Me.XrLabel19})
-        Me.Detail1.HeightF = 21.875!
-        Me.Detail1.Name = "Detail1"
-        Me.Detail1.StylePriority.UseBackColor = False
-        '
-        'XrLabel21
-        '
-        Me.XrLabel21.BackColor = System.Drawing.Color.Transparent
-        Me.XrLabel21.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[VWCUST_RPTPM_UNION].[DELEGATION]")})
-        Me.XrLabel21.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel21.LocationFloat = New DevExpress.Utils.PointFloat(195.0245!, 0!)
-        Me.XrLabel21.Multiline = True
-        Me.XrLabel21.Name = "XrLabel21"
-        Me.XrLabel21.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel21.SizeF = New System.Drawing.SizeF(244.487!, 18.12505!)
-        Me.XrLabel21.StylePriority.UseBackColor = False
-        Me.XrLabel21.StylePriority.UseFont = False
-        Me.XrLabel21.Text = "XrLabel21"
-        '
-        'XrLabel20
-        '
-        Me.XrLabel20.BackColor = System.Drawing.Color.Transparent
-        Me.XrLabel20.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[VWCUST_RPTPM_UNION].[WHEN]")})
-        Me.XrLabel20.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel20.LocationFloat = New DevExpress.Utils.PointFloat(450.9698!, 0!)
-        Me.XrLabel20.Multiline = True
-        Me.XrLabel20.Name = "XrLabel20"
-        Me.XrLabel20.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel20.SizeF = New System.Drawing.SizeF(166.0301!, 18.12502!)
-        Me.XrLabel20.StylePriority.UseBackColor = False
-        Me.XrLabel20.StylePriority.UseFont = False
-        Me.XrLabel20.Text = "XrLabel20"
-        '
-        'XrLabel19
-        '
-        Me.XrLabel19.BackColor = System.Drawing.Color.Transparent
-        Me.XrLabel19.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[VWCUST_RPTPM_UNION].[WHO]")})
-        Me.XrLabel19.Font = New System.Drawing.Font("Arial", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel19.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 0!)
-        Me.XrLabel19.Multiline = True
-        Me.XrLabel19.Name = "XrLabel19"
-        Me.XrLabel19.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel19.SizeF = New System.Drawing.SizeF(176.2486!, 18.12502!)
-        Me.XrLabel19.StylePriority.UseBackColor = False
-        Me.XrLabel19.StylePriority.UseFont = False
-        Me.XrLabel19.Text = "XrLabel19"
-        '
-        'SqlDataSource1
-        '
-        Me.SqlDataSource1.ConnectionName = "MySSConnectionString"
-        Me.SqlDataSource1.Name = "SqlDataSource1"
-        ColumnExpression1.ColumnName = "GroupTypeID"
-        Table1.MetaSerializable = "<Meta X=""30"" Y=""30"" Width=""125"" Height=""476"" />"
-        Table1.Name = "VWCUST_RPTPM_UNION"
-        ColumnExpression1.Table = Table1
-        Column1.Expression = ColumnExpression1
-        ColumnExpression2.ColumnName = "GroupType"
-        ColumnExpression2.Table = Table1
-        Column2.Expression = ColumnExpression2
-        ColumnExpression3.ColumnName = "DOC_ID"
-        ColumnExpression3.Table = Table1
-        Column3.Expression = ColumnExpression3
-        ColumnExpression4.ColumnName = "KreditorNummer"
-        ColumnExpression4.Table = Table1
-        Column4.Expression = ColumnExpression4
-        ColumnExpression5.ColumnName = "KreditorName_Lang"
-        ColumnExpression5.Table = Table1
-        Column5.Expression = ColumnExpression5
-        ColumnExpression6.ColumnName = "KreditorName"
-        ColumnExpression6.Table = Table1
-        Column6.Expression = ColumnExpression6
-        ColumnExpression7.ColumnName = "RechnungNr"
-        ColumnExpression7.Table = Table1
-        Column7.Expression = ColumnExpression7
-        ColumnExpression8.ColumnName = "Referenz"
-        ColumnExpression8.Table = Table1
-        Column8.Expression = ColumnExpression8
-        ColumnExpression9.ColumnName = "Nettobetrag"
-        ColumnExpression9.Table = Table1
-        Column9.Expression = ColumnExpression9
-        ColumnExpression10.ColumnName = "Bruttobetrag"
-        ColumnExpression10.Table = Table1
-        Column10.Expression = ColumnExpression10
-        ColumnExpression11.ColumnName = "Zahlungsziel"
-        ColumnExpression11.Table = Table1
-        Column11.Expression = ColumnExpression11
-        ColumnExpression12.ColumnName = "Mandant"
-        ColumnExpression12.Table = Table1
-        Column12.Expression = ColumnExpression12
-        ColumnExpression13.ColumnName = "Mandant Name"
-        ColumnExpression13.Table = Table1
-        Column13.Expression = ColumnExpression13
-        ColumnExpression14.ColumnName = "Kostenstelle"
-        ColumnExpression14.Table = Table1
-        Column14.Expression = ColumnExpression14
-        ColumnExpression15.ColumnName = "Erhalten wann"
-        ColumnExpression15.Table = Table1
-        Column15.Expression = ColumnExpression15
-        ColumnExpression16.ColumnName = "Belegdatum"
-        ColumnExpression16.Table = Table1
-        Column16.Expression = ColumnExpression16
-        ColumnExpression17.ColumnName = "FG_Email"
-        ColumnExpression17.Table = Table1
-        Column17.Expression = ColumnExpression17
-        ColumnExpression18.ColumnName = "FG_Freigabe"
-        ColumnExpression18.Table = Table1
-        Column18.Expression = ColumnExpression18
-        ColumnExpression19.ColumnName = "FG_Wann"
-        ColumnExpression19.Table = Table1
-        Column19.Expression = ColumnExpression19
-        ColumnExpression20.ColumnName = "WHO"
-        ColumnExpression20.Table = Table1
-        Column20.Expression = ColumnExpression20
-        ColumnExpression21.ColumnName = "WHEN"
-        ColumnExpression21.Table = Table1
-        Column21.Expression = ColumnExpression21
-        ColumnExpression22.ColumnName = "DELEGATION"
-        ColumnExpression22.Table = Table1
-        Column22.Expression = ColumnExpression22
-        SelectQuery1.Columns.Add(Column1)
-        SelectQuery1.Columns.Add(Column2)
-        SelectQuery1.Columns.Add(Column3)
-        SelectQuery1.Columns.Add(Column4)
-        SelectQuery1.Columns.Add(Column5)
-        SelectQuery1.Columns.Add(Column6)
-        SelectQuery1.Columns.Add(Column7)
-        SelectQuery1.Columns.Add(Column8)
-        SelectQuery1.Columns.Add(Column9)
-        SelectQuery1.Columns.Add(Column10)
-        SelectQuery1.Columns.Add(Column11)
-        SelectQuery1.Columns.Add(Column12)
-        SelectQuery1.Columns.Add(Column13)
-        SelectQuery1.Columns.Add(Column14)
-        SelectQuery1.Columns.Add(Column15)
-        SelectQuery1.Columns.Add(Column16)
-        SelectQuery1.Columns.Add(Column17)
-        SelectQuery1.Columns.Add(Column18)
-        SelectQuery1.Columns.Add(Column19)
-        SelectQuery1.Columns.Add(Column20)
-        SelectQuery1.Columns.Add(Column21)
-        SelectQuery1.Columns.Add(Column22)
-        SelectQuery1.Name = "VWCUST_RPTPM_UNION"
-        SelectQuery1.Tables.Add(Table1)
-        Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {SelectQuery1})
-        Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable")
-        '
-        'Title
-        '
-        Me.Title.BackColor = System.Drawing.Color.Transparent
-        Me.Title.BorderColor = System.Drawing.Color.Black
-        Me.Title.Borders = DevExpress.XtraPrinting.BorderSide.None
-        Me.Title.BorderWidth = 1.0!
-        Me.Title.Font = New System.Drawing.Font("Tahoma", 14.0!)
-        Me.Title.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer))
-        Me.Title.Name = "Title"
-        '
-        'GroupCaption3
-        '
-        Me.GroupCaption3.BackColor = System.Drawing.Color.FromArgb(CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer))
-        Me.GroupCaption3.BorderColor = System.Drawing.Color.White
-        Me.GroupCaption3.Borders = DevExpress.XtraPrinting.BorderSide.Bottom
-        Me.GroupCaption3.BorderWidth = 2.0!
-        Me.GroupCaption3.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
-        Me.GroupCaption3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(228, Byte), Integer), CType(CType(228, Byte), Integer), CType(CType(228, Byte), Integer))
-        Me.GroupCaption3.Name = "GroupCaption3"
-        Me.GroupCaption3.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 2, 0, 0, 100.0!)
-        Me.GroupCaption3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        '
-        'GroupData3
-        '
-        Me.GroupData3.BackColor = System.Drawing.Color.FromArgb(CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer), CType(CType(137, Byte), Integer))
-        Me.GroupData3.BorderColor = System.Drawing.Color.White
-        Me.GroupData3.Borders = DevExpress.XtraPrinting.BorderSide.Bottom
-        Me.GroupData3.BorderWidth = 2.0!
-        Me.GroupData3.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
-        Me.GroupData3.ForeColor = System.Drawing.Color.White
-        Me.GroupData3.Name = "GroupData3"
-        Me.GroupData3.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 2, 0, 0, 100.0!)
-        Me.GroupData3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        '
-        'DetailCaption3
-        '
-        Me.DetailCaption3.BackColor = System.Drawing.Color.Transparent
-        Me.DetailCaption3.BorderColor = System.Drawing.Color.Transparent
-        Me.DetailCaption3.Borders = DevExpress.XtraPrinting.BorderSide.None
-        Me.DetailCaption3.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
-        Me.DetailCaption3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer))
-        Me.DetailCaption3.Name = "DetailCaption3"
-        Me.DetailCaption3.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100.0!)
-        Me.DetailCaption3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        '
-        'DetailData3
-        '
-        Me.DetailData3.Font = New System.Drawing.Font("Tahoma", 8.0!)
-        Me.DetailData3.ForeColor = System.Drawing.Color.Black
-        Me.DetailData3.Name = "DetailData3"
-        Me.DetailData3.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100.0!)
-        Me.DetailData3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        '
-        'DetailData3_Odd
-        '
-        Me.DetailData3_Odd.BackColor = System.Drawing.Color.FromArgb(CType(CType(231, Byte), Integer), CType(CType(231, Byte), Integer), CType(CType(231, Byte), Integer))
-        Me.DetailData3_Odd.BorderColor = System.Drawing.Color.Transparent
-        Me.DetailData3_Odd.Borders = DevExpress.XtraPrinting.BorderSide.None
-        Me.DetailData3_Odd.BorderWidth = 1.0!
-        Me.DetailData3_Odd.Font = New System.Drawing.Font("Tahoma", 8.0!)
-        Me.DetailData3_Odd.ForeColor = System.Drawing.Color.Black
-        Me.DetailData3_Odd.Name = "DetailData3_Odd"
-        Me.DetailData3_Odd.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100.0!)
-        Me.DetailData3_Odd.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
-        '
-        'DetailCaptionBackground3
-        '
-        Me.DetailCaptionBackground3.BackColor = System.Drawing.Color.Transparent
-        Me.DetailCaptionBackground3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(206, Byte), Integer), CType(CType(206, Byte), Integer), CType(CType(206, Byte), Integer))
-        Me.DetailCaptionBackground3.Borders = DevExpress.XtraPrinting.BorderSide.Top
-        Me.DetailCaptionBackground3.BorderWidth = 2.0!
-        Me.DetailCaptionBackground3.Name = "DetailCaptionBackground3"
-        '
-        'PageInfo
-        '
-        Me.PageInfo.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
-        Me.PageInfo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer))
-        Me.PageInfo.Name = "PageInfo"
-        Me.PageInfo.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        '
-        'RptErgebnisbericht
-        '
-        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.GroupHeaderBand2, Me.GroupHeaderBand3, Me.GroupFooterBand1, Me.GroupHeader1, Me.DetailReport})
-        Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
-        Me.DataMember = "VWCUST_RPTPM_UNION"
-        Me.DataSource = Me.SqlDataSource1
-        Me.PageHeight = 1169
-        Me.PageWidth = 827
-        Me.PaperKind = System.Drawing.Printing.PaperKind.A4
-        Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.GroupCaption3, Me.GroupData3, Me.DetailCaption3, Me.DetailData3, Me.DetailData3_Odd, Me.DetailCaptionBackground3, Me.PageInfo})
-        Me.StyleSheetPath = ""
-        Me.Version = "19.2"
-        CType(Me.XrTable4, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.XrTable3, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
-
-    End Sub
-
-    Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand
-    Friend WithEvents XrTable4 As DevExpress.XtraReports.UI.XRTable
-    Friend WithEvents XrTableRow4 As DevExpress.XtraReports.UI.XRTableRow
-    Friend WithEvents XrTableCell36 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell37 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell38 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand
-    Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand
-    Friend WithEvents XrPageInfo1 As DevExpress.XtraReports.UI.XRPageInfo
-    Friend WithEvents XrPageInfo2 As DevExpress.XtraReports.UI.XRPageInfo
-    Friend WithEvents ReportHeaderBand1 As DevExpress.XtraReports.UI.ReportHeaderBand
-    Friend WithEvents XrLabel18 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLine1 As DevExpress.XtraReports.UI.XRLine
-    Friend WithEvents XrLabel10 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel9 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel8 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel7 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel6 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel5 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel4 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel3 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel17 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel13 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel14 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel15 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents GroupHeaderBand1 As DevExpress.XtraReports.UI.GroupHeaderBand
-    Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
-    Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
-    Friend WithEvents XrTableCell1 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell2 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell5 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell6 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents GroupHeaderBand2 As DevExpress.XtraReports.UI.GroupHeaderBand
-    Friend WithEvents XrTable2 As DevExpress.XtraReports.UI.XRTable
-    Friend WithEvents XrTableRow2 As DevExpress.XtraReports.UI.XRTableRow
-    Friend WithEvents XrTableCell3 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell4 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents GroupHeaderBand3 As DevExpress.XtraReports.UI.GroupHeaderBand
-    Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
-    Friend WithEvents XrTable3 As DevExpress.XtraReports.UI.XRTable
-    Friend WithEvents XrTableRow3 As DevExpress.XtraReports.UI.XRTableRow
-    Friend WithEvents XrTableCell19 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell20 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents XrTableCell21 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents GroupFooterBand1 As DevExpress.XtraReports.UI.GroupFooterBand
-    Friend WithEvents XrLabel2 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand
-    Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand
-    Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand
-    Friend WithEvents XrLabel21 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel20 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel19 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents SqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource
-    Friend WithEvents Title As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents GroupCaption3 As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents GroupData3 As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents DetailCaption3 As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents DetailData3 As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents DetailData3_Odd As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents DetailCaptionBackground3 As DevExpress.XtraReports.UI.XRControlStyle
-    Friend WithEvents PageInfo As DevExpress.XtraReports.UI.XRControlStyle
-End Class

EB_Creator/EB_Creator/RptErgebnisbericht.resx

@@ -1,126 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <metadata name="SqlDataSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
-  <data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
-    <value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRQTV9VTklPTiI+PEZpZWxkIE5hbWU9Ikdyb3VwVHlwZUlEIiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iR3JvdXBUeXBlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkRPQ19JRCIgVHlwZT0iSW50NjQiIC8+PEZpZWxkIE5hbWU9IktyZWRpdG9yTnVtbWVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IktyZWRpdG9yTmFtZV9MYW5nIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IktyZWRpdG9yTmFtZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJSZWNobnVuZ05yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlJlZmVyZW56IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5ldHRvYmV0cmFnIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJydXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJaYWhsdW5nc3ppZWwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTWFuZGFudCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJNYW5kYW50IE5hbWUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS29zdGVuc3RlbGxlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVyaGFsdGVuIHdhbm4iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVsZWdkYXR1bSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJGR19FbWFpbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJGR19GcmVpZ2FiZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJGR19XYW5uIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IldITyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJXSEVOIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkRFTEVHQVRJT04iIFR5cGU9IlN0cmluZyIgLz48L1ZpZXc+PC9EYXRhU2V0Pg==</value>
-  </data>
-</root>

EB_Creator/EB_Creator/RptErgebnisbericht.vb

@@ -1,3 +0,0 @@
-Public Class RptErgebnisbericht
-
-End Class

EB_Creator/EB_Creator/packages.config

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="NLog" version="5.0.2" targetFramework="net462" />
+</packages>

EB_Creator/My Project/Application.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <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>
 '------------------------------------------------------------------------------
 

EB_Creator/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

EB_Creator/MyService.vb

@@ -324,9 +324,10 @@ Public Class MyService
             oStep = $"Parameter passed successfully!"
             '---------
             'Parameter für 2.Query
-            'Dim oSelectQuery2 As CustomSqlQuery = oDatasource.Queries(1)
-            'Dim oParameter2 As QueryParameter = oSelectQuery2.Parameters(0)
-            'oParameter2.Value = pDocID
+            ' Dim oSelectQuery2 As CustomSqlQuery = oDatasource.Queries(1)
+            ' Dim oParameter2 As QueryParameter = oSelectQuery2.Parameters(0)
+            ' oParameter2.Value = pDocID
+
             DocID = pDocID
             Try
                 'Logger.Debug($"Now passing the value [{pDocID}] to parameter pDocID...")
@@ -346,14 +347,10 @@ Public Class MyService
 
                 oStep = $"Trying to create the report-document.."
                 oReport.CreateDocument(False)
-                Dim filePath As String = $"C:\Temp\{DocID}.prnx"
-
-
                 Logger.Debug($"oReport successfully created!")
             Catch ex As Exception
                 Delete_EB2bCreated(pDocID)
-                Logger.Error(ex)
-                Logger.Info($"Unexpected Error in  Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
+                Logger.Warn($"Unexpected Error in  Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
                 DocID = 0
                 Exit Sub
             End Try

EB_Creator/SR_Kontierung.Designer.vb

@@ -26,8 +26,9 @@ Partial Public Class SR_Kontierung
         Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
         Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand()
         Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand()
-        Me.label1 = New DevExpress.XtraReports.UI.XRLabel()
         Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
+        Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
+        Me.label1 = New DevExpress.XtraReports.UI.XRLabel()
         Me.table1 = New DevExpress.XtraReports.UI.XRTable()
         Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
         Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell()
@@ -40,7 +41,6 @@ Partial Public Class SR_Kontierung
         Me.tableCell8 = New DevExpress.XtraReports.UI.XRTableCell()
         Me.tableCell9 = New DevExpress.XtraReports.UI.XRTableCell()
         Me.tableCell10 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
         Me.table2 = New DevExpress.XtraReports.UI.XRTable()
         Me.tableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
         Me.tableCell11 = New DevExpress.XtraReports.UI.XRTableCell()
@@ -73,7 +73,7 @@ Partial Public Class SR_Kontierung
         'BottomMargin
         '
         Me.BottomMargin.Dpi = 254.0!
-        Me.BottomMargin.HeightF = 18.0!
+        Me.BottomMargin.HeightF = 44.0!
         Me.BottomMargin.Name = "BottomMargin"
         '
         'ReportHeader
@@ -83,15 +83,6 @@ Partial Public Class SR_Kontierung
         Me.ReportHeader.HeightF = 75.67085!
         Me.ReportHeader.Name = "ReportHeader"
         '
-        'label1
-        '
-        Me.label1.Dpi = 254.0!
-        Me.label1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
-        Me.label1.Name = "label1"
-        Me.label1.SizeF = New System.Drawing.SizeF(1566.333!, 61.45361!)
-        Me.label1.StyleName = "Title"
-        Me.label1.Text = "Kontierung"
-        '
         'GroupHeader1
         '
         Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table1})
@@ -100,6 +91,23 @@ Partial Public Class SR_Kontierung
         Me.GroupHeader1.HeightF = 71.12!
         Me.GroupHeader1.Name = "GroupHeader1"
         '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table2})
+        Me.Detail.Dpi = 254.0!
+        Me.Detail.HeightF = 63.42!
+        Me.Detail.HierarchyPrintOptions.Indent = 50.8!
+        Me.Detail.Name = "Detail"
+        '
+        'label1
+        '
+        Me.label1.Dpi = 254.0!
+        Me.label1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
+        Me.label1.Name = "label1"
+        Me.label1.SizeF = New System.Drawing.SizeF(1651.0!, 61.45361!)
+        Me.label1.StyleName = "Title"
+        Me.label1.Text = "Kontierung"
+        '
         'table1
         '
         Me.table1.Dpi = 254.0!
@@ -201,14 +209,6 @@ Partial Public Class SR_Kontierung
         Me.tableCell10.Text = "Option"
         Me.tableCell10.Weight = 0.081902193881317642R
         '
-        'Detail
-        '
-        Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table2})
-        Me.Detail.Dpi = 254.0!
-        Me.Detail.HeightF = 63.42!
-        Me.Detail.HierarchyPrintOptions.Indent = 50.8!
-        Me.Detail.Name = "Detail"
-        '
         'table2
         '
         Me.table2.Dpi = 254.0!
@@ -390,7 +390,7 @@ Partial Public Class SR_Kontierung
         Me.Dpi = 254.0!
         Me.FilterString = "[DocID] = ?pDocID"
         Me.Font = New System.Drawing.Font("Arial", 9.75!)
-        Me.Margins = New System.Drawing.Printing.Margins(254, 312, 37, 18)
+        Me.Margins = New System.Drawing.Printing.Margins(254, 320, 37, 44)
         Me.PageHeight = 2794
         Me.PageWidth = 2159
         Me.Parameters.AddRange(New DevExpress.XtraReports.Parameters.Parameter() {Me.pDocID})

EB_Creator/XtraReportSR.Designer.vb

@@ -22,9 +22,9 @@ Partial Public Class XtraReportSR
         Me.components = New System.ComponentModel.Container()
         Dim CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery()
         Dim QueryParameter1 As DevExpress.DataAccess.Sql.QueryParameter = New DevExpress.DataAccess.Sql.QueryParameter()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraReportSR))
         Dim MasterDetailInfo1 As DevExpress.DataAccess.Sql.MasterDetailInfo = New DevExpress.DataAccess.Sql.MasterDetailInfo()
         Dim RelationColumnInfo1 As DevExpress.DataAccess.Sql.RelationColumnInfo = New DevExpress.DataAccess.Sql.RelationColumnInfo()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraReportSR))
         Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
         Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
         Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
@@ -37,8 +37,6 @@ Partial Public Class XtraReportSR
         Me.XrPageInfo1 = New DevExpress.XtraReports.UI.XRPageInfo()
         Me.XrPageInfo2 = New DevExpress.XtraReports.UI.XRPageInfo()
         Me.ReportHeaderBand1 = New DevExpress.XtraReports.UI.ReportHeaderBand()
-        Me.XrLabel5 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel6 = New DevExpress.XtraReports.UI.XRLabel()
         Me.XrLabel21 = New DevExpress.XtraReports.UI.XRLabel()
         Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine()
         Me.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel()
@@ -67,6 +65,7 @@ Partial Public Class XtraReportSR
         Me.DetailData3_Odd = New DevExpress.XtraReports.UI.XRControlStyle()
         Me.DetailCaptionBackground3 = New DevExpress.XtraReports.UI.XRControlStyle()
         Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle()
+        Me.ReportFooter = New DevExpress.XtraReports.UI.ReportFooterBand()
         Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand()
         Me.XrSubreport1 = New DevExpress.XtraReports.UI.XRSubreport()
         CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -146,7 +145,6 @@ Partial Public Class XtraReportSR
         '
         'TopMargin
         '
-        Me.TopMargin.HeightF = 67.0!
         Me.TopMargin.Name = "TopMargin"
         Me.TopMargin.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
         Me.TopMargin.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
@@ -154,7 +152,6 @@ Partial Public Class XtraReportSR
         'BottomMargin
         '
         Me.BottomMargin.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPageInfo1, Me.XrPageInfo2})
-        Me.BottomMargin.HeightF = 52.0!
         Me.BottomMargin.Name = "BottomMargin"
         Me.BottomMargin.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
         Me.BottomMargin.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
@@ -185,33 +182,10 @@ Partial Public Class XtraReportSR
         '
         'ReportHeaderBand1
         '
-        Me.ReportHeaderBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel5, Me.XrLabel6, Me.XrLabel21, Me.XrLine1, Me.XrLabel19, Me.XrLabel18, Me.XrLabel16, Me.XrLabel13, Me.XrLabel12, Me.XrLabel10, Me.XrLabel9, Me.XrLabel4, Me.XrLabel3, Me.XrLabel2, Me.XrLabel1})
+        Me.ReportHeaderBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel21, Me.XrLine1, Me.XrLabel19, Me.XrLabel18, Me.XrLabel16, Me.XrLabel13, Me.XrLabel12, Me.XrLabel10, Me.XrLabel9, Me.XrLabel4, Me.XrLabel3, Me.XrLabel2, Me.XrLabel1})
         Me.ReportHeaderBand1.HeightF = 225.625!
         Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
         '
-        'XrLabel5
-        '
-        Me.XrLabel5.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(295.123!, 44.75002!)
-        Me.XrLabel5.Multiline = True
-        Me.XrLabel5.Name = "XrLabel5"
-        Me.XrLabel5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel5.SizeF = New System.Drawing.SizeF(100.0!, 23.0!)
-        Me.XrLabel5.StylePriority.UseFont = False
-        Me.XrLabel5.Text = "ER-Nr Intern:" & Global.Microsoft.VisualBasic.ChrW(9)
-        '
-        'XrLabel6
-        '
-        Me.XrLabel6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Referenz]")})
-        Me.XrLabel6.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(398.8184!, 44.75002!)
-        Me.XrLabel6.Multiline = True
-        Me.XrLabel6.Name = "XrLabel6"
-        Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel6.SizeF = New System.Drawing.SizeF(212.1818!, 23.0!)
-        Me.XrLabel6.StylePriority.UseFont = False
-        Me.XrLabel6.Text = "XrLabel4"
-        '
         'XrLabel21
         '
         Me.XrLabel21.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -254,8 +228,8 @@ Partial Public Class XtraReportSR
         '
         'XrLabel16
         '
-        Me.XrLabel16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel16.LocationFloat = New DevExpress.Utils.PointFloat(295.123!, 78.16664!)
+        Me.XrLabel16.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.XrLabel16.LocationFloat = New DevExpress.Utils.PointFloat(295.123!, 44.75002!)
         Me.XrLabel16.Multiline = True
         Me.XrLabel16.Name = "XrLabel16"
         Me.XrLabel16.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
@@ -312,8 +286,8 @@ Partial Public Class XtraReportSR
         'XrLabel4
         '
         Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[RechnungNr]")})
-        Me.XrLabel4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(398.8184!, 78.16664!)
+        Me.XrLabel4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(404.8183!, 44.75002!)
         Me.XrLabel4.Multiline = True
         Me.XrLabel4.Name = "XrLabel4"
         Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
@@ -457,9 +431,7 @@ Partial Public Class XtraReportSR
         QueryParameter1.Type = GetType(Integer)
         QueryParameter1.ValueInfo = "4711"
         CustomSqlQuery1.Parameters.AddRange(New DevExpress.DataAccess.Sql.QueryParameter() {QueryParameter1})
-        CustomSqlQuery1.Sql = "select ""VWCUST_RPTERGEBNISBERICHT"".*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "  from ""dbo"".""VWCUST_RPTERGEBNISBERICHT"" ""V" &
-    "WCUST_RPTERGEBNISBERICHT""" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE ""VWCUST_RPTERGEBNISBERICHT"".""DocID"" = @pDocID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
-    "  ORDER BY wannPos desc"
+        CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
         Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
         MasterDetailInfo1.DetailQueryName = "VWCUST_RPT_EB_POS_KONTIERUNG"
         RelationColumnInfo1.NestedKeyColumn = "DocID"
@@ -525,16 +497,20 @@ Partial Public Class XtraReportSR
         Me.PageInfo.Name = "PageInfo"
         Me.PageInfo.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
         '
+        'ReportFooter
+        '
+        Me.ReportFooter.HeightF = 8.999888!
+        Me.ReportFooter.Name = "ReportFooter"
+        '
         'GroupFooter1
         '
         Me.GroupFooter1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrSubreport1})
-        Me.GroupFooter1.HeightF = 74.79166!
         Me.GroupFooter1.Name = "GroupFooter1"
         '
         'XrSubreport1
         '
         Me.XrSubreport1.CanShrink = True
-        Me.XrSubreport1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 7.458313!)
+        Me.XrSubreport1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 9.999974!)
         Me.XrSubreport1.Name = "XrSubreport1"
         Me.XrSubreport1.ParameterBindings.Add(New DevExpress.XtraReports.UI.ParameterBinding("pDocID", Nothing, "VWCUST_RPTERGEBNISBERICHT.DocID"))
         Me.XrSubreport1.ReportSource = New EB_Creator.SR_Kontierung()
@@ -542,11 +518,11 @@ Partial Public Class XtraReportSR
         '
         'XtraReportSR
         '
-        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.GroupFooter1})
+        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.ReportFooter, Me.GroupFooter1})
         Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
         Me.DataMember = "VWCUST_RPTERGEBNISBERICHT"
         Me.DataSource = Me.SqlDataSource1
-        Me.Margins = New System.Drawing.Printing.Margins(88, 100, 67, 52)
+        Me.Margins = New System.Drawing.Printing.Margins(88, 100, 100, 100)
         Me.PageHeight = 1169
         Me.PageWidth = 827
         Me.PaperKind = System.Drawing.Printing.PaperKind.A4
@@ -597,9 +573,8 @@ Partial Public Class XtraReportSR
     Friend WithEvents DetailData3_Odd As DevExpress.XtraReports.UI.XRControlStyle
     Friend WithEvents DetailCaptionBackground3 As DevExpress.XtraReports.UI.XRControlStyle
     Friend WithEvents PageInfo As DevExpress.XtraReports.UI.XRControlStyle
+    Friend WithEvents ReportFooter As DevExpress.XtraReports.UI.ReportFooterBand
     Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
     Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand
     Friend WithEvents XrSubreport1 As DevExpress.XtraReports.UI.XRSubreport
-    Friend WithEvents XrLabel5 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel6 As DevExpress.XtraReports.UI.XRLabel
 End Class

EB_Creator/XtraReportSR.resx

@@ -120,6 +120,33 @@
   <metadata name="SqlDataSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <data name="CustomSqlQuery1.Sql" xml:space="preserve">
+    <value>select "VWCUST_RPTERGEBNISBERICHT"."DocID",
+       "VWCUST_RPTERGEBNISBERICHT"."DatumIn",
+       "VWCUST_RPTERGEBNISBERICHT"."Belegdatum",
+       "VWCUST_RPTERGEBNISBERICHT"."KreditorNummer",
+       "VWCUST_RPTERGEBNISBERICHT"."KreditorName_Lang",
+       "VWCUST_RPTERGEBNISBERICHT"."KreditorName",
+       "VWCUST_RPTERGEBNISBERICHT"."RechnungNr",
+       "VWCUST_RPTERGEBNISBERICHT"."Referenz",
+       "VWCUST_RPTERGEBNISBERICHT"."Nettobetrag",
+       "VWCUST_RPTERGEBNISBERICHT"."Bruttobetrag",
+       "VWCUST_RPTERGEBNISBERICHT"."Zahlungsziel",
+       "VWCUST_RPTERGEBNISBERICHT"."Mandant",
+       "VWCUST_RPTERGEBNISBERICHT"."Mandant Name",
+       "VWCUST_RPTERGEBNISBERICHT"."Kostenstelle",
+       "VWCUST_RPTERGEBNISBERICHT"."BestellNr",
+       "VWCUST_RPTERGEBNISBERICHT"."Absender",
+       "VWCUST_RPTERGEBNISBERICHT"."Finaler Freigeber",
+       "VWCUST_RPTERGEBNISBERICHT"."Prozessschritt",
+       "VWCUST_RPTERGEBNISBERICHT"."Durch",
+       "VWCUST_RPTERGEBNISBERICHT"."Status_Change",
+       "VWCUST_RPTERGEBNISBERICHT"."wannPos",
+       "VWCUST_RPTERGEBNISBERICHT"."Kommentar"
+  from "dbo"."VWCUST_RPTERGEBNISBERICHT" "VWCUST_RPTERGEBNISBERICHT"
+WHERE "VWCUST_RPTERGEBNISBERICHT"."DocID" = @pDocID
+  ORDER BY wannPos desc</value>
+  </data>
   <data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
     <value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRFUkdFQk5JU0JFUklDSFQiPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IkRhdGVUaW1lIiAvPjxGaWVsZCBOYW1lPSJCZWxlZ2RhdHVtIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOdW1tZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lX0xhbmciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlJlY2hudW5nTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVmZXJlbnoiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTmV0dG9iZXRyYWciIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iQnJ1dHRvYmV0cmFnIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlphaGx1bmdzemllbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJNYW5kYW50IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQgTmFtZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLb3N0ZW5zdGVsbGUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVzdGVsbE5yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkFic2VuZGVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZpbmFsZXIgRnJlaWdlYmVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlByb3plc3NzY2hyaXR0IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkR1cmNoIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlN0YXR1c19DaGFuZ2UiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0id2FublBvcyIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IktvbW1lbnRhciIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48L0RhdGFTZXQ+</value>
   </data>