Partial Public Class reportHinweis 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(reportHinweis)) Me.Detail = New DevExpress.XtraReports.UI.DetailBand() Me.XrLabel6 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel7 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel8 = 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.FieldCaption = New DevExpress.XtraReports.UI.XRControlStyle() Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() Me.DataField = 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.XrLabel6, Me.XrLabel7, Me.XrLabel8}) Me.Detail.Dpi = 100.0! Me.Detail.HeightF = 18.0! Me.Detail.Name = "Detail" Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft ' 'XrLabel6 ' Me.XrLabel6.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_CODE")}) Me.XrLabel6.Dpi = 100.0! Me.XrLabel6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.XrLabel6.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) Me.XrLabel6.Name = "XrLabel6" Me.XrLabel6.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) Me.XrLabel6.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.SuppressAndShrink Me.XrLabel6.SizeF = New System.Drawing.SizeF(89.79168!, 18.0!) Me.XrLabel6.StyleName = "DataField" Me.XrLabel6.StylePriority.UseFont = False Me.XrLabel6.Text = "XrLabel6" ' 'XrLabel7 ' Me.XrLabel7.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT")}) Me.XrLabel7.Dpi = 100.0! Me.XrLabel7.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.XrLabel7.LocationFloat = New DevExpress.Utils.PointFloat(89.79168!, 0!) Me.XrLabel7.Name = "XrLabel7" Me.XrLabel7.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) Me.XrLabel7.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.SuppressAndShrink Me.XrLabel7.SizeF = New System.Drawing.SizeF(358.5417!, 18.0!) Me.XrLabel7.StyleName = "DataField" Me.XrLabel7.StylePriority.UseFont = False Me.XrLabel7.Text = "XrLabel7" ' 'XrLabel8 ' Me.XrLabel8.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT_ERG")}) Me.XrLabel8.Dpi = 100.0! Me.XrLabel8.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.XrLabel8.LocationFloat = New DevExpress.Utils.PointFloat(526.25!, 0!) Me.XrLabel8.Name = "XrLabel8" Me.XrLabel8.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) Me.XrLabel8.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.SuppressAndShrink Me.XrLabel8.SizeF = New System.Drawing.SizeF(113.75!, 18.0!) Me.XrLabel8.StyleName = "DataField" Me.XrLabel8.StylePriority.UseFont = False Me.XrLabel8.Text = "XrLabel8" ' 'TopMargin ' Me.TopMargin.Dpi = 100.0! 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.Dpi = 100.0! 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 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " ,[HINW_CODE]" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " ,[HINW_TEXT]" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " ,[HINW_TEXT_" & "ERG]" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FROM [SCHAUM_IID].[dbo].[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("Times New Roman", 21.0!) Me.Title.ForeColor = System.Drawing.Color.Black Me.Title.Name = "Title" ' 'FieldCaption ' Me.FieldCaption.BackColor = System.Drawing.Color.Transparent Me.FieldCaption.BorderColor = System.Drawing.Color.Black Me.FieldCaption.Borders = DevExpress.XtraPrinting.BorderSide.None Me.FieldCaption.BorderWidth = 1.0! Me.FieldCaption.Font = New System.Drawing.Font("Times New Roman", 10.0!) Me.FieldCaption.ForeColor = System.Drawing.Color.Black Me.FieldCaption.Name = "FieldCaption" ' 'PageInfo ' Me.PageInfo.BackColor = System.Drawing.Color.Transparent Me.PageInfo.BorderColor = System.Drawing.Color.Black Me.PageInfo.Borders = DevExpress.XtraPrinting.BorderSide.None Me.PageInfo.BorderWidth = 1.0! Me.PageInfo.Font = New System.Drawing.Font("Arial", 8.0!) Me.PageInfo.ForeColor = System.Drawing.Color.Black Me.PageInfo.Name = "PageInfo" ' 'DataField ' Me.DataField.BackColor = System.Drawing.Color.Transparent Me.DataField.BorderColor = System.Drawing.Color.Black Me.DataField.Borders = DevExpress.XtraPrinting.BorderSide.None Me.DataField.BorderWidth = 1.0! Me.DataField.Font = New System.Drawing.Font("Arial", 9.0!) Me.DataField.ForeColor = System.Drawing.Color.Black Me.DataField.Name = "DataField" Me.DataField.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) ' 'SendungNr ' Me.SendungNr.Description = "SendungNr" Me.SendungNr.Name = "SendungNr" Me.SendungNr.Type = GetType(Integer) Me.SendungNr.ValueInfo = "157" Me.SendungNr.Visible = False ' 'reportHinweis ' 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.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.FieldCaption, Me.PageInfo, Me.DataField}) Me.Version = "15.2" 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 XrLabel6 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel7 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel8 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents SqlDataSource1 As DevExpress.DataAccess.Sql.SqlDataSource Friend WithEvents Title As DevExpress.XtraReports.UI.XRControlStyle Friend WithEvents FieldCaption As DevExpress.XtraReports.UI.XRControlStyle Friend WithEvents PageInfo As DevExpress.XtraReports.UI.XRControlStyle Friend WithEvents DataField As DevExpress.XtraReports.UI.XRControlStyle Friend WithEvents SendungNr As DevExpress.XtraReports.Parameters.Parameter End Class