This commit is contained in:
2022-12-14 17:18:58 +01:00
parent 9c80538fd8
commit f298a1fa59
4 changed files with 71 additions and 70 deletions

View File

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

View File

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

View File

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

View File

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