_ Partial Public Class reportPositionen 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(reportPositionen)) Dim DynamicListLookUpSettings1 As DevExpress.XtraReports.Parameters.DynamicListLookUpSettings = New DevExpress.XtraReports.Parameters.DynamicListLookUpSettings() Me.Detail = New DevExpress.XtraReports.UI.DetailBand() Me.XrLabel2 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel1 = New DevExpress.XtraReports.UI.XRLabel() Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand() Me.BottomMargin = New DevExpress.XtraReports.UI.BottomMarginBand() 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.SendungNr = New DevExpress.XtraReports.Parameters.Parameter() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'Detail ' Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel2, Me.XrLabel1}) Me.Detail.HeightF = 24.04! Me.Detail.Name = "Detail" Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft ' 'XrLabel2 ' Me.XrLabel2.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT")}) Me.XrLabel2.Font = New System.Drawing.Font("Arial", 8.0!) Me.XrLabel2.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) Me.XrLabel2.Multiline = True Me.XrLabel2.Name = "XrLabel2" Me.XrLabel2.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) Me.XrLabel2.SizeF = New System.Drawing.SizeF(148.96!, 11.54!) Me.XrLabel2.StylePriority.UseFont = False ' 'XrLabel1 ' Me.XrLabel1.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.NVE")}) Me.XrLabel1.Font = New System.Drawing.Font("Arial", 8.0!) Me.XrLabel1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 12.5!) 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(148.96!, 11.54!) Me.XrLabel1.StylePriority.UseFont = False ' 'TopMargin ' Me.TopMargin.HeightF = 0! Me.TopMargin.Name = "TopMargin" Me.TopMargin.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) Me.TopMargin.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft ' 'BottomMargin ' Me.BottomMargin.HeightF = 0! Me.BottomMargin.Name = "BottomMargin" Me.BottomMargin.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) Me.BottomMargin.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft ' 'SqlDataSource1 ' Me.SqlDataSource1.ConnectionName = "REPORT_Connection" Me.SqlDataSource1.Name = "SqlDataSource1" CustomSqlQuery1.Name = "Query" CustomSqlQuery1.Sql = "SELECT DISTINCT GUID, NVE, POSINHALT FROM VWHUP_REPORT1" Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1}) Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable") ' 'Title ' Me.Title.BackColor = System.Drawing.Color.Transparent Me.Title.BorderColor = System.Drawing.Color.Black Me.Title.Borders = DevExpress.XtraPrinting.BorderSide.None Me.Title.BorderWidth = 1.0! Me.Title.Font = New System.Drawing.Font("Tahoma", 14.0!) Me.Title.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) Me.Title.Name = "Title" ' 'DetailCaption3 ' Me.DetailCaption3.BackColor = System.Drawing.Color.Transparent Me.DetailCaption3.BorderColor = System.Drawing.Color.Transparent Me.DetailCaption3.Borders = DevExpress.XtraPrinting.BorderSide.None Me.DetailCaption3.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold) Me.DetailCaption3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) Me.DetailCaption3.Name = "DetailCaption3" Me.DetailCaption3.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100.0!) Me.DetailCaption3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft ' 'DetailData3 ' Me.DetailData3.Font = New System.Drawing.Font("Tahoma", 8.0!) Me.DetailData3.ForeColor = System.Drawing.Color.Black Me.DetailData3.Name = "DetailData3" Me.DetailData3.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100.0!) Me.DetailData3.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft ' 'DetailData3_Odd ' Me.DetailData3_Odd.BackColor = System.Drawing.Color.FromArgb(CType(CType(231, Byte), Integer), CType(CType(231, Byte), Integer), CType(CType(231, Byte), Integer)) Me.DetailData3_Odd.BorderColor = System.Drawing.Color.Transparent Me.DetailData3_Odd.Borders = DevExpress.XtraPrinting.BorderSide.None Me.DetailData3_Odd.BorderWidth = 1.0! Me.DetailData3_Odd.Font = New System.Drawing.Font("Tahoma", 8.0!) Me.DetailData3_Odd.ForeColor = System.Drawing.Color.Black Me.DetailData3_Odd.Name = "DetailData3_Odd" Me.DetailData3_Odd.Padding = New DevExpress.XtraPrinting.PaddingInfo(6, 6, 0, 0, 100.0!) Me.DetailData3_Odd.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft ' 'DetailCaptionBackground3 ' Me.DetailCaptionBackground3.BackColor = System.Drawing.Color.Transparent Me.DetailCaptionBackground3.BorderColor = System.Drawing.Color.FromArgb(CType(CType(206, Byte), Integer), CType(CType(206, Byte), Integer), CType(CType(206, Byte), Integer)) Me.DetailCaptionBackground3.Borders = DevExpress.XtraPrinting.BorderSide.Top Me.DetailCaptionBackground3.BorderWidth = 2.0! Me.DetailCaptionBackground3.Name = "DetailCaptionBackground3" ' 'PageInfo ' Me.PageInfo.Font = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold) Me.PageInfo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer), CType(CType(75, Byte), Integer)) Me.PageInfo.Name = "PageInfo" Me.PageInfo.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) ' 'SendungNr ' Me.SendungNr.Description = "Parameter1" DynamicListLookUpSettings1.DataAdapter = Nothing DynamicListLookUpSettings1.DataMember = "Query" DynamicListLookUpSettings1.DataSource = Me.SqlDataSource1 DynamicListLookUpSettings1.DisplayMember = "GUID" DynamicListLookUpSettings1.ValueMember = "GUID" Me.SendungNr.LookUpSettings = DynamicListLookUpSettings1 Me.SendungNr.Name = "SendungNr" Me.SendungNr.Type = GetType(Integer) Me.SendungNr.ValueInfo = "0" ' 'reportPositionen ' Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin}) Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1}) Me.DataMember = "Query" Me.DataSource = Me.SqlDataSource1 Me.FilterString = "[GUID] = ?SendungNr" Me.Margins = New System.Drawing.Printing.Margins(100, 100, 0, 0) Me.Parameters.AddRange(New DevExpress.XtraReports.Parameters.Parameter() {Me.SendungNr}) Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.DetailCaption3, Me.DetailData3, Me.DetailData3_Odd, Me.DetailCaptionBackground3, Me.PageInfo}) Me.Version = "18.1" CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub Friend WithEvents Detail As DevExpress.XtraReports.UI.DetailBand Friend WithEvents TopMargin As DevExpress.XtraReports.UI.TopMarginBand Friend WithEvents BottomMargin As DevExpress.XtraReports.UI.BottomMarginBand 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 XrLabel1 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel2 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents SendungNr As DevExpress.XtraReports.Parameters.Parameter End Class