jj Schaum Bericht

2018-01-10 17:40:59 +01:00
parent e0fe5e3707
commit b9797b82bf
6 changed files with 332 additions and 140 deletions
--- a/SchaumKommiCollo/KommiCollo/app.config
+++ b/SchaumKommiCollo/KommiCollo/app.config
@@ -11,7 +11,7 @@
            providerName="System.Data.SqlClient" />
        <add name="KommiCollo.My.MySettings.CP2DDConnectionString" connectionString="Data Source=192.168.13.101;Initial Catalog=CP2DD;User ID=sa;Password=dd"
            providerName="System.Data.SqlClient" />
-        <add name="192.168.13.101_SCHAUM_IID_Connection" connectionString="XpoProvider=MSSqlServer;data source=192.168.13.101;user id=sa;password=dd;initial catalog=SCHAUM_IID;Persist Security Info=true" />
+        <add name="SCHAUM_IID_Connection" connectionString="XpoProvider=MSSqlServer;data source=192.168.13.101;user id=sa;password=dd;initial catalog=SCHAUM_IID;Persist Security Info=true" />
    </connectionStrings>
    <system.diagnostics>
        <sources>
--- a/SchaumKommiCollo/KommiCollo/frmPrintOptions.vb
+++ b/SchaumKommiCollo/KommiCollo/frmPrintOptions.vb
@@ -126,17 +126,8 @@ Public Class frmPrintOptions
    End Sub

    Private Sub btnUebernahme_Click(sender As Object, e As EventArgs) Handles btnUebernahme.Click
-        'Try
-        '    Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString
-        '    Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True, False)
-
-        'Catch ex As System.Exception
-        '    System.Windows.Forms.MessageBox.Show(ex.Message)
-        'End Try
-
        Dim report As New reportUebergabe()
        report.CreateDocument(False)
-
        DocumentViewerEx1.Source = report
    End Sub
 End Class
--- a/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb
+++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Public Class reportUebergabe
    Inherits DevExpress.XtraReports.UI.XtraReport

    'XtraReport overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
@@ -17,7 +17,7 @@ Partial Public Class reportUebergabe
    '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery()
@@ -25,6 +25,7 @@ Partial Public Class reportUebergabe
        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.TopMargin = New DevExpress.XtraReports.UI.TopMarginBand()
@@ -69,12 +70,6 @@ Partial Public Class reportUebergabe
        Me.XrLabel39 = New DevExpress.XtraReports.UI.XRLabel()
        Me.XrLabel46 = New DevExpress.XtraReports.UI.XRLabel()
        Me.XrLabel47 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.GroupHeader2 = New DevExpress.XtraReports.UI.GroupHeaderBand()
-        Me.XrLabel25 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel44 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel43 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel42 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.XrLabel45 = New DevExpress.XtraReports.UI.XRLabel()
        Me.FormattingRule1 = New DevExpress.XtraReports.UI.FormattingRule()
        Me.ReportFooter = New DevExpress.XtraReports.UI.ReportFooterBand()
        Me.XrLabel32 = New DevExpress.XtraReports.UI.XRLabel()
@@ -103,11 +98,14 @@ Partial Public Class reportUebergabe
        Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine()
        Me.XrLabel31 = New DevExpress.XtraReports.UI.XRLabel()
        Me.XrLabel50 = New DevExpress.XtraReports.UI.XRLabel()
-        Me.GroupFooter2 = New DevExpress.XtraReports.UI.GroupFooterBand()
-        Me.MyDataset1 = New KommiCollo.MyDataset()
-        Me.TBKOMMCOLLI_MANDANTTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_MANDANTTableAdapter()
-        Me.VwhuP_REPORT1TableAdapter1 = New KommiCollo.MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter()
-        CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupHeader2 = New DevExpress.XtraReports.UI.GroupHeaderBand()
+        Me.XrLabel25 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel29 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel33 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel34 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel35 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel42 = New DevExpress.XtraReports.UI.XRLabel()
+        Me.XrLabel43 = New DevExpress.XtraReports.UI.XRLabel()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'Detail
@@ -119,6 +117,7 @@ Partial Public Class reportUebergabe
        Me.Detail.KeepTogetherWithDetailReports = True
        Me.Detail.Name = "Detail"
        Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!)
