diff --git a/EB_Creator/App.config b/EB_Creator/App.config index 54ab413..1fe8d76 100644 --- a/EB_Creator/App.config +++ b/EB_Creator/App.config @@ -1,16 +1,15 @@ - + - -
+ +
- + - + @@ -42,7 +41,7 @@ 1 - + False @@ -52,4 +51,4 @@ - \ No newline at end of file + diff --git a/EB_Creator/EB_Creator.vbproj b/EB_Creator/EB_Creator.vbproj index b3cc963..16da474 100644 --- a/EB_Creator/EB_Creator.vbproj +++ b/EB_Creator/EB_Creator.vbproj @@ -11,9 +11,10 @@ EB_Creator 512 Console - v4.6.1 + v4.8 true true + AnyCPU diff --git a/EB_Creator/EB_Creator/App.config b/EB_Creator/EB_Creator/App.config index 8d5572b..6d41987 100644 --- a/EB_Creator/EB_Creator/App.config +++ b/EB_Creator/EB_Creator/App.config @@ -1,8 +1,8 @@ - + - -
+ +
@@ -10,7 +10,7 @@ providerName="System.Data.SqlClient" /> - + @@ -26,9 +26,6 @@ E:\TEMP\EBTemp - - E:\Portable\PDFTKCommand\pdftk.exe - _CC @@ -46,4 +43,4 @@ - \ No newline at end of file + diff --git a/EB_Creator/EB_Creator/EB_Creator.vbproj b/EB_Creator/EB_Creator/EB_Creator.vbproj index 4af8e51..ad54f2b 100644 --- a/EB_Creator/EB_Creator/EB_Creator.vbproj +++ b/EB_Creator/EB_Creator/EB_Creator.vbproj @@ -11,9 +11,10 @@ EB_Creator 512 Console - v4.6.1 + v4.6.2 true true + AnyCPU @@ -69,23 +70,27 @@ - - ..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll + + False + ..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll - - ..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll + + False + ..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll - - ..\..\..\DDMonorepo\Modules.Config\bin\Debug\NLog.dll + + ..\packages\NLog.5.0.2\lib\net46\NLog.dll + + @@ -108,6 +113,7 @@ True Application.myapp + True Component @@ -138,12 +144,6 @@ Component - - RptErgebnisbericht.vb - - - Component - XtraReportEB.vb @@ -168,9 +168,6 @@ RptStampIcon.vb - - RptErgebnisbericht.vb - XtraReportEB.vb Designer @@ -187,6 +184,7 @@ Settings.Designer.vb + \ No newline at end of file diff --git a/EB_Creator/EB_Creator/My Project/Application.Designer.vb b/EB_Creator/EB_Creator/My Project/Application.Designer.vb index 88dd01c..8ab460b 100644 --- a/EB_Creator/EB_Creator/My Project/Application.Designer.vb +++ b/EB_Creator/EB_Creator/My Project/Application.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ diff --git a/EB_Creator/EB_Creator/My Project/AssemblyInfo.vb b/EB_Creator/EB_Creator/My Project/AssemblyInfo.vb index 0058258..b9e3192 100644 --- a/EB_Creator/EB_Creator/My Project/AssemblyInfo.vb +++ b/EB_Creator/EB_Creator/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' indem Sie "*" wie unten gezeigt eingeben: ' - - + + diff --git a/EB_Creator/EB_Creator/My Project/Resources.Designer.vb b/EB_Creator/EB_Creator/My Project/Resources.Designer.vb index ecf7da1..7b4a52f 100644 --- a/EB_Creator/EB_Creator/My Project/Resources.Designer.vb +++ b/EB_Creator/EB_Creator/My Project/Resources.Designer.vb @@ -1,40 +1,41 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On +Imports System Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' - ''' Returns the cached ResourceManager instance used by this class. + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then @@ -44,17 +45,17 @@ Namespace My.Resources Return resourceMan End Get End Property - + ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property diff --git a/EB_Creator/EB_Creator/My Project/Settings.Designer.vb b/EB_Creator/EB_Creator/My Project/Settings.Designer.vb index e29fc52..d82ab95 100644 --- a/EB_Creator/EB_Creator/My Project/Settings.Designer.vb +++ b/EB_Creator/EB_Creator/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -54,17 +54,6 @@ Namespace My End Get End Property - _ - Public ReadOnly Property MyConnectionString() As String - Get - Return CType(Me("MyConnectionString"),String) - End Get - End Property - _ @@ -102,15 +91,6 @@ Namespace My End Get End Property - _ - Public ReadOnly Property Path2PDFTK() As String - Get - Return CType(Me("Path2PDFTK"),String) - End Get - End Property - _ @@ -156,6 +136,17 @@ Namespace My Return CType(Me("oSQLThread2"),String) End Get End Property + + _ + Public ReadOnly Property MyConnectionString() As String + Get + Return CType(Me("MyConnectionString"),String) + End Get + End Property End Class End Namespace diff --git a/EB_Creator/EB_Creator/My Project/Settings.settings b/EB_Creator/EB_Creator/My Project/Settings.settings index 4f5cc96..39efd0e 100644 --- a/EB_Creator/EB_Creator/My Project/Settings.settings +++ b/EB_Creator/EB_Creator/My Project/Settings.settings @@ -2,14 +2,6 @@ - - <?xml version="1.0" encoding="utf-16"?> -<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> - <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> - <ProviderName>System.Data.SqlClient</ProviderName> -</SerializableConnectionString> - Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd - False @@ -22,9 +14,6 @@ E:\TEMP\EBTemp - - E:\Portable\PDFTKCommand\pdftk.exe - _CC @@ -40,5 +29,13 @@ select distinct Top 2 DOC_ID,'STANDARD' as Outputfilename from VWCUST_RPTPM_UNION order by DOC_ID DESC + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + \ No newline at end of file diff --git a/EB_Creator/EB_Creator/My Project/licenses.licx b/EB_Creator/EB_Creator/My Project/licenses.licx index e69de29..a3683bf 100644 --- a/EB_Creator/EB_Creator/My Project/licenses.licx +++ b/EB_Creator/EB_Creator/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EB_Creator/EB_Creator/MyService.vb b/EB_Creator/EB_Creator/MyService.vb index 39b86c9..3b10448 100644 --- a/EB_Creator/EB_Creator/MyService.vb +++ b/EB_Creator/EB_Creator/MyService.vb @@ -5,6 +5,8 @@ Imports DigitalData.Modules.Database Imports DevExpress.DataAccess.Sql Imports GdPicture14 Imports System.Drawing +Imports DevExpress.Pdf.Native +Imports DevExpress.XtraRichEdit Public Class MyService #Region "+++++ variables +++++" @@ -177,7 +179,9 @@ Public Class MyService oDTEB_Workload = MyDatabase.GetDatatable(oSQLWorkload2) For Each oRow As DataRow In oDTEB_Workload.Rows Dim oSQL As String + oDocID = oRow.Item(0).ToString + Logger.Debug($"Generator_Run on DocID {oDocID}") Try oOutputfilename = oRow.Item("Outputfilename").ToString Catch ex As Exception @@ -191,11 +195,12 @@ Public Class MyService If oDTEB.Rows.Count > 0 Then Create_EB_Report(oDocID.ToString, GeneratorID, oOutputfilename, OutputFolder, oReRun) Else - Logger.Warn($"No EB-Rows [{oSQL}]") + Logger.Warn($"DocID {oDocID} - No EB-Rows [{oSQL}]") Delete_EB2bCreated(oDocID) End If End If + Logger.Debug($"") Next End If End If @@ -308,31 +313,29 @@ Public Class MyService End If If Not IsNothing(oOriginFile) Then - If File.Exists(My.Settings.Path2PDFTK) Then - If Create_MyStempel(pDocID, GENID) = True Then - 'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report - Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID) + If Create_MyStempel(pDocID, GENID) = True Then + 'Jetzt Stempeln des OriginalBeleges mit dem Stamp-Report + Dim oStampedResult = CreateStampedPDF(oOriginFile, pDocID, GENID) - If oStampedResult <> "" Then - If Concat_Files(pDocID, oOriginFile, GENID, Outputfilename, OutputFolder, oStampedResult, MyFreigabebericht) = True Then - If pRerun = False Then - Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID,GEN_ID) VALUES ({Convert.ToInt64(pDocID)},'{GENID}')" - MyDatabase.ExecuteNonQuery(oInsert) - End If - - - Logger.Info($"#### Created Ergebnisbericht for DocID: {pDocID} - GENID: {GENID}! #####") + If oStampedResult <> "" Then + If Concat_Files(pDocID, oOriginFile, GENID, Outputfilename, OutputFolder, oStampedResult, MyFreigabebericht) = True Then + If pRerun = False Then + Dim oInsert = $"INSERT INTO TBCUST_PM_RPT_CREATED (DocID,GEN_ID) VALUES ({Convert.ToInt64(pDocID)},'{GENID}')" + MyDatabase.ExecuteNonQuery(oInsert) End If - Else - Logger.Info("ERROR: CreateStampedPDF = False or """) + + + Logger.Info($"#### Created Ergebnisbericht for DocID: {pDocID} - GENID: {GENID}! #####") End If Else - Logger.Warn("Create_MyStempel = False") - Delete_EB2bCreated(pDocID) + Logger.Info($"DocID: {pDocID} ERROR: CreateStampedPDF = False or """) End If + Else + Logger.Warn($"DocID: {pDocID} - Create_MyStempel = False") + Delete_EB2bCreated(pDocID) End If Else - Logger.Warn("OriginFile is nothing!!") + Logger.Warn($"DocID: {pDocID}OriginFile is nothing!!") End If Else Logger.Warn($"Error in Create_EB_Report for DocID: {pDocID} - GENID: {GENID} - ERROR: EB_Reportfile {oMyErgebnisbericht} is not existing!!") @@ -391,7 +394,7 @@ Public Class MyService MyStempel1 = oTempStempel End If - Logger.Info($"...Stampreport created for DocID: {pDocID} - GENID {GENID}!") + Logger.Info($"DocID: {pDocID} - Stampreport created for GENID {GENID}!") Return True Else If GENID = "02" Then @@ -411,7 +414,7 @@ Public Class MyService End Function Private Function CreateStampedPDF(oOriginFile As String, pDocID As Integer, GENID As String) Try - Logger.Info($"Trying to CreateStampedPDF for DocID: {pDocID} - GENID {GENID}...") + Logger.Info($"### DocID: {pDocID} - Trying to CreateStampedPDF - GENID {GENID}...") Dim MyLocalStempel As String If GENID = "01" Then MyLocalStempel = MyStempel1 @@ -426,17 +429,17 @@ Public Class MyService Dim oGdPictureImaging As New GdPictureImaging() 'Creating a new empty PDF document. If oGdPicturePDF.LoadFromFile(oOriginFile, False) = GdPictureStatus.OK Then - Logger.Debug($"{pDocID}..oGdPicturePDF Created") + Logger.Debug($"DocID: {pDocID} - ..oGdPicturePDF Created") Dim oYDistance = oGdPicturePDF.GetPageHeight 'Just to remind you that units are set to points and the origin is set to bottom left by default. 'Loading an image from a file. Dim imageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(MyLocalStempel) If oGdPictureImaging.GetStat() = GdPictureStatus.OK Then - Logger.Debug($"{pDocID}..GdPictureImaging.GetStat") + Logger.Debug($"DocID: {pDocID} ..GdPictureImaging.GetStat") 'Adding an image as a resource into the PDF document - we decided not to draw the image in this moment. Dim imageResName As String = oGdPicturePDF.AddImageFromGdPictureImage(imageID, False, False) - Logger.Debug($"{pDocID}..oGdPicturePDF.AddImageFromGdPictureImage") + Logger.Debug($"DocID: {pDocID} ..oGdPicturePDF.AddImageFromGdPictureImage") If System.IO.File.Exists(oStampedOriginWithPicture) Then System.IO.File.Delete(oStampedOriginWithPicture) End If @@ -446,8 +449,7 @@ Public Class MyService If (oGdPicturePDF.GetStat() <> GdPictureStatus.OK) OrElse (oGdPicturePDF.DrawImage(imageResName, My.Settings.XDistance, oYDistance, oGdPictureImaging.GetWidth(imageID) / 5, oGdPictureImaging.GetHeight(imageID) / 5) <> GdPictureStatus.OK) OrElse (oGdPicturePDF.SaveToFile(oStampedOriginWithPicture) <> GdPictureStatus.OK) Then - Logger.Warn("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString()) - 'MessageBox.Show("The example has NOT been followed successfully. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error) + Logger.Warn("Unexprecter Error while stamping. Invalid GDPictureState: " + oGdPicturePDF.GetStat().ToString()) Return "" End If Logger.Debug($"{pDocID}..oGdPicturePDF.SaveToFile") @@ -456,14 +458,14 @@ Public Class MyService Else - Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString()) + Logger.Warn($"The image [{MyLocalStempel}] can't be loaded. Invalid GDPictureState: " + oGdPictureImaging.GetStat().ToString()) Return "" - 'MessageBox.Show("The image can't be loaded. Error: " + oGdPictureImaging.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error) + End If oGdPicturePDF.CloseDocument() Else - Logger.Warn("The new PDF document can't be created. Error: " + oGdPicturePDF.GetStat().ToString()) - 'MessageBox.Show("The new PDF document can't be created. Error: " + oGdPicturePDF.GetStat().ToString(), "Adding an image Example", MessageBoxButtons.OK, MessageBoxIcon.Error) + Logger.Warn("The new PDF document can't be created. Invalid GDPictureState: " + oGdPicturePDF.GetStat().ToString()) + Return "" End If oGdPictureImaging.Dispose() @@ -474,12 +476,11 @@ Public Class MyService Dim oSuccess As Boolean = True sw.Start() Logger.Debug("Waiting for file: " & oStampedOriginWithPicture) - Do While File.Exists(oStampedOriginWithPicture) = False If sw.Elapsed.TotalSeconds = 30 Then - Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture) + Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting (30 sec) for file: " & oStampedOriginWithPicture) ElseIf sw.Elapsed.TotalMinutes = 1 Then - Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture) + Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting (60 sec) for file: " & oStampedOriginWithPicture) oSuccess = False Exit Do End If @@ -488,9 +489,9 @@ Public Class MyService sw.Stop() Try File.Delete(MyLocalStempel) - Logger.Debug($"Deleted StempelFile [{MyLocalStempel}]!") + Logger.Debug($"DocID: {pDocID} - Deleted StempelFile [{MyLocalStempel}]!") Catch ex As Exception - Logger.Warn($"Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}") + Logger.Warn($"DocID: {pDocID} - Could not delete reportfile {MyLocalStempel} after creating concatted file: {ex.Message}") End Try If oSuccess = True Then Return oStampedOriginWithPicture @@ -504,8 +505,65 @@ Public Class MyService End Try End Function - Private Function Concat_Files(DocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, MyOriginStamped As String, MyFreigabebericht As String) - Dim oConcatSuccessfull As Boolean = True + Private Function GDPIctureConcat2Files(pDocID As Int32, pFile1 As String, pFile2 As String, pDestination As String) As Boolean + Try + Dim oErrorOccured As Boolean = False + Dim arPDF As GdPicturePDF() = New GdPicturePDF(1) {} + arPDF(0) = New GdPicturePDF() + arPDF(1) = New GdPicturePDF() + If (arPDF(0).LoadFromFile(pFile1, False) = GdPictureStatus.OK) AndAlso + (arPDF(1).LoadFromFile(pFile2, False) = GdPictureStatus.OK) Then + Dim dstPDF As GdPicturePDF = arPDF(0).MergeDocuments(arPDF) + 'You can use also arPDF[1] or arPDF[2] object to call the MergeDocuments method. + Dim oStatusFile1 As GdPictureStatus = arPDF(0).GetStat() + Dim oStatusFile2 As GdPictureStatus = arPDF(1).GetStat() + If oStatusFile1 = GdPictureStatus.OK Then + If oStatusFile2 = GdPictureStatus.OK Then + Logger.Debug($"DocID: {pDocID} - Status of both documents is OK...Now Save2File") + If dstPDF.SaveToFile(pDestination) = GdPictureStatus.OK Then + Logger.Debug($"DocID: {pDocID} - Merged document has been successfully saved!") + dstPDF.CloseDocument() + Else + Logger.Warn($"DocID: {pDocID} - GDPictureState of ResultFile is not OK") + oErrorOccured = True + End If + Else + Logger.Warn($"DocID: {pDocID} - GDPictureState of File2 is not OK - InvalidStateID [{oStatusFile2.ToString}]") + oErrorOccured = True + End If + Else + Logger.Warn($"DocID: {pDocID} - GDPictureState of File1 is not OK - InvalidStateID [{oStatusFile1.ToString}]") + oErrorOccured = True + End If + dstPDF.Dispose() + arPDF(1).CloseDocument() + arPDF(0).CloseDocument() + Else + Logger.Warn($"DocID: {pDocID} - Loading of the source documents has failed") + Dim ostate As GdPictureStatus = arPDF(0).LoadFromFile(pFile1, False) + + Logger.Warn($" >> File1: {pFile1}") + Logger.Warn($" >> oFatalState File1: {ostate.ToString()}") + Logger.Warn($" >> File2: {pFile2}") + ostate = arPDF(1).LoadFromFile(pFile2, False) + Logger.Warn($" >> oFatalState File2: {ostate.ToString()}") + oErrorOccured = True + End If + arPDF(1).Dispose() + arPDF(0).Dispose() + If oErrorOccured = True Then + Return False + Else + Return True + End If + + Catch ex As Exception + Logger.Error(ex) + Return False + End Try + End Function + Private Function Concat_Files(pDocID As String, oOriginFile As String, GENID As String, Outputfilename As String, pOutputFolder As String, MyOriginStamped As String, MyFreigabebericht As String) + Dim oConcatSuccessfull As Boolean Dim MyFile2Concat As String Try If Outputfilename = "STANDARD" Then @@ -515,82 +573,111 @@ Public Class MyService pOutputFolder = My.Settings.Path_ConcattedFile End If MyFile2Concat = Path.Combine(pOutputFolder, Outputfilename) - If File.Exists(My.Settings.Path2PDFTK) Then - If File.Exists(MyFile2Concat) Then - Try - File.Delete(MyFile2Concat) - Catch ex As Exception - Logger.Warn($"Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}") - Return False - End Try - - End If + If File.Exists(MyFile2Concat) Then Try - Dim oPDFTKProcess As New Process - Dim ProcID - oPDFTKProcess.StartInfo.FileName = My.Settings.Path2PDFTK - oPDFTKProcess.StartInfo.CreateNoWindow = True - - Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """" - - oPDFTKProcess.StartInfo.Arguments = _argument & " cat output " & MyFile2Concat - Logger.Debug("Arguments: " & _argument & " cat output " & MyFile2Concat) - oPDFTKProcess.Start() - ProcID = oPDFTKProcess.Id - - Dim oProcID As Process - oProcID = Process.GetProcessById(ProcID) - - Dim sw As Stopwatch = New Stopwatch() - sw.Start() - - Do While oProcID.HasExited = False - - If sw.Elapsed.TotalSeconds = 30 Then - Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString) - ElseIf sw.Elapsed.TotalMinutes = 1 Then - Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now") - Exit Do - End If - Loop - Logger.Debug("...process has exited: ") - sw.Stop() - Logger.Debug("Waiting for file: " & MyFile2Concat) - sw.Start() - Do While File.Exists(MyFile2Concat) = False - If sw.Elapsed.TotalSeconds = 30 Then - Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & MyFile2Concat) - ElseIf sw.Elapsed.TotalMinutes = 1 Then - Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & MyFile2Concat) - oConcatSuccessfull = False - Exit Do - End If - - Loop - sw.Stop() - - Try - File.Delete(MyOriginStamped) - Logger.Debug($"Deleted file [{MyOriginStamped}]!") - File.Delete(MyFreigabebericht) - Logger.Debug($"Deleted file [{MyFreigabebericht}]!") - Catch ex As Exception - Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}") - End Try - Return oConcatSuccessfull - + File.Delete(MyFile2Concat) Catch ex As Exception - Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)") + Logger.Warn($"DocID: {pDocID} - Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}") Return False End Try - - Else - Logger.Warn("pdftk is not existing") - Return False End If - Catch ex As Exception + Threading.Thread.Sleep(500) + oConcatSuccessfull = GDPIctureConcat2Files(pDocID, MyOriginStamped, MyFreigabebericht, MyFile2Concat) + If oConcatSuccessfull Then + Try + File.Delete(MyOriginStamped) + Logger.Debug($"DocID: {pDocID} - Deleted file [{MyOriginStamped}]!") + File.Delete(MyFreigabebericht) + Logger.Debug($"DocID: {pDocID} - Deleted file [{MyFreigabebericht}]!") + Catch ex As Exception + Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}") + End Try + End If + Return oConcatSuccessfull + 'If File.Exists(My.Settings.Path2PDFTK) Then + ' If File.Exists(MyFile2Concat) Then + ' Try + ' File.Delete(MyFile2Concat) + ' Catch ex As Exception + ' Logger.Warn($"DocID: {pDocID} - Could not delete ConcattedFile {MyFile2Concat}: {ex.Message}") + ' Return False + ' End Try + + ' End If + ' Try + + + + ' Dim oPDFTKProcess As New Process + ' Dim ProcID + ' oPDFTKProcess.StartInfo.FileName = My.Settings.Path2PDFTK + ' oPDFTKProcess.StartInfo.CreateNoWindow = True + + ' Dim _argument As String = """" & MyOriginStamped & """" & " " & """" & MyFreigabebericht & """" 'XXXXX_CC_StampedOriginal mit YYYY_ERPT + + ' oPDFTKProcess.StartInfo.Arguments = _argument & " cat output " & MyFile2Concat + ' Logger.Debug($"DocID: {pDocID} - Arguments: " & _argument & " cat output " & MyFile2Concat) + ' 'Start der Verkettung Stempel mit Ergebnisbericht + ' oPDFTKProcess.Start() + ' ProcID = oPDFTKProcess.Id + + ' Dim oProcID As Process + ' oProcID = Process.GetProcessById(ProcID) + ' Threading.Thread.Sleep(1000) + ' Dim sw As Stopwatch = New Stopwatch() + ' sw.Start() + + ' Do While oProcID.HasExited = False + ' If sw.Elapsed.TotalSeconds = 30 Then + ' Logger.Info($"DocID: {pDocID} - Still waiting (30 sec) for ending of process-id: " & ProcID.ToString) + ' ElseIf sw.Elapsed.TotalSeconds = 60 Then + ' Logger.Info($"DocID: {pDocID} - Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now") + ' Exit Do + ' End If + ' Loop + ' Logger.Debug($"DocID: {pDocID} - ...process has exited: ") + ' Threading.Thread.Sleep(500) + ' sw.Stop() + ' Logger.Debug($"DocID: {pDocID} - Waiting for MyFile2Concat: " & MyFile2Concat) + + ' sw.Start() + ' Do While File.Exists(MyFile2Concat) = False + ' If sw.Elapsed.TotalSeconds = 30 Then + ' Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting for MyFile2Concat (30 sec) for file: " & MyFile2Concat) + ' ElseIf sw.Elapsed.TotalSeconds = 60 Then + ' Logger.Info($"DocID: {pDocID} - ATTENTION: Still waiting for MyFile2Concat (60 sec) for file: " & MyFile2Concat) + ' oConcatSuccessfull = False + ' Exit Do + ' End If + + ' Loop + ' sw.Stop() + + ' Try + ' File.Delete(MyOriginStamped) + ' Logger.Debug($"DocID: {pDocID} - Deleted file [{MyOriginStamped}]!") + ' File.Delete(MyFreigabebericht) + ' Logger.Debug($"DocID: {pDocID} - Deleted file [{MyFreigabebericht}]!") + ' Catch ex As Exception + ' Logger.Warn($"Could not delete reportfile after creating concatted file: {ex.Message}") + ' End Try + ' Return oConcatSuccessfull + + ' Catch ex As Exception + ' Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)") + ' Return False + ' End Try + + + 'Else + ' Logger.Warn("pdftk is not existing") + ' Return False + 'End If + Catch ex As Exception + Logger.Error(ex) + Return False End Try End Function Sub Delete_EB2bCreated(pDocID As Long) diff --git a/EB_Creator/EB_Creator/RptErgebnisbericht.Designer.vb b/EB_Creator/EB_Creator/RptErgebnisbericht.Designer.vb deleted file mode 100644 index cb754d7..0000000 --- a/EB_Creator/EB_Creator/RptErgebnisbericht.Designer.vb +++ /dev/null @@ -1,987 +0,0 @@ - _ -Partial Public Class RptErgebnisbericht - Inherits DevExpress.XtraReports.UI.XtraReport - - 'XtraReport overrides dispose to clean up the component list. - _ - 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. - _ - 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 = "" - 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 diff --git a/EB_Creator/EB_Creator/RptErgebnisbericht.resx b/EB_Creator/EB_Creator/RptErgebnisbericht.resx deleted file mode 100644 index d6f626a..0000000 --- a/EB_Creator/EB_Creator/RptErgebnisbericht.resx +++ /dev/null @@ -1,126 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 17, 17 - - - PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRQTV9VTklPTiI+PEZpZWxkIE5hbWU9Ikdyb3VwVHlwZUlEIiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iR3JvdXBUeXBlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkRPQ19JRCIgVHlwZT0iSW50NjQiIC8+PEZpZWxkIE5hbWU9IktyZWRpdG9yTnVtbWVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IktyZWRpdG9yTmFtZV9MYW5nIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IktyZWRpdG9yTmFtZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJSZWNobnVuZ05yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlJlZmVyZW56IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5ldHRvYmV0cmFnIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJydXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJaYWhsdW5nc3ppZWwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTWFuZGFudCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJNYW5kYW50IE5hbWUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS29zdGVuc3RlbGxlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVyaGFsdGVuIHdhbm4iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVsZWdkYXR1bSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJGR19FbWFpbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJGR19GcmVpZ2FiZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJGR19XYW5uIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IldITyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJXSEVOIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkRFTEVHQVRJT04iIFR5cGU9IlN0cmluZyIgLz48L1ZpZXc+PC9EYXRhU2V0Pg== - - \ No newline at end of file diff --git a/EB_Creator/EB_Creator/RptErgebnisbericht.vb b/EB_Creator/EB_Creator/RptErgebnisbericht.vb deleted file mode 100644 index 6950c27..0000000 --- a/EB_Creator/EB_Creator/RptErgebnisbericht.vb +++ /dev/null @@ -1,3 +0,0 @@ -Public Class RptErgebnisbericht - -End Class \ No newline at end of file diff --git a/EB_Creator/EB_Creator/packages.config b/EB_Creator/EB_Creator/packages.config new file mode 100644 index 0000000..8aee323 --- /dev/null +++ b/EB_Creator/EB_Creator/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/EB_Creator/My Project/Application.Designer.vb b/EB_Creator/My Project/Application.Designer.vb index 88dd01c..8ab460b 100644 --- a/EB_Creator/My Project/Application.Designer.vb +++ b/EB_Creator/My Project/Application.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ diff --git a/EB_Creator/My Project/Resources.Designer.vb b/EB_Creator/My Project/Resources.Designer.vb index ecf7da1..7b4a52f 100644 --- a/EB_Creator/My Project/Resources.Designer.vb +++ b/EB_Creator/My Project/Resources.Designer.vb @@ -1,40 +1,41 @@ '------------------------------------------------------------------------------ ' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 ' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On +Imports System Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' - _ + _ Friend Module Resources - + Private resourceMan As Global.System.Resources.ResourceManager - + Private resourceCulture As Global.System.Globalization.CultureInfo - + ''' - ''' Returns the cached ResourceManager instance used by this class. + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. ''' - _ + _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then @@ -44,17 +45,17 @@ Namespace My.Resources Return resourceMan End Get End Property - + ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. ''' - _ + _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get - Set(ByVal value As Global.System.Globalization.CultureInfo) + Set resourceCulture = value End Set End Property