MS Log erweitert

MS rename GIT
MS Parameter
2023-04-27 13:16:14 +02:00 · 2023-01-12 15:27:39 +01:00 · 2023-01-12 15:24:06 +01:00
18 changed files with 1409 additions and 351 deletions
--- a/EB_Creator_SWBebra.sln
+++ b/EB_Creator_SWBebra.sln
--- a/EB_Creator/App.config
+++ b/EB_Creator/App.config
@@ -9,7 +9,7 @@
        <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.8"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.2"/>
    </startup>
    <applicationSettings>
        <EB_Creator.My.MySettings>
--- a/EB_Creator/EB_Creator.vbproj
+++ b/EB_Creator/EB_Creator.vbproj
@@ -11,7 +11,7 @@
    <AssemblyName>EB_Creator</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>Console</MyType>
-    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
    <Deterministic>true</Deterministic>
    <TargetFrameworkProfile />
@@ -118,6 +118,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>
--- a/EB_Creator/EB_Creator/App.config
+++ b/EB_Creator/EB_Creator/App.config
@@ -6,11 +6,10 @@
        </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.2"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
    </startup>
    <applicationSettings>
        <EB_Creator.My.MySettings>
@@ -26,6 +25,9 @@
            <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>
--- a/EB_Creator/EB_Creator/EB_Creator.vbproj
+++ b/EB_Creator/EB_Creator/EB_Creator.vbproj
@@ -11,7 +11,7 @@
    <AssemblyName>EB_Creator</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>Console</MyType>
-    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
    <Deterministic>true</Deterministic>
    <TargetFrameworkProfile />
@@ -70,27 +70,23 @@
    <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, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+    <Reference Include="DigitalData.Modules.Database">
+      <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
    </Reference>
-    <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 Include="DigitalData.Modules.Logging">
+      <HintPath>..\..\..\DDMonorepo\Modules.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, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
+    <Reference Include="NLog">
+      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\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" />
@@ -144,6 +140,12 @@
    <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,6 +170,9 @@
    <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>
@@ -184,7 +189,6 @@
      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
    </None>
    <None Include="App.config" />
-    <None Include="packages.config" />
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>
--- a/EB_Creator/EB_Creator/My
+++ b/EB_Creator/EB_Creator/My
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("1.1.0.0")>
-<Assembly: AssemblyFileVersion("1.1.0.0")>
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -54,6 +54,17 @@ 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")>  _
@@ -91,6 +102,15 @@ 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")>  _
@@ -136,17 +156,6 @@ 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

--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@@ -2,6 +2,14 @@
 <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>
@@ -14,6 +22,9 @@
    <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>
@@ -29,13 +40,5 @@
    <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>
--- a/EB_Creator/EB_Creator/MyService.vb
+++ b/EB_Creator/EB_Creator/MyService.vb
@@ -5,8 +5,6 @@ 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 +++++"
@@ -179,9 +177,7 @@ 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
@@ -195,12 +191,11 @@ Public Class MyService
                            If oDTEB.Rows.Count > 0 Then
                                Create_EB_Report(oDocID.ToString, GeneratorID, oOutputfilename, OutputFolder, oReRun)
                            Else
-                                Logger.Warn($"DocID {oDocID} - No EB-Rows [{oSQL}]")
+                                Logger.Warn($"No EB-Rows [{oSQL}]")
                                Delete_EB2bCreated(oDocID)
                            End If

                        End If
-                        Logger.Debug($"")
                    Next
                End If
            End If
@@ -313,29 +308,31 @@ Public Class MyService
                End If

                If Not IsNothing(oOriginFile) Then
-                    If Create_MyStempel(pDocID, GENID) = True Then
-                        'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report
-                        Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID)
+                    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 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)
+                            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}! #####")
                                End If
-
-
-                                Logger.Info($"#### Created Ergebnisbericht for DocID: {pDocID} - GENID: {GENID}! #####")
+                            Else
+                                Logger.Info("ERROR: CreateStampedPDF = False or """)
                            End If
                        Else