+        Me.Detail.SortFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("CODE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)})
        Me.Detail.StyleName = "DataField"
        Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
        '
@@ -127,10 +126,10 @@ Partial Public Class reportUebergabe
        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(241.0878!, 0!)
+        Me.XrLabel49.LocationFloat = New DevExpress.Utils.PointFloat(278.3871!, 0!)
        Me.XrLabel49.Name = "XrLabel49"
        Me.XrLabel49.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel49.SizeF = New System.Drawing.SizeF(156.8752!, 11.54169!)
+        Me.XrLabel49.SizeF = New System.Drawing.SizeF(160.201!, 11.54169!)
        Me.XrLabel49.StylePriority.UseFont = False
        Me.XrLabel49.Text = "XrLabel49"
        '
@@ -217,7 +216,7 @@ Partial Public Class reportUebergabe
        '
        'SqlDataSource1
        '
-        Me.SqlDataSource1.ConnectionName = "192.168.13.101_SCHAUM_IID_Connection"
+        Me.SqlDataSource1.ConnectionName = "SCHAUM_IID_Connection"
        Me.SqlDataSource1.Name = "SqlDataSource1"
        CustomSqlQuery1.Name = "Query"
        CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql")
@@ -537,7 +536,7 @@ Partial Public Class reportUebergabe
        Me.XrLabel53.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.EMP")})
        Me.XrLabel53.Dpi = 100.0!
        Me.XrLabel53.Font = New System.Drawing.Font("Arial", 8.25!)
-        Me.XrLabel53.LocationFloat = New DevExpress.Utils.PointFloat(1.99972!, 2.875019!)
+        Me.XrLabel53.LocationFloat = New DevExpress.Utils.PointFloat(1.999728!, 2.87501!)
        Me.XrLabel53.Name = "XrLabel53"
        Me.XrLabel53.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
        Me.XrLabel53.SizeF = New System.Drawing.SizeF(156.9492!, 12.5!)
@@ -622,84 +621,6 @@ Partial Public Class reportUebergabe
        Me.XrLabel47.StylePriority.UseFont = False
        Me.XrLabel47.Text = "XrLabel47"
        '
-        'GroupHeader2
-        '
-        Me.GroupHeader2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel44, Me.XrLabel43, Me.XrLabel42, Me.XrLabel45, Me.XrLabel25})
-        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 = 19.79167!
-        Me.GroupHeader2.KeepTogether = True
-        Me.GroupHeader2.Name = "GroupHeader2"
-        '
-        'XrLabel25
-        '
-        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(156.9489!, 0!)
-        Me.XrLabel25.Name = "XrLabel25"
-        Me.XrLabel25.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel25.SizeF = New System.Drawing.SizeF(58.88719!, 19.79167!)
-        Me.XrLabel25.StylePriority.UseFont = False
-        Me.XrLabel25.StylePriority.UseTextAlignment = False
-        Me.XrLabel25.Text = "XrLabel25"
-        Me.XrLabel25.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
-        '
-        'XrLabel44
-        '
-        Me.XrLabel44.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_GEWICHT")})
-        Me.XrLabel44.Dpi = 100.0!
-        Me.XrLabel44.Font = New System.Drawing.Font("Arial", 8.25!)
-        Me.XrLabel44.LocationFloat = New DevExpress.Utils.PointFloat(397.9631!, 0!)
-        Me.XrLabel44.Name = "XrLabel44"
-        Me.XrLabel44.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel44.SizeF = New System.Drawing.SizeF(89.50452!, 19.79167!)
-        Me.XrLabel44.StylePriority.UseFont = False
-        Me.XrLabel44.StylePriority.UseTextAlignment = False
-        Me.XrLabel44.Text = "XrLabel44"
-        Me.XrLabel44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
-        '
-        'XrLabel43
-        '
-        Me.XrLabel43.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_FRANKATUR")})
-        Me.XrLabel43.Dpi = 100.0!
-        Me.XrLabel43.Font = New System.Drawing.Font("Arial", 8.25!)
-        Me.XrLabel43.LocationFloat = New DevExpress.Utils.PointFloat(568.6315!, 0!)
-        Me.XrLabel43.Name = "XrLabel43"
-        Me.XrLabel43.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel43.SizeF = New System.Drawing.SizeF(81.36853!, 19.79167!)
-        Me.XrLabel43.StylePriority.UseFont = False
-        Me.XrLabel43.StylePriority.UseTextAlignment = False
-        Me.XrLabel43.Text = "XrLabel43"
-        Me.XrLabel43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
-        '
-        'XrLabel42
-        '
-        Me.XrLabel42.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT")})
-        Me.XrLabel42.Dpi = 100.0!
-        Me.XrLabel42.Font = New System.Drawing.Font("Arial", 8.25!)
-        Me.XrLabel42.LocationFloat = New DevExpress.Utils.PointFloat(241.0878!, 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(119.576!, 19.79167!)
-        Me.XrLabel42.StylePriority.UseFont = False
-        Me.XrLabel42.Text = "XrLabel42"
-        '
-        'XrLabel45
-        '
-        Me.XrLabel45.Dpi = 100.0!
-        Me.XrLabel45.Font = New System.Drawing.Font("Arial", 8.25!)
-        Me.XrLabel45.LocationFloat = New DevExpress.Utils.PointFloat(487.4677!, 0!)
-        Me.XrLabel45.Multiline = True
-        Me.XrLabel45.Name = "XrLabel45"
-        Me.XrLabel45.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
-        Me.XrLabel45.SizeF = New System.Drawing.SizeF(81.16376!, 19.79167!)
-        Me.XrLabel45.StyleName = "Title"
-        Me.XrLabel45.StylePriority.UseFont = False
-        Me.XrLabel45.StylePriority.UseTextAlignment = False
-        Me.XrLabel45.Text = "1.00 EUR"
-        Me.XrLabel45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
-        '
        'FormattingRule1
        '
        Me.FormattingRule1.Name = "FormattingRule1"
@@ -992,7 +913,7 @@ Partial Public Class reportUebergabe
        Me.XrLabel31.SizeF = New System.Drawing.SizeF(249.9998!, 25.0!)
        Me.XrLabel31.StylePriority.UseBackColor = False
        Me.XrLabel31.StylePriority.UseFont = False
-        XrSummary2.FormatString = "Summe Gewicht: {0}"
+        XrSummary2.FormatString = "Summe Gewicht: {0} kg"
        XrSummary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report
        Me.XrLabel31.Summary = XrSummary2
        '
@@ -1011,30 +932,103 @@ Partial Public Class reportUebergabe
        XrSummary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report
        Me.XrLabel50.Summary = XrSummary3
        '
-        'GroupFooter2
+        'GroupHeader2
        '
-        Me.GroupFooter2.Dpi = 100.0!
-        Me.GroupFooter2.HeightF = 0!
-        Me.GroupFooter2.Name = "GroupFooter2"
+        Me.GroupHeader2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel43, Me.XrLabel42, Me.XrLabel35, Me.XrLabel34, Me.XrLabel33, Me.XrLabel29, Me.XrLabel25})
+        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 = 16.66667!
+        Me.GroupHeader2.Name = "GroupHeader2"
        '
