jj: Add subreport reportHinweis to correctly display Hinweistexte

This commit is contained in:
Jonathan Jenne 2018-05-15 11:03:44 +02:00
parent 364bf7613e
commit 28dcddec33
7 changed files with 440 additions and 222 deletions

View File

@ -218,6 +218,12 @@
<DependentUpon>MyDataset.xsd</DependentUpon>
</Compile>
<Compile Include="RawPrinter.vb" />
<Compile Include="reportHinweis.Designer.vb">
<DependentUpon>reportHinweis.vb</DependentUpon>
</Compile>
<Compile Include="reportHinweis.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="reportUebergabe.designer.vb">
<DependentUpon>reportUebergabe.vb</DependentUpon>
</Compile>
@ -257,6 +263,9 @@
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="reportHinweis.resx">
<DependentUpon>reportHinweis.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="reportUebergabe.resx">
<DependentUpon>reportUebergabe.vb</DependentUpon>
</EmbeddedResource>

View File

@ -0,0 +1,208 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class reportHinweis
Inherits DevExpress.XtraReports.UI.XtraReport
'XtraReport overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
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.
<System.Diagnostics.DebuggerStepThrough()>
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.PageFooterBand1 = New DevExpress.XtraReports.UI.PageFooterBand()
Me.ReportHeaderBand1 = New DevExpress.XtraReports.UI.ReportHeaderBand()
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")
'
'PageFooterBand1
'
Me.PageFooterBand1.Dpi = 100.0!
Me.PageFooterBand1.HeightF = 0!
Me.PageFooterBand1.Name = "PageFooterBand1"
'
'ReportHeaderBand1
'
Me.ReportHeaderBand1.Dpi = 100.0!
Me.ReportHeaderBand1.HeightF = 0!
Me.ReportHeaderBand1.Name = "ReportHeaderBand1"
'
'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.PageFooterBand1, Me.ReportHeaderBand1})
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 PageFooterBand1 As DevExpress.XtraReports.UI.PageFooterBand
Friend WithEvents ReportHeaderBand1 As DevExpress.XtraReports.UI.ReportHeaderBand
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

View File

@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="SqlDataSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iR1VJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkhJTldfQ09ERSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX1RFWFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19URVhUX0VSRyIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48L0RhdGFTZXQ+</value>
</data>
</root>

View File

@ -0,0 +1,3 @@
Public Class reportHinweis
End Class

View File