-                            Logger.Info($"DocID: {pDocID} ERROR: CreateStampedPDF = False or """)
+                            Logger.Warn("Create_MyStempel = False")
+                            Delete_EB2bCreated(pDocID)
                        End If
-                    Else
-                        Logger.Warn($"DocID: {pDocID} - Create_MyStempel = False")
-                        Delete_EB2bCreated(pDocID)
                    End If
                Else
-                    Logger.Warn($"DocID: {pDocID}OriginFile is nothing!!")
+                    Logger.Warn("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!!")
@@ -394,7 +391,7 @@ Public Class MyService
                    MyStempel1 = oTempStempel
                End If

-                Logger.Info($"DocID: {pDocID} - Stampreport created for GENID {GENID}!")
+                Logger.Info($"...Stampreport created for DocID: {pDocID} - GENID {GENID}!")
                Return True
            Else
                If GENID = "02" Then
@@ -414,7 +411,7 @@ Public Class MyService
    End Function
    Private Function CreateStampedPDF(oOriginFile As String, pDocID As Integer, GENID As String)
        Try
-            Logger.Info($"### DocID: {pDocID} - Trying to CreateStampedPDF - GENID {GENID}...")
+            Logger.Info($"Trying to CreateStampedPDF for DocID: {pDocID} - GENID {GENID}...")
            Dim MyLocalStempel As String
            If GENID = "01" Then
                MyLocalStempel = MyStempel1
@@ -429,17 +426,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($"DocID: {pDocID} - ..oGdPicturePDF Created")
+                Logger.Debug($"{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($"DocID: {pDocID} ..GdPictureImaging.GetStat")
+                    Logger.Debug($"{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($"DocID: {pDocID} ..oGdPicturePDF.AddImageFromGdPictureImage")
+                    Logger.Debug($"{pDocID}..oGdPicturePDF.AddImageFromGdPictureImage")
                    If System.IO.File.Exists(oStampedOriginWithPicture) Then
                        System.IO.File.Delete(oStampedOriginWithPicture)
                    End If
@@ -449,7 +446,8 @@ 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("Unexprecter Error while stamping. Invalid GDPictureState: " + oGdPicturePDF.GetStat().ToString())
+                        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)
                        Return ""
                    End If
                    Logger.Debug($"{pDocID}..oGdPicturePDF.SaveToFile")
@@ -458,14 +456,14 @@ Public Class MyService


                Else
-                    Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Invalid GDPictureState: " + oGdPictureImaging.GetStat().ToString())
+                    Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Error: " + 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. Invalid GDPictureState: " + oGdPicturePDF.GetStat().ToString())
-
+                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)
                Return ""
            End If
            oGdPictureImaging.Dispose()
@@ -476,11 +474,12 @@ 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($"DocID: {pDocID} - ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
+                    Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
                ElseIf sw.Elapsed.TotalMinutes = 1 Then
-                    Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
+                    Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
                    oSuccess = False
                    Exit Do
                End If
@@ -489,9 +488,9 @@ Public Class MyService
            sw.Stop()
            Try
                File.Delete(MyLocalStempel)
-                Logger.Debug($"DocID: {pDocID} - Deleted StempelFile [{MyLocalStempel}]!")
+                Logger.Debug($"Deleted StempelFile [{MyLocalStempel}]!")
            Catch ex As Exception
-                Logger.Warn($"DocID: {pDocID} - Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
+                Logger.Warn($"Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
            End Try
            If oSuccess = True Then
                Return oStampedOriginWithPicture
@@ -505,65 +504,8 @@ Public Class MyService
        End Try

    End Function
-    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
+    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
        Dim MyFile2Concat As String
        Try
            If Outputfilename = "STANDARD" Then
@@ -573,111 +515,82 @@ Public Class MyService
                pOutputFolder = My.Settings.Path_ConcattedFile
            End If
            MyFile2Concat = Path.Combine(pOutputFolder, Outputfilename)
-            If File.Exists(MyFile2Concat) Then
+            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
                Try
-                    File.Delete(MyFile2Concat)
+                    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
+
                Catch ex As Exception
-                    Logger.Warn($"DocID: {pDocID} - Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
+                    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
-            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)
--- a/EB_Creator/EB_Creator/RptErgebnisbericht.Designer.vb
+++ b/EB_Creator/EB_Creator/RptErgebnisbericht.Designer.vb
@@ -0,0 +1,987 @@
+<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
--- a/EB_Creator/EB_Creator/RptErgebnisbericht.resx
+++ b/EB_Creator/EB_Creator/RptErgebnisbericht.resx
@@ -0,0 +1,126 @@
+<?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>
--- a/EB_Creator/EB_Creator/RptErgebnisbericht.vb
+++ b/EB_Creator/EB_Creator/RptErgebnisbericht.vb
@@ -0,0 +1,3 @@
+Public Class RptErgebnisbericht
+
+End Class
--- a/EB_Creator/EB_Creator/packages.config
+++ b/EB_Creator/EB_Creator/packages.config
@@ -1,4 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<packages>
-  <package id="NLog" version="5.0.2" targetFramework="net462" />
-</packages>
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("1.3.0.0")>
-<Assembly: AssemblyFileVersion("1.3.0.0")>
+<Assembly: AssemblyVersion("2.0.0.0")>
+<Assembly: AssemblyFileVersion("2.0.0.0")>
--- a/EB_Creator/MyService.vb
+++ b/EB_Creator/MyService.vb
@@ -7,6 +7,8 @@ Imports GdPicture14
 Imports System.Drawing
 Imports DigitalData.Modules.Windream
 Imports System.Threading
+Imports DevExpress.XtraRichEdit
+Imports DevExpress.Pdf.Native

 Public Class MyService
 #Region "+++++ variables +++++"
@@ -113,14 +115,14 @@ Public Class MyService
        If Not _threadRunner1.IsBusy Then
            _threadRunner1.RunWorkerAsync()
        Else
-            Logger.Info("##### THREAD 1 Is STILL RUNNING #####")
+            Logger.Info("##### Thread 1 IsBusy #####")
        End If
    End Sub
    Public Sub Thread_Run2()
        If Not _threadRunner2.IsBusy Then
            _threadRunner2.RunWorkerAsync()
        Else
-            Logger.Info("##### THREAD 2 Is STILL RUNNING #####")
+            Logger.Info("##### Thread 2 IsBusy #####")
        End If
    End Sub
    Public Sub RUN_THREAD1(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
@@ -128,7 +130,7 @@ Public Class MyService
            If My.Computer.Clock.LocalTime.Hour <> 4 And My.Computer.Clock.LocalTime.Hour <> 5 Then
                Generator_Run("01", My.Settings.oSQLThread1)
            Else
-                Logger.Debug($"In Sleep Mode 04-05h:   {Now.ToString}")
+                Logger.Debug($"In Sleep Mode 04-05h:  {Now.ToString}")
            End If
        Catch ex As Exception
            Logger.Error(ex)
@@ -147,6 +149,7 @@ Public Class MyService
                    Logger.Info($"##### THREAD for Generator {GeneratorID} has [{oDTEB_Workload.Rows.Count}] results 2Bworked #####")
                    For Each oRow As DataRow In oDTEB_Workload.Rows
                        oDocID = oRow.Item(0).ToString
+                        Logger.Debug($"WORKING ON DOCID - {oDocID.ToString}")
                        Try
                            oOutputfilename = oRow.Item("Outputfilename").ToString
                        Catch ex As Exception
@@ -195,7 +198,7 @@ Public Class MyService
                        Dim oError = False
                        If My.Settings.PROC_BEFORE_POS = True Then
                            oSQL = $"EXEC PRCUST_CREATE_RPTERGEBNISBERICHT_POS {oDocID.ToString}"
-                            Logger.Debug($"Now executing [{oSQL}]")
+                            Logger.Debug($"DocID - {oDocID.ToString} Now executing [{oSQL}]")
                            If MyDatabase.ExecuteNonQuery(oSQL, 500) = False Then
                                Delete_EB2bCreated(oDocID)
                                oError = True
@@ -206,11 +209,13 @@ Public Class MyService
                            Dim oDTEB = MyDatabase.GetDatatable(oSQL)
                            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.ToString} - No EB-Rows [{oSQL}]")
                                Delete_EB2bCreated(oDocID)
                            End If
                        End If
+                        Logger.Debug($"")
                    Next
                End If
            End If
@@ -235,7 +240,7 @@ Public Class MyService
    End Sub
    Protected Overrides Sub OnStop()
        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
-        Logger.Info("## Service has been stopped manually. ##")
+        Logger.Info("## Service stopped manually. ##")
        Try
            If UsedTempFile = True Then
                Try
@@ -297,37 +302,36 @@ Public Class MyService
        End If


-        Logger.Info($"#### Trying to Create_EB_Report (EB-Protokoll) for DocID: {pDocID} - GENID: {GENID}... ####")
+        Logger.Info($"#### Starting Create_EB_Report (EB-Protokoll) for DocID: {pDocID} - GENID: {GENID}... ####")
        Dim errortext As String
        Dim oStep As String
        Try
-            Dim oReport As New XtraReportSR()
+            Dim oReport As New RptErgebnisbericht()
            Dim oDatasource As SqlDataSource = oReport.DataSource
            'Parameter für 1.Query
            Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
            '-------
            If oSelectQuery.Parameters.Count = 1 Then
-                Logger.Debug($"Exactly [{oSelectQuery.Parameters.Count}] Parameter in Query 1!")
+                Logger.Debug($"DocID: {pDocID} - Exactly [{oSelectQuery.Parameters.Count}] Parameter in Query 1!")
            Else
                Delete_EB2bCreated(pDocID)
-                Logger.Warn($"There is no parameter in Query 1 - Check the parameters for Query1")
+                Logger.Warn($"DocID: {pDocID} - There is no parameter in Query 1 - Check the parameters for Query1")
                DocID = 0
                Exit Sub
            End If
            '-------
-            Logger.Debug($"Now passing the value [{pDocID}] to parameter 0 of Query 1...")
-            oStep = $"Now passing the value [{pDocID}] to parameter 0 of Query 1..."
+            Logger.Debug($"DocID: {pDocID} - Now passing the value [{pDocID}] to parameter 0 of Query 1...")
+            oStep = $"DocID: {pDocID} - Now passing the value [{pDocID}] to parameter 0 of Query 1..."
            Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
            oParameter.Value = pDocID
            '---------
-            Logger.Debug($"Parameter passed successfully!")
+            Logger.Debug($"DocID: {pDocID} - Parameter passed successfully!")
            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...")
@@ -345,12 +349,16 @@ Public Class MyService
                '----------
                oReport.ReportPrintOptions.PrintOnEmptyDataSource = False

-                oStep = $"Trying to create the report-document.."
+                oStep = $"DocID: {pDocID} - Trying to create the report-document.."
                oReport.CreateDocument(False)
-                Logger.Debug($"oReport successfully created!")
+                Dim filePath As String = $"C:\Temp\{DocID}.prnx"
+
+
+                Logger.Debug($"DocID: {pDocID} - oReport successfully created!")
            Catch ex As Exception
                Delete_EB2bCreated(pDocID)
-                Logger.Warn($"Unexpected Error in  Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
+                Logger.Error(ex)
+                Logger.Info($"Unexpected Error in  Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
                DocID = 0
                Exit Sub
            End Try
@@ -421,7 +429,7 @@ Public Class MyService
                                        MyDatabase.ExecuteNonQuery(oInsert)
                                    End If

-                                    Logger.Info($"#### Created Ergebnisbericht for DocID: {pDocID} - GENID: {GENID}! #####")
+                                    Logger.Info($"#### DocID: {pDocID} - Created Ergebnisbericht - GENID: {GENID}! #####")
                                    If UsedTempFile = True Then
                                        Try
                                            File.Delete(TempFile)
@@ -432,16 +440,16 @@ Public Class MyService
                                    End If
                                End If
                            Else
-                                Logger.Info("ERROR: oFilewithStamp = False or """)
+                                Logger.Info($"DocID: {pDocID} -  ERROR: oFilewithStamp = False or """)
                            End If
                        Else
-                            Logger.Warn("Create_MyStempel = False")
+                            Logger.Warn($"DocID: {pDocID} - Create_MyStempel = False")
                            Delete_EB2bCreated(pDocID)
                            DocID = 0
                        End If
                    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!!")
@@ -465,7 +473,8 @@ Public Class MyService

        Dim errortext As String
        Try
-
+            Logger.Info($"### DocID: {pDocID} - Create_MyStempel starting - GENID {GENID} ###")
+            Logger.Debug($"### DocID: {pDocID} - Create_MyStempel starting - GENID {GENID} ###")
            Dim oRptStampFirstPage As New RptStampIcon()
            Dim oDatasource As SqlDataSource = oRptStampFirstPage.DataSource
            Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
@@ -502,7 +511,7 @@ Public Class MyService
                    MyStempel1 = oTempStempel
                End If

-                Logger.Info($"...Stampreport created for DocID: {pDocID} - GENID {GENID}!")
+                Logger.Info($"DocID: {pDocID} - Stampreport created - GENID {GENID}!")
                Return True
            Else
                If GENID = "02" Then
@@ -522,7 +531,9 @@ 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} - CreateStampedPDF starting - GENID {GENID} ###")
+            Logger.Debug($"### DocID: {pDocID} - CreateStampedPDF starting - GENID {GENID} ###")
            Dim MyLocalStempel As String
            If GENID = "01" Then
                MyLocalStempel = MyStempel1
@@ -539,17 +550,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($"CreateStampedPDF - 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($"CreateStampedPDF - 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($"CreateStampedPDF - DocID: {pDocID} - ..oGdPicturePDF.AddImageFromGdPictureImage")

                    Dim oStempelHEight = oGdPictureImaging.GetHeight(imageID) / 5
                    oYDistance = (oYDistance - oStempelHEight) - 10
@@ -561,19 +572,19 @@ Public Class MyService
                        'MessageBox.Show("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
                        Return ""
                    End If
-                    Logger.Debug($"{pDocID}..oGdPicturePDF.SaveToFile")
+                    Logger.Debug($"CreateStampedPDF - DocID: {pDocID} - ..oGdPicturePDF.SaveToFile")
                    'Releasing the image.
                    oGdPictureImaging.ReleaseGdPictureImage(imageID)


                Else
-                    Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString())
+                    Logger.Warn($"CreateStampedPDF - DocID: {pDocID} - The image [{MyLocalStempel}] can't be loaded. Error: " + 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())
+                Logger.Warn($"CreateStampedPDF - DocID: {pDocID} - 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)
                Return ""
            End If
@@ -584,13 +595,15 @@ Public Class MyService
            Dim sw As Stopwatch = New Stopwatch()
            Dim oSuccess As Boolean = True
            sw.Start()
-            Logger.Debug("Waiting for file: " & oStampedOriginWithPicture)
+            Logger.Debug($"CreateStampedPDF - DocID: {pDocID} - 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($"CreateStampedPDF - DocID: {pDocID} - ATTENTION: Still waiting (30 sec) for file: {oStampedOriginWithPicture}")
+                    Logger.Debug($"CreateStampedPDF - 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($"CreateStampedPDF - DocID: {pDocID} - ATTENTION: Still waiting (60 sec) for file: {oStampedOriginWithPicture}")
+                    Logger.Debug($"CreateStampedPDF - DocID: {pDocID} - ATTENTION: Still waiting (60 sec) for file: {oStampedOriginWithPicture}")
                    oSuccess = False
                    Exit Do
                End If
@@ -599,9 +612,9 @@ Public Class MyService
            sw.Stop()
            Try
                File.Delete(MyLocalStempel)
-                Logger.Debug($"Deleted StempelFile [{MyLocalStempel}]!")
+                Logger.Debug($"CreateStampedPDF - DocID: {pDocID} - Deleted StempelFile [{MyLocalStempel}]!")
            Catch ex As Exception
-                Logger.Warn($"Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
+                Logger.Warn($"CreateStampedPDF - DocID: {pDocID} - Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
            End Try
            If oSuccess = True Then
                Return oStampedOriginWithPicture
@@ -615,10 +628,11 @@ 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, pFilewithStamp As String, MyFreigabebericht As String)
+    Private Function Concat_Files(pDocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, pFilewithStamp As String, MyFreigabebericht As String)
        Dim oConcatSuccessfull As Boolean = True
        Dim MyFile2Concat As String
        Try
+            Logger.Debug($"######### Function Concat_Files - DocID {pDocID} #############")
            If Outputfilename = "STANDARD" Then
                Outputfilename = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix + ".pdf"
            End If
@@ -631,7 +645,7 @@ Public Class MyService
                    Try
                        File.Delete(MyFile2Concat)
                    Catch ex As Exception
-                        Logger.Warn($"Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
+                        Logger.Warn($"Concat_Files - DocID {pDocID} - Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
                        Return False
                    End Try

@@ -645,7 +659,7 @@ Public Class MyService
                    Dim _argument As String = $"""{pFilewithStamp}"" ""{MyFreigabebericht}"" cat output ""{MyFile2Concat}"""

                    oPDFTKProcess.StartInfo.Arguments = _argument
-                    Logger.Debug("Arguments: " & _argument)
+                    Logger.Debug($"Concat_Files - DocID {pDocID} - Arguments: [{_argument}]")
                    oPDFTKProcess.Start()
                    ProcID = oPDFTKProcess.Id

@@ -668,13 +682,13 @@ Public Class MyService
                    'Logger.Debug("...process has exited: ")
                    'sw.Stop()
                    Thread.Sleep(500)
-                    Logger.Debug("Now waiting for final concatted file [" & MyFile2Concat & "] ...")
+                    Logger.Debug($"Concat_Files - DocID {pDocID} - Now waiting for final concatted 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)
+                            Logger.Info($"Concat_Files - DocID {pDocID} - ATTENTION: Still waiting (30 sec) for file: {MyFile2Concat}")
                        ElseIf sw.Elapsed.TotalMinutes = 1 Then
-                            Logger.Info("ATTENTION: waiting (60 sec) for file: " & MyFile2Concat)
+                            Logger.Info($"Concat_Files - DocID {pDocID} - ATTENTION: waiting (60 sec) for file: {MyFile2Concat}")
                            oConcatSuccessfull = False
                            Exit Do
                        End If
@@ -684,11 +698,11 @@ Public Class MyService

                    Try
                        File.Delete(pFilewithStamp)
-                        Logger.Debug($"Deleted file [{pFilewithStamp}]!")
+                        Logger.Debug($"Concat_Files - DocID {pDocID} - Deleted file [{pFilewithStamp}]!")
                        File.Delete(MyFreigabebericht)
-                        Logger.Debug($"Deleted file [{MyFreigabebericht}]!")
+                        Logger.Debug($"Concat_Files - DocID {pDocID} - Deleted file [{MyFreigabebericht}]!")
                    Catch ex As Exception
-                        Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
+                        Logger.Warn($"Concat_Files - DocID {pDocID} - Could not delete reportfile after creating concatted file: {ex.Message}")
                    End Try
                    Return oConcatSuccessfull

@@ -699,11 +713,13 @@ Public Class MyService


            Else
-                Logger.Warn("pdftk is not existing")
+                Logger.Warn($"Concat_Files - DocID {pDocID} - pdftk is not existing")
                Return False
            End If
        Catch ex As Exception
-
+            Logger.Error(ex)
+            Logger.Warn($"Concat_Files - DocID {pDocID} - Unexpected Error: {ex.Message}")
+            Return False
        End Try
    End Function
    Sub Delete_EB2bCreated(pDocID As Long)
--- a/EB_Creator/SR_Kontierung.Designer.vb
+++ b/EB_Creator/SR_Kontierung.Designer.vb
@@ -26,9 +26,8 @@ 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.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
-        Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
        Me.label1 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
        Me.table1 = New DevExpress.XtraReports.UI.XRTable()
        Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
        Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell()
@@ -41,6 +40,7 @@ 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 = 44.0!
+        Me.BottomMargin.HeightF = 18.0!
        Me.BottomMargin.Name = "BottomMargin"
        '
        'ReportHeader
@@ -83,6 +83,15 @@ 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})
@@ -91,23 +100,6 @@ 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!
@@ -209,6 +201,14 @@ 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, 320, 37, 44)
+        Me.Margins = New System.Drawing.Printing.Margins(254, 312, 37, 18)
        Me.PageHeight = 2794
        Me.PageWidth = 2159
        Me.Parameters.AddRange(New DevExpress.XtraReports.Parameters.Parameter() {Me.pDocID})
--- a/EB_Creator/XtraReportSR.Designer.vb
+++ b/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,6 +37,8 @@ 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()
@@ -65,7 +67,6 @@ 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()
@@ -145,6 +146,7 @@ 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
@@ -152,6 +154,7 @@ 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
@@ -182,10 +185,33 @@ Partial Public Class XtraReportSR
        '
        'ReportHeaderBand1
        '
-        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.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.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))
@@ -228,8 +254,8 @@ Partial Public Class XtraReportSR
        '
        '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.123!, 44.75002!)
+        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.Multiline = True
        Me.XrLabel16.Name = "XrLabel16"
        Me.XrLabel16.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
@@ -286,8 +312,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.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(404.8183!, 44.75002!)
+        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.Multiline = True
        Me.XrLabel4.Name = "XrLabel4"
        Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
@@ -431,7 +457,9 @@ Partial Public Class XtraReportSR
        QueryParameter1.Type = GetType(Integer)
        QueryParameter1.ValueInfo = "4711"
        CustomSqlQuery1.Parameters.AddRange(New DevExpress.DataAccess.Sql.QueryParameter() {QueryParameter1})
-        CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
+        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"
        Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
        MasterDetailInfo1.DetailQueryName = "VWCUST_RPT_EB_POS_KONTIERUNG"
        RelationColumnInfo1.NestedKeyColumn = "DocID"
@@ -497,20 +525,16 @@ 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!, 9.999974!)
+        Me.XrSubreport1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 7.458313!)
        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()
@@ -518,11 +542,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.ReportFooter, Me.GroupFooter1})
+        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, 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, 100, 100)
+        Me.Margins = New System.Drawing.Printing.Margins(88, 100, 67, 52)
        Me.PageHeight = 1169
        Me.PageWidth = 827
        Me.PaperKind = System.Drawing.Printing.PaperKind.A4
@@ -573,8 +597,9 @@ 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
--- a/EB_Creator/XtraReportSR.resx
+++ b/EB_Creator/XtraReportSR.resx
@@ -120,33 +120,6 @@
  <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>
Author	SHA1	Message	Date
SchreiberM	418df6f817	MS Log erweitert	2023-04-27 13:16:14 +02:00
Digital Data - Marlon Schreiber	22bdb96d42	MS rename GIT	2023-01-12 15:27:39 +01:00
Digital Data - Marlon Schreiber	1647171569	MS Parameter	2023-01-12 15:24:06 +01:00