-        'MyDataset1
+        'XrLabel25
        '
-        Me.MyDataset1.DataSetName = "MyDataset"
-        Me.MyDataset1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        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(156.9489!, 0!)
+        Me.XrLabel25.Name = "XrLabel25"
+        Me.XrLabel25.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 96.0!)
+        Me.XrLabel25.SizeF = New System.Drawing.SizeF(58.88716!, 14.66667!)
+        Me.XrLabel25.StylePriority.UseFont = False
+        Me.XrLabel25.Text = "XrLabel25"
        '
-        'TBKOMMCOLLI_MANDANTTableAdapter
+        'XrLabel29
        '
-        Me.TBKOMMCOLLI_MANDANTTableAdapter.ClearBeforeFill = True
+        Me.XrLabel29.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT")})
+        Me.XrLabel29.Dpi = 100.0!
+        Me.XrLabel29.Font = New System.Drawing.Font("Arial", 8.25!)
+        Me.XrLabel29.LocationFloat = New DevExpress.Utils.PointFloat(278.3871!, 0!)
+        Me.XrLabel29.Name = "XrLabel29"
+        Me.XrLabel29.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
+        Me.XrLabel29.SizeF = New System.Drawing.SizeF(119.5757!, 14.66667!)
+        Me.XrLabel29.StylePriority.UseFont = False
        '
