diff --git a/SchaumKommiCollo/KommiCollo/KommiCollo.vbproj b/SchaumKommiCollo/KommiCollo/KommiCollo.vbproj
index c67d3d6..b8c2091 100644
--- a/SchaumKommiCollo/KommiCollo/KommiCollo.vbproj
+++ b/SchaumKommiCollo/KommiCollo/KommiCollo.vbproj
@@ -218,6 +218,12 @@
MyDataset.xsd
+
+ reportHinweis.vb
+
+
+ Component
+
reportUebergabe.vb
@@ -257,6 +263,9 @@
My.Resources
Designer
+
+ reportHinweis.vb
+
reportUebergabe.vb
diff --git a/SchaumKommiCollo/KommiCollo/reportHinweis.Designer.vb b/SchaumKommiCollo/KommiCollo/reportHinweis.Designer.vb
new file mode 100644
index 0000000..26ba430
--- /dev/null
+++ b/SchaumKommiCollo/KommiCollo/reportHinweis.Designer.vb
@@ -0,0 +1,208 @@
+
+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.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
diff --git a/SchaumKommiCollo/KommiCollo/reportHinweis.resx b/SchaumKommiCollo/KommiCollo/reportHinweis.resx
new file mode 100644
index 0000000..52c84d9
--- /dev/null
+++ b/SchaumKommiCollo/KommiCollo/reportHinweis.resx
@@ -0,0 +1,126 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 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
+
+
+ PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iR1VJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkhJTldfQ09ERSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX1RFWFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19URVhUX0VSRyIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48L0RhdGFTZXQ+
+
+
\ No newline at end of file
diff --git a/SchaumKommiCollo/KommiCollo/reportHinweis.vb b/SchaumKommiCollo/KommiCollo/reportHinweis.vb
new file mode 100644
index 0000000..d4bbdd8
--- /dev/null
+++ b/SchaumKommiCollo/KommiCollo/reportHinweis.vb
@@ -0,0 +1,3 @@
+Public Class reportHinweis
+
+End Class
\ No newline at end of file
diff --git a/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb b/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb
index 88c4a43..f674338 100644
--- a/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb
+++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb
@@ -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
diff --git a/SchaumKommiCollo/KommiCollo/reportUebergabe.resx b/SchaumKommiCollo/KommiCollo/reportUebergabe.resx
index 661a7e6..aa799c1 100644
--- a/SchaumKommiCollo/KommiCollo/reportUebergabe.resx
+++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.resx
@@ -121,7 +121,8 @@
17, 17
- SELECT [LAD1]
+ SELECT GUID
+ ,[LAD1]
,[LAD_STRASSE]
,[LAD_LKZ_PLZ_ORT]
,[FERTIG]
@@ -150,8 +151,12 @@
,[HINW_TEXT_ERG]
,[BORDERONR]
FROM [SCHAUM_IID].[dbo].[VWHUP_REPORT1]
+
+
+ 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
- PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iTEFEMSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfTEtaX1BMWl9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRkVSVElHIiBUeXBlPSJCb29sZWFuIiAvPjxGaWVsZCBOYW1lPSJTRU5EVU5HTlIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU0RHX1JFRkVSRU5aIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfWlVTQVRaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9TVFJBU1NFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9QTFpfU1RSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9MS1oiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09SVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfT1RFSUwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQUJIT0xEQVRVTSIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IlNER19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlNER19TVEVMTFBMQUVUWkUiIFR5cGU9IkludDE2IiAvPjxGaWVsZCBOYW1lPSJTREdfRlJBTktBVFVSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5WRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJQT1NJTkhBTFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TX0dFV0lDSFQiIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iUEFDS1NUVUVDS0FOWkFITCIgVHlwZT0iQnl0ZSIgLz48RmllbGQgTmFtZT0iUEFMRVRURU5BTlpBSEwiIFR5cGU9IkludDMyIiAvPjxGaWVsZCBOYW1lPSJDT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJFTUVSS1VORyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX0NPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19URVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVF9FUkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQk9SREVST05SIiBUeXBlPSJJbnQzMiIgLz48L1ZpZXc+PFZpZXcgTmFtZT0iUXVlcnlfSGlud2Vpc3RleHQiPjxGaWVsZCBOYW1lPSJURVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkNPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQkVaRUlDSE5VTkciIFR5cGU9IlN0cmluZyIgLz48L1ZpZXc+PC9EYXRhU2V0Pg==
+ PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iR1VJRCIgVHlwZT0iSW50MzIiIC8+PEZpZWxkIE5hbWU9IkxBRDEiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTEFEX1NUUkFTU0UiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iTEFEX0xLWl9QTFpfT1JUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkZFUlRJRyIgVHlwZT0iQm9vbGVhbiIgLz48RmllbGQgTmFtZT0iU0VORFVOR05SIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlNER19SRUZFUkVOWiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVAiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX1pVU0FUWiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfUExaX1NUUiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfTEtaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09URUlMIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkFCSE9MREFUVU0iIFR5cGU9IkRhdGVUaW1lIiAvPjxGaWVsZCBOYW1lPSJTREdfR0VXSUNIVCIgVHlwZT0iRG91YmxlIiAvPjxGaWVsZCBOYW1lPSJTREdfU1RFTExQTEFFVFpFIiBUeXBlPSJJbnQxNiIgLz48RmllbGQgTmFtZT0iU0RHX0ZSQU5LQVRVUiIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJOVkUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TSU5IQUxUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlBPU19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlBBQ0tTVFVFQ0tBTlpBSEwiIFR5cGU9IkJ5dGUiIC8+PEZpZWxkIE5hbWU9IlBBTEVUVEVOQU5aQUhMIiBUeXBlPSJJbnQzMiIgLz48RmllbGQgTmFtZT0iQ09ERSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCRU1FUktVTkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19DT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX1RFWFRfRVJHIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJPUkRFUk9OUiIgVHlwZT0iSW50MzIiIC8+PC9WaWV3PjxWaWV3IE5hbWU9IlF1ZXJ5X0hpbndlaXN0ZXh0Ij48RmllbGQgTmFtZT0iVEVYVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJDT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJFWkVJQ0hOVU5HIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IlNFTkRVTkdOUiIgVHlwZT0iSW50MzIiIC8+PC9WaWV3PjxSZWxhdGlvbiBNYXN0ZXI9IlF1ZXJ5IiBEZXRhaWw9IlF1ZXJ5X0hpbndlaXN0ZXh0Ij48S2V5Q29sdW1uIE1hc3Rlcj0iR1VJRCIgRGV0YWlsPSJTRU5EVU5HTlIiIC8+PC9SZWxhdGlvbj48L0RhdGFTZXQ+
\ No newline at end of file
diff --git a/SchaumKommiCollo/KommiCollo/reportUebergabe.vb b/SchaumKommiCollo/KommiCollo/reportUebergabe.vb
index 4ed49fc..131250e 100644
--- a/SchaumKommiCollo/KommiCollo/reportUebergabe.vb
+++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.vb
@@ -1,15 +1,27 @@
-Public Class reportUebergabe
+
+Imports DevExpress.XtraReports.Parameters
+
+
+'''
+''' Hier werden die Summen von
+''' - Anzahl Sendungen
+''' - Anzahl Kolli
+''' - Gesamtgewicht
+''' berechnet.
+'''
+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
\ No newline at end of file