@ -23,12 +23,15 @@ Partial Public Class reportUebergabe
Dim CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(reportUebergabe))
Dim CustomSqlQuery2 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery()
Dim QueryParameter1 As DevExpress.DataAccess.Sql.QueryParameter = New DevExpress.DataAccess.Sql.QueryParameter()
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 XrSummary1 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary()
Dim XrSummary2 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary()
Dim XrSummary3 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary()
Dim XrSummary4 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary()
Me.Detail = New DevExpress.XtraReports.UI.DetailBand()
Me.XrLabel49 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel51 = New DevExpress.XtraReports.UI.XRLabel()
Me.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
Me.XrLabel8 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel7 = New DevExpress.XtraReports.UI.XRLabel()
@ -94,33 +97,21 @@ Partial Public Class reportUebergabe
Me.XrLabel44 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel45 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel54 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel25 = New DevExpress.XtraReports.UI.XRLabel()
Me.labelSendungNr = New DevExpress.XtraReports.UI.XRLabel()
Me.labelPalettenanzahl = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel42 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel35 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel34 = New DevExpress.XtraReports.UI.XRLabel()
Me.labelGewicht = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel55 = New DevExpress.XtraReports.UI.XRLabel()
Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.GroupHeader4 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.XrLabel49 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel51 = New DevExpress.XtraReports.UI.XRLabel()
Me.GroupHeader2 = New DevExpress.XtraReports.UI.GroupHeaderBand()
Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand()
Me.XrLabel32 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel33 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel37 = New DevExpress.XtraReports.UI.XRLabel()
Me.GroupFooter3 = New DevExpress.XtraReports.UI.GroupFooterBand()
Me.XrLabel29 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel31 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrLabel38 = New DevExpress.XtraReports.UI.XRLabel()
Me.XrSubreport1 = New DevExpress.XtraReports.UI.XRSubreport()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel37, Me.XrLabel33, Me.XrLabel32})
Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel49, Me.XrLabel51})
Me.Detail.Dpi = 100.0!
Me.Detail.HeightF = 14.58334!
Me.Detail.HeightF = 32.29167!
Me.Detail.KeepTogether = True
Me.Detail.KeepTogetherWithDetailReports = True
Me.Detail.MultiColumn.Mode = DevExpress.XtraReports.UI.MultiColumnMode.UseColumnCount
@ -129,6 +120,32 @@ Partial Public Class reportUebergabe
Me.Detail.StyleName = "DataField"
Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
'
'XrLabel49
'
Me.XrLabel49.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.NVE"), New DevExpress.XtraReports.UI.XRBinding("Tag", Nothing, "Query.NVE")})
Me.XrLabel49.Dpi = 100.0!
Me.XrLabel49.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel49.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 11.54168!)
Me.XrLabel49.Name = "XrLabel49"
Me.XrLabel49.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel49.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.SuppressAndShrink
Me.XrLabel49.ProcessDuplicatesTarget = DevExpress.XtraReports.UI.ProcessDuplicatesTarget.Tag
Me.XrLabel49.SizeF = New System.Drawing.SizeF(148.9583!, 12.58333!)
Me.XrLabel49.StylePriority.UseFont = False
'
'XrLabel51
'
Me.XrLabel51.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT"), New DevExpress.XtraReports.UI.XRBinding("Tag", Nothing, "Query.NVE")})
Me.XrLabel51.Dpi = 100.0!
Me.XrLabel51.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel51.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 0!)
Me.XrLabel51.Name = "XrLabel51"
Me.XrLabel51.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel51.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.SuppressAndShrink
Me.XrLabel51.ProcessDuplicatesTarget = DevExpress.XtraReports.UI.ProcessDuplicatesTarget.Tag
Me.XrLabel51.SizeF = New System.Drawing.SizeF(148.9583!, 11.54167!)
Me.XrLabel51.StylePriority.UseFont = False
'
'TopMargin
'
Me.TopMargin.Dpi = 100.0!
@ -217,14 +234,14 @@ Partial Public Class reportUebergabe
CustomSqlQuery1.Name = "Query"
CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
CustomSqlQuery2.Name = "Query_Hinweistext"
QueryParameter1.Name = "SENDUNGSNR"
QueryParameter1.Type = GetType(DevExpress.DataAccess.Expression)
QueryParameter1.Value = New DevExpress.DataAccess.Expression("0", GetType(Integer))
CustomSqlQuery2.Parameters.Add(QueryParameter1)
CustomSqlQuery2.Sql = "SELECT T.TEXT, T2.CODE, T2.BEZEICHNUNG FROM TBKOMMCOLLI_HINWEIS T" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "INNER JOIN TBK" &
"OMMCOLLI_TEXTSCHLUESSEL T2 ON T.TEXTSCHLUSSEL_ID = T2.GUID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE T.SENDUNGNR = " &
"@SENDUNGSNR"
CustomSqlQuery2.Sql = resources.GetString("CustomSqlQuery2.Sql")
Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1, CustomSqlQuery2})
MasterDetailInfo1.DetailQueryName = "Query_Hinweistext"
RelationColumnInfo1.NestedKeyColumn = "SENDUNGNR"
RelationColumnInfo1.ParentKeyColumn = "GUID"
MasterDetailInfo1.KeyColumns.Add(RelationColumnInfo1)
MasterDetailInfo1.MasterQueryName = "Query"
Me.SqlDataSource1.Relations.AddRange(New DevExpress.DataAccess.Sql.MasterDetailInfo() {MasterDetailInfo1})
Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable")
'
'PageHeaderBand1
@ -501,7 +518,7 @@ Partial Public Class reportUebergabe
'
'labelAnzahlSendungen
'
Me.labelAnzahlSendungen.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.EMP")})
Me.labelAnzahlSendungen.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SENDUNGNR")})
Me.labelAnzahlSendungen.Dpi = 100.0!
Me.labelAnzahlSendungen.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.labelAnzahlSendungen.LocationFloat = New DevExpress.Utils.PointFloat(0!, 12.49998!)
@ -805,7 +822,7 @@ Partial Public Class reportUebergabe
'XrLine1
'
Me.XrLine1.Dpi = 100.0!
Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 14.5834!)
Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 55.62509!)
Me.XrLine1.Name = "XrLine1"
Me.XrLine1.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
Me.XrLine1.SizeF = New System.Drawing.SizeF(650.0!, 6.999996!)
@ -813,12 +830,12 @@ Partial Public Class reportUebergabe
'
'GroupFooter2
'
Me.GroupFooter2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLine1, Me.XrLabel46, Me.XrLabel58})
Me.GroupFooter2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrSubreport1, Me.XrLine1, Me.XrLabel46, Me.XrLabel58})
Me.GroupFooter2.Dpi = 100.0!
Me.GroupFooter2.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail
Me.GroupFooter2.HeightF = 21.58339!
Me.GroupFooter2.HeightF = 72.6251!
Me.GroupFooter2.KeepTogether = True
Me.GroupFooter2.Level = 3
Me.GroupFooter2.Level = 1
Me.GroupFooter2.Name = "GroupFooter2"
'
'XrLabel46
@ -826,7 +843,7 @@ Partial Public Class reportUebergabe
Me.XrLabel46.Dpi = 100.0!
Me.XrLabel46.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel46.ForeColor = System.Drawing.Color.Black
Me.XrLabel46.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
Me.XrLabel46.LocationFloat = New DevExpress.Utils.PointFloat(2.0!, 41.04169!)
Me.XrLabel46.Multiline = True
Me.XrLabel46.Name = "XrLabel46"
Me.XrLabel46.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
@ -843,23 +860,22 @@ Partial Public Class reportUebergabe
Me.XrLabel58.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.BEMERKUNG")})
Me.XrLabel58.Dpi = 100.0!
Me.XrLabel58.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel58.LocationFloat = New DevExpress.Utils.PointFloat(100.0!, 0!)
Me.XrLabel58.LocationFloat = New DevExpress.Utils.PointFloat(102.0001!, 41.04169!)
Me.XrLabel58.Name = "XrLabel58"
Me.XrLabel58.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel58.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel58.SizeF = New System.Drawing.SizeF(550.0!, 14.58337!)
Me.XrLabel58.SizeF = New System.Drawing.SizeF(547.0001!, 14.58337!)
Me.XrLabel58.StylePriority.UseFont = False
Me.XrLabel58.Text = "XrLabel47"
'
'GroupHeader3
'
Me.GroupHeader3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel44, Me.XrLabel45, Me.XrLabel54, Me.XrLabel25, Me.labelPalettenanzahl, Me.XrLabel42, Me.XrLabel35, Me.XrLabel34, Me.labelGewicht, Me.XrLabel55})
Me.GroupHeader3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel44, Me.XrLabel45, Me.XrLabel54, Me.labelSendungNr, Me.labelPalettenanzahl, Me.XrLabel42, Me.XrLabel35, Me.XrLabel34, Me.labelGewicht, Me.XrLabel55})
Me.GroupHeader3.Dpi = 100.0!
Me.GroupHeader3.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("CODE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
Me.GroupHeader3.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WholePage
Me.GroupHeader3.HeightF = 45.12498!
Me.GroupHeader3.KeepTogether = True
Me.GroupHeader3.Level = 1
Me.GroupHeader3.Name = "GroupHeader3"
'
'XrLabel44
@ -901,18 +917,18 @@ Partial Public Class reportUebergabe
Me.XrLabel54.StylePriority.UseFont = False
Me.XrLabel54.Text = "XrLabel34"
'
'XrLabel25
'labelSendungNr
'
Me.XrLabel25.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SENDUNGNR")})
Me.XrLabel25.Dpi = 100.0!
Me.XrLabel25.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel25.LocationFloat = New DevExpress.Utils.PointFloat(157.9532!, 0!)
Me.XrLabel25.Name = "XrLabel25"
Me.XrLabel25.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel25.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Suppress
Me.XrLabel25.SizeF = New System.Drawing.SizeF(58.88268!, 14.66667!)
Me.XrLabel25.StylePriority.UseFont = False
Me.XrLabel25.Text = "XrLabel25"
Me.labelSendungNr.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SENDUNGNR")})
Me.labelSendungNr.Dpi = 100.0!
Me.labelSendungNr.Font = New System.Drawing.Font("Arial", 8.25!)
Me.labelSendungNr.LocationFloat = New DevExpress.Utils.PointFloat(157.9532!, 0!)
Me.labelSendungNr.Name = "labelSendungNr"
Me.labelSendungNr.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.labelSendungNr.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Suppress
Me.labelSendungNr.SizeF = New System.Drawing.SizeF(58.88268!, 14.66667!)
Me.labelSendungNr.StylePriority.UseFont = False
Me.labelSendungNr.Text = "labelSendungNr"
'
'labelPalettenanzahl
'
@ -935,10 +951,10 @@ Partial Public Class reportUebergabe
Me.XrLabel42.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.CODE")})
Me.XrLabel42.Dpi = 100.0!
Me.XrLabel42.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel42.LocationFloat = New DevExpress.Utils.PointFloat(242.0876!, 0!)
Me.XrLabel42.LocationFloat = New DevExpress.Utils.PointFloat(242.0865!, 0!)
Me.XrLabel42.Name = "XrLabel42"
Me.XrLabel42.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel42.SizeF = New System.Drawing.SizeF(37.29942!, 14.66667!)
Me.XrLabel42.SizeF = New System.Drawing.SizeF(37.30055!, 14.66667!)
Me.XrLabel42.StylePriority.UseFont = False
Me.XrLabel42.StylePriority.UseTextAlignment = False
Me.XrLabel42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
@ -995,166 +1011,18 @@ Partial Public Class reportUebergabe
Me.XrLabel55.StylePriority.UseFont = False
Me.XrLabel55.Text = "XrLabel35"
'
'GroupHeader1
'XrSubreport1
'
Me.GroupHeader1.Dpi = 100.0!
Me.GroupHeader1.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("EMP", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
Me.GroupHeader1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WholePage
Me.GroupHeader1.HeightF = 0!
Me.GroupHeader1.KeepTogether = True
Me.GroupHeader1.Level = 3
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel49, Me.XrLabel51})
Me.GroupHeader4.Dpi = 100.0!
Me.GroupHeader4.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("POSINHALT", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending), New DevExpress.XtraReports.UI.GroupField("NVE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
Me.GroupHeader4.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail
Me.GroupHeader4.HeightF = 24.12495!
Me.GroupHeader4.Name = "GroupHeader4"
'
'XrLabel49
'
Me.XrLabel49.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.NVE")})
Me.XrLabel49.Dpi = 100.0!
Me.XrLabel49.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel49.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 11.54162!)
Me.XrLabel49.Name = "XrLabel49"
Me.XrLabel49.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel49.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel49.SizeF = New System.Drawing.SizeF(148.9583!, 12.58333!)
Me.XrLabel49.StylePriority.UseFont = False
Me.XrLabel49.Text = "XrLabel29"
'
'XrLabel51
'
Me.XrLabel51.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT")})
Me.XrLabel51.Dpi = 100.0!
Me.XrLabel51.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel51.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 0!)
Me.XrLabel51.Name = "XrLabel51"
Me.XrLabel51.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel51.SizeF = New System.Drawing.SizeF(148.9583!, 11.54167!)
Me.XrLabel51.StylePriority.UseFont = False
Me.XrLabel51.Text = "XrLabel47"
'
'GroupHeader2
'
Me.GroupHeader2.Dpi = 100.0!
Me.GroupHeader2.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("SENDUNGNR", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
Me.GroupHeader2.HeightF = 0!
Me.GroupHeader2.Level = 2
Me.GroupHeader2.Name = "GroupHeader2"
'
'GroupFooter1
'
Me.GroupFooter1.Dpi = 100.0!
Me.GroupFooter1.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail
Me.GroupFooter1.HeightF = 0!
Me.GroupFooter1.Level = 2
Me.GroupFooter1.Name = "GroupFooter1"
'
'XrLabel32
'
Me.XrLabel32.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT_ERG")})
Me.XrLabel32.Dpi = 100.0!
Me.XrLabel32.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel32.ForeColor = System.Drawing.Color.Black
Me.XrLabel32.LocationFloat = New DevExpress.Utils.PointFloat(449.9995!, 0!)
Me.XrLabel32.Name = "XrLabel32"
Me.XrLabel32.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel32.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel32.SizeF = New System.Drawing.SizeF(100.0!, 14.58327!)
Me.XrLabel32.StylePriority.UseFont = False
Me.XrLabel32.StylePriority.UseForeColor = False
Me.XrLabel32.Text = "XrLabel46"
'
'XrLabel33
'
Me.XrLabel33.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT")})
Me.XrLabel33.Dpi = 100.0!
Me.XrLabel33.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel33.ForeColor = System.Drawing.Color.Black
Me.XrLabel33.LocationFloat = New DevExpress.Utils.PointFloat(45.38994!, 0!)
Me.XrLabel33.Name = "XrLabel33"
Me.XrLabel33.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel33.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel33.SizeF = New System.Drawing.SizeF(403.6096!, 14.58334!)
Me.XrLabel33.StylePriority.UseFont = False
Me.XrLabel33.StylePriority.UseForeColor = False
Me.XrLabel33.Text = "XrLabel39"
'
'XrLabel37
'
Me.XrLabel37.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_CODE"), New DevExpress.XtraReports.UI.XRBinding("Tag", Nothing, "Query.HINW_CODE")})
Me.XrLabel37.Dpi = 100.0!
Me.XrLabel37.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel37.ForeColor = System.Drawing.Color.Black
Me.XrLabel37.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
Me.XrLabel37.Name = "XrLabel37"
Me.XrLabel37.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel37.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel37.SizeF = New System.Drawing.SizeF(42.22472!, 14.58334!)
Me.XrLabel37.StylePriority.UseFont = False
Me.XrLabel37.StylePriority.UseForeColor = False
'
'GroupFooter3
'
Me.GroupFooter3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel29, Me.XrLabel31, Me.XrLabel38})
Me.GroupFooter3.Dpi = 100.0!
Me.GroupFooter3.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail
Me.GroupFooter3.HeightF = 14.58334!
Me.GroupFooter3.Level = 1
Me.GroupFooter3.Name = "GroupFooter3"
'
'XrLabel29
'
Me.XrLabel29.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT_ERG")})
Me.XrLabel29.Dpi = 100.0!
Me.XrLabel29.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel29.ForeColor = System.Drawing.Color.DarkRed
Me.XrLabel29.LocationFloat = New DevExpress.Utils.PointFloat(449.9995!, 0!)
Me.XrLabel29.Name = "XrLabel29"
Me.XrLabel29.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel29.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel29.SizeF = New System.Drawing.SizeF(100.0!, 14.58327!)
Me.XrLabel29.StylePriority.UseFont = False
Me.XrLabel29.StylePriority.UseForeColor = False
Me.XrLabel29.Text = "XrLabel46"
'
'XrLabel31
'
Me.XrLabel31.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT")})
Me.XrLabel31.Dpi = 100.0!
Me.XrLabel31.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel31.ForeColor = System.Drawing.Color.DarkRed
Me.XrLabel31.LocationFloat = New DevExpress.Utils.PointFloat(45.38994!, 0!)
Me.XrLabel31.Name = "XrLabel31"
Me.XrLabel31.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel31.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel31.SizeF = New System.Drawing.SizeF(403.6096!, 14.58334!)
Me.XrLabel31.StylePriority.UseFont = False
Me.XrLabel31.StylePriority.UseForeColor = False
Me.XrLabel31.Text = "XrLabel39"
'
'XrLabel38
'
Me.XrLabel38.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_CODE"), New DevExpress.XtraReports.UI.XRBinding("Tag", Nothing, "Query.HINW_CODE")})
Me.XrLabel38.Dpi = 100.0!
Me.XrLabel38.Font = New System.Drawing.Font("Arial", 8.25!)
Me.XrLabel38.ForeColor = System.Drawing.Color.DarkRed
Me.XrLabel38.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
Me.XrLabel38.Name = "XrLabel38"
Me.XrLabel38.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
Me.XrLabel38.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge
Me.XrLabel38.SizeF = New System.Drawing.SizeF(42.22472!, 14.58334!)
Me.XrLabel38.StylePriority.UseFont = False
Me.XrLabel38.StylePriority.UseForeColor = False
Me.XrSubreport1.Dpi = 100.0!
Me.XrSubreport1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!)
Me.XrSubreport1.Name = "XrSubreport1"
Me.XrSubreport1.ParameterBindings.Add(New DevExpress.XtraReports.UI.ParameterBinding("SendungNr", Nothing, "Query.GUID"))
Me.XrSubreport1.ReportSource = New KommiCollo.reportHinweis()
Me.XrSubreport1.SizeF = New System.Drawing.SizeF(650.0!, 32.99999!)
'
'reportUebergabe
'
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.PageHeaderBand1, Me.ReportHeaderBand1, Me.ReportFooter, Me.GroupHeader1, Me.GroupFooter2, Me.GroupHeader3, Me.GroupHeader4, Me.GroupHeader2, Me.GroupFooter1, Me.GroupFooter3})
Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.PageHeaderBand1, Me.ReportHeaderBand1, Me.ReportFooter, Me.GroupFooter2, Me.GroupHeader3})
Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
Me.DataMember = "Query"
Me.DataSource = Me.SqlDataSource1
@ -1229,26 +1097,16 @@ Partial Public Class reportUebergabe
Friend WithEvents XrLabel44 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel45 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel54 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel25 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents labelSendungNr As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents labelPalettenanzahl As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel42 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel35 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel34 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents labelGewicht As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel55 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrLabel46 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel58 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents GroupHeader4 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents XrLabel49 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel51 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents GroupHeader2 As DevExpress.XtraReports.UI.GroupHeaderBand
Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand
Friend WithEvents XrLabel32 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel33 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel37 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents GroupFooter3 As DevExpress.XtraReports.UI.GroupFooterBand
Friend WithEvents XrLabel29 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel31 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrLabel38 As DevExpress.XtraReports.UI.XRLabel
Friend WithEvents XrSubreport1 As DevExpress.XtraReports.UI.XRSubreport
End Class