-        'VwhuP_REPORT1TableAdapter1
+        'XrLabel33
        '
-        Me.VwhuP_REPORT1TableAdapter1.ClearBeforeFill = True
+        Me.XrLabel33.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_GEWICHT", "{0} kg")})
+        Me.XrLabel33.Dpi = 100.0!
+        Me.XrLabel33.Font = New System.Drawing.Font("Arial", 8.25!)
+        Me.XrLabel33.LocationFloat = New DevExpress.Utils.PointFloat(428.5802!, 0!)
+        Me.XrLabel33.Name = "XrLabel33"
+        Me.XrLabel33.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
+        Me.XrLabel33.SizeF = New System.Drawing.SizeF(58.88716!, 14.66667!)
+        Me.XrLabel33.StylePriority.UseFont = False
+        '
+        'XrLabel34
+        '
+        Me.XrLabel34.Dpi = 100.0!
+        Me.XrLabel34.Font = New System.Drawing.Font("Arial", 8.25!)
+        Me.XrLabel34.LocationFloat = New DevExpress.Utils.PointFloat(509.744!, 0!)
+        Me.XrLabel34.Name = "XrLabel34"
+        Me.XrLabel34.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
+        Me.XrLabel34.SizeF = New System.Drawing.SizeF(58.88716!, 14.66667!)
+        Me.XrLabel34.StylePriority.UseFont = False
+        Me.XrLabel34.Text = "1.00 EUR"
+        '
+        'XrLabel35
+        '
+        Me.XrLabel35.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_FRANKATUR")})
+        Me.XrLabel35.Dpi = 100.0!
+        Me.XrLabel35.Font = New System.Drawing.Font("Arial", 8.25!)
+        Me.XrLabel35.LocationFloat = New DevExpress.Utils.PointFloat(591.1113!, 0!)
+        Me.XrLabel35.Name = "XrLabel35"
+        Me.XrLabel35.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
+        Me.XrLabel35.SizeF = New System.Drawing.SizeF(58.88716!, 14.66667!)
+        Me.XrLabel35.StylePriority.UseFont = False
+        '
+        'XrLabel42
+        '
+        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(241.0877!, 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.StylePriority.UseFont = False
+        Me.XrLabel42.StylePriority.UseTextAlignment = False
+        Me.XrLabel42.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft
+        '
+        'XrLabel43
+        '
+        Me.XrLabel43.Dpi = 100.0!
+        Me.XrLabel43.Font = New System.Drawing.Font("Arial", 8.25!)
+        Me.XrLabel43.LocationFloat = New DevExpress.Utils.PointFloat(215.8361!, 0!)
+        Me.XrLabel43.Name = "XrLabel43"
+        Me.XrLabel43.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!)
+        Me.XrLabel43.SizeF = New System.Drawing.SizeF(25.25041!, 14.66667!)
+        Me.XrLabel43.StylePriority.UseFont = False
+        Me.XrLabel43.StylePriority.UseTextAlignment = False
+        XrSummary4.FormatString = "{0}"
+        XrSummary4.Func = DevExpress.XtraReports.UI.SummaryFunc.Count
+        XrSummary4.Running = DevExpress.XtraReports.UI.SummaryRunning.Group
+        Me.XrLabel43.Summary = XrSummary4
+        Me.XrLabel43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight
        '
        'reportUebergabe
        '
-        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.PageHeaderBand1, Me.ReportHeaderBand1, Me.GroupHeader1, Me.GroupFooter1, Me.GroupHeader2, Me.ReportFooter, Me.GroupFooter2})
+        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.PageHeaderBand1, Me.ReportHeaderBand1, Me.GroupHeader1, Me.GroupFooter1, Me.ReportFooter, Me.GroupHeader2})
        Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1})
-        Me.DataAdapter = Me.VwhuP_REPORT1TableAdapter1
        Me.DataMember = "Query"
        Me.DataSource = Me.SqlDataSource1
        Me.FormattingRuleSheet.AddRange(New DevExpress.XtraReports.UI.FormattingRule() {Me.FormattingRule1})
@@ -1042,7 +1036,6 @@ Partial Public Class reportUebergabe
        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.MyDataset1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub
@@ -1090,12 +1083,6 @@ Partial Public Class reportUebergabe
    Friend WithEvents XrLabel39 As DevExpress.XtraReports.UI.XRLabel
    Friend WithEvents XrLabel46 As DevExpress.XtraReports.UI.XRLabel
    Friend WithEvents XrLabel47 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents GroupHeader2 As DevExpress.XtraReports.UI.GroupHeaderBand
-    Friend WithEvents XrLabel25 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel44 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel43 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel42 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents XrLabel45 As DevExpress.XtraReports.UI.XRLabel
    Friend WithEvents FormattingRule1 As DevExpress.XtraReports.UI.FormattingRule
    Friend WithEvents ReportFooter As DevExpress.XtraReports.UI.ReportFooterBand
    Friend WithEvents XrLabel32 As DevExpress.XtraReports.UI.XRLabel
@@ -1124,8 +1111,12 @@ Partial Public Class reportUebergabe
    Friend WithEvents XrLine1 As DevExpress.XtraReports.UI.XRLine
    Friend WithEvents XrLabel31 As DevExpress.XtraReports.UI.XRLabel
    Friend WithEvents XrLabel50 As DevExpress.XtraReports.UI.XRLabel
-    Friend WithEvents GroupFooter2 As DevExpress.XtraReports.UI.GroupFooterBand
-    Friend WithEvents MyDataset1 As MyDataset
-    Friend WithEvents TBKOMMCOLLI_MANDANTTableAdapter As MyDatasetTableAdapters.TBKOMMCOLLI_MANDANTTableAdapter
-    Friend WithEvents VwhuP_REPORT1TableAdapter1 As MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter
+    Friend WithEvents GroupHeader2 As DevExpress.XtraReports.UI.GroupHeaderBand
+    Friend WithEvents XrLabel25 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel35 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel34 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel33 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel29 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel42 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrLabel43 As DevExpress.XtraReports.UI.XRLabel
 End Class
--- a/SchaumKommiCollo/KommiCollo/reportUebergabe.resx
+++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.resx
@@ -153,13 +153,4 @@
  <data name="SqlDataSource1.ResultSchemaSerializable" xml:space="preserve">
    <value>PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iTEFEMSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfTEtaX1BMWl9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRkVSVElHIiBUeXBlPSJCb29sZWFuIiAvPjxGaWVsZCBOYW1lPSJTRU5EVU5HTlIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU0RHX1JFRkVSRU5aIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfWlVTQVRaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9TVFJBU1NFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9QTFpfU1RSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9MS1oiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09SVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfT1RFSUwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQUJIT0xEQVRVTSIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IlNER19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlNER19TVEVMTFBMQUVUWkUiIFR5cGU9IkludDE2IiAvPjxGaWVsZCBOYW1lPSJTREdfRlJBTktBVFVSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5WRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJQT1NJTkhBTFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TX0dFV0lDSFQiIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iUEFDS1NUVUVDS0FOWkFITCIgVHlwZT0iQnl0ZSIgLz48RmllbGQgTmFtZT0iQ09ERSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJCRU1FUktVTkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19DT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX1RFWFRfRVJHIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJPUkRFUk9OUiIgVHlwZT0iU3RyaW5nIiAvPjwvVmlldz48L0RhdGFTZXQ+</value>
  </data>
-  <metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
-  <metadata name="TBKOMMCOLLI_MANDANTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
-  </metadata>
-  <metadata name="VwhuP_REPORT1TableAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
-  </metadata>
 </root>