AppCustom/EBCreatorService_BEBRA
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Projektdateien hinzufügen.

Browse Source
This commit is contained in:
SchreiberM 2022-11-04 08:47:31 +01:00
parent 47ab0af78a
commit 8f1d0d45c1
55 changed files with 8725 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
App.config Normal file
View File

@ -0,0 +1,49 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EB_Creator.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</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" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
<applicationSettings>
<EB_Creator.My.MySettings>
<setting name="DEBUG" serializeAs="String">
<value>False</value>
</setting>
<setting name="TIMER_INTERVALL" serializeAs="String">
<value>3</value>
</setting>
<setting name="oSQLThread1" serializeAs="String">
<value>select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION order by DOC_ID</value>
</setting>
<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>
<setting name="Path_ConcattedFile" serializeAs="String">
<value>E:\TEMP\ConcattedEB</value>
</setting>
<setting name="XDistance" serializeAs="String">
<value>380</value>
</setting>
<setting name="FNDD_GET_WM_FPATH_VARIANT" serializeAs="String">
<value>1</value>
</setting>
<setting name="oSQLThread2" serializeAs="String">
<value>select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION order by DOC_ID DESC</value>
</setting>
</EB_Creator.My.MySettings>
</applicationSettings>
</configuration>

25
EB_Creator.sln Normal file
View File

@ -0,0 +1,25 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio Version 16
VisualStudioVersion = 16.0.31005.135
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EB_Creator", "EB_Creator\EB_Creator.vbproj", "{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}.Debug|Any CPU.Build.0 = Debug|Any CPU
{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}.Release|Any CPU.ActiveCfg = Release|Any CPU
{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {BC8FF98A-4062-4575-A078-0768B7F1A6BC}
EndGlobalSection
EndGlobal

192
EB_Creator.vbproj Normal file
View File

@ -0,0 +1,192 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>EB_Creator.MyService</StartupObject>
<RootNamespace>EB_Creator</RootNamespace>
<AssemblyName>EB_Creator</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.CodeParser.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.DataAccess.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v21.2.Export, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Xpo.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGauges.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v21.2.Extensions, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<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">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="MyService.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="MyService.Designer.vb">
<DependentUpon>MyService.vb</DependentUpon>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="ProjectInstaller.Designer.vb">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="RptStampIcon.Designer.vb">
<DependentUpon>RptStampIcon.vb</DependentUpon>
</Compile>
<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>
<Compile Include="XtraReportEB.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="MyService.resx">
<DependentUpon>MyService.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ProjectInstaller.resx">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</EmbeddedResource>
<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>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

190
EB_Creator.vbproj.bak Normal file
View File

@ -0,0 +1,190 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>EB_Creator.MyService</StartupObject>
<RootNamespace>EB_Creator</RootNamespace>
<AssemblyName>EB_Creator</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.CodeParser.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.DataAccess.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v19.2.Export, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Xpo.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGauges.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v19.2.Extensions, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="NLog">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="MyService.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="MyService.Designer.vb">
<DependentUpon>MyService.vb</DependentUpon>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="ProjectInstaller.Designer.vb">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="RptStampIcon.Designer.vb">
<DependentUpon>RptStampIcon.vb</DependentUpon>
</Compile>
<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>
<Compile Include="XtraReportEB.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="MyService.resx">
<DependentUpon>MyService.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ProjectInstaller.resx">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</EmbeddedResource>
<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>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

49
EB_Creator/App.config Normal file
View File

@ -0,0 +1,49 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="EB_Creator.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</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" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
<applicationSettings>
<EB_Creator.My.MySettings>
<setting name="DEBUG" serializeAs="String">
<value>False</value>
</setting>
<setting name="TIMER_INTERVALL" serializeAs="String">
<value>3</value>
</setting>
<setting name="oSQLThread1" serializeAs="String">
<value>select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION order by DOC_ID</value>
</setting>
<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>
<setting name="Path_ConcattedFile" serializeAs="String">
<value>E:\TEMP\ConcattedEB</value>
</setting>
<setting name="XDistance" serializeAs="String">
<value>380</value>
</setting>
<setting name="FNDD_GET_WM_FPATH_VARIANT" serializeAs="String">
<value>1</value>
</setting>
<setting name="oSQLThread2" serializeAs="String">
<value>select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION order by DOC_ID DESC</value>
</setting>
</EB_Creator.My.MySettings>
</applicationSettings>
</configuration>

192
EB_Creator/EB_Creator.vbproj Normal file
View File

@ -0,0 +1,192 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>EB_Creator.MyService</StartupObject>
<RootNamespace>EB_Creator</RootNamespace>
<AssemblyName>EB_Creator</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.CodeParser.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.DataAccess.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Printing.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v21.2.Export, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.Desktop.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v21.2.UI, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Xpo.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGauges.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v21.2.Extensions, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<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">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="MyService.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="MyService.Designer.vb">
<DependentUpon>MyService.vb</DependentUpon>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="ProjectInstaller.Designer.vb">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="RptStampIcon.Designer.vb">
<DependentUpon>RptStampIcon.vb</DependentUpon>
</Compile>
<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>
<Compile Include="XtraReportEB.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="MyService.resx">
<DependentUpon>MyService.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ProjectInstaller.resx">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</EmbeddedResource>
<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>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

190
EB_Creator/EB_Creator.vbproj.bak Normal file
View File

@ -0,0 +1,190 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{F0D4AEE6-3F66-4A0E-940B-4ECF2D33440A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>EB_Creator.MyService</StartupObject>
<RootNamespace>EB_Creator</RootNamespace>
<AssemblyName>EB_Creator</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>EB_Creator.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.CodeParser.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.DataAccess.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Pdf.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.PivotGrid.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.RichEdit.v19.2.Export, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Sparkline.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Xpo.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGauges.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraReports.v19.2.Extensions, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Database">
<HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="NLog">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="MyService.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="MyService.Designer.vb">
<DependentUpon>MyService.vb</DependentUpon>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="ProjectInstaller.Designer.vb">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</Compile>
<Compile Include="ProjectInstaller.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="RptStampIcon.Designer.vb">
<DependentUpon>RptStampIcon.vb</DependentUpon>
</Compile>
<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>
<Compile Include="XtraReportEB.vb">
<SubType>Component</SubType>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="MyService.resx">
<DependentUpon>MyService.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="ProjectInstaller.resx">
<DependentUpon>ProjectInstaller.vb</DependentUpon>
</EmbeddedResource>
<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>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

13
EB_Creator/My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
EB_Creator/My Project/Application.myapp Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>3</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
EB_Creator/My Project/AssemblyInfo.vb Normal file
View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("EB_Creator")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("EB_Creator")>
<Assembly: AssemblyCopyright("Copyright © 2021")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("e9ee62d7-a846-4603-aba6-11cd0a849638")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
EB_Creator/My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EB_Creator.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
EB_Creator/My Project/Resources.resx Normal file
View File

@ -0,0 +1,117 @@
<?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.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: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" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

176
EB_Creator/My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,176 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
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")> _
Public ReadOnly Property DEBUG() As Boolean
Get
Return CType(Me("DEBUG"),Boolean)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("3")> _
Public ReadOnly Property TIMER_INTERVALL() As Integer
Get
Return CType(Me("TIMER_INTERVALL"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION"& _
" order by DOC_ID")> _
Public ReadOnly Property oSQLThread1() As String
Get
Return CType(Me("oSQLThread1"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\TEMP\EBTemp")> _
Public ReadOnly Property CONCAT_TEMPFolder() As String
Get
Return CType(Me("CONCAT_TEMPFolder"),String)
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")> _
Public ReadOnly Property Concatted_File_Suffix() As String
Get
Return CType(Me("Concatted_File_Suffix"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\TEMP\ConcattedEB")> _
Public ReadOnly Property Path_ConcattedFile() As String
Get
Return CType(Me("Path_ConcattedFile"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("380")> _
Public ReadOnly Property XDistance() As Integer
Get
Return CType(Me("XDistance"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
Public ReadOnly Property FNDD_GET_WM_FPATH_VARIANT() As Integer
Get
Return CType(Me("FNDD_GET_WM_FPATH_VARIANT"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION"& _
" order by DOC_ID DESC")> _
Public ReadOnly Property oSQLThread2() As String
Get
Return CType(Me("oSQLThread2"),String)
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EB_Creator.My.MySettings
Get
Return Global.EB_Creator.My.MySettings.Default
End Get
End Property
End Module
End Namespace

44
EB_Creator/My Project/Settings.settings Normal file
View File

@ -0,0 +1,44 @@
<?xml version='1.0' encoding='utf-8'?>
<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>
<Setting Name="TIMER_INTERVALL" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">3</Value>
</Setting>
<Setting Name="oSQLThread1" 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</Value>
</Setting>
<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>
<Setting Name="Path_ConcattedFile" Type="System.String" Scope="Application">
<Value Profile="(Default)">E:\TEMP\ConcattedEB</Value>
</Setting>
<Setting Name="XDistance" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">380</Value>
</Setting>
<Setting Name="FNDD_GET_WM_FPATH_VARIANT" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">1</Value>
</Setting>
<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>
</Settings>
</SettingsFile>

1
EB_Creator/My Project/licenses.licx Normal file
View File

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

1
EB_Creator/My Project/licenses.licx.bak Normal file
View File

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

52
EB_Creator/MyService.Designer.vb generated Normal file
View File

@ -0,0 +1,52 @@
Imports System.ServiceProcess
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MyService
Inherits System.ServiceProcess.ServiceBase
'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
' Der Haupteinstiegspunkt für den Prozess
<MTAThread()> _
<System.Diagnostics.DebuggerNonUserCode()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen
' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile,
' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel
'
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
'
ServicesToRun = New System.ServiceProcess.ServiceBase() {New MyService}
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
End Sub
'Wird vom Komponenten-Designer benötigt.
Private components As System.ComponentModel.IContainer
' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
' Das Bearbeiten ist mit dem Komponenten-Designer möglich.
' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
'
'MyService
'
Me.CanShutdown = True
Me.ServiceName = "Digital Data EB Creator"
End Sub
End Class

123
EB_Creator/MyService.resx Normal file
View File

@ -0,0 +1,123 @@
<?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="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

605
EB_Creator/MyService.vb Normal file
View File

@ -0,0 +1,605 @@
Imports System.ComponentModel
Imports System.IO
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Imports DevExpress.DataAccess.Sql
Imports GdPicture14
Imports System.Drawing
Public Class MyService
#Region "+++++ variables +++++"
Private _threadRunner1 As BackgroundWorker
Private _threadRunner2 As BackgroundWorker
Private MyLogger As LogConfig
Private Logger As Logger
Private MyDatabase As MSSQLServer
Dim MyStempel1 As String
Dim MyStempel2 As String
Private _licenseManager As New GdPicture14.LicenseManager()
#End Region
Protected Overrides Sub OnStart(ByVal args() As String)
Try
MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DD EBCreator")
Logger = MyLogger.GetLogger
Try
Dim directory As New IO.DirectoryInfo(MyLogger.LogDirectory)
For Each file As IO.FileInfo In directory.GetFiles
If (Now - file.CreationTime).Days > 29 Then
file.Delete()
Else
Exit For
End If
Next
Catch ex As Exception
End Try
Logger.Info("## Service started ## ")
If My.Settings.MyConnectionString = String.Empty Then
Logger.Warn("NO CONNECTIONSTRING CONFIGURED.")
Else
If My.Settings.DEBUG = True Then
Logger.Info("DEBUG ACTIVATED")
MyLogger.Debug = True
Else
MyLogger.Debug = False
End If
MyDatabase = New MSSQLServer(MyLogger, My.Settings.MyConnectionString)
If MyDatabase.DBInitialized = False Then
Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
Else
Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' AND ACTIVE = 1"
Dim oGDPICTURE_LIC_KEY As String
oGDPICTURE_LIC_KEY = MyDatabase.GetScalarValue(oSQL)
_licenseManager.RegisterKEY(oGDPICTURE_LIC_KEY)
'### Thread 1 generieren
_threadRunner1 = New BackgroundWorker()
_threadRunner1.WorkerReportsProgress = True
_threadRunner1.WorkerSupportsCancellation = True
AddHandler _threadRunner1.DoWork, AddressOf RUN_THREAD1
AddHandler _threadRunner1.RunWorkerCompleted, AddressOf Thread1_Completed
_threadRunner2 = New BackgroundWorker()
_threadRunner2.WorkerReportsProgress = True
_threadRunner2.WorkerSupportsCancellation = True
AddHandler _threadRunner2.DoWork, AddressOf RUN_THREAD2
AddHandler _threadRunner2.RunWorkerCompleted, AddressOf Thread2_Completed
'### Den Timer für Thread 1 generieren
Dim Timer_Thread1 As New System.Timers.Timer()
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
AddHandler Timer_Thread1.Elapsed, AddressOf Thread_Run1
' Set the Interval
Timer_Thread1.Interval = (My.Settings.TIMER_INTERVALL * 60000)
Timer_Thread1.Enabled = True
Logger.Debug("...Timer 1 started.")
' Und den Durchlauf das erste Mal starten
_threadRunner1.RunWorkerAsync()
'### Den Timer für Thread 1 generieren
Dim Timer_Thread2 As New System.Timers.Timer()
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
AddHandler Timer_Thread2.Elapsed, AddressOf Thread_Run2
' Set the Interval
Timer_Thread2.Interval = (My.Settings.TIMER_INTERVALL * 60000)
Timer_Thread2.Enabled = True
Logger.Debug("...Timer 2 started.")
End If
End If
Catch ex As Exception
EventLog.WriteEntry(Me.ServiceName, ex.ToString(), EventLogEntryType.Error)
Logger.Error(ex)
End Try
End Sub
Public Sub Thread_Run1()
If Not _threadRunner1.IsBusy Then
_threadRunner1.RunWorkerAsync()
Else
Logger.Info("##### THREAD 1 Is STILL RUNNING #####")
End If
End Sub
Public Sub Thread_Run2()
If Not _threadRunner2.IsBusy Then
_threadRunner2.RunWorkerAsync()
Else
Logger.Info("##### THREAD 2 Is STILL RUNNING #####")
End If
End Sub
Public Sub RUN_THREAD1(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
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}")
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Public Sub Generator_Run(GeneratorID As String, oGetDTSQL As String)
Try
Dim oSQLDelete = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE GEN_ID = '{GeneratorID}'"
MyDatabase.ExecuteNonQuery(oSQLDelete)
Dim oDTEB_Workload As DataTable = MyDatabase.GetDatatable(oGetDTSQL)
If Not IsNothing(oDTEB_Workload) Then
Dim oDocID As Long
Dim oOutputfilename, OutputFolder As String
Dim oReRun As Boolean
If oDTEB_Workload.Rows.Count > 0 Then
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
Try
oOutputfilename = oRow.Item("Outputfilename").ToString
Catch ex As Exception
oOutputfilename = "STANDARD"
End Try
Try
OutputFolder = oRow.Item("OutputFolder").ToString
Catch ex As Exception
OutputFolder = "STANDARD"
End Try
Try
oReRun = oRow.Item("ReRun")
Catch ex As Exception
oReRun = False
End Try
Dim oSQLCheck = $"SELECT * FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {oDocID}"
Dim oDTRPT2BCreated As DataTable = MyDatabase.GetDatatable(oSQLCheck)
If Not IsNothing(oDTRPT2BCreated) And (oDTRPT2BCreated.Rows.Count = 0 Or oReRun = True) Then
oSQLCheck = $"select * From VWCUST_STAMP Where DocID = {oDocID}"
Dim oCheckStamp As DataTable = MyDatabase.GetDatatable(oSQLCheck)
If oCheckStamp.Rows.Count > 0 Then
If oReRun = True Then
Logger.Info($"## THIS IS A RERUN {oDocID}")
Delete_EB2bCreated(oDocID)
End If
Dim oInsert = $"IF NOT EXISTS(SELECT DocID FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {oDocID}) INSERT INTO TBCUST_PM_RPT_2BCREATED (DocID,GEN_ID,Outputfilename) VALUES ({oDocID},'{GeneratorID}','{oOutputfilename}')"
MyDatabase.ExecuteNonQuery(oInsert)
Else
Logger.Warn($"oCheckStamp = False [{oSQLCheck}]")
End If
Else
Logger.Info($"DocID already worked (TBCUST_PM_RPT_2BCREATED) [{oSQLCheck}]")
End If
Next
Dim oSQLWorkload2 = $"SELECT * FROM TBCUST_PM_RPT_2BCREATED WHERE GEN_ID = '{GeneratorID}'"
oDTEB_Workload = MyDatabase.GetDatatable(oSQLWorkload2)
For Each oRow As DataRow In oDTEB_Workload.Rows
Dim oSQL As String
oDocID = oRow.Item(0).ToString
Try
oOutputfilename = oRow.Item("Outputfilename").ToString
Catch ex As Exception
oOutputfilename = "STANDARD"
End Try
oSQL = $"EXEC PRCUST_CREATE_RPTERGEBNISBERICHT_POS {oDocID.ToString}"
Logger.Debug($"Now executing [{oSQL}]")
If MyDatabase.ExecuteNonQuery(oSQL, 500) = True Then
oSQL = $"select * from VWCUST_RPTERGEBNISBERICHT where DocID = {oDocID}"
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}]")
Delete_EB2bCreated(oDocID)
End If
End If
Next
End If
End If
Catch ex As Exception
Logger.Warn($"Unexpected Error Generator_Run for GenID {GeneratorID}:")
Logger.Error(ex)
End Try
End Sub
Public Sub RUN_THREAD2(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
If My.Computer.Clock.LocalTime.Hour <> 4 And My.Computer.Clock.LocalTime.Hour <> 5 Then
If My.Settings.oSQLThread2 <> String.Empty Then
Generator_Run("02", My.Settings.oSQLThread2)
End If
Else
Logger.Debug($"In Sleep Mode 04-05h: {Now.ToString}")
End If
Catch ex As Exception
Logger.Error(ex)
End Try
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. ##")
End Sub
Private Sub Thread1_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
'This event fires when the DoWork event completes
Try
Dim result As String = ""
If e.Cancelled Then
Logger.Warn("## Thread1 was cancelled.")
ElseIf e.Error IsNot Nothing Then
Logger.Warn("Unexpected error in thread 1: " & e.Error.Message)
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub Thread2_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
'This event fires when the DoWork event completes
Try
Dim result As String = ""
If e.Cancelled Then
Logger.Warn("## Thread2 was cancelled.")
ElseIf e.Error IsNot Nothing Then
Logger.Warn("Unexpected error in thread 2: " & e.Error.Message)
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Sub Create_EB_Report(pDocID As String, GENID As String, Outputfilename As String, OutputFolder As String, pRerun As Boolean)
Dim MyFreigabebericht As String
If GENID = "01" Then
MyStempel1 = ""
Else
MyStempel2 = ""
End If
Logger.Info($"#### Trying to Create_EB_Report (EB-Protokoll) for DocID: {pDocID} - GENID: {GENID}... ####")
Dim errortext As String
Try
Dim oReport As New XtraReportEB()
Dim oDatasource As SqlDataSource = oReport.DataSource
Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
oParameter.Value = pDocID
Try
oReport.ReportPrintOptions.PrintOnEmptyDataSource = False
oReport.FilterString = "DocID = " + pDocID
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
oReport.CreateDocument(False)
Catch ex As Exception
Delete_EB2bCreated(pDocID)
Logger.Warn($"Unexpected Error in Create_EB_Report Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
Exit Sub
End Try
Dim oMyErgebnisbericht As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, pDocID & "_ERPT.pdf")
If File.Exists(oMyErgebnisbericht) Then
Try
File.Delete(oMyErgebnisbericht)
Catch ex As Exception
Logger.Info($"Could not delete existing Reportfile: {oMyErgebnisbericht}")
Exit Sub
End Try
End If
oReport.ExportToPdf(oMyErgebnisbericht)
If File.Exists(oMyErgebnisbericht) Then
MyFreigabebericht = oMyErgebnisbericht
Dim oOriginFile As String
Dim osql = $"select dbo.FNDD_GET_WINDREAM_FILE_PATH ({pDocID},{My.Settings.FNDD_GET_WM_FPATH_VARIANT})"
oOriginFile = MyDatabase.GetScalarValue(osql)
If File.Exists(oOriginFile) = False Then
Logger.Warn($"File.Exists = false ### [{oOriginFile}] is not existing. Check Your security-permissions [{osql}]!")
Delete_EB2bCreated(pDocID)
Exit Sub
End If
If Not IsNothing(oOriginFile) Then
If File.Exists(My.Settings.Path2PDFTK) Then
If Create_MyStempel(pDocID, GENID) = True Then
'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report
Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID)
If 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
Else
Logger.Info("ERROR: CreateStampedPDF = False or """)
End If
Else
Logger.Warn("Create_MyStempel = False")
Delete_EB2bCreated(pDocID)
End If
End If
Else
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!!")
Delete_EB2bCreated(pDocID)
End If
Catch ex As Exception
Delete_EB2bCreated(pDocID)
errortext = "ex.message: " & ex.Message & vbNewLine & "ex.StackTrace: " & ex.StackTrace.ToString & vbNewLine & "ex.InnerException: " & ex.InnerException.Message
Logger.Warn($"Unexpected Error in Create_Report for DocID: {pDocID} - ERROR: {errortext}")
End Try
End Sub
Private Function Create_MyStempel(pDocID As String, GENID As String)
If GENID = "01" Then
MyStempel1 = ""
Else
MyStempel2 = ""
End If
Dim errortext As String
Try
Dim oRptStampFirstPage As New RptStampIcon()
Dim oDatasource As SqlDataSource = oRptStampFirstPage.DataSource
Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
oParameter.Value = pDocID
oRptStampFirstPage.ReportPrintOptions.PrintOnEmptyDataSource = False
oRptStampFirstPage.FilterString = "DocID = " + pDocID
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
oRptStampFirstPage.CreateDocument(False)
Dim oTempStempel As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, pDocID & "_Stamp.jpg")
If File.Exists(oTempStempel) Then
Try
File.Delete(oTempStempel)
Catch ex As Exception
Return False
End Try
End If
'myReport.ExportToPdf(oTempStempel)
Dim oExportOptions As New DevExpress.XtraPrinting.ImageExportOptions
oExportOptions.Resolution = 400
oExportOptions.Format = Imaging.ImageFormat.Jpeg
oExportOptions.ExportMode = DevExpress.XtraPrinting.ImageExportMode.SingleFile
oRptStampFirstPage.ExportToImage(oTempStempel, oExportOptions)
If File.Exists(oTempStempel) Then
If GENID = "02" Then
MyStempel2 = oTempStempel
Else
MyStempel1 = oTempStempel
End If
Logger.Info($"...Stampreport created for DocID: {pDocID} - GENID {GENID}!")
Return True
Else
If GENID = "02" Then
MyStempel2 = ""
Else
MyStempel1 = ""
End If
Return False
End If
Catch ex As Exception
errortext = "ex.message: " & ex.Message & vbNewLine & "ex.StackTrace: " & ex.StackTrace.ToString & vbNewLine & "ex.InnerException: " & ex.InnerException.Message
Delete_EB2bCreated(pDocID)
Logger.Error(ex)
Return False
End Try
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}...")
Dim MyLocalStempel As String
If GENID = "01" Then
MyLocalStempel = MyStempel1
Else
MyLocalStempel = MyStempel2
End If
Dim oStampedOriginWithPicture As String
oStampedOriginWithPicture = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix
oStampedOriginWithPicture = Path.Combine(My.Settings.CONCAT_TEMPFolder, oStampedOriginWithPicture + "_StampedOriginal.pdf")
Dim oGdPicturePDF As New GdPicturePDF()
Dim oGdPictureImaging As New GdPictureImaging()
'Creating a new empty PDF document.
If oGdPicturePDF.LoadFromFile(oOriginFile, False) = GdPictureStatus.OK Then
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($"{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")
If System.IO.File.Exists(oStampedOriginWithPicture) Then
System.IO.File.Delete(oStampedOriginWithPicture)
End If
Dim oStempelHEight = oGdPictureImaging.GetHeight(imageID) / 5
oYDistance = (oYDistance - oStempelHEight) - 10
'Drawing the image resource onto the current page and saving the PDF document.
If (oGdPicturePDF.GetStat() <> GdPictureStatus.OK) OrElse
(oGdPicturePDF.DrawImage(imageResName, My.Settings.XDistance, oYDistance, oGdPictureImaging.GetWidth(imageID) / 5, oGdPictureImaging.GetHeight(imageID) / 5) <> GdPictureStatus.OK) OrElse
(oGdPicturePDF.SaveToFile(oStampedOriginWithPicture) <> GdPictureStatus.OK) Then
Logger.Warn("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString())
'MessageBox.Show("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return ""
End If
Logger.Debug($"{pDocID}..oGdPicturePDF.SaveToFile")
'Releasing the image.
oGdPictureImaging.ReleaseGdPictureImage(imageID)
Else
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. 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()
oGdPicturePDF.Dispose()
Dim sw As Stopwatch = New Stopwatch()
Dim oSuccess As Boolean = True
sw.Start()
Logger.Debug("Waiting for file: " & oStampedOriginWithPicture)
Do While File.Exists(oStampedOriginWithPicture) = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
oSuccess = False
Exit Do
End If
Loop
sw.Stop()
Try
File.Delete(MyLocalStempel)
Logger.Debug($"Deleted StempelFile [{MyLocalStempel}]!")
Catch ex As Exception
Logger.Warn($"Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
End Try
If oSuccess = True Then
Return oStampedOriginWithPicture
Else
Return ""
End If
Catch ex As Exception
Logger.Error(ex)
Return ""
End Try
End Function
Private Function Concat_Files(DocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, MyOriginStamped As String, MyFreigabebericht As String)
Dim oConcatSuccessfull As Boolean = True
Dim MyFile2Concat As String
Try
If Outputfilename = "STANDARD" Then
Outputfilename = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix + ".pdf"
End If
If pOutputFolder = "STANDARD" Then
pOutputFolder = My.Settings.Path_ConcattedFile
End If
MyFile2Concat = Path.Combine(pOutputFolder, Outputfilename)
If File.Exists(My.Settings.Path2PDFTK) Then
If File.Exists(MyFile2Concat) Then
Try
File.Delete(MyFile2Concat)
Catch ex As Exception
Logger.Warn($"Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
Return False
End Try
End If
Try
Dim oPDFTKProcess As New Process
Dim ProcID
oPDFTKProcess.StartInfo.FileName = My.Settings.Path2PDFTK
oPDFTKProcess.StartInfo.CreateNoWindow = True
Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """"
oPDFTKProcess.StartInfo.Arguments = _argument & " cat output " & MyFile2Concat
Logger.Debug("Arguments: " & _argument & " cat output " & MyFile2Concat)
oPDFTKProcess.Start()
ProcID = oPDFTKProcess.Id
Dim oProcID As Process
oProcID = Process.GetProcessById(ProcID)
Dim sw As Stopwatch = New Stopwatch()
sw.Start()
Do While oProcID.HasExited = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
Exit Do
End If
Loop
Logger.Debug("...process has exited: ")
sw.Stop()
Logger.Debug("Waiting for file: " & MyFile2Concat)
sw.Start()
Do While File.Exists(MyFile2Concat) = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & MyFile2Concat)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & MyFile2Concat)
oConcatSuccessfull = False
Exit Do
End If
Loop
sw.Stop()
Try
File.Delete(MyOriginStamped)
Logger.Debug($"Deleted file [{MyOriginStamped}]!")
File.Delete(MyFreigabebericht)
Logger.Debug($"Deleted file [{MyFreigabebericht}]!")
Catch ex As Exception
Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
End Try
Return oConcatSuccessfull
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
End Try
End Function
Sub Delete_EB2bCreated(pDocID As Long)
Try
Dim oDelete = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {pDocID}"
MyDatabase.ExecuteNonQuery(oDelete)
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
End Class

47
EB_Creator/ProjectInstaller.Designer.vb generated Normal file
View File

@ -0,0 +1,47 @@
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
Inherits System.Configuration.Install.Installer
'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Komponenten-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
'
'ServiceProcessInstaller1
'
Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
Me.ServiceProcessInstaller1.Password = Nothing
Me.ServiceProcessInstaller1.Username = Nothing
'
'ServiceInstaller1
'
Me.ServiceInstaller1.Description = "Erstellt Ergebnisberichte für Belege"
Me.ServiceInstaller1.DisplayName = "Digital Data EB Creator"
Me.ServiceInstaller1.ServiceName = "Digital Data EB Creator"
'
'ProjectInstaller
'
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
End Sub
Friend WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller
Friend WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller
End Class

129
EB_Creator/ProjectInstaller.resx Normal file
View File

@ -0,0 +1,129 @@
<?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="ServiceProcessInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="ServiceInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>197, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

16
EB_Creator/ProjectInstaller.vb Normal file
View File

@ -0,0 +1,16 @@
Imports System.ComponentModel
Imports System.Configuration.Install
Public Class ProjectInstaller
Public Sub New()
MyBase.New()
'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
InitializeComponent()
'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen
End Sub
End Class

987
EB_Creator/RptErgebnisbericht.Designer.vb generated Normal file
View File

@ -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

126
EB_Creator/RptErgebnisbericht.resx Normal file
View File

@ -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>

3
EB_Creator/RptErgebnisbericht.vb Normal file
View File

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

430
EB_Creator/RptStampIcon.Designer.vb generated Normal file
View File

@ -0,0 +1,430 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class RptStampIcon
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 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(RptStampIcon))
Me.TopMarginBand1 = New DevExpress.XtraReports.UI.TopMarginBand()
Me.BottomMarginBand1 = New DevExpress.XtraReports.UI.BottomMarginBand()
Me.ReportHeaderBand1 = New DevExpress.XtraReports.UI.ReportHeaderBand()
Me.GroupHeaderBand1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.GroupHeaderBand2 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.DetailBand1 = New DevExpress.XtraReports.UI.DetailBand()
Me.ReportFooter = New DevExpress.XtraReports.UI.ReportFooterBand()
Me.XrPanel2 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell2 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell3 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell5 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrPanel3 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable3 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow3 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell6 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell7 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell8 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrPanel5 = New DevExpress.XtraReports.UI.XRPanel()
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.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()
'
'TopMarginBand1
'
Me.TopMarginBand1.HeightF = 0!
Me.TopMarginBand1.Name = "TopMarginBand1"
'
'BottomMarginBand1
'
Me.BottomMarginBand1.HeightF = 1.0!
Me.BottomMarginBand1.Name = "BottomMarginBand1"
'
'ReportHeaderBand1
'
Me.ReportHeaderBand1.HeightF = 0!
Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
Me.ReportHeaderBand1.Visible = False
'
'GroupHeaderBand1
'
Me.GroupHeaderBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel2})
Me.GroupHeaderBand1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupHeaderBand1.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("FG_TYP", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
Me.GroupHeaderBand1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeaderBand1.HeightF = 25.0!
Me.GroupHeaderBand1.Name = "GroupHeaderBand1"
Me.GroupHeaderBand1.StylePriority.UseFont = False
'
'GroupHeaderBand2
'
Me.GroupHeaderBand2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel1})
Me.GroupHeaderBand2.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeaderBand2.HeightF = 38.00001!
Me.GroupHeaderBand2.Level = 1
Me.GroupHeaderBand2.Name = "GroupHeaderBand2"
'
'DetailBand1
'
Me.DetailBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel3})
Me.DetailBand1.HeightF = 21.875!
Me.DetailBand1.Name = "DetailBand1"
'
'ReportFooter
'
Me.ReportFooter.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel5})
Me.ReportFooter.HeightF = 12.5!
Me.ReportFooter.Name = "ReportFooter"
'
'XrPanel2
'
Me.XrPanel2.BackColor = System.Drawing.Color.White
Me.XrPanel2.BorderColor = System.Drawing.Color.Red
Me.XrPanel2.Borders = CType((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide)
Me.XrPanel2.BorderWidth = 3.0!
Me.XrPanel2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
Me.XrPanel2.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel2.Name = "XrPanel2"
Me.XrPanel2.SizeF = New System.Drawing.SizeF(279.0001!, 25.0!)
Me.XrPanel2.StylePriority.UseBackColor = False
Me.XrPanel2.StylePriority.UseBorderColor = False
Me.XrPanel2.StylePriority.UseBorders = False
Me.XrPanel2.StylePriority.UseBorderWidth = False
'
'XrTable1
'
Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(12.08344!, 0!)
Me.XrTable1.Name = "XrTable1"
Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
Me.XrTable1.SizeF = New System.Drawing.SizeF(256.9166!, 25.0!)
'
'XrTableRow1
'
Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell2})
Me.XrTableRow1.Name = "XrTableRow1"
Me.XrTableRow1.Weight = 1.0R
'
'XrTableCell2
'
Me.XrTableCell2.BackColor = System.Drawing.Color.LightGray
Me.XrTableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[FG_TYP]")})
Me.XrTableCell2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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.UseBackColor = False
Me.XrTableCell2.StylePriority.UseFont = False
Me.XrTableCell2.Text = "XrTableCell2"
Me.XrTableCell2.Weight = 0.92685330904447116R
'
'XrPanel1
'
Me.XrPanel1.BackColor = System.Drawing.Color.White
Me.XrPanel1.BorderColor = System.Drawing.Color.Red
Me.XrPanel1.Borders = CType(((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Top) _
Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide)
Me.XrPanel1.BorderWidth = 3.0!
Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel1.Name = "XrPanel1"
Me.XrPanel1.SizeF = New System.Drawing.SizeF(279.0001!, 38.00001!)
Me.XrPanel1.StyleName = "DetailCaptionBackground3"
Me.XrPanel1.StylePriority.UseBackColor = False
Me.XrPanel1.StylePriority.UseBorderColor = False
Me.XrPanel1.StylePriority.UseBorders = False
Me.XrPanel1.StylePriority.UseBorderWidth = False
'
'XrTable2
'
Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(10.0001!, 10.00001!)
Me.XrTable2.Name = "XrTable2"
Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
Me.XrTable2.SizeF = New System.Drawing.SizeF(258.9999!, 28.0!)
'
'XrTableRow2
'
Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell3, Me.XrTableCell5})
Me.XrTableRow2.Name = "XrTableRow2"
Me.XrTableRow2.Weight = 1.0R
'
'XrTableCell3
'
Me.XrTableCell3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell3.Multiline = True
Me.XrTableCell3.Name = "XrTableCell3"
Me.XrTableCell3.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell3.StyleName = "DetailCaption3"
Me.XrTableCell3.StylePriority.UseFont = False
Me.XrTableCell3.Text = "Freigabe Wer"
Me.XrTableCell3.Weight = 0.34481248786626795R
'
'XrTableCell5
'
Me.XrTableCell5.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell5.Multiline = True
Me.XrTableCell5.Name = "XrTableCell5"
Me.XrTableCell5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell5.StyleName = "DetailCaption3"
Me.XrTableCell5.StylePriority.UseFont = False
Me.XrTableCell5.Text = "Wann"
Me.XrTableCell5.Weight = 0.22006990847061733R
'
'XrPanel3
'
Me.XrPanel3.BackColor = System.Drawing.Color.White
Me.XrPanel3.BorderColor = System.Drawing.Color.Red
Me.XrPanel3.Borders = CType((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide)
Me.XrPanel3.BorderWidth = 3.0!
Me.XrPanel3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable3})
Me.XrPanel3.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel3.Name = "XrPanel3"
Me.XrPanel3.SizeF = New System.Drawing.SizeF(279.0001!, 21.875!)
Me.XrPanel3.StylePriority.UseBackColor = False
Me.XrPanel3.StylePriority.UseBorderColor = False
Me.XrPanel3.StylePriority.UseBorders = False
Me.XrPanel3.StylePriority.UseBorderWidth = False
'
'XrTable3
'
Me.XrTable3.BorderColor = System.Drawing.Color.Transparent
Me.XrTable3.LocationFloat = New DevExpress.Utils.PointFloat(12.08344!, 0!)
Me.XrTable3.Name = "XrTable3"
Me.XrTable3.OddStyleName = "DetailData3_Odd"
Me.XrTable3.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow3})
Me.XrTable3.SizeF = New System.Drawing.SizeF(256.9166!, 14.99999!)
Me.XrTable3.StylePriority.UseBorderColor = False
'
'XrTableRow3
'
Me.XrTableRow3.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell6, Me.XrTableCell7, Me.XrTableCell8})
Me.XrTableRow3.Name = "XrTableRow3"
Me.XrTableRow3.Weight = 11.5R
'
'XrTableCell6
'
Me.XrTableCell6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Email]")})
Me.XrTableCell6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell6.Multiline = True
Me.XrTableCell6.Name = "XrTableCell6"
Me.XrTableCell6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell6.StyleName = "DetailData3"
Me.XrTableCell6.StylePriority.UseFont = False
Me.XrTableCell6.Text = "XrTableCell6"
Me.XrTableCell6.Weight = 0.20052354564978331R
'
'XrTableCell7
'
Me.XrTableCell7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Freigabe]")})
Me.XrTableCell7.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell7.Multiline = True
Me.XrTableCell7.Name = "XrTableCell7"
Me.XrTableCell7.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell7.StyleName = "DetailData3"
Me.XrTableCell7.StylePriority.UseFont = False
Me.XrTableCell7.Text = "XrTableCell7"
Me.XrTableCell7.Weight = 0.081193868433615618R
'
'XrTableCell8
'
Me.XrTableCell8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Wann]")})
Me.XrTableCell8.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell8.Multiline = True
Me.XrTableCell8.Name = "XrTableCell8"
Me.XrTableCell8.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell8.StyleName = "DetailData3"
Me.XrTableCell8.StylePriority.UseFont = False
Me.XrTableCell8.Text = "XrTableCell8"
Me.XrTableCell8.TextFormatString = "{0:dd.MM.yyyy HH:mm}"
Me.XrTableCell8.Weight = 0.1822016741454581R
'
'XrPanel5
'
Me.XrPanel5.BackColor = System.Drawing.Color.White
Me.XrPanel5.BorderColor = System.Drawing.Color.Red
Me.XrPanel5.Borders = DevExpress.XtraPrinting.BorderSide.Top
Me.XrPanel5.BorderWidth = 3.0!
Me.XrPanel5.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel5.Name = "XrPanel5"
Me.XrPanel5.SizeF = New System.Drawing.SizeF(279.0001!, 12.5!)
Me.XrPanel5.StylePriority.UseBackColor = False
Me.XrPanel5.StylePriority.UseBorderColor = False
Me.XrPanel5.StylePriority.UseBorders = False
Me.XrPanel5.StylePriority.UseBorderWidth = False
'
'SqlDataSource1
'
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1"
CustomSqlQuery1.Name = "VWCUST_STAMP"
QueryParameter1.Name = "pDocID"
QueryParameter1.Type = GetType(Long)
QueryParameter1.ValueInfo = "4712"
CustomSqlQuery1.Parameters.Add(QueryParameter1)
CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
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!)
'
'XtraReport1
'
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMarginBand1, Me.BottomMarginBand1, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.GroupHeaderBand2, Me.DetailBand1, Me.ReportFooter})
Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
Me.DataMember = "VWCUST_STAMP"
Me.DataSource = Me.SqlDataSource1
Me.Margins = New System.Drawing.Printing.Margins(10, 104, 0, 1)
Me.PageHeight = 583
Me.PageWidth = 413
Me.PaperKind = System.Drawing.Printing.PaperKind.A6
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.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 TopMarginBand1 As DevExpress.XtraReports.UI.TopMarginBand
Friend WithEvents BottomMarginBand1 As DevExpress.XtraReports.UI.BottomMarginBand
Friend WithEvents ReportHeaderBand1 As DevExpress.XtraReports.UI.ReportHeaderBand
Friend WithEvents GroupHeaderBand1 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrPanel2 As DevExpress.XtraReports.UI.XRPanel
Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell2 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents GroupHeaderBand2 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
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 XrTableCell5 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents DetailBand1 As DevExpress.XtraReports.UI.DetailBand
Friend WithEvents XrPanel3 As DevExpress.XtraReports.UI.XRPanel
Friend WithEvents XrTable3 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow3 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell6 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell7 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell8 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents ReportFooter As DevExpress.XtraReports.UI.ReportFooterBand
Friend WithEvents XrPanel5 As DevExpress.XtraReports.UI.XRPanel
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

132
EB_Creator/RptStampIcon.resx Normal file
View File

@ -0,0 +1,132 @@
<?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="CustomSqlQuery1.Sql" xml:space="preserve">
<value>select "VWCUST_STAMP"."FG_TYP", "VWCUST_STAMP"."DocID",
"VWCUST_STAMP"."Email", "VWCUST_STAMP"."Freigabe",
"VWCUST_STAMP"."Wann"
from "dbo"."VWCUST_STAMP" "VWCUST_STAMP" where "VWCUST_STAMP"."DocID" = @pDocID</value>
</data>
<data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9TVEFNUCI+PEZpZWxkIE5hbWU9IkZHX1RZUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkVtYWlsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZyZWlnYWJlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ildhbm4iIFR5cGU9IkRhdGVUaW1lIiAvPjwvVmlldz48L0RhdGFTZXQ+</value>
</data>
</root>

3
EB_Creator/RptStampIcon.vb Normal file
View File

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

653
EB_Creator/XtraReportEB.Designer.vb generated Normal file
View File

@ -0,0 +1,653 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class XtraReportEB
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 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(XtraReportEB))
Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell40 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell41 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell42 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell43 = 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.XrLabel21 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine()
Me.XrLabel20 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel18 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel17 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel15 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel14 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel13 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel11 = New DevExpress.XtraReports.UI.XRLabel()
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.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel()
Me.GroupHeaderBand1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell18 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell19 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell20 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell21 = New DevExpress.XtraReports.UI.XRTableCell()
Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components)
Me.Title = 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.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
Me.Detail.HeightF = 25.0!
Me.Detail.Name = "Detail"
Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
'
'XrTable2
'
Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(16.00037!, 0!)
Me.XrTable2.Name = "XrTable2"
Me.XrTable2.OddStyleName = "DetailData3_Odd"
Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
Me.XrTable2.SizeF = New System.Drawing.SizeF(606.9997!, 25.0!)
'
'XrTableRow2
'
Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell40, Me.XrTableCell41, Me.XrTableCell42, Me.XrTableCell43})
Me.XrTableRow2.Name = "XrTableRow2"
Me.XrTableRow2.Weight = 11.5R
'
'XrTableCell40
'
Me.XrTableCell40.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Prozessschritt]")})
Me.XrTableCell40.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell40.Multiline = True
Me.XrTableCell40.Name = "XrTableCell40"
Me.XrTableCell40.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell40.StyleName = "DetailData3"
Me.XrTableCell40.StylePriority.UseFont = False
Me.XrTableCell40.Text = "XrTableCell40"
Me.XrTableCell40.Weight = 0.27170248283386134R
'
'XrTableCell41
'
Me.XrTableCell41.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Durch]")})
Me.XrTableCell41.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell41.Multiline = True
Me.XrTableCell41.Name = "XrTableCell41"
Me.XrTableCell41.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell41.StyleName = "DetailData3"
Me.XrTableCell41.StylePriority.UseFont = False
Me.XrTableCell41.Text = "XrTableCell41"
Me.XrTableCell41.Weight = 0.1516249745658986R
'
'XrTableCell42
'
Me.XrTableCell42.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Status_Change]")})
Me.XrTableCell42.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell42.Multiline = True
Me.XrTableCell42.Name = "XrTableCell42"
Me.XrTableCell42.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell42.StyleName = "DetailData3"
Me.XrTableCell42.StylePriority.UseFont = False
Me.XrTableCell42.Text = "XrTableCell42"
Me.XrTableCell42.Weight = 0.31414615874955754R
'
'XrTableCell43
'
Me.XrTableCell43.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[wannPos]")})
Me.XrTableCell43.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell43.Multiline = True
Me.XrTableCell43.Name = "XrTableCell43"
Me.XrTableCell43.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell43.StyleName = "DetailData3"
Me.XrTableCell43.StylePriority.UseFont = False
Me.XrTableCell43.Text = "XrTableCell43"
Me.XrTableCell43.TextFormatString = "{0:dd.MM.yyyy HH:mm}"
Me.XrTableCell43.Weight = 0.13306054388170926R
'
'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.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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.StylePriority.UseFont = False
Me.XrPageInfo1.TextFormatString = "{0:dd.MM.yyyy HH:mm' Uhr'}"
'
'XrPageInfo2
'
Me.XrPageInfo2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrPageInfo2.LocationFloat = New DevExpress.Utils.PointFloat(319.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(313.0!, 23.0!)
Me.XrPageInfo2.StyleName = "PageInfo"
Me.XrPageInfo2.StylePriority.UseFont = False
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.XrLabel21, Me.XrLine1, Me.XrLabel20, Me.XrLabel19, Me.XrLabel18, Me.XrLabel17, Me.XrLabel16, Me.XrLabel15, Me.XrLabel14, Me.XrLabel13, Me.XrLabel12, Me.XrLabel11, Me.XrLabel10, Me.XrLabel9, Me.XrLabel8, Me.XrLabel7, Me.XrLabel6, Me.XrLabel5, Me.XrLabel4, Me.XrLabel3, Me.XrLabel2, Me.XrLabel1})
Me.ReportHeaderBand1.HeightF = 330.8333!
Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
'
'XrLabel21
'
Me.XrLabel21.Font = New System.Drawing.Font("Arial", 14.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(6.00001!, 302.0833!)
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(418.9405!, 23.0!)
Me.XrLabel21.StylePriority.UseFont = False
Me.XrLabel21.Text = "Zusammenfassung"
'
'XrLine1
'
Me.XrLine1.LineWidth = 3.0!
Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 289.5833!)
Me.XrLine1.Name = "XrLine1"
Me.XrLine1.SizeF = New System.Drawing.SizeF(611.0001!, 12.5!)
'
'XrLabel20
'
Me.XrLabel20.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel20.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 253.0834!)
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(125.0!, 23.0!)
Me.XrLabel20.StylePriority.UseFont = False
Me.XrLabel20.Text = "email Absender:"
'
'XrLabel19
'
Me.XrLabel19.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel19.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 219.6667!)
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(125.0!, 23.0!)
Me.XrLabel19.StylePriority.UseFont = False
Me.XrLabel19.Text = "Kreditorname:"
'
'XrLabel18
'
Me.XrLabel18.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel18.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 183.2917!)
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(125.0!, 23.0!)
Me.XrLabel18.StylePriority.UseFont = False
Me.XrLabel18.Text = "Kreditornummer:"
'
'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.123!, 78.16664!)
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:"
'
'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.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:"
'
'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!, 148.1667!)
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(100.0!, 23.0!)
Me.XrLabel15.StylePriority.UseFont = False
Me.XrLabel15.Text = "Bestellnummer:"
'
'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!, 113.1666!)
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(100.0!, 23.0!)
Me.XrLabel14.StylePriority.UseFont = False
Me.XrLabel14.Text = "Kostenstelle:"
'
'XrLabel13
'
Me.XrLabel13.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel13.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 78.16664!)
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 = "Belegdatum:"
'
'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!, 44.75002!)
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 = "Eingang:"
'
'XrLabel11
'
Me.XrLabel11.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Absender]")})
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(146.1042!, 253.0834!)
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(470.8959!, 23.00002!)
Me.XrLabel11.StylePriority.UseFont = False
Me.XrLabel11.Text = "XrLabel11"
'
'XrLabel10
'
Me.XrLabel10.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[KreditorName_Lang]")})
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(146.1042!, 219.6667!)
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(470.8959!, 23.0!)
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", "[KreditorNummer]")})
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(146.1042!, 183.2917!)
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(144.7917!, 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", "[BestellNr]")})
Me.XrLabel8.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(146.1042!, 148.1667!)
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(144.7917!, 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", "[Kostenstelle]")})
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(146.1042!, 113.1666!)
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(144.7917!, 23.00001!)
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", "[Mandant Name]")})
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(424.9405!, 101.1667!)
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(192.0596!, 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", "[Mandant]")})
Me.XrLabel5.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(424.9405!, 78.16664!)
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 = "XrLabel5"
'
'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(424.9405!, 44.75002!)
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(100.0!, 23.0!)
Me.XrLabel4.StylePriority.UseFont = False
Me.XrLabel4.Text = "XrLabel4"
'
'XrLabel3
'
Me.XrLabel3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Belegdatum]")})
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(146.1042!, 78.16664!)
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(144.7917!, 23.0!)
Me.XrLabel3.StylePriority.UseFont = False
Me.XrLabel3.Text = "XrLabel3"
Me.XrLabel3.TextFormatString = "{0:dd.MM.yyyy}"
'
'XrLabel2
'
Me.XrLabel2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[DatumIn]")})
Me.XrLabel2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(146.1042!, 44.75002!)
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(144.7917!, 23.0!)
Me.XrLabel2.StylePriority.UseFont = False
Me.XrLabel2.Text = "XrLabel2"
Me.XrLabel2.TextFormatString = "{0:dd.MM.yyyy}"
'
'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!, 5.999994!)
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.0001!, 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.XrPanel1})
Me.GroupHeaderBand1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeaderBand1.HeightF = 48.0!
Me.GroupHeaderBand1.Name = "GroupHeaderBand1"
'
'XrPanel1
'
Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 0!)
Me.XrPanel1.Name = "XrPanel1"
Me.XrPanel1.SizeF = New System.Drawing.SizeF(617.0001!, 48.0!)
Me.XrPanel1.StyleName = "DetailCaptionBackground3"
'
'XrTable1
'
Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(10.00037!, 9.999974!)
Me.XrTable1.Name = "XrTable1"
Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
Me.XrTable1.SizeF = New System.Drawing.SizeF(600.9996!, 38.00005!)
'
'XrTableRow1
'
Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell18, Me.XrTableCell19, Me.XrTableCell20, Me.XrTableCell21})
Me.XrTableRow1.Name = "XrTableRow1"
Me.XrTableRow1.Weight = 1.0R
'
'XrTableCell18
'
Me.XrTableCell18.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell18.Multiline = True
Me.XrTableCell18.Name = "XrTableCell18"
Me.XrTableCell18.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell18.StyleName = "DetailCaption3"
Me.XrTableCell18.StylePriority.UseFont = False
Me.XrTableCell18.Text = "Prozessschritt"
Me.XrTableCell18.Weight = 0.26013168552048471R
'
'XrTableCell19
'
Me.XrTableCell19.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, 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 = "Durch"
Me.XrTableCell19.Weight = 0.14516790917579048R
'
'XrTableCell20
'
Me.XrTableCell20.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, 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 = "Status/An Wen/Änderung"
Me.XrTableCell20.Weight = 0.29950804574617118R
'
'XrTableCell21
'
Me.XrTableCell21.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, 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" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Uhrzeit"
Me.XrTableCell21.Weight = 0.12041467605851398R
'
'SqlDataSource1
'
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1"
CustomSqlQuery1.Name = "VWCUST_RPTERGEBNISBERICHT"
QueryParameter1.Name = "pDocID"
QueryParameter1.Type = GetType(Long)
QueryParameter1.ValueInfo = "4712"
CustomSqlQuery1.Parameters.Add(QueryParameter1)
CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
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"
'
'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!)
'
'XtraReportEB
'
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1})
Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
Me.DataMember = "VWCUST_RPTERGEBNISBERICHT"
Me.DataSource = Me.SqlDataSource1
Me.Margins = New System.Drawing.Printing.Margins(90, 100, 100, 100)
Me.PageHeight = 1169
Me.PageWidth = 827
Me.PaperKind = System.Drawing.Printing.PaperKind.A4
Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.DetailCaption3, Me.DetailData3, Me.DetailData3_Odd, Me.DetailCaptionBackground3, Me.PageInfo})
Me.StyleSheetPath = ""
Me.Version = "19.2"
CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand
Friend WithEvents XrTable2 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow2 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell40 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell41 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell42 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell43 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 XrLabel21 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLine1 As DevExpress.XtraReports.UI.XRLine
Friend WithEvents XrLabel20 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel19 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel18 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel17 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel15 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel14 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel13 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel
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 XrLabel2 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents GroupHeaderBand1 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell18 As DevExpress.XtraReports.UI.XRTableCell
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 SqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource
Friend WithEvents Title 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

151
EB_Creator/XtraReportEB.resx Normal file
View File

@ -0,0 +1,151 @@
<?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="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+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVsZWdkYXR1bSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck51bW1lciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWVfTGFuZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVjaG51bmdOciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJSZWZlcmVueiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOZXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCcnV0dG9iZXRyYWciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iWmFobHVuZ3N6aWVsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTWFuZGFudCBOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Iktvc3RlbnN0ZWxsZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCZXN0ZWxsTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQWJzZW5kZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRmluYWxlciBGcmVpZ2ViZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUHJvemVzc3NjaHJpdHQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRHVyY2giIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU3RhdHVzX0NoYW5nZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJ3YW5uUG9zIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS29tbWVudGFyIiBUeXBlPSJTdHJpbmciIC8+PC9WaWV3PjwvRGF0YVNldD4=</value>
</data>
</root>

3
EB_Creator/XtraReportEB.vb Normal file
View File

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

13
My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
My Project/Application.myapp Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>3</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
My Project/AssemblyInfo.vb Normal file
View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("EB_Creator")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("EB_Creator")>
<Assembly: AssemblyCopyright("Copyright © 2021")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("e9ee62d7-a846-4603-aba6-11cd0a849638")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' indem Sie "*" wie unten gezeigt eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EB_Creator.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
My Project/Resources.resx Normal file
View File

@ -0,0 +1,117 @@
<?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.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: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" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

176
My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,176 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
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")> _
Public ReadOnly Property DEBUG() As Boolean
Get
Return CType(Me("DEBUG"),Boolean)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("3")> _
Public ReadOnly Property TIMER_INTERVALL() As Integer
Get
Return CType(Me("TIMER_INTERVALL"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION"& _
" order by DOC_ID")> _
Public ReadOnly Property oSQLThread1() As String
Get
Return CType(Me("oSQLThread1"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\TEMP\EBTemp")> _
Public ReadOnly Property CONCAT_TEMPFolder() As String
Get
Return CType(Me("CONCAT_TEMPFolder"),String)
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")> _
Public ReadOnly Property Concatted_File_Suffix() As String
Get
Return CType(Me("Concatted_File_Suffix"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("E:\TEMP\ConcattedEB")> _
Public ReadOnly Property Path_ConcattedFile() As String
Get
Return CType(Me("Path_ConcattedFile"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("380")> _
Public ReadOnly Property XDistance() As Integer
Get
Return CType(Me("XDistance"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
Public ReadOnly Property FNDD_GET_WM_FPATH_VARIANT() As Integer
Get
Return CType(Me("FNDD_GET_WM_FPATH_VARIANT"),Integer)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION"& _
" order by DOC_ID DESC")> _
Public ReadOnly Property oSQLThread2() As String
Get
Return CType(Me("oSQLThread2"),String)
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EB_Creator.My.MySettings
Get
Return Global.EB_Creator.My.MySettings.Default
End Get
End Property
End Module
End Namespace

44
My Project/Settings.settings Normal file
View File

@ -0,0 +1,44 @@
<?xml version='1.0' encoding='utf-8'?>
<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>
<Setting Name="TIMER_INTERVALL" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">3</Value>
</Setting>
<Setting Name="oSQLThread1" 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</Value>
</Setting>
<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>
<Setting Name="Path_ConcattedFile" Type="System.String" Scope="Application">
<Value Profile="(Default)">E:\TEMP\ConcattedEB</Value>
</Setting>
<Setting Name="XDistance" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">380</Value>
</Setting>
<Setting Name="FNDD_GET_WM_FPATH_VARIANT" Type="System.Int32" Scope="Application">
<Value Profile="(Default)">1</Value>
</Setting>
<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>
</Settings>
</SettingsFile>

1
My Project/licenses.licx Normal file
View File

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

1
My Project/licenses.licx.bak Normal file
View File

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

52
MyService.Designer.vb generated Normal file
View File

@ -0,0 +1,52 @@
Imports System.ServiceProcess
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MyService
Inherits System.ServiceProcess.ServiceBase
'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
' Der Haupteinstiegspunkt für den Prozess
<MTAThread()> _
<System.Diagnostics.DebuggerNonUserCode()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen
' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile,
' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel
'
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
'
ServicesToRun = New System.ServiceProcess.ServiceBase() {New MyService}
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
End Sub
'Wird vom Komponenten-Designer benötigt.
Private components As System.ComponentModel.IContainer
' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
' Das Bearbeiten ist mit dem Komponenten-Designer möglich.
' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
'
'MyService
'
Me.CanShutdown = True
Me.ServiceName = "Digital Data EB Creator"
End Sub
End Class

123
MyService.resx Normal file
View File

@ -0,0 +1,123 @@
<?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="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

605
MyService.vb Normal file
View File

@ -0,0 +1,605 @@
Imports System.ComponentModel
Imports System.IO
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Database
Imports DevExpress.DataAccess.Sql
Imports GdPicture14
Imports System.Drawing
Public Class MyService
#Region "+++++ variables +++++"
Private _threadRunner1 As BackgroundWorker
Private _threadRunner2 As BackgroundWorker
Private MyLogger As LogConfig
Private Logger As Logger
Private MyDatabase As MSSQLServer
Dim MyStempel1 As String
Dim MyStempel2 As String
Private _licenseManager As New GdPicture14.LicenseManager()
#End Region
Protected Overrides Sub OnStart(ByVal args() As String)
Try
MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DD EBCreator")
Logger = MyLogger.GetLogger
Try
Dim directory As New IO.DirectoryInfo(MyLogger.LogDirectory)
For Each file As IO.FileInfo In directory.GetFiles
If (Now - file.CreationTime).Days > 29 Then
file.Delete()
Else
Exit For
End If
Next
Catch ex As Exception
End Try
Logger.Info("## Service started ## ")
If My.Settings.MyConnectionString = String.Empty Then
Logger.Warn("NO CONNECTIONSTRING CONFIGURED.")
Else
If My.Settings.DEBUG = True Then
Logger.Info("DEBUG ACTIVATED")
MyLogger.Debug = True
Else
MyLogger.Debug = False
End If
MyDatabase = New MSSQLServer(MyLogger, My.Settings.MyConnectionString)
If MyDatabase.DBInitialized = False Then
Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
Else
Dim oSQL = "SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE' AND ACTIVE = 1"
Dim oGDPICTURE_LIC_KEY As String
oGDPICTURE_LIC_KEY = MyDatabase.GetScalarValue(oSQL)
_licenseManager.RegisterKEY(oGDPICTURE_LIC_KEY)
'### Thread 1 generieren
_threadRunner1 = New BackgroundWorker()
_threadRunner1.WorkerReportsProgress = True
_threadRunner1.WorkerSupportsCancellation = True
AddHandler _threadRunner1.DoWork, AddressOf RUN_THREAD1
AddHandler _threadRunner1.RunWorkerCompleted, AddressOf Thread1_Completed
_threadRunner2 = New BackgroundWorker()
_threadRunner2.WorkerReportsProgress = True
_threadRunner2.WorkerSupportsCancellation = True
AddHandler _threadRunner2.DoWork, AddressOf RUN_THREAD2
AddHandler _threadRunner2.RunWorkerCompleted, AddressOf Thread2_Completed
'### Den Timer für Thread 1 generieren
Dim Timer_Thread1 As New System.Timers.Timer()
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
AddHandler Timer_Thread1.Elapsed, AddressOf Thread_Run1
' Set the Interval
Timer_Thread1.Interval = (My.Settings.TIMER_INTERVALL * 60000)
Timer_Thread1.Enabled = True
Logger.Debug("...Timer 1 started.")
' Und den Durchlauf das erste Mal starten
_threadRunner1.RunWorkerAsync()
'### Den Timer für Thread 1 generieren
Dim Timer_Thread2 As New System.Timers.Timer()
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
AddHandler Timer_Thread2.Elapsed, AddressOf Thread_Run2
' Set the Interval
Timer_Thread2.Interval = (My.Settings.TIMER_INTERVALL * 60000)
Timer_Thread2.Enabled = True
Logger.Debug("...Timer 2 started.")
End If
End If
Catch ex As Exception
EventLog.WriteEntry(Me.ServiceName, ex.ToString(), EventLogEntryType.Error)
Logger.Error(ex)
End Try
End Sub
Public Sub Thread_Run1()
If Not _threadRunner1.IsBusy Then
_threadRunner1.RunWorkerAsync()
Else
Logger.Info("##### THREAD 1 Is STILL RUNNING #####")
End If
End Sub
Public Sub Thread_Run2()
If Not _threadRunner2.IsBusy Then
_threadRunner2.RunWorkerAsync()
Else
Logger.Info("##### THREAD 2 Is STILL RUNNING #####")
End If
End Sub
Public Sub RUN_THREAD1(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
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}")
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Public Sub Generator_Run(GeneratorID As String, oGetDTSQL As String)
Try
Dim oSQLDelete = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE GEN_ID = '{GeneratorID}'"
MyDatabase.ExecuteNonQuery(oSQLDelete)
Dim oDTEB_Workload As DataTable = MyDatabase.GetDatatable(oGetDTSQL)
If Not IsNothing(oDTEB_Workload) Then
Dim oDocID As Long
Dim oOutputfilename, OutputFolder As String
Dim oReRun As Boolean
If oDTEB_Workload.Rows.Count > 0 Then
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
Try
oOutputfilename = oRow.Item("Outputfilename").ToString
Catch ex As Exception
oOutputfilename = "STANDARD"
End Try
Try
OutputFolder = oRow.Item("OutputFolder").ToString
Catch ex As Exception
OutputFolder = "STANDARD"
End Try
Try
oReRun = oRow.Item("ReRun")
Catch ex As Exception
oReRun = False
End Try
Dim oSQLCheck = $"SELECT * FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {oDocID}"
Dim oDTRPT2BCreated As DataTable = MyDatabase.GetDatatable(oSQLCheck)
If Not IsNothing(oDTRPT2BCreated) And (oDTRPT2BCreated.Rows.Count = 0 Or oReRun = True) Then
oSQLCheck = $"select * From VWCUST_STAMP Where DocID = {oDocID}"
Dim oCheckStamp As DataTable = MyDatabase.GetDatatable(oSQLCheck)
If oCheckStamp.Rows.Count > 0 Then
If oReRun = True Then
Logger.Info($"## THIS IS A RERUN {oDocID}")
Delete_EB2bCreated(oDocID)
End If
Dim oInsert = $"IF NOT EXISTS(SELECT DocID FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {oDocID}) INSERT INTO TBCUST_PM_RPT_2BCREATED (DocID,GEN_ID,Outputfilename) VALUES ({oDocID},'{GeneratorID}','{oOutputfilename}')"
MyDatabase.ExecuteNonQuery(oInsert)
Else
Logger.Warn($"oCheckStamp = False [{oSQLCheck}]")
End If
Else
Logger.Info($"DocID already worked (TBCUST_PM_RPT_2BCREATED) [{oSQLCheck}]")
End If
Next
Dim oSQLWorkload2 = $"SELECT * FROM TBCUST_PM_RPT_2BCREATED WHERE GEN_ID = '{GeneratorID}'"
oDTEB_Workload = MyDatabase.GetDatatable(oSQLWorkload2)
For Each oRow As DataRow In oDTEB_Workload.Rows
Dim oSQL As String
oDocID = oRow.Item(0).ToString
Try
oOutputfilename = oRow.Item("Outputfilename").ToString
Catch ex As Exception
oOutputfilename = "STANDARD"
End Try
oSQL = $"EXEC PRCUST_CREATE_RPTERGEBNISBERICHT_POS {oDocID.ToString}"
Logger.Debug($"Now executing [{oSQL}]")
If MyDatabase.ExecuteNonQuery(oSQL, 500) = True Then
oSQL = $"select * from VWCUST_RPTERGEBNISBERICHT where DocID = {oDocID}"
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}]")
Delete_EB2bCreated(oDocID)
End If
End If
Next
End If
End If
Catch ex As Exception
Logger.Warn($"Unexpected Error Generator_Run for GenID {GeneratorID}:")
Logger.Error(ex)
End Try
End Sub
Public Sub RUN_THREAD2(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
If My.Computer.Clock.LocalTime.Hour <> 4 And My.Computer.Clock.LocalTime.Hour <> 5 Then
If My.Settings.oSQLThread2 <> String.Empty Then
Generator_Run("02", My.Settings.oSQLThread2)
End If
Else
Logger.Debug($"In Sleep Mode 04-05h: {Now.ToString}")
End If
Catch ex As Exception
Logger.Error(ex)
End Try
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. ##")
End Sub
Private Sub Thread1_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
'This event fires when the DoWork event completes
Try
Dim result As String = ""
If e.Cancelled Then
Logger.Warn("## Thread1 was cancelled.")
ElseIf e.Error IsNot Nothing Then
Logger.Warn("Unexpected error in thread 1: " & e.Error.Message)
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub Thread2_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
'This event fires when the DoWork event completes
Try
Dim result As String = ""
If e.Cancelled Then
Logger.Warn("## Thread2 was cancelled.")
ElseIf e.Error IsNot Nothing Then
Logger.Warn("Unexpected error in thread 2: " & e.Error.Message)
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Sub Create_EB_Report(pDocID As String, GENID As String, Outputfilename As String, OutputFolder As String, pRerun As Boolean)
Dim MyFreigabebericht As String
If GENID = "01" Then
MyStempel1 = ""
Else
MyStempel2 = ""
End If
Logger.Info($"#### Trying to Create_EB_Report (EB-Protokoll) for DocID: {pDocID} - GENID: {GENID}... ####")
Dim errortext As String
Try
Dim oReport As New XtraReportEB()
Dim oDatasource As SqlDataSource = oReport.DataSource
Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
oParameter.Value = pDocID
Try
oReport.ReportPrintOptions.PrintOnEmptyDataSource = False
oReport.FilterString = "DocID = " + pDocID
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
oReport.CreateDocument(False)
Catch ex As Exception
Delete_EB2bCreated(pDocID)
Logger.Warn($"Unexpected Error in Create_EB_Report Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}")
Exit Sub
End Try
Dim oMyErgebnisbericht As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, pDocID & "_ERPT.pdf")
If File.Exists(oMyErgebnisbericht) Then
Try
File.Delete(oMyErgebnisbericht)
Catch ex As Exception
Logger.Info($"Could not delete existing Reportfile: {oMyErgebnisbericht}")
Exit Sub
End Try
End If
oReport.ExportToPdf(oMyErgebnisbericht)
If File.Exists(oMyErgebnisbericht) Then
MyFreigabebericht = oMyErgebnisbericht
Dim oOriginFile As String
Dim osql = $"select dbo.FNDD_GET_WINDREAM_FILE_PATH ({pDocID},{My.Settings.FNDD_GET_WM_FPATH_VARIANT})"
oOriginFile = MyDatabase.GetScalarValue(osql)
If File.Exists(oOriginFile) = False Then
Logger.Warn($"File.Exists = false ### [{oOriginFile}] is not existing. Check Your security-permissions [{osql}]!")
Delete_EB2bCreated(pDocID)
Exit Sub
End If
If Not IsNothing(oOriginFile) Then
If File.Exists(My.Settings.Path2PDFTK) Then
If Create_MyStempel(pDocID, GENID) = True Then
'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report
Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID)
If 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
Else
Logger.Info("ERROR: CreateStampedPDF = False or """)
End If
Else
Logger.Warn("Create_MyStempel = False")
Delete_EB2bCreated(pDocID)
End If
End If
Else
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!!")
Delete_EB2bCreated(pDocID)
End If
Catch ex As Exception
Delete_EB2bCreated(pDocID)
errortext = "ex.message: " & ex.Message & vbNewLine & "ex.StackTrace: " & ex.StackTrace.ToString & vbNewLine & "ex.InnerException: " & ex.InnerException.Message
Logger.Warn($"Unexpected Error in Create_Report for DocID: {pDocID} - ERROR: {errortext}")
End Try
End Sub
Private Function Create_MyStempel(pDocID As String, GENID As String)
If GENID = "01" Then
MyStempel1 = ""
Else
MyStempel2 = ""
End If
Dim errortext As String
Try
Dim oRptStampFirstPage As New RptStampIcon()
Dim oDatasource As SqlDataSource = oRptStampFirstPage.DataSource
Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0)
Dim oParameter As QueryParameter = oSelectQuery.Parameters(0)
oParameter.Value = pDocID
oRptStampFirstPage.ReportPrintOptions.PrintOnEmptyDataSource = False
oRptStampFirstPage.FilterString = "DocID = " + pDocID
'report.ObjectDataSource1.Parameters(0).Value = Convert.ToInt64(TextBox1.Text)
oRptStampFirstPage.CreateDocument(False)
Dim oTempStempel As String = Path.Combine(My.Settings.CONCAT_TEMPFolder, pDocID & "_Stamp.jpg")
If File.Exists(oTempStempel) Then
Try
File.Delete(oTempStempel)
Catch ex As Exception
Return False
End Try
End If
'myReport.ExportToPdf(oTempStempel)
Dim oExportOptions As New DevExpress.XtraPrinting.ImageExportOptions
oExportOptions.Resolution = 400
oExportOptions.Format = Imaging.ImageFormat.Jpeg
oExportOptions.ExportMode = DevExpress.XtraPrinting.ImageExportMode.SingleFile
oRptStampFirstPage.ExportToImage(oTempStempel, oExportOptions)
If File.Exists(oTempStempel) Then
If GENID = "02" Then
MyStempel2 = oTempStempel
Else
MyStempel1 = oTempStempel
End If
Logger.Info($"...Stampreport created for DocID: {pDocID} - GENID {GENID}!")
Return True
Else
If GENID = "02" Then
MyStempel2 = ""
Else
MyStempel1 = ""
End If
Return False
End If
Catch ex As Exception
errortext = "ex.message: " & ex.Message & vbNewLine & "ex.StackTrace: " & ex.StackTrace.ToString & vbNewLine & "ex.InnerException: " & ex.InnerException.Message
Delete_EB2bCreated(pDocID)
Logger.Error(ex)
Return False
End Try
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}...")
Dim MyLocalStempel As String
If GENID = "01" Then
MyLocalStempel = MyStempel1
Else
MyLocalStempel = MyStempel2
End If
Dim oStampedOriginWithPicture As String
oStampedOriginWithPicture = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix
oStampedOriginWithPicture = Path.Combine(My.Settings.CONCAT_TEMPFolder, oStampedOriginWithPicture + "_StampedOriginal.pdf")
Dim oGdPicturePDF As New GdPicturePDF()
Dim oGdPictureImaging As New GdPictureImaging()
'Creating a new empty PDF document.
If oGdPicturePDF.LoadFromFile(oOriginFile, False) = GdPictureStatus.OK Then
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($"{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")
If System.IO.File.Exists(oStampedOriginWithPicture) Then
System.IO.File.Delete(oStampedOriginWithPicture)
End If
Dim oStempelHEight = oGdPictureImaging.GetHeight(imageID) / 5
oYDistance = (oYDistance - oStempelHEight) - 10
'Drawing the image resource onto the current page and saving the PDF document.
If (oGdPicturePDF.GetStat() <> GdPictureStatus.OK) OrElse
(oGdPicturePDF.DrawImage(imageResName, My.Settings.XDistance, oYDistance, oGdPictureImaging.GetWidth(imageID) / 5, oGdPictureImaging.GetHeight(imageID) / 5) <> GdPictureStatus.OK) OrElse
(oGdPicturePDF.SaveToFile(oStampedOriginWithPicture) <> GdPictureStatus.OK) Then
Logger.Warn("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString())
'MessageBox.Show("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return ""
End If
Logger.Debug($"{pDocID}..oGdPicturePDF.SaveToFile")
'Releasing the image.
oGdPictureImaging.ReleaseGdPictureImage(imageID)
Else
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. 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()
oGdPicturePDF.Dispose()
Dim sw As Stopwatch = New Stopwatch()
Dim oSuccess As Boolean = True
sw.Start()
Logger.Debug("Waiting for file: " & oStampedOriginWithPicture)
Do While File.Exists(oStampedOriginWithPicture) = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture)
oSuccess = False
Exit Do
End If
Loop
sw.Stop()
Try
File.Delete(MyLocalStempel)
Logger.Debug($"Deleted StempelFile [{MyLocalStempel}]!")
Catch ex As Exception
Logger.Warn($"Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}")
End Try
If oSuccess = True Then
Return oStampedOriginWithPicture
Else
Return ""
End If
Catch ex As Exception
Logger.Error(ex)
Return ""
End Try
End Function
Private Function Concat_Files(DocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, MyOriginStamped As String, MyFreigabebericht As String)
Dim oConcatSuccessfull As Boolean = True
Dim MyFile2Concat As String
Try
If Outputfilename = "STANDARD" Then
Outputfilename = Path.GetFileNameWithoutExtension(oOriginFile) & My.Settings.Concatted_File_Suffix + ".pdf"
End If
If pOutputFolder = "STANDARD" Then
pOutputFolder = My.Settings.Path_ConcattedFile
End If
MyFile2Concat = Path.Combine(pOutputFolder, Outputfilename)
If File.Exists(My.Settings.Path2PDFTK) Then
If File.Exists(MyFile2Concat) Then
Try
File.Delete(MyFile2Concat)
Catch ex As Exception
Logger.Warn($"Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}")
Return False
End Try
End If
Try
Dim oPDFTKProcess As New Process
Dim ProcID
oPDFTKProcess.StartInfo.FileName = My.Settings.Path2PDFTK
oPDFTKProcess.StartInfo.CreateNoWindow = True
Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """"
oPDFTKProcess.StartInfo.Arguments = _argument & " cat output " & MyFile2Concat
Logger.Debug("Arguments: " & _argument & " cat output " & MyFile2Concat)
oPDFTKProcess.Start()
ProcID = oPDFTKProcess.Id
Dim oProcID As Process
oProcID = Process.GetProcessById(ProcID)
Dim sw As Stopwatch = New Stopwatch()
sw.Start()
Do While oProcID.HasExited = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
Exit Do
End If
Loop
Logger.Debug("...process has exited: ")
sw.Stop()
Logger.Debug("Waiting for file: " & MyFile2Concat)
sw.Start()
Do While File.Exists(MyFile2Concat) = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & MyFile2Concat)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & MyFile2Concat)
oConcatSuccessfull = False
Exit Do
End If
Loop
sw.Stop()
Try
File.Delete(MyOriginStamped)
Logger.Debug($"Deleted file [{MyOriginStamped}]!")
File.Delete(MyFreigabebericht)
Logger.Debug($"Deleted file [{MyFreigabebericht}]!")
Catch ex As Exception
Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}")
End Try
Return oConcatSuccessfull
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
End Try
End Function
Sub Delete_EB2bCreated(pDocID As Long)
Try
Dim oDelete = $"DELETE FROM TBCUST_PM_RPT_2BCREATED WHERE DocID = {pDocID}"
MyDatabase.ExecuteNonQuery(oDelete)
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
End Class

47
ProjectInstaller.Designer.vb generated Normal file
View File

@ -0,0 +1,47 @@
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
Inherits System.Configuration.Install.Installer
'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Komponenten-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
'
'ServiceProcessInstaller1
'
Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
Me.ServiceProcessInstaller1.Password = Nothing
Me.ServiceProcessInstaller1.Username = Nothing
'
'ServiceInstaller1
'
Me.ServiceInstaller1.Description = "Erstellt Ergebnisberichte für Belege"
Me.ServiceInstaller1.DisplayName = "Digital Data EB Creator"
Me.ServiceInstaller1.ServiceName = "Digital Data EB Creator"
'
'ProjectInstaller
'
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
End Sub
Friend WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller
Friend WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller
End Class

129
ProjectInstaller.resx Normal file
View File

@ -0,0 +1,129 @@
<?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="ServiceProcessInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="ServiceInstaller1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>197, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>

16
ProjectInstaller.vb Normal file
View File

@ -0,0 +1,16 @@
Imports System.ComponentModel
Imports System.Configuration.Install
Public Class ProjectInstaller
Public Sub New()
MyBase.New()
'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
InitializeComponent()
'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen
End Sub
End Class

987
RptErgebnisbericht.Designer.vb generated Normal file
View File

@ -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

126
RptErgebnisbericht.resx Normal file
View File

@ -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>

3
RptErgebnisbericht.vb Normal file
View File

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

430
RptStampIcon.Designer.vb generated Normal file
View File

@ -0,0 +1,430 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class RptStampIcon
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 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(RptStampIcon))
Me.TopMarginBand1 = New DevExpress.XtraReports.UI.TopMarginBand()
Me.BottomMarginBand1 = New DevExpress.XtraReports.UI.BottomMarginBand()
Me.ReportHeaderBand1 = New DevExpress.XtraReports.UI.ReportHeaderBand()
Me.GroupHeaderBand1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.GroupHeaderBand2 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.DetailBand1 = New DevExpress.XtraReports.UI.DetailBand()
Me.ReportFooter = New DevExpress.XtraReports.UI.ReportFooterBand()
Me.XrPanel2 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell2 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell3 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell5 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrPanel3 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable3 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow3 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell6 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell7 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell8 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrPanel5 = New DevExpress.XtraReports.UI.XRPanel()
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.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()
'
'TopMarginBand1
'
Me.TopMarginBand1.HeightF = 0!
Me.TopMarginBand1.Name = "TopMarginBand1"
'
'BottomMarginBand1
'
Me.BottomMarginBand1.HeightF = 1.0!
Me.BottomMarginBand1.Name = "BottomMarginBand1"
'
'ReportHeaderBand1
'
Me.ReportHeaderBand1.HeightF = 0!
Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
Me.ReportHeaderBand1.Visible = False
'
'GroupHeaderBand1
'
Me.GroupHeaderBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel2})
Me.GroupHeaderBand1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupHeaderBand1.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("FG_TYP", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
Me.GroupHeaderBand1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeaderBand1.HeightF = 25.0!
Me.GroupHeaderBand1.Name = "GroupHeaderBand1"
Me.GroupHeaderBand1.StylePriority.UseFont = False
'
'GroupHeaderBand2
'
Me.GroupHeaderBand2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel1})
Me.GroupHeaderBand2.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeaderBand2.HeightF = 38.00001!
Me.GroupHeaderBand2.Level = 1
Me.GroupHeaderBand2.Name = "GroupHeaderBand2"
'
'DetailBand1
'
Me.DetailBand1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel3})
Me.DetailBand1.HeightF = 21.875!
Me.DetailBand1.Name = "DetailBand1"
'
'ReportFooter
'
Me.ReportFooter.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrPanel5})
Me.ReportFooter.HeightF = 12.5!
Me.ReportFooter.Name = "ReportFooter"
'
'XrPanel2
'
Me.XrPanel2.BackColor = System.Drawing.Color.White
Me.XrPanel2.BorderColor = System.Drawing.Color.Red
Me.XrPanel2.Borders = CType((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide)
Me.XrPanel2.BorderWidth = 3.0!
Me.XrPanel2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
Me.XrPanel2.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel2.Name = "XrPanel2"
Me.XrPanel2.SizeF = New System.Drawing.SizeF(279.0001!, 25.0!)
Me.XrPanel2.StylePriority.UseBackColor = False
Me.XrPanel2.StylePriority.UseBorderColor = False
Me.XrPanel2.StylePriority.UseBorders = False
Me.XrPanel2.StylePriority.UseBorderWidth = False
'
'XrTable1
'
Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(12.08344!, 0!)
Me.XrTable1.Name = "XrTable1"
Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
Me.XrTable1.SizeF = New System.Drawing.SizeF(256.9166!, 25.0!)
'
'XrTableRow1
'
Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell2})
Me.XrTableRow1.Name = "XrTableRow1"
Me.XrTableRow1.Weight = 1.0R
'
'XrTableCell2
'
Me.XrTableCell2.BackColor = System.Drawing.Color.LightGray
Me.XrTableCell2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[FG_TYP]")})
Me.XrTableCell2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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.UseBackColor = False
Me.XrTableCell2.StylePriority.UseFont = False
Me.XrTableCell2.Text = "XrTableCell2"
Me.XrTableCell2.Weight = 0.92685330904447116R
'
'XrPanel1
'
Me.XrPanel1.BackColor = System.Drawing.Color.White
Me.XrPanel1.BorderColor = System.Drawing.Color.Red
Me.XrPanel1.Borders = CType(((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Top) _
Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide)
Me.XrPanel1.BorderWidth = 3.0!
Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel1.Name = "XrPanel1"
Me.XrPanel1.SizeF = New System.Drawing.SizeF(279.0001!, 38.00001!)
Me.XrPanel1.StyleName = "DetailCaptionBackground3"
Me.XrPanel1.StylePriority.UseBackColor = False
Me.XrPanel1.StylePriority.UseBorderColor = False
Me.XrPanel1.StylePriority.UseBorders = False
Me.XrPanel1.StylePriority.UseBorderWidth = False
'
'XrTable2
'
Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(10.0001!, 10.00001!)
Me.XrTable2.Name = "XrTable2"
Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
Me.XrTable2.SizeF = New System.Drawing.SizeF(258.9999!, 28.0!)
'
'XrTableRow2
'
Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell3, Me.XrTableCell5})
Me.XrTableRow2.Name = "XrTableRow2"
Me.XrTableRow2.Weight = 1.0R
'
'XrTableCell3
'
Me.XrTableCell3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell3.Multiline = True
Me.XrTableCell3.Name = "XrTableCell3"
Me.XrTableCell3.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell3.StyleName = "DetailCaption3"
Me.XrTableCell3.StylePriority.UseFont = False
Me.XrTableCell3.Text = "Freigabe Wer"
Me.XrTableCell3.Weight = 0.34481248786626795R
'
'XrTableCell5
'
Me.XrTableCell5.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell5.Multiline = True
Me.XrTableCell5.Name = "XrTableCell5"
Me.XrTableCell5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell5.StyleName = "DetailCaption3"
Me.XrTableCell5.StylePriority.UseFont = False
Me.XrTableCell5.Text = "Wann"
Me.XrTableCell5.Weight = 0.22006990847061733R
'
'XrPanel3
'
Me.XrPanel3.BackColor = System.Drawing.Color.White
Me.XrPanel3.BorderColor = System.Drawing.Color.Red
Me.XrPanel3.Borders = CType((DevExpress.XtraPrinting.BorderSide.Left Or DevExpress.XtraPrinting.BorderSide.Right), DevExpress.XtraPrinting.BorderSide)
Me.XrPanel3.BorderWidth = 3.0!
Me.XrPanel3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable3})
Me.XrPanel3.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel3.Name = "XrPanel3"
Me.XrPanel3.SizeF = New System.Drawing.SizeF(279.0001!, 21.875!)
Me.XrPanel3.StylePriority.UseBackColor = False
Me.XrPanel3.StylePriority.UseBorderColor = False
Me.XrPanel3.StylePriority.UseBorders = False
Me.XrPanel3.StylePriority.UseBorderWidth = False
'
'XrTable3
'
Me.XrTable3.BorderColor = System.Drawing.Color.Transparent
Me.XrTable3.LocationFloat = New DevExpress.Utils.PointFloat(12.08344!, 0!)
Me.XrTable3.Name = "XrTable3"
Me.XrTable3.OddStyleName = "DetailData3_Odd"
Me.XrTable3.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow3})
Me.XrTable3.SizeF = New System.Drawing.SizeF(256.9166!, 14.99999!)
Me.XrTable3.StylePriority.UseBorderColor = False
'
'XrTableRow3
'
Me.XrTableRow3.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell6, Me.XrTableCell7, Me.XrTableCell8})
Me.XrTableRow3.Name = "XrTableRow3"
Me.XrTableRow3.Weight = 11.5R
'
'XrTableCell6
'
Me.XrTableCell6.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Email]")})
Me.XrTableCell6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell6.Multiline = True
Me.XrTableCell6.Name = "XrTableCell6"
Me.XrTableCell6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell6.StyleName = "DetailData3"
Me.XrTableCell6.StylePriority.UseFont = False
Me.XrTableCell6.Text = "XrTableCell6"
Me.XrTableCell6.Weight = 0.20052354564978331R
'
'XrTableCell7
'
Me.XrTableCell7.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Freigabe]")})
Me.XrTableCell7.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell7.Multiline = True
Me.XrTableCell7.Name = "XrTableCell7"
Me.XrTableCell7.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell7.StyleName = "DetailData3"
Me.XrTableCell7.StylePriority.UseFont = False
Me.XrTableCell7.Text = "XrTableCell7"
Me.XrTableCell7.Weight = 0.081193868433615618R
'
'XrTableCell8
'
Me.XrTableCell8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Wann]")})
Me.XrTableCell8.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell8.Multiline = True
Me.XrTableCell8.Name = "XrTableCell8"
Me.XrTableCell8.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell8.StyleName = "DetailData3"
Me.XrTableCell8.StylePriority.UseFont = False
Me.XrTableCell8.Text = "XrTableCell8"
Me.XrTableCell8.TextFormatString = "{0:dd.MM.yyyy HH:mm}"
Me.XrTableCell8.Weight = 0.1822016741454581R
'
'XrPanel5
'
Me.XrPanel5.BackColor = System.Drawing.Color.White
Me.XrPanel5.BorderColor = System.Drawing.Color.Red
Me.XrPanel5.Borders = DevExpress.XtraPrinting.BorderSide.Top
Me.XrPanel5.BorderWidth = 3.0!
Me.XrPanel5.LocationFloat = New DevExpress.Utils.PointFloat(9.999847!, 0!)
Me.XrPanel5.Name = "XrPanel5"
Me.XrPanel5.SizeF = New System.Drawing.SizeF(279.0001!, 12.5!)
Me.XrPanel5.StylePriority.UseBackColor = False
Me.XrPanel5.StylePriority.UseBorderColor = False
Me.XrPanel5.StylePriority.UseBorders = False
Me.XrPanel5.StylePriority.UseBorderWidth = False
'
'SqlDataSource1
'
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1"
CustomSqlQuery1.Name = "VWCUST_STAMP"
QueryParameter1.Name = "pDocID"
QueryParameter1.Type = GetType(Long)
QueryParameter1.ValueInfo = "4712"
CustomSqlQuery1.Parameters.Add(QueryParameter1)
CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
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!)
'
'XtraReport1
'
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMarginBand1, Me.BottomMarginBand1, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.GroupHeaderBand2, Me.DetailBand1, Me.ReportFooter})
Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
Me.DataMember = "VWCUST_STAMP"
Me.DataSource = Me.SqlDataSource1
Me.Margins = New System.Drawing.Printing.Margins(10, 104, 0, 1)
Me.PageHeight = 583
Me.PageWidth = 413
Me.PaperKind = System.Drawing.Printing.PaperKind.A6
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.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 TopMarginBand1 As DevExpress.XtraReports.UI.TopMarginBand
Friend WithEvents BottomMarginBand1 As DevExpress.XtraReports.UI.BottomMarginBand
Friend WithEvents ReportHeaderBand1 As DevExpress.XtraReports.UI.ReportHeaderBand
Friend WithEvents GroupHeaderBand1 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrPanel2 As DevExpress.XtraReports.UI.XRPanel
Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell2 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents GroupHeaderBand2 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
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 XrTableCell5 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents DetailBand1 As DevExpress.XtraReports.UI.DetailBand
Friend WithEvents XrPanel3 As DevExpress.XtraReports.UI.XRPanel
Friend WithEvents XrTable3 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow3 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell6 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell7 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell8 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents ReportFooter As DevExpress.XtraReports.UI.ReportFooterBand
Friend WithEvents XrPanel5 As DevExpress.XtraReports.UI.XRPanel
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

132
RptStampIcon.resx Normal file
View File

@ -0,0 +1,132 @@
<?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="CustomSqlQuery1.Sql" xml:space="preserve">
<value>select "VWCUST_STAMP"."FG_TYP", "VWCUST_STAMP"."DocID",
"VWCUST_STAMP"."Email", "VWCUST_STAMP"."Freigabe",
"VWCUST_STAMP"."Wann"
from "dbo"."VWCUST_STAMP" "VWCUST_STAMP" where "VWCUST_STAMP"."DocID" = @pDocID</value>
</data>
<data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9TVEFNUCI+PEZpZWxkIE5hbWU9IkZHX1RZUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkVtYWlsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZyZWlnYWJlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ildhbm4iIFR5cGU9IkRhdGVUaW1lIiAvPjwvVmlldz48L0RhdGFTZXQ+</value>
</data>
</root>

3
RptStampIcon.vb Normal file
View File

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

653
XtraReportEB.Designer.vb generated Normal file
View File

@ -0,0 +1,653 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class XtraReportEB
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 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(XtraReportEB))
Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
Me.XrTable2 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow2 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell40 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell41 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell42 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell43 = 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.XrLabel21 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine()
Me.XrLabel20 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel18 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel17 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel15 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel14 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel13 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel11 = New DevExpress.XtraReports.UI.XRLabel()
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.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel()
Me.GroupHeaderBand1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.XrPanel1 = New DevExpress.XtraReports.UI.XRPanel()
Me.XrTable1 = New DevExpress.XtraReports.UI.XRTable()
Me.XrTableRow1 = New DevExpress.XtraReports.UI.XRTableRow()
Me.XrTableCell18 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell19 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell20 = New DevExpress.XtraReports.UI.XRTableCell()
Me.XrTableCell21 = New DevExpress.XtraReports.UI.XRTableCell()
Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components)
Me.Title = 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.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable2})
Me.Detail.HeightF = 25.0!
Me.Detail.Name = "Detail"
Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
'
'XrTable2
'
Me.XrTable2.LocationFloat = New DevExpress.Utils.PointFloat(16.00037!, 0!)
Me.XrTable2.Name = "XrTable2"
Me.XrTable2.OddStyleName = "DetailData3_Odd"
Me.XrTable2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow2})
Me.XrTable2.SizeF = New System.Drawing.SizeF(606.9997!, 25.0!)
'
'XrTableRow2
'
Me.XrTableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell40, Me.XrTableCell41, Me.XrTableCell42, Me.XrTableCell43})
Me.XrTableRow2.Name = "XrTableRow2"
Me.XrTableRow2.Weight = 11.5R
'
'XrTableCell40
'
Me.XrTableCell40.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Prozessschritt]")})
Me.XrTableCell40.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell40.Multiline = True
Me.XrTableCell40.Name = "XrTableCell40"
Me.XrTableCell40.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell40.StyleName = "DetailData3"
Me.XrTableCell40.StylePriority.UseFont = False
Me.XrTableCell40.Text = "XrTableCell40"
Me.XrTableCell40.Weight = 0.27170248283386134R
'
'XrTableCell41
'
Me.XrTableCell41.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Durch]")})
Me.XrTableCell41.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell41.Multiline = True
Me.XrTableCell41.Name = "XrTableCell41"
Me.XrTableCell41.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell41.StyleName = "DetailData3"
Me.XrTableCell41.StylePriority.UseFont = False
Me.XrTableCell41.Text = "XrTableCell41"
Me.XrTableCell41.Weight = 0.1516249745658986R
'
'XrTableCell42
'
Me.XrTableCell42.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Status_Change]")})
Me.XrTableCell42.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell42.Multiline = True
Me.XrTableCell42.Name = "XrTableCell42"
Me.XrTableCell42.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell42.StyleName = "DetailData3"
Me.XrTableCell42.StylePriority.UseFont = False
Me.XrTableCell42.Text = "XrTableCell42"
Me.XrTableCell42.Weight = 0.31414615874955754R
'
'XrTableCell43
'
Me.XrTableCell43.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[wannPos]")})
Me.XrTableCell43.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell43.Multiline = True
Me.XrTableCell43.Name = "XrTableCell43"
Me.XrTableCell43.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell43.StyleName = "DetailData3"
Me.XrTableCell43.StylePriority.UseFont = False
Me.XrTableCell43.Text = "XrTableCell43"
Me.XrTableCell43.TextFormatString = "{0:dd.MM.yyyy HH:mm}"
Me.XrTableCell43.Weight = 0.13306054388170926R
'
'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.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
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.StylePriority.UseFont = False
Me.XrPageInfo1.TextFormatString = "{0:dd.MM.yyyy HH:mm' Uhr'}"
'
'XrPageInfo2
'
Me.XrPageInfo2.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrPageInfo2.LocationFloat = New DevExpress.Utils.PointFloat(319.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(313.0!, 23.0!)
Me.XrPageInfo2.StyleName = "PageInfo"
Me.XrPageInfo2.StylePriority.UseFont = False
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.XrLabel21, Me.XrLine1, Me.XrLabel20, Me.XrLabel19, Me.XrLabel18, Me.XrLabel17, Me.XrLabel16, Me.XrLabel15, Me.XrLabel14, Me.XrLabel13, Me.XrLabel12, Me.XrLabel11, Me.XrLabel10, Me.XrLabel9, Me.XrLabel8, Me.XrLabel7, Me.XrLabel6, Me.XrLabel5, Me.XrLabel4, Me.XrLabel3, Me.XrLabel2, Me.XrLabel1})
Me.ReportHeaderBand1.HeightF = 330.8333!
Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
'
'XrLabel21
'
Me.XrLabel21.Font = New System.Drawing.Font("Arial", 14.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(6.00001!, 302.0833!)
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(418.9405!, 23.0!)
Me.XrLabel21.StylePriority.UseFont = False
Me.XrLabel21.Text = "Zusammenfassung"
'
'XrLine1
'
Me.XrLine1.LineWidth = 3.0!
Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 289.5833!)
Me.XrLine1.Name = "XrLine1"
Me.XrLine1.SizeF = New System.Drawing.SizeF(611.0001!, 12.5!)
'
'XrLabel20
'
Me.XrLabel20.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel20.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 253.0834!)
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(125.0!, 23.0!)
Me.XrLabel20.StylePriority.UseFont = False
Me.XrLabel20.Text = "email Absender:"
'
'XrLabel19
'
Me.XrLabel19.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel19.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 219.6667!)
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(125.0!, 23.0!)
Me.XrLabel19.StylePriority.UseFont = False
Me.XrLabel19.Text = "Kreditorname:"
'
'XrLabel18
'
Me.XrLabel18.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel18.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 183.2917!)
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(125.0!, 23.0!)
Me.XrLabel18.StylePriority.UseFont = False
Me.XrLabel18.Text = "Kreditornummer:"
'
'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.123!, 78.16664!)
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:"
'
'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.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:"
'
'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!, 148.1667!)
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(100.0!, 23.0!)
Me.XrLabel15.StylePriority.UseFont = False
Me.XrLabel15.Text = "Bestellnummer:"
'
'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!, 113.1666!)
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(100.0!, 23.0!)
Me.XrLabel14.StylePriority.UseFont = False
Me.XrLabel14.Text = "Kostenstelle:"
'
'XrLabel13
'
Me.XrLabel13.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel13.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 78.16664!)
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 = "Belegdatum:"
'
'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!, 44.75002!)
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 = "Eingang:"
'
'XrLabel11
'
Me.XrLabel11.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Absender]")})
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(146.1042!, 253.0834!)
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(470.8959!, 23.00002!)
Me.XrLabel11.StylePriority.UseFont = False
Me.XrLabel11.Text = "XrLabel11"
'
'XrLabel10
'
Me.XrLabel10.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[KreditorName_Lang]")})
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(146.1042!, 219.6667!)
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(470.8959!, 23.0!)
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", "[KreditorNummer]")})
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(146.1042!, 183.2917!)
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(144.7917!, 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", "[BestellNr]")})
Me.XrLabel8.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(146.1042!, 148.1667!)
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(144.7917!, 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", "[Kostenstelle]")})
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(146.1042!, 113.1666!)
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(144.7917!, 23.00001!)
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", "[Mandant Name]")})
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(424.9405!, 101.1667!)
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(192.0596!, 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", "[Mandant]")})
Me.XrLabel5.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(424.9405!, 78.16664!)
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 = "XrLabel5"
'
'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(424.9405!, 44.75002!)
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(100.0!, 23.0!)
Me.XrLabel4.StylePriority.UseFont = False
Me.XrLabel4.Text = "XrLabel4"
'
'XrLabel3
'
Me.XrLabel3.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Belegdatum]")})
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(146.1042!, 78.16664!)
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(144.7917!, 23.0!)
Me.XrLabel3.StylePriority.UseFont = False
Me.XrLabel3.Text = "XrLabel3"
Me.XrLabel3.TextFormatString = "{0:dd.MM.yyyy}"
'
'XrLabel2
'
Me.XrLabel2.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[DatumIn]")})
Me.XrLabel2.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(146.1042!, 44.75002!)
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(144.7917!, 23.0!)
Me.XrLabel2.StylePriority.UseFont = False
Me.XrLabel2.Text = "XrLabel2"
Me.XrLabel2.TextFormatString = "{0:dd.MM.yyyy}"
'
'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!, 5.999994!)
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.0001!, 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.XrPanel1})
Me.GroupHeaderBand1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeaderBand1.HeightF = 48.0!
Me.GroupHeaderBand1.Name = "GroupHeaderBand1"
'
'XrPanel1
'
Me.XrPanel1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable1})
Me.XrPanel1.LocationFloat = New DevExpress.Utils.PointFloat(6.0!, 0!)
Me.XrPanel1.Name = "XrPanel1"
Me.XrPanel1.SizeF = New System.Drawing.SizeF(617.0001!, 48.0!)
Me.XrPanel1.StyleName = "DetailCaptionBackground3"
'
'XrTable1
'
Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(10.00037!, 9.999974!)
Me.XrTable1.Name = "XrTable1"
Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1})
Me.XrTable1.SizeF = New System.Drawing.SizeF(600.9996!, 38.00005!)
'
'XrTableRow1
'
Me.XrTableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.XrTableCell18, Me.XrTableCell19, Me.XrTableCell20, Me.XrTableCell21})
Me.XrTableRow1.Name = "XrTableRow1"
Me.XrTableRow1.Weight = 1.0R
'
'XrTableCell18
'
Me.XrTableCell18.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XrTableCell18.Multiline = True
Me.XrTableCell18.Name = "XrTableCell18"
Me.XrTableCell18.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrTableCell18.StyleName = "DetailCaption3"
Me.XrTableCell18.StylePriority.UseFont = False
Me.XrTableCell18.Text = "Prozessschritt"
Me.XrTableCell18.Weight = 0.26013168552048471R
'
'XrTableCell19
'
Me.XrTableCell19.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, 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 = "Durch"
Me.XrTableCell19.Weight = 0.14516790917579048R
'
'XrTableCell20
'
Me.XrTableCell20.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, 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 = "Status/An Wen/Änderung"
Me.XrTableCell20.Weight = 0.29950804574617118R
'
'XrTableCell21
'
Me.XrTableCell21.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, 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" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Uhrzeit"
Me.XrTableCell21.Weight = 0.12041467605851398R
'
'SqlDataSource1
'
Me.SqlDataSource1.ConnectionName = "DD_ECM_ReportConnection"
Me.SqlDataSource1.Name = "SqlDataSource1"
CustomSqlQuery1.Name = "VWCUST_RPTERGEBNISBERICHT"
QueryParameter1.Name = "pDocID"
QueryParameter1.Type = GetType(Long)
QueryParameter1.ValueInfo = "4712"
CustomSqlQuery1.Parameters.Add(QueryParameter1)
CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1})
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"
'
'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!)
'
'XtraReportEB
'
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1})
Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
Me.DataMember = "VWCUST_RPTERGEBNISBERICHT"
Me.DataSource = Me.SqlDataSource1
Me.Margins = New System.Drawing.Printing.Margins(90, 100, 100, 100)
Me.PageHeight = 1169
Me.PageWidth = 827
Me.PaperKind = System.Drawing.Printing.PaperKind.A4
Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.DetailCaption3, Me.DetailData3, Me.DetailData3_Odd, Me.DetailCaptionBackground3, Me.PageInfo})
Me.StyleSheetPath = ""
Me.Version = "19.2"
CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand
Friend WithEvents XrTable2 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow2 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell40 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell41 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell42 As DevExpress.XtraReports.UI.XRTableCell
Friend WithEvents XrTableCell43 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 XrLabel21 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLine1 As DevExpress.XtraReports.UI.XRLine
Friend WithEvents XrLabel20 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel19 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel18 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel17 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel15 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel14 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel13 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel
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 XrLabel2 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents GroupHeaderBand1 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrPanel1 As DevExpress.XtraReports.UI.XRPanel
Friend WithEvents XrTable1 As DevExpress.XtraReports.UI.XRTable
Friend WithEvents XrTableRow1 As DevExpress.XtraReports.UI.XRTableRow
Friend WithEvents XrTableCell18 As DevExpress.XtraReports.UI.XRTableCell
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 SqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource
Friend WithEvents Title 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

151
XtraReportEB.resx Normal file
View File

@ -0,0 +1,151 @@
<?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="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+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVsZWdkYXR1bSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck51bW1lciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWVfTGFuZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLcmVkaXRvck5hbWUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVjaG51bmdOciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJSZWZlcmVueiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOZXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCcnV0dG9iZXRyYWciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iWmFobHVuZ3N6aWVsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTWFuZGFudCBOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Iktvc3RlbnN0ZWxsZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCZXN0ZWxsTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQWJzZW5kZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRmluYWxlciBGcmVpZ2ViZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUHJvemVzc3NjaHJpdHQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRHVyY2giIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU3RhdHVzX0NoYW5nZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJ3YW5uUG9zIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS29tbWVudGFyIiBUeXBlPSJTdHJpbmciIC8+PC9WaWV3PjwvRGF0YVNldD4=</value>
</data>
</root>

3
XtraReportEB.vb Normal file
View File

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