View File

@ -121,7 +121,8 @@
<value>17, 17</value>
</metadata>
<data name="CustomSqlQuery1.Sql" xml:space="preserve">
<value>SELECT [LAD1]
<value>SELECT GUID
,[LAD1]
,[LAD_STRASSE]
,[LAD_LKZ_PLZ_ORT]
,[FERTIG]
@ -150,8 +151,12 @@
,[HINW_TEXT_ERG]
,[BORDERONR]
FROM [SCHAUM_IID].[dbo].[VWHUP_REPORT1]</value>
</data>
<data name="CustomSqlQuery2.Sql" xml:space="preserve">
<value>SELECT DISTINCT T.TEXT, T2.CODE, T2.BEZEICHNUNG, T.SENDUNGNR FROM TBKOMMCOLLI_HINWEIS T INNER JOIN TBKOMMCOLLI_TEXTSCHLUESSEL T2 ON T.TEXTSCHLUSSEL_ID = T2.GUID
INNER JOIN VWHUP_REPORT1 T1 ON T.SENDUNGNR = T1.GUID</value>
</data>
<data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iTEFEMSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfTEtaX1BMWl9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRkVSVElHIiBUeXBlPSJCb29sZWFuIiAvPjxGaWVsZCBOYW1lPSJTRU5EVU5HTlIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU0RHX1JFRkVSRU5aIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfWlVTQVRaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9TVFJBU1NFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9QTFpfU1RSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9MS1oiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09SVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfT1RFSUwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQUJIT0xEQVRVTSIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IlNER19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlNER19TVEVMTFBMQUVUWkUiIFR5cGU9IkludDE2IiAvPjxGaWVsZCBOYW1lPSJTREdfRlJBTktBVFVSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5WRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJQT1NJTkhBTFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TX0dFV0lDSFQiIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iUEFDS1NUVUVDS0FOWkFITCIgVHlwZT0iQnl0ZSIgLz48RmllbGQgTmFtZT0iUEFMRVRURU5BTlpBSEwiIFR5cGU9IkludDMyIiAvPjxGaWVsZCBOYW1lPSJDT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJFTUVSS1VORyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX0NPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19URVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVF9FUkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQk9SREVST05SIiBUeXBlPSJJbnQzMiIgLz48L1ZpZXc+PFZpZXcgTmFtZT0iUXVlcnlfSGlud2Vpc3RleHQiPjxGaWVsZCBOYW1lPSJURVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkNPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQkVaRUlDSE5VTkciIFR5cGU9IlN0cmluZyIgLz48L1ZpZXc+PC9EYXRhU2V0Pg==</value>
<value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iR1VJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkxBRDEiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTEFEX1NUUkFTU0UiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTEFEX0xLWl9QTFpfT1JUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZFUlRJRyIgVHlwZT0iQm9vbGVhbiIgLz48RmllbGQgTmFtZT0iU0VORFVOR05SIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlNER19SRUZFUkVOWiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVAiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX1pVU0FUWiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfUExaX1NUUiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfTEtaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09URUlMIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkFCSE9MREFUVU0iIFR5cGU9IkRhdGVUaW1lIiAvPjxGaWVsZCBOYW1lPSJTREdfR0VXSUNIVCIgVHlwZT0iRG91YmxlIiAvPjxGaWVsZCBOYW1lPSJTREdfU1RFTExQTEFFVFpFIiBUeXBlPSJJbnQxNiIgLz48RmllbGQgTmFtZT0iU0RHX0ZSQU5LQVRVUiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOVkUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TSU5IQUxUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlBPU19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlBBQ0tTVFVFQ0tBTlpBSEwiIFR5cGU9IkJ5dGUiIC8+PEZpZWxkIE5hbWU9IlBBTEVUVEVOQU5aQUhMIiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iQ09ERSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCRU1FUktVTkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19DT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX1RFWFRfRVJHIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJPUkRFUk9OUiIgVHlwZT0iSW50MzIiIC8+PC9WaWV3PjxWaWV3IE5hbWU9IlF1ZXJ5X0hpbndlaXN0ZXh0Ij48RmllbGQgTmFtZT0iVEVYVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJDT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJFWkVJQ0hOVU5HIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlNFTkRVTkdOUiIgVHlwZT0iSW50MzIiIC8+PC9WaWV3PjxSZWxhdGlvbiBNYXN0ZXI9IlF1ZXJ5IiBEZXRhaWw9IlF1ZXJ5X0hpbndlaXN0ZXh0Ij48S2V5Q29sdW1uIE1hc3Rlcj0iR1VJRCIgRGV0YWlsPSJTRU5EVU5HTlIiIC8+PC9SZWxhdGlvbj48L0RhdGFTZXQ+</value>
</data>
</root>

View File

@ -1,15 +1,27 @@
Public Class reportUebergabe

Imports DevExpress.XtraReports.Parameters
''' <summary>
''' Hier werden die Summen von
''' - Anzahl Sendungen
''' - Anzahl Kolli
''' - Gesamtgewicht
''' berechnet.
''' </summary>
Public Class reportUebergabe
Private sendungen As Integer = 0
Private kolli As Integer = 0
Private gewicht As Double = 0.00
Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset
sendungen = 0
kolli = 0
gewicht = 0.00
End Sub
Private Sub labelPosInhalt_BeforePrint(sender As Object, e As Printing.PrintEventArgs)
Private Sub labelSendungNr_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelSendungNr.BeforePrint
sendungen = sendungen + 1
End Sub
@ -35,7 +47,4 @@
e.Result = sendungen
e.Handled = True
End Sub
Private Sub GroupFooter1_BeforePrint(sender As Object, e As Printing.PrintEventArgs)
End Sub
End Class