From 9c80538fd8e8611c3e4bb4cd6d6e516ec5069752 Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 13 Dec 2022 15:46:27 +0100 Subject: [PATCH] MS New Report --- EB_Creator/EB_Creator.vbproj | 19 + .../EB_Creator/My Project/licenses.licx | 1 - .../EB_Creator/My Project/licenses.licx.bak | 2 +- EB_Creator/My Project/Settings.Designer.vb | 24 +- EB_Creator/My Project/Settings.settings | 16 +- EB_Creator/My Project/licenses.licx.bak | 2 +- EB_Creator/MyService.vb | 45 +- EB_Creator/SR_Kontierung.Designer.vb | 444 ++++++++++++++ EB_Creator/SR_Kontierung.resx | 142 +++++ EB_Creator/SR_Kontierung.vb | 3 + EB_Creator/XtraReportEB.Designer.vb | 87 ++- EB_Creator/XtraReportEB.resx | 2 +- EB_Creator/XtraReportSR.Designer.vb | 580 ++++++++++++++++++ EB_Creator/XtraReportSR.resx | 153 +++++ EB_Creator/XtraReportSR.vb | 3 + XtraReportSR.repx | 262 ++++++++ 16 files changed, 1708 insertions(+), 77 deletions(-) create mode 100644 EB_Creator/SR_Kontierung.Designer.vb create mode 100644 EB_Creator/SR_Kontierung.resx create mode 100644 EB_Creator/SR_Kontierung.vb create mode 100644 EB_Creator/XtraReportSR.Designer.vb create mode 100644 EB_Creator/XtraReportSR.resx create mode 100644 EB_Creator/XtraReportSR.vb create mode 100644 XtraReportSR.repx diff --git a/EB_Creator/EB_Creator.vbproj b/EB_Creator/EB_Creator.vbproj index 9bb3ae4..b3cc963 100644 --- a/EB_Creator/EB_Creator.vbproj +++ b/EB_Creator/EB_Creator.vbproj @@ -153,6 +153,18 @@ Component + + SR_Kontierung.vb + + + Component + + + XtraReportSR.vb + + + Component + XtraReportEB.vb @@ -180,6 +192,13 @@ RptErgebnisbericht.vb + + SR_Kontierung.vb + + + XtraReportSR.vb + Designer + XtraReportEB.vb Designer diff --git a/EB_Creator/EB_Creator/My Project/licenses.licx b/EB_Creator/EB_Creator/My Project/licenses.licx index a3683bf..e69de29 100644 --- a/EB_Creator/EB_Creator/My Project/licenses.licx +++ b/EB_Creator/EB_Creator/My Project/licenses.licx @@ -1 +0,0 @@ -DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EB_Creator/EB_Creator/My Project/licenses.licx.bak b/EB_Creator/EB_Creator/My Project/licenses.licx.bak index 06fe4a0..a3683bf 100644 --- a/EB_Creator/EB_Creator/My Project/licenses.licx.bak +++ b/EB_Creator/EB_Creator/My Project/licenses.licx.bak @@ -1 +1 @@ -DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EB_Creator/My Project/Settings.Designer.vb b/EB_Creator/My Project/Settings.Designer.vb index a3e7449..fe288bf 100644 --- a/EB_Creator/My Project/Settings.Designer.vb +++ b/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 - _ @@ -173,6 +162,17 @@ Namespace My Return CType(Me("WMDriveLetter"),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/My Project/Settings.settings b/EB_Creator/My Project/Settings.settings index 0489f77..54edc6c 100644 --- a/EB_Creator/My Project/Settings.settings +++ b/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 @@ -46,5 +38,13 @@ W + + <?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/My Project/licenses.licx.bak b/EB_Creator/My Project/licenses.licx.bak index 06fe4a0..a3683bf 100644 --- a/EB_Creator/My Project/licenses.licx.bak +++ b/EB_Creator/My Project/licenses.licx.bak @@ -1 +1 @@ -DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraReports.UI.XtraReport, DevExpress.XtraReports.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/EB_Creator/MyService.vb b/EB_Creator/MyService.vb index ab1a61f..3c17900 100644 --- a/EB_Creator/MyService.vb +++ b/EB_Creator/MyService.vb @@ -299,29 +299,58 @@ Public Class MyService Logger.Info($"#### Trying to Create_EB_Report (EB-Protokoll) for DocID: {pDocID} - GENID: {GENID}... ####") Dim errortext As String - + Dim oStep As String Try - Dim oReport As New XtraReportEB() + Dim oReport As New XtraReportSR() Dim oDatasource As SqlDataSource = oReport.DataSource 'Parameter für 1.Query Dim oSelectQuery As CustomSqlQuery = oDatasource.Queries(0) + '------- + If oSelectQuery.Parameters.Count = 1 Then + Logger.Debug($"Exactly [{oSelectQuery.Parameters.Count}] Parameter in Query 1!") + Else + Delete_EB2bCreated(pDocID) + Logger.Warn($"There is no parameter in Query 1 - Check the parameters for Query1") + DocID = 0 + Exit Sub + End If + '------- + Logger.Debug($"Now passing the value [{pDocID}] to parameter 0 of Query 1...") + oStep = $"Now passing the value [{pDocID}] to parameter 0 of Query 1..." Dim oParameter As QueryParameter = oSelectQuery.Parameters(0) oParameter.Value = pDocID + '--------- + Logger.Debug($"Parameter passed successfully!") + oStep = $"Parameter passed successfully!" + '--------- 'Parameter für 2.Query - Dim oSelectQuery2 As CustomSqlQuery = oDatasource.Queries(1) - Dim oParameter2 As QueryParameter = oSelectQuery2.Parameters(0) - oParameter2.Value = pDocID + ' Dim oSelectQuery2 As CustomSqlQuery = oDatasource.Queries(1) + ' Dim oParameter2 As QueryParameter = oSelectQuery2.Parameters(0) + ' oParameter2.Value = pDocID DocID = pDocID Try + 'Logger.Debug($"Now passing the value [{pDocID}] to parameter pDocID...") + '---------- + 'If oReport.Parameters.Count = 1 Then + 'Logger.Debug($"Exactly [{oReport.Parameters.Count}] Parameter!") + 'Else + 'Delete_EB2bCreated(pDocID) + 'Logger.Warn($"There is no parameter in Report - Check the parameters for pDocID-Parameter") + 'DocID = 0 + 'Exit Sub + 'End If + 'oReport.Parameters("pDocID").Value = pDocID + 'oReport.FilterString = oFilter + '---------- oReport.ReportPrintOptions.PrintOnEmptyDataSource = False - oReport.FilterString = "DocID = " + pDocID + oStep = $"Trying to create the report-document.." oReport.CreateDocument(False) - + Logger.Debug($"oReport successfully created!") Catch ex As Exception Delete_EB2bCreated(pDocID) - Logger.Warn($"Unexpected Error in Create_EB_Report Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}") + Logger.Warn($"Unexpected Error in Create_EB_Report - STEP: [{oStep}] - Create for DocID: {pDocID} - GENID: {GENID} - ERROR: {ex.Message}") DocID = 0 Exit Sub End Try diff --git a/EB_Creator/SR_Kontierung.Designer.vb b/EB_Creator/SR_Kontierung.Designer.vb new file mode 100644 index 0000000..b54fbfd --- /dev/null +++ b/EB_Creator/SR_Kontierung.Designer.vb @@ -0,0 +1,444 @@ + _ +Partial Public Class SR_Kontierung + 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 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(SR_Kontierung)) + Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand() + Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand() + Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand() + Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.Detail = New DevExpress.XtraReports.UI.DetailBand() + Me.label1 = New DevExpress.XtraReports.UI.XRLabel() + Me.table1 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow1 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell1 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell2 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell3 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell4 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell5 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell6 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell7 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell8 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell9 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell10 = New DevExpress.XtraReports.UI.XRTableCell() + Me.table2 = New DevExpress.XtraReports.UI.XRTable() + Me.tableRow2 = New DevExpress.XtraReports.UI.XRTableRow() + Me.tableCell11 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell12 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell13 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell14 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell15 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell16 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell17 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell18 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell19 = New DevExpress.XtraReports.UI.XRTableCell() + Me.tableCell20 = New DevExpress.XtraReports.UI.XRTableCell() + Me.SqlDataSource1 = New DevExpress.DataAccess.Sql.SqlDataSource(Me.components) + Me.Title = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailCaption1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData1 = New DevExpress.XtraReports.UI.XRControlStyle() + Me.DetailData3_Odd = New DevExpress.XtraReports.UI.XRControlStyle() + Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() + Me.pDocID = New DevExpress.XtraReports.Parameters.Parameter() + CType(Me.table1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'TopMargin + ' + Me.TopMargin.Dpi = 254.0! + Me.TopMargin.HeightF = 37.0! + Me.TopMargin.Name = "TopMargin" + ' + 'BottomMargin + ' + Me.BottomMargin.Dpi = 254.0! + Me.BottomMargin.HeightF = 44.0! + Me.BottomMargin.Name = "BottomMargin" + ' + 'ReportHeader + ' + Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.label1}) + Me.ReportHeader.Dpi = 254.0! + Me.ReportHeader.HeightF = 75.67085! + Me.ReportHeader.Name = "ReportHeader" + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table1}) + Me.GroupHeader1.Dpi = 254.0! + Me.GroupHeader1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail + Me.GroupHeader1.HeightF = 71.12! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.table2}) + Me.Detail.Dpi = 254.0! + Me.Detail.HeightF = 63.42! + Me.Detail.HierarchyPrintOptions.Indent = 50.8! + Me.Detail.Name = "Detail" + ' + 'label1 + ' + Me.label1.Dpi = 254.0! + Me.label1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.label1.Name = "label1" + Me.label1.SizeF = New System.Drawing.SizeF(1651.0!, 61.45361!) + Me.label1.StyleName = "Title" + Me.label1.Text = "Kontierung" + ' + 'table1 + ' + Me.table1.Dpi = 254.0! + Me.table1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table1.Name = "table1" + Me.table1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow1}) + Me.table1.SizeF = New System.Drawing.SizeF(1566.333!, 71.12!) + ' + 'tableRow1 + ' + Me.tableRow1.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell1, Me.tableCell2, Me.tableCell3, Me.tableCell4, Me.tableCell5, Me.tableCell6, Me.tableCell7, Me.tableCell8, Me.tableCell9, Me.tableCell10}) + Me.tableRow1.Dpi = 254.0! + Me.tableRow1.Name = "tableRow1" + Me.tableRow1.Weight = 1.0R + ' + 'tableCell1 + ' + Me.tableCell1.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell1.Dpi = 254.0! + Me.tableCell1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tableCell1.Name = "tableCell1" + Me.tableCell1.StyleName = "DetailCaption1" + Me.tableCell1.StylePriority.UseBorders = False + Me.tableCell1.StylePriority.UseFont = False + Me.tableCell1.Text = "Auftrag Nr" + Me.tableCell1.Weight = 0.077055441857228513R + ' + 'tableCell2 + ' + Me.tableCell2.Dpi = 254.0! + Me.tableCell2.Name = "tableCell2" + Me.tableCell2.StyleName = "DetailCaption1" + Me.tableCell2.Text = "Kst" + Me.tableCell2.Weight = 0.1207884274774077R + ' + 'tableCell3 + ' + Me.tableCell3.Dpi = 254.0! + Me.tableCell3.Name = "tableCell3" + Me.tableCell3.StyleName = "DetailCaption1" + Me.tableCell3.Text = "SaKo" & Global.Microsoft.VisualBasic.ChrW(9) + Me.tableCell3.Weight = 0.093966913252148315R + ' + 'tableCell4 + ' + Me.tableCell4.Dpi = 254.0! + Me.tableCell4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tableCell4.Name = "tableCell4" + Me.tableCell4.StyleName = "DetailCaption1" + Me.tableCell4.StylePriority.UseFont = False + Me.tableCell4.Text = "Lagerm." + Me.tableCell4.Weight = 0.11866798171898747R + ' + 'tableCell5 + ' + Me.tableCell5.Dpi = 254.0! + Me.tableCell5.Name = "tableCell5" + Me.tableCell5.StyleName = "DetailCaption1" + Me.tableCell5.Text = "Netto" & Global.Microsoft.VisualBasic.ChrW(9) + Me.tableCell5.Weight = 0.091773223583696245R + ' + 'tableCell6 + ' + Me.tableCell6.Dpi = 254.0! + Me.tableCell6.Name = "tableCell6" + Me.tableCell6.StyleName = "DetailCaption1" + Me.tableCell6.Text = "Steuer" + Me.tableCell6.Weight = 0.0806998311357751R + ' + 'tableCell7 + ' + Me.tableCell7.Dpi = 254.0! + Me.tableCell7.Name = "tableCell7" + Me.tableCell7.StyleName = "DetailCaption1" + Me.tableCell7.Text = "Brutto" + Me.tableCell7.Weight = 0.10157289691477052R + ' + 'tableCell8 + ' + Me.tableCell8.Dpi = 254.0! + Me.tableCell8.Name = "tableCell8" + Me.tableCell8.StyleName = "DetailCaption1" + Me.tableCell8.Text = "GB" + Me.tableCell8.Weight = 0.12828880857567673R + ' + 'tableCell9 + ' + Me.tableCell9.Dpi = 254.0! + Me.tableCell9.Name = "tableCell9" + Me.tableCell9.StyleName = "DetailCaption1" + Me.tableCell9.Text = "S/H" + Me.tableCell9.Weight = 0.054002329496317433R + ' + 'tableCell10 + ' + Me.tableCell10.Dpi = 254.0! + Me.tableCell10.Name = "tableCell10" + Me.tableCell10.StyleName = "DetailCaption1" + Me.tableCell10.Text = "Option" + Me.tableCell10.Weight = 0.081902193881317642R + ' + 'table2 + ' + Me.table2.Dpi = 254.0! + Me.table2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.table2.Name = "table2" + Me.table2.OddStyleName = "DetailData3_Odd" + Me.table2.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.tableRow2}) + Me.table2.SizeF = New System.Drawing.SizeF(1566.333!, 63.42!) + ' + 'tableRow2 + ' + Me.tableRow2.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell11, Me.tableCell12, Me.tableCell13, Me.tableCell14, Me.tableCell15, Me.tableCell16, Me.tableCell17, Me.tableCell18, Me.tableCell19, Me.tableCell20}) + Me.tableRow2.Dpi = 254.0! + Me.tableRow2.Name = "tableRow2" + Me.tableRow2.Weight = 11.683999633789062R + ' + 'tableCell11 + ' + Me.tableCell11.Borders = DevExpress.XtraPrinting.BorderSide.None + Me.tableCell11.Dpi = 254.0! + Me.tableCell11.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[AuftragNr]")}) + Me.tableCell11.Name = "tableCell11" + Me.tableCell11.StyleName = "DetailData1" + Me.tableCell11.StylePriority.UseBorders = False + Me.tableCell11.Weight = 0.077055433214929928R + ' + 'tableCell12 + ' + Me.tableCell12.Dpi = 254.0! + Me.tableCell12.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Kostenstelle]")}) + Me.tableCell12.Name = "tableCell12" + Me.tableCell12.StyleName = "DetailData1" + Me.tableCell12.Weight = 0.120788417635407R + ' + 'tableCell13 + ' + Me.tableCell13.Dpi = 254.0! + Me.tableCell13.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Sachkonto]")}) + Me.tableCell13.Name = "tableCell13" + Me.tableCell13.StyleName = "DetailData1" + Me.tableCell13.Weight = 0.093966904009998672R + ' + 'tableCell14 + ' + Me.tableCell14.Dpi = 254.0! + Me.tableCell14.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Lagermaterial]")}) + Me.tableCell14.Name = "tableCell14" + Me.tableCell14.StyleName = "DetailData1" + Me.tableCell14.Weight = 0.11866791689063756R + ' + 'tableCell15 + ' + Me.tableCell15.Dpi = 254.0! + Me.tableCell15.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Nettobetrag]")}) + Me.tableCell15.Name = "tableCell15" + Me.tableCell15.StyleName = "DetailData1" + Me.tableCell15.Weight = 0.091773288678645246R + ' + 'tableCell16 + ' + Me.tableCell16.Dpi = 254.0! + Me.tableCell16.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Steuerschlüssel]")}) + Me.tableCell16.Name = "tableCell16" + Me.tableCell16.StyleName = "DetailData1" + Me.tableCell16.Weight = 0.080699833268583571R + ' + 'tableCell17 + ' + Me.tableCell17.Dpi = 254.0! + Me.tableCell17.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Bruttobetrag]")}) + Me.tableCell17.Name = "tableCell17" + Me.tableCell17.StyleName = "DetailData1" + Me.tableCell17.Weight = 0.10157285097062166R + ' + 'tableCell18 + ' + Me.tableCell18.Dpi = 254.0! + Me.tableCell18.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Geschäftsbereich]")}) + Me.tableCell18.Name = "tableCell18" + Me.tableCell18.StyleName = "DetailData1" + Me.tableCell18.Weight = 0.12828895704992488R + ' + 'tableCell19 + ' + Me.tableCell19.Dpi = 254.0! + Me.tableCell19.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[S/H]")}) + Me.tableCell19.Name = "tableCell19" + Me.tableCell19.StyleName = "DetailData1" + Me.tableCell19.Weight = 0.05400217653429254R + ' + 'tableCell20 + ' + Me.tableCell20.Dpi = 254.0! + Me.tableCell20.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Option]")}) + Me.tableCell20.Name = "tableCell20" + Me.tableCell20.StyleName = "DetailData1" + Me.tableCell20.Weight = 0.081902230183414R + ' + 'SqlDataSource1 + ' + Me.SqlDataSource1.ConnectionName = "EB_Creator.My.MySettings.MyConnectionString" + Me.SqlDataSource1.Name = "SqlDataSource1" + CustomSqlQuery1.Name = "VWCUST_RPT_EB_POS_KONTIERUNG" + QueryParameter1.Name = "pDocID" + QueryParameter1.Type = GetType(Integer) + QueryParameter1.ValueInfo = "4712" + CustomSqlQuery1.Parameters.AddRange(New DevExpress.DataAccess.Sql.QueryParameter() {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("Arial", 14.25!) + 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" + Me.Title.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + ' + 'DetailCaption1 + ' + Me.DetailCaption1.BackColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.DetailCaption1.BorderColor = System.Drawing.Color.White + Me.DetailCaption1.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailCaption1.BorderWidth = 2.0! + Me.DetailCaption1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold) + Me.DetailCaption1.ForeColor = System.Drawing.Color.White + Me.DetailCaption1.Name = "DetailCaption1" + Me.DetailCaption1.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.DetailCaption1.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'DetailData1 + ' + Me.DetailData1.BorderColor = System.Drawing.Color.Transparent + Me.DetailData1.Borders = DevExpress.XtraPrinting.BorderSide.Left + Me.DetailData1.BorderWidth = 2.0! + Me.DetailData1.Font = New System.Drawing.Font("Arial", 8.25!) + Me.DetailData1.ForeColor = System.Drawing.Color.Black + Me.DetailData1.Name = "DetailData1" + Me.DetailData1.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.DetailData1.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("Arial", 8.25!) + Me.DetailData3_Odd.ForeColor = System.Drawing.Color.Black + Me.DetailData3_Odd.Name = "DetailData3_Odd" + Me.DetailData3_Odd.Padding = New DevExpress.XtraPrinting.PaddingInfo(15, 15, 0, 0, 254.0!) + Me.DetailData3_Odd.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft + ' + 'PageInfo + ' + Me.PageInfo.Font = New System.Drawing.Font("Arial", 8.25!, 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(15, 15, 0, 0, 254.0!) + ' + 'pDocID + ' + Me.pDocID.Description = "Parameter1" + Me.pDocID.Name = "pDocID" + Me.pDocID.Type = GetType(Integer) + Me.pDocID.ValueInfo = "0" + Me.pDocID.Visible = False + ' + 'SR_Kontierung + ' + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.ReportHeader, Me.GroupHeader1, Me.Detail}) + Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1}) + Me.DataMember = "VWCUST_RPT_EB_POS_KONTIERUNG" + Me.DataSource = Me.SqlDataSource1 + Me.Dpi = 254.0! + Me.FilterString = "[DocID] = ?pDocID" + Me.Font = New System.Drawing.Font("Arial", 9.75!) + Me.Margins = New System.Drawing.Printing.Margins(254, 320, 37, 44) + Me.PageHeight = 2794 + Me.PageWidth = 2159 + Me.Parameters.AddRange(New DevExpress.XtraReports.Parameters.Parameter() {Me.pDocID}) + Me.ReportUnit = DevExpress.XtraReports.UI.ReportUnit.TenthsOfAMillimeter + Me.SnapGridSize = 25.0! + Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.DetailCaption1, Me.DetailData1, Me.DetailData3_Odd, Me.PageInfo}) + Me.Version = "21.2" + CType(Me.table1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.table2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + + Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand + Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand + Friend WithEvents ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand + Friend WithEvents label1 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents table1 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow1 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell1 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell2 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell3 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell4 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell5 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell6 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell7 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell8 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell9 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell10 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand + Friend WithEvents table2 As DevExpress.XtraReports.UI.XRTable + Friend WithEvents tableRow2 As DevExpress.XtraReports.UI.XRTableRow + Friend WithEvents tableCell11 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell12 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell13 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell14 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell15 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell16 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell17 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell18 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell19 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents tableCell20 As DevExpress.XtraReports.UI.XRTableCell + Friend WithEvents SqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource + Friend WithEvents Title As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailCaption1 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData1 As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents DetailData3_Odd As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents PageInfo As DevExpress.XtraReports.UI.XRControlStyle + Friend WithEvents pDocID As DevExpress.XtraReports.Parameters.Parameter +End Class diff --git a/EB_Creator/SR_Kontierung.resx b/EB_Creator/SR_Kontierung.resx new file mode 100644 index 0000000..fab5e12 --- /dev/null +++ b/EB_Creator/SR_Kontierung.resx @@ -0,0 +1,142 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + select "VWCUST_RPT_EB_POS_KONTIERUNG"."DocID", + "VWCUST_RPT_EB_POS_KONTIERUNG"."dwRow", + "VWCUST_RPT_EB_POS_KONTIERUNG"."AuftragNr", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Kostenstelle", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Sachkonto", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Lagermaterial", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Nettobetrag", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Steuerschlüssel", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Bruttobetrag", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Geschäftsbereich", + "VWCUST_RPT_EB_POS_KONTIERUNG"."S/H", + "VWCUST_RPT_EB_POS_KONTIERUNG"."Option" + from "dbo"."VWCUST_RPT_EB_POS_KONTIERUNG" + "VWCUST_RPT_EB_POS_KONTIERUNG" ORDER BY "VWCUST_RPT_EB_POS_KONTIERUNG"."dwRow" + + + PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRfRUJfUE9TX0tPTlRJRVJVTkciPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9ImR3Um93IiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iQXVmdHJhZ05yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Iktvc3RlbnN0ZWxsZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJTYWNoa29udG8iIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTGFnZXJtYXRlcmlhbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOZXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJTdGV1ZXJzY2hsw7xzc2VsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJydXR0b2JldHJhZyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJHZXNjaMOkZnRzYmVyZWljaCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJTL0giIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iT3B0aW9uIiBUeXBlPSJTdHJpbmciIC8+PC9WaWV3PjwvRGF0YVNldD4= + + \ No newline at end of file diff --git a/EB_Creator/SR_Kontierung.vb b/EB_Creator/SR_Kontierung.vb new file mode 100644 index 0000000..754e190 --- /dev/null +++ b/EB_Creator/SR_Kontierung.vb @@ -0,0 +1,3 @@ +Public Class SR_Kontierung + +End Class \ No newline at end of file diff --git a/EB_Creator/XtraReportEB.Designer.vb b/EB_Creator/XtraReportEB.Designer.vb index 80ec795..48e9ab9 100644 --- a/EB_Creator/XtraReportEB.Designer.vb +++ b/EB_Creator/XtraReportEB.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Public Class XtraReportEB 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() @@ -17,7 +17,7 @@ Partial Public Class XtraReportEB '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 CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery() @@ -92,10 +92,9 @@ Partial Public Class XtraReportEB Me.XrTableCell25 = New DevExpress.XtraReports.UI.XRTableCell() Me.XrTableCell26 = New DevExpress.XtraReports.UI.XRTableCell() Me.XrLabel8 = New DevExpress.XtraReports.UI.XRLabel() - Me.DetailReport = New DevExpress.XtraReports.UI.DetailReportBand() - Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand() - Me.ReportHeader = New DevExpress.XtraReports.UI.ReportHeaderBand() Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.DetailReport1 = New DevExpress.XtraReports.UI.DetailReportBand() + Me.Detail2 = New DevExpress.XtraReports.UI.DetailBand() CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XrTable4, System.ComponentModel.ISupportInitialize).BeginInit() @@ -316,11 +315,11 @@ Partial Public Class XtraReportEB ' 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.LocationFloat = New DevExpress.Utils.PointFloat(404.8183!, 44.75002!) Me.XrLabel4.Multiline = True Me.XrLabel4.Name = "XrLabel4" Me.XrLabel4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel4.SizeF = New System.Drawing.SizeF(100.0!, 23.0!) + Me.XrLabel4.SizeF = New System.Drawing.SizeF(212.1818!, 23.0!) Me.XrLabel4.StylePriority.UseFont = False Me.XrLabel4.Text = "XrLabel4" ' @@ -449,7 +448,8 @@ Partial Public Class XtraReportEB QueryParameter2.Type = GetType(Long) QueryParameter2.ValueInfo = "4711" CustomSqlQuery2.Parameters.AddRange(New DevExpress.DataAccess.Sql.QueryParameter() {QueryParameter2}) - CustomSqlQuery2.Sql = "select * FROM VWCUST_RPT_EB_POS_KONTIERUNG WHERE DocID = @pDocID" + CustomSqlQuery2.Sql = "select * FROM VWCUST_RPT_EB_POS_KONTIERUNG " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE DocID = @pDocID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY dwRo" & + "w" Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1, CustomSqlQuery2}) Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable") ' @@ -511,20 +511,20 @@ Partial Public Class XtraReportEB ' 'ReportFooter ' - Me.ReportFooter.HeightF = 106.6664! + Me.ReportFooter.HeightF = 8.999888! Me.ReportFooter.Name = "ReportFooter" ' 'XrLine2 ' Me.XrLine2.LineWidth = 3.0! - Me.XrLine2.LocationFloat = New DevExpress.Utils.PointFloat(11.99996!, 0!) + Me.XrLine2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) Me.XrLine2.Name = "XrLine2" Me.XrLine2.SizeF = New System.Drawing.SizeF(611.0001!, 12.5!) ' 'XrLabel25 ' Me.XrLabel25.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel25.LocationFloat = New DevExpress.Utils.PointFloat(571.4545!, 35.5!) + Me.XrLabel25.LocationFloat = New DevExpress.Utils.PointFloat(571.4543!, 43.00002!) Me.XrLabel25.Multiline = True Me.XrLabel25.Name = "XrLabel25" Me.XrLabel25.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -535,7 +535,7 @@ Partial Public Class XtraReportEB 'XrLabel24 ' Me.XrLabel24.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel24.LocationFloat = New DevExpress.Utils.PointFloat(515.9092!, 35.5!) + Me.XrLabel24.LocationFloat = New DevExpress.Utils.PointFloat(515.9091!, 43.00002!) Me.XrLabel24.Multiline = True Me.XrLabel24.Name = "XrLabel24" Me.XrLabel24.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -546,7 +546,7 @@ Partial Public Class XtraReportEB 'XrLabel23 ' Me.XrLabel23.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel23.LocationFloat = New DevExpress.Utils.PointFloat(460.3638!, 35.5!) + Me.XrLabel23.LocationFloat = New DevExpress.Utils.PointFloat(460.3637!, 43.00002!) Me.XrLabel23.Multiline = True Me.XrLabel23.Name = "XrLabel23" Me.XrLabel23.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -557,7 +557,7 @@ Partial Public Class XtraReportEB 'XrLabel22 ' Me.XrLabel22.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel22.LocationFloat = New DevExpress.Utils.PointFloat(404.8184!, 35.5!) + Me.XrLabel22.LocationFloat = New DevExpress.Utils.PointFloat(404.8182!, 43.00002!) Me.XrLabel22.Multiline = True Me.XrLabel22.Name = "XrLabel22" Me.XrLabel22.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -568,7 +568,7 @@ Partial Public Class XtraReportEB '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(349.2729!, 35.5!) + Me.XrLabel20.LocationFloat = New DevExpress.Utils.PointFloat(349.2727!, 43.00002!) Me.XrLabel20.Multiline = True Me.XrLabel20.Name = "XrLabel20" Me.XrLabel20.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -579,7 +579,7 @@ Partial Public Class XtraReportEB '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(293.7275!, 35.5!) + Me.XrLabel17.LocationFloat = New DevExpress.Utils.PointFloat(293.7273!, 43.00002!) Me.XrLabel17.Multiline = True Me.XrLabel17.Name = "XrLabel17" Me.XrLabel17.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -590,7 +590,7 @@ Partial Public Class XtraReportEB '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(238.1821!, 35.5!) + Me.XrLabel15.LocationFloat = New DevExpress.Utils.PointFloat(238.1819!, 43.00002!) Me.XrLabel15.Multiline = True Me.XrLabel15.Name = "XrLabel15" Me.XrLabel15.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -601,7 +601,7 @@ Partial Public Class XtraReportEB '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(182.6366!, 35.5!) + Me.XrLabel14.LocationFloat = New DevExpress.Utils.PointFloat(182.6364!, 43.00002!) Me.XrLabel14.Multiline = True Me.XrLabel14.Name = "XrLabel14" Me.XrLabel14.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -612,7 +612,7 @@ Partial Public Class XtraReportEB '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(127.0912!, 35.5!) + Me.XrLabel11.LocationFloat = New DevExpress.Utils.PointFloat(127.091!, 43.00002!) Me.XrLabel11.Multiline = True Me.XrLabel11.Name = "XrLabel11" Me.XrLabel11.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -623,7 +623,7 @@ Partial Public Class XtraReportEB 'XrLabel6 ' 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(85.50108!, 35.5!) + Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(85.50094!, 43.00002!) Me.XrLabel6.Multiline = True Me.XrLabel6.Name = "XrLabel6" Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -634,7 +634,7 @@ Partial Public Class XtraReportEB 'XrLabel5 ' 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(16.00037!, 35.5!) + Me.XrLabel5.LocationFloat = New DevExpress.Utils.PointFloat(16.00021!, 43.00002!) Me.XrLabel5.Multiline = True Me.XrLabel5.Name = "XrLabel5" Me.XrLabel5.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -645,7 +645,7 @@ Partial Public Class XtraReportEB 'XrTable4 ' Me.XrTable4.Font = New System.Drawing.Font("Arial", 9.75!) - Me.XrTable4.LocationFloat = New DevExpress.Utils.PointFloat(16.00021!, 9.999974!) + Me.XrTable4.LocationFloat = New DevExpress.Utils.PointFloat(16.00037!, 4.333279!) Me.XrTable4.Name = "XrTable4" Me.XrTable4.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96.0!) Me.XrTable4.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow4}) @@ -763,7 +763,7 @@ Partial Public Class XtraReportEB 'XrLabel8 ' 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(16.00037!, 12.5!) + Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(16.00021!, 20.00001!) Me.XrLabel8.Multiline = True Me.XrLabel8.Name = "XrLabel8" Me.XrLabel8.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) @@ -771,32 +771,30 @@ Partial Public Class XtraReportEB Me.XrLabel8.StylePriority.UseFont = False Me.XrLabel8.Text = "Kontierung" ' - 'DetailReport - ' - Me.DetailReport.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail1, Me.ReportHeader}) - Me.DetailReport.Level = 0 - Me.DetailReport.Name = "DetailReport" - ' - 'Detail1 + 'GroupHeader1 ' - Me.Detail1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable4}) - Me.Detail1.HeightF = 50.08335! - Me.Detail1.Name = "Detail1" + Me.GroupHeader1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLine2, Me.XrLabel25, Me.XrLabel24, Me.XrLabel23, Me.XrLabel22, Me.XrLabel20, Me.XrLabel17, Me.XrLabel15, Me.XrLabel14, Me.XrLabel11, Me.XrLabel6, Me.XrLabel5, Me.XrLabel8}) + Me.GroupHeader1.HeightF = 69.16666! + Me.GroupHeader1.KeepTogether = True + Me.GroupHeader1.Level = 1 + Me.GroupHeader1.Name = "GroupHeader1" ' - 'ReportHeader + 'DetailReport1 ' - Me.ReportHeader.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLine2, Me.XrLabel25, Me.XrLabel24, Me.XrLabel23, Me.XrLabel22, Me.XrLabel20, Me.XrLabel17, Me.XrLabel15, Me.XrLabel14, Me.XrLabel11, Me.XrLabel6, Me.XrLabel5, Me.XrLabel8}) - Me.ReportHeader.HeightF = 58.5! - Me.ReportHeader.Name = "ReportHeader" + Me.DetailReport1.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail2}) + Me.DetailReport1.Level = 0 + Me.DetailReport1.Name = "DetailReport1" ' - 'GroupHeader1 + 'Detail2 ' - Me.GroupHeader1.Level = 1 - Me.GroupHeader1.Name = "GroupHeader1" + Me.Detail2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrTable4}) + Me.Detail2.HeightF = 34.12482! + Me.Detail2.KeepTogether = True + Me.Detail2.Name = "Detail2" ' 'XtraReportEB ' - Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.ReportFooter, Me.DetailReport, Me.GroupHeader1}) + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.ReportFooter, Me.GroupHeader1, Me.DetailReport1}) Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1}) Me.DataMember = "VWCUST_RPTERGEBNISBERICHT" Me.DataSource = Me.SqlDataSource1 @@ -880,8 +878,7 @@ Partial Public Class XtraReportEB Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel6 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel5 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents DetailReport As DevExpress.XtraReports.UI.DetailReportBand - Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand - Friend WithEvents ReportHeader As DevExpress.XtraReports.UI.ReportHeaderBand Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents DetailReport1 As DevExpress.XtraReports.UI.DetailReportBand + Friend WithEvents Detail2 As DevExpress.XtraReports.UI.DetailBand End Class diff --git a/EB_Creator/XtraReportEB.resx b/EB_Creator/XtraReportEB.resx index f5454b7..530cbf0 100644 --- a/EB_Creator/XtraReportEB.resx +++ b/EB_Creator/XtraReportEB.resx @@ -146,6 +146,6 @@ from "dbo"."VWCUST_RPTERGEBNISBERICHT" "VWCUST_RPTERGEBNISBERICHT" where "VWCUST_RPTERGEBNISBERICHT"."DocID" = @pDocID ORDER BY wannPos desc - PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRFUkdFQk5JU0JFUklDSFQiPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50NjQiIC8+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IkRhdGVUaW1lIiAvPjxGaWVsZCBOYW1lPSJCZWxlZ2RhdHVtIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOdW1tZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lX0xhbmciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlJlY2hudW5nTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVmZXJlbnoiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTmV0dG9iZXRyYWciIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iQnJ1dHRvYmV0cmFnIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlphaGx1bmdzemllbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJNYW5kYW50IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQgTmFtZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLb3N0ZW5zdGVsbGUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVzdGVsbE5yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkFic2VuZGVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZpbmFsZXIgRnJlaWdlYmVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlByb3plc3NzY2hyaXR0IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkR1cmNoIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlN0YXR1c19DaGFuZ2UiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0id2FublBvcyIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IktvbW1lbnRhciIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48VmlldyBOYW1lPSJWV0NVU1RfUlBUX0VCX1BPU19LT05USUVSVU5HIj48RmllbGQgTmFtZT0iRG9jSUQiIFR5cGU9IkludDMyIiAvPjxGaWVsZCBOYW1lPSJBdWZ0cmFnTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS29zdGVuc3RlbGxlIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlNhY2hrb250byIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMYWdlcm1hdGVyaWFsIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5ldHRvYmV0cmFnIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlN0ZXVlcnNjaGzDvHNzZWwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQnJ1dHRvYmV0cmFnIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ikdlc2Now6RmdHNiZXJlaWNoIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlMvSCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJPcHRpb24iIFR5cGU9IlN0cmluZyIgLz48L1ZpZXc+PC9EYXRhU2V0Pg== + PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRFUkdFQk5JU0JFUklDSFQiPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50NjQiIC8+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IkRhdGVUaW1lIiAvPjxGaWVsZCBOYW1lPSJCZWxlZ2RhdHVtIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOdW1tZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lX0xhbmciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlJlY2hudW5nTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVmZXJlbnoiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTmV0dG9iZXRyYWciIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iQnJ1dHRvYmV0cmFnIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlphaGx1bmdzemllbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJNYW5kYW50IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQgTmFtZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLb3N0ZW5zdGVsbGUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVzdGVsbE5yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkFic2VuZGVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZpbmFsZXIgRnJlaWdlYmVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlByb3plc3NzY2hyaXR0IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkR1cmNoIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlN0YXR1c19DaGFuZ2UiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0id2FublBvcyIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IktvbW1lbnRhciIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48VmlldyBOYW1lPSJWV0NVU1RfUlBUX0VCX1BPU19LT05USUVSVU5HIj48RmllbGQgTmFtZT0iRG9jSUQiIFR5cGU9IkludDMyIiAvPjxGaWVsZCBOYW1lPSJkd1JvdyIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkF1ZnRyYWdOciIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLb3N0ZW5zdGVsbGUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU2FjaGtvbnRvIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkxhZ2VybWF0ZXJpYWwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTmV0dG9iZXRyYWciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU3RldWVyc2NobMO8c3NlbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCcnV0dG9iZXRyYWciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iR2VzY2jDpGZ0c2JlcmVpY2giIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUy9IIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik9wdGlvbiIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48L0RhdGFTZXQ+ \ No newline at end of file diff --git a/EB_Creator/XtraReportSR.Designer.vb b/EB_Creator/XtraReportSR.Designer.vb new file mode 100644 index 0000000..33d775d --- /dev/null +++ b/EB_Creator/XtraReportSR.Designer.vb @@ -0,0 +1,580 @@ + +Partial Public Class XtraReportSR + 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 CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery() + Dim QueryParameter1 As DevExpress.DataAccess.Sql.QueryParameter = New DevExpress.DataAccess.Sql.QueryParameter() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XtraReportSR)) + Dim MasterDetailInfo1 As DevExpress.DataAccess.Sql.MasterDetailInfo = New DevExpress.DataAccess.Sql.MasterDetailInfo() + Dim RelationColumnInfo1 As DevExpress.DataAccess.Sql.RelationColumnInfo = New DevExpress.DataAccess.Sql.RelationColumnInfo() + 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.XrLabel19 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel18 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel13 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel12 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel10 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel9 = 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() + Me.ReportFooter = New DevExpress.XtraReports.UI.ReportFooterBand() + Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand() + Me.XrSubreport1 = New DevExpress.XtraReports.UI.XRSubreport() + CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit() + 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 = 34.12501! + 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(6.000019!, 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(617.0001!, 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.36883980402662669R + ' + '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.15484021247448515R + ' + '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.18520182436967306R + ' + '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.17599441387688758R + ' + '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.XrLabel19, Me.XrLabel18, Me.XrLabel16, Me.XrLabel13, Me.XrLabel12, Me.XrLabel10, Me.XrLabel9, Me.XrLabel4, Me.XrLabel3, Me.XrLabel2, Me.XrLabel1}) + Me.ReportHeaderBand1.HeightF = 225.625! + Me.ReportHeaderBand1.Name = "ReportHeaderBand1" + ' + 'XrLabel21 + ' + Me.XrLabel21.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XrLabel21.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 193.75!) + 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(0!, 181.25!) + Me.XrLine1.Name = "XrLine1" + Me.XrLine1.SizeF = New System.Drawing.SizeF(611.0001!, 12.5!) + ' + '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!, 146.75!) + 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!, 113.5!) + 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:" + ' + '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:" + ' + '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:" + ' + '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.104!, 146.75!) + 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!, 113.5!) + 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" + ' + 'XrLabel4 + ' + Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[RechnungNr]")}) + Me.XrLabel4.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(404.8183!, 44.75002!) + Me.XrLabel4.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(212.1818!, 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 e-invoice Portal Stadtwerke Bebra" + ' + '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(0!, 0!) + Me.XrPanel1.Name = "XrPanel1" + Me.XrPanel1.SizeF = New System.Drawing.SizeF(623.0001!, 48.0!) + Me.XrPanel1.StyleName = "DetailCaptionBackground3" + ' + 'XrTable1 + ' + Me.XrTable1.LocationFloat = New DevExpress.Utils.PointFloat(6.000019!, 9.999974!) + Me.XrTable1.Name = "XrTable1" + Me.XrTable1.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {Me.XrTableRow1}) + Me.XrTable1.SizeF = New System.Drawing.SizeF(604.9999!, 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.BackColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.XrTableCell18.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XrTableCell18.ForeColor = System.Drawing.Color.White + 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.UseBackColor = False + Me.XrTableCell18.StylePriority.UseFont = False + Me.XrTableCell18.StylePriority.UseForeColor = False + Me.XrTableCell18.Text = "Prozessschritt" + Me.XrTableCell18.Weight = 0.34489356192411658R + ' + 'XrTableCell19 + ' + Me.XrTableCell19.BackColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.XrTableCell19.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XrTableCell19.ForeColor = System.Drawing.Color.White + 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.UseBackColor = False + Me.XrTableCell19.StylePriority.UseFont = False + Me.XrTableCell19.StylePriority.UseForeColor = False + Me.XrTableCell19.Text = "Durch" + Me.XrTableCell19.Weight = 0.14824607404881662R + ' + 'XrTableCell20 + ' + Me.XrTableCell20.BackColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.XrTableCell20.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XrTableCell20.ForeColor = System.Drawing.Color.White + 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.UseBackColor = False + Me.XrTableCell20.StylePriority.UseFont = False + Me.XrTableCell20.StylePriority.UseForeColor = False + Me.XrTableCell20.Text = "Status" + Me.XrTableCell20.Weight = 0.17731480200580721R + ' + 'XrTableCell21 + ' + Me.XrTableCell21.BackColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) + Me.XrTableCell21.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XrTableCell21.ForeColor = System.Drawing.Color.White + 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.UseBackColor = False + Me.XrTableCell21.StylePriority.UseFont = False + Me.XrTableCell21.StylePriority.UseForeColor = False + Me.XrTableCell21.Text = "Datum" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Uhrzeit" + Me.XrTableCell21.Weight = 0.16026069254273917R + ' + 'SqlDataSource1 + ' + Me.SqlDataSource1.ConnectionName = "EB_Creator.My.MySettings.MyConnectionString" + Me.SqlDataSource1.Name = "SqlDataSource1" + CustomSqlQuery1.MetaSerializable = "" + CustomSqlQuery1.Name = "VWCUST_RPTERGEBNISBERICHT" + QueryParameter1.Name = "pDocID" + QueryParameter1.Type = GetType(Integer) + QueryParameter1.ValueInfo = "4711" + CustomSqlQuery1.Parameters.AddRange(New DevExpress.DataAccess.Sql.QueryParameter() {QueryParameter1}) + CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql") + Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1}) + MasterDetailInfo1.DetailQueryName = "VWCUST_RPT_EB_POS_KONTIERUNG" + RelationColumnInfo1.NestedKeyColumn = "DocID" + RelationColumnInfo1.ParentKeyColumn = "DocID" + MasterDetailInfo1.KeyColumns.Add(RelationColumnInfo1) + MasterDetailInfo1.MasterQueryName = "VWCUST_RPTERGEBNISBERICHT" + Me.SqlDataSource1.Relations.AddRange(New DevExpress.DataAccess.Sql.MasterDetailInfo() {MasterDetailInfo1}) + 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!) + ' + 'ReportFooter + ' + Me.ReportFooter.HeightF = 8.999888! + Me.ReportFooter.Name = "ReportFooter" + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrSubreport1}) + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'XrSubreport1 + ' + Me.XrSubreport1.CanShrink = True + Me.XrSubreport1.LocationFloat = New DevExpress.Utils.PointFloat(6.00001!, 9.999974!) + Me.XrSubreport1.Name = "XrSubreport1" + Me.XrSubreport1.ParameterBindings.Add(New DevExpress.XtraReports.UI.ParameterBinding("pDocID", Nothing, "VWCUST_RPTERGEBNISBERICHT.DocID")) + Me.XrSubreport1.ReportSource = New EB_Creator.SR_Kontierung() + Me.XrSubreport1.SizeF = New System.Drawing.SizeF(549.4542!, 58.41668!) + ' + 'XtraReportSR + ' + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.ReportHeaderBand1, Me.GroupHeaderBand1, Me.ReportFooter, Me.GroupFooter1}) + Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1}) + Me.DataMember = "VWCUST_RPTERGEBNISBERICHT" + Me.DataSource = Me.SqlDataSource1 + Me.Margins = New System.Drawing.Printing.Margins(88, 100, 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.Version = "21.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 XrLabel19 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel18 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel13 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel10 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel9 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 + Friend WithEvents ReportFooter As DevExpress.XtraReports.UI.ReportFooterBand + Friend WithEvents XrLabel12 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand + Friend WithEvents XrSubreport1 As DevExpress.XtraReports.UI.XRSubreport +End Class diff --git a/EB_Creator/XtraReportSR.resx b/EB_Creator/XtraReportSR.resx new file mode 100644 index 0000000..e9a79f9 --- /dev/null +++ b/EB_Creator/XtraReportSR.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 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 + + + PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlZXQ1VTVF9SUFRFUkdFQk5JU0JFUklDSFQiPjxGaWVsZCBOYW1lPSJEb2NJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkRhdHVtSW4iIFR5cGU9IkRhdGVUaW1lIiAvPjxGaWVsZCBOYW1lPSJCZWxlZ2RhdHVtIiBUeXBlPSJEYXRlVGltZSIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOdW1tZXIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lX0xhbmciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iS3JlZGl0b3JOYW1lIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlJlY2hudW5nTnIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUmVmZXJlbnoiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTmV0dG9iZXRyYWciIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iQnJ1dHRvYmV0cmFnIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlphaGx1bmdzemllbCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJNYW5kYW50IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik1hbmRhbnQgTmFtZSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJLb3N0ZW5zdGVsbGUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQmVzdGVsbE5yIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkFic2VuZGVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZpbmFsZXIgRnJlaWdlYmVyIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlByb3plc3NzY2hyaXR0IiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkR1cmNoIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlN0YXR1c19DaGFuZ2UiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0id2FublBvcyIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IktvbW1lbnRhciIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48L0RhdGFTZXQ+ + + \ No newline at end of file diff --git a/EB_Creator/XtraReportSR.vb b/EB_Creator/XtraReportSR.vb new file mode 100644 index 0000000..95438b1 --- /dev/null +++ b/EB_Creator/XtraReportSR.vb @@ -0,0 +1,3 @@ +Public Class XtraReportSR + +End Class \ No newline at end of file diff --git a/XtraReportSR.repx b/XtraReportSR.repx new file mode 100644 index 0000000..be7237c --- /dev/null +++ b/XtraReportSR.repx @@ -0,0 +1,262 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file