ActiveReports

2025-08-14 11:32:13 +02:00
parent 0ca060b7c0
commit 93fd68c058
35 changed files with 8571 additions and 11127 deletions
--- a/UID/ARConverterBackup/Reports/Auswertung/rptAuswertung.Designer.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/rptAuswertung.Designer.vb
@@ -0,0 +1,150 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class rptAuswertung
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertung))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.txtTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.txtTitel, Me.txtUeberschrift})
+        Me.PageHeader.Height = 1.5!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Picture1
+        '
+        Me.Picture1.Height = 0.5905511!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.Left = 0!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0!
+        Me.Picture1.Width = 2.551969!
+        '
+        'txtTitel
+        '
+        Me.txtTitel.Height = 0.2!
+        Me.txtTitel.Left = 3.041733!
+        Me.txtTitel.Name = "txtTitel"
+        Me.txtTitel.Style = "font-size: 9.75pt; font-weight: bold; text-align: right"
+        Me.txtTitel.Text = "txtTitel"
+        Me.txtTitel.Top = 0.3905512!
+        Me.txtTitel.Width = 4.438583!
+        '
+        'txtUeberschrift
+        '
+        Me.txtUeberschrift.Height = 0.3937007!
+        Me.txtUeberschrift.Left = 0!
+        Me.txtUeberschrift.Name = "txtUeberschrift"
+        Me.txtUeberschrift.Style = "font-size: 18pt; font-weight: bold; text-align: center"
+        Me.txtUeberschrift.Text = "Auswertung Vorkosten / Rechnungen"
+        Me.txtUeberschrift.Top = 1.022835!
+        Me.txtUeberschrift.Width = 7.480319!
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.subrpt})
+        Me.Detail.Height = 0.7084153!
+        Me.Detail.Name = "Detail"
+        '
+        'subrpt
+        '
+        Me.subrpt.CloseBorder = False
+        Me.subrpt.Height = 0.6874016!
+        Me.subrpt.Left = 0!
+        Me.subrpt.Name = "subrpt"
+        Me.subrpt.Report = Nothing
+        Me.subrpt.ReportName = "subrpt"
+        Me.subrpt.Top = 0!
+        Me.subrpt.Width = 7.480316!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.txtInfo})
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "{RunDateTime:dd/MM/yyyy}"
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 5.490551!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "text-align: right"
+        Me.ReportInfo1.Top = 0.05!
+        Me.ReportInfo1.Width = 1.989764!
+        '
+        'txtInfo
+        '
+        Me.txtInfo.Height = 0.2!
+        Me.txtInfo.Left = 0!
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.Text = "txtInfo"
+        Me.txtInfo.Top = 0.05!
+        Me.txtInfo.Width = 4.141733!
+        '
+        'rptAuswertung
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.480315!
+        Me.ScriptLanguage = "VB.NET"
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents subrpt As GrapeCity.ActiveReports.SectionReportModel.SubReport
+    Private WithEvents txtTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Private WithEvents txtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/rptAuswertung.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/rptAuswertung.vb
@@ -0,0 +1,49 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptAuswertung
+
+    Property von As String = ""
+    Property bis As String = ""
+    Property filname As String = ""
+    Property whatshallwedo As String = ""
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        If frmAuswertung.Jahresauswertung = True Then txtUeberschrift.Text = "Jahresauswertung"
+
+        If frmAuswertung.subrep = "subrptAuswertung" Then
+            Dim subrpt_Auswertung As New subrptAuswertung
+            subrpt_Auswertung.whatshallwedo = whatshallwedo
+            Me.subrpt.Report = subrpt_Auswertung
+            ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
+                txtUeberschrift.Text = "Einzelauswertung"
+                Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
+            Me.subrpt.Report = subrpt_Einzelauswertung
+        End If
+
+    End Sub
+
+    Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
+        'If frmAuswertung.chkJahresauswertung.Checked Then
+        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von.Substring(6) & " bis: " & frmAuswertung.bis.Substring(6)
+        'Else
+        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von & " bis: " & frmAuswertung.bis
+        'End If
+        txtTitel.Text = filname & ", von: " & von & " bis: " & bis
+    End Sub
+
+    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
+        If frmAuswertung.Info > "" Then
+            txtInfo.Text = "Das aktuelle Jahr " & frmAuswertung.Info & " ist NICHT vollständig!"
+        Else
+            txtInfo.Text = ""
+        End If
+
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture1.Image = My.Resources.ambar_simple
+        End If
+    End Sub
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/rptAuswertungLandscape.Designer.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/rptAuswertungLandscape.Designer.vb
@@ -0,0 +1,165 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class rptAuswertungLandscape
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertungLandscape))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.txtTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Picture1, Me.txtTitel, Me.txtUeberschrift, Me.ReportInfo2})
+        Me.PageHeader.Height = 1.020702!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Picture1
+        '
+        Me.Picture1.Height = 0.5905511!
+        Me.Picture1.HyperLink = Nothing
+        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.Left = 0!
+        Me.Picture1.Name = "Picture1"
+        Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.Picture1.Top = 0!
+        Me.Picture1.Width = 2.551969!
+        '
+        'txtTitel
+        '
+        Me.txtTitel.Height = 0.2!
+        Me.txtTitel.Left = 6.62441!
+        Me.txtTitel.Name = "txtTitel"
+        Me.txtTitel.Style = "font-size: 9.75pt; font-weight: bold; text-align: right"
+        Me.txtTitel.Text = "txtTitel"
+        Me.txtTitel.Top = 0.3905512!
+        Me.txtTitel.Width = 4.438583!
+        '
+        'txtUeberschrift
+        '
+        Me.txtUeberschrift.Height = 0.3937007!
+        Me.txtUeberschrift.Left = 0!
+        Me.txtUeberschrift.Name = "txtUeberschrift"
+        Me.txtUeberschrift.Style = "font-size: 18pt; font-weight: bold; text-align: center"
+        Me.txtUeberschrift.Text = "Auswertung Vorkosten / Rechnungen"
+        Me.txtUeberschrift.Top = 0.5905512!
+        Me.txtUeberschrift.Width = 11.06299!
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.subrpt})
+        Me.Detail.Height = 0.7708333!
+        Me.Detail.Name = "Detail"
+        '
+        'subrpt
+        '
+        Me.subrpt.CloseBorder = False
+        Me.subrpt.Height = 0.6874016!
+        Me.subrpt.Left = 0!
+        Me.subrpt.Name = "subrpt"
+        Me.subrpt.Report = Nothing
+        Me.subrpt.ReportName = "subrpt"
+        Me.subrpt.Top = 0!
+        Me.subrpt.Width = 11.06299!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.txtInfo})
+        Me.PageFooter.Height = 0.1979167!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportInfo1
+        '
+        Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
+        Me.ReportInfo1.Height = 0.2!
+        Me.ReportInfo1.Left = 7.104725!
+        Me.ReportInfo1.Name = "ReportInfo1"
+        Me.ReportInfo1.Style = "text-align: right"
+        Me.ReportInfo1.Top = 0!
+        Me.ReportInfo1.Width = 3.958268!
+        '
+        'txtInfo
+        '
+        Me.txtInfo.Height = 0.2!
+        Me.txtInfo.Left = 0!
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.Text = "txtInfo"
+        Me.txtInfo.Top = 0!
+        Me.txtInfo.Width = 4.141734!
+        '
+        'ReportInfo2
+        '
+        Me.ReportInfo2.FormatString = "{RunDateTime:dd/MM/yyyy}"
+        Me.ReportInfo2.Height = 0.2!
+        Me.ReportInfo2.Left = 10.06299!
+        Me.ReportInfo2.Name = "ReportInfo2"
+        Me.ReportInfo2.Style = ""
+        Me.ReportInfo2.Top = 0!
+        Me.ReportInfo2.Width = 1.0!
+        '
+        'rptAuswertungLandscape
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3149606!
+        Me.PageSettings.Margins.Left = 0.3149606!
+        Me.PageSettings.Margins.Right = 0.3149606!
+        Me.PageSettings.Margins.Top = 0.3149606!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 11.06299!
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtTitel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
+    Private WithEvents txtTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtUeberschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents subrpt As GrapeCity.ActiveReports.SectionReportModel.SubReport
+    Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Private WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/rptAuswertungLandscape.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/rptAuswertungLandscape.vb
@@ -0,0 +1,74 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptAuswertungLandscape
+
+    Property von As String = ""
+    Property bis As String = ""
+    Property filname As String = ""
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+
+        If frmAuswertung.subrep = "subrptAuswertung" Then
+            Dim subrpt_Auswertung As New subrptAuswertung
+            Me.subrpt.Report = subrpt_Auswertung
+        ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
+            txtUeberschrift.Text = "Einzelauswertung"
+            Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
+            Me.subrpt.Report = subrpt_Einzelauswertung
+        ElseIf frmAuswertung.subrep = "subrptEinzelStat" Then
+            txtUeberschrift.Text = "Einzelauswertung"
+            Dim subrpt_Einzelauswertung As New subrptEinzelStat
+            Me.subrpt.Report = subrpt_Einzelauswertung
+        ElseIf frmAuswertung.Suchauswertung Then
+            txtUeberschrift.Text = "Suchauswertung"
+        End If
+
+    End Sub
+
+    Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
+        'If frmAuswertung.Jahresauswertung Then
+        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von.Substring(6) & " bis: " & frmAuswertung.bis.Substring(6)
+        'ElseIf frmAuswertung.Suchauswertung Then
+        '    txtTitel.Text = "von: " & usrcntlAuftraege.von.ToString("dd.MM.yyyy") & " bis: " & usrcntlAuftraege.bis.ToString("dd.MM.yyyy")
+
+        'Else
+        '    txtTitel.Text = frmAuswertung.filname & ", von: " & frmAuswertung.von & " bis: " & frmAuswertung.bis
+        'End If
+        txtTitel.Text = filname & ", von: " & von & " bis: " & bis
+    End Sub
+
+    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
+        If frmAuswertung.Info > "" Then
+            txtInfo.Text = "Das aktuelle Jahr " & frmAuswertung.Info & " ist NICHT vollständig!"
+        Else
+            txtInfo.Text = ""
+        End If
+
+    End Sub
+
+    Private Sub rptAuswertungLandscape_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If frmAuswertung.Jahresauswertung = True Then txtUeberschrift.Text = "Jahresauswertung"
+        If frmAuswertung.Einzelauswertung = True Then txtUeberschrift.Text = "Einzelauswertung"
+
+        If frmAuswertung.subrep = "subrptAuswertung" Then
+            Dim subrpt_Auswertung As New subrptAuswertung
+            Me.subrpt.Report = subrpt_Auswertung
+        ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
+            txtUeberschrift.Text = "Einzelauswertung"
+            Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
+            Me.subrpt.Report = subrpt_Einzelauswertung
+        ElseIf frmAuswertung.subrep = "subrptEinzelStat" Then
+            txtUeberschrift.Text = "Einzelauswertung"
+            Dim subrpt_Einzelauswertung As New subrptEinzelStat
+            Me.subrpt.Report = subrpt_Einzelauswertung
+        ElseIf frmAuswertung.Suchauswertung Then
+            txtUeberschrift.Text = "Suchauswertung"
+        End If
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Picture1.Image = My.Resources.ambar_simple
+        End If
+
+    End Sub
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/subrptAuswertung.Designer.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/subrptAuswertung.Designer.vb
@@ -0,0 +1,609 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subrptAuswertung
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptAuswertung))
+        Dim ChartArea1 As GrapeCity.ActiveReports.Chart.ChartArea = New GrapeCity.ActiveReports.Chart.ChartArea()
+        Dim Axis1 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
+        Dim Axis2 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
+        Dim Axis3 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
+        Dim Axis4 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
+        Dim Axis5 As GrapeCity.ActiveReports.Chart.Axis = New GrapeCity.ActiveReports.Chart.Axis()
+        Dim WallRange1 As GrapeCity.ActiveReports.Chart.WallRange = New GrapeCity.ActiveReports.Chart.WallRange()
+        Dim Legend1 As GrapeCity.ActiveReports.Chart.Legend = New GrapeCity.ActiveReports.Chart.Legend()
+        Dim Title1 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
+        Dim Title2 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
+        Dim Series1 As GrapeCity.ActiveReports.Chart.Series = New GrapeCity.ActiveReports.Chart.Series()
+        Dim Series2 As GrapeCity.ActiveReports.Chart.Series = New GrapeCity.ActiveReports.Chart.Series()
+        Dim Series3 As GrapeCity.ActiveReports.Chart.Series = New GrapeCity.ActiveReports.Chart.Series()
+        Dim Title3 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
+        Dim Title4 As GrapeCity.ActiveReports.Chart.Title = New GrapeCity.ActiveReports.Chart.Title()
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtMonat = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRechnungen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkosten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbfertigungsdatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMarge = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeProz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.Chart = New GrapeCity.ActiveReports.SectionReportModel.ChartControl()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.txtRechnungenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRechnungenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TxtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkostenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkostenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahlSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahlSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeProzSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        CType(Me.txtMonat, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkosten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbfertigungsdatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeProz, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Chart, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahlSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtMonat, Me.txtAnzahl, Me.txtRechnungen, Me.txtVorkosten, Me.txtAbfertigungsdatum, Me.txtMarge, Me.txtMargeProz})
+        Me.Detail.Height = 0.2708005!
+        Me.Detail.Name = "Detail"
+        '
+        'txtMonat
+        '
+        Me.txtMonat.Height = 0.2!
+        Me.txtMonat.Left = 0!
+        Me.txtMonat.Name = "txtMonat"
+        Me.txtMonat.Text = "txtMonat"
+        Me.txtMonat.Top = 0!
+        Me.txtMonat.Width = 1.0!
+        '
+        'txtAnzahl
+        '
+        Me.txtAnzahl.Height = 0.2!
+        Me.txtAnzahl.Left = 1.787402!
+        Me.txtAnzahl.Name = "txtAnzahl"
+        Me.txtAnzahl.Text = "txtAnzahl"
+        Me.txtAnzahl.Top = 0!
+        Me.txtAnzahl.Width = 1.0!
+        '
+        'txtRechnungen
+        '
+        Me.txtRechnungen.Height = 0.2!
+        Me.txtRechnungen.Left = 4.141733!
+        Me.txtRechnungen.Name = "txtRechnungen"
+        Me.txtRechnungen.Style = "background-color: LightCyan; text-align: left"
+        Me.txtRechnungen.Text = "txtRechnungen"
+        Me.txtRechnungen.Top = 0!
+        Me.txtRechnungen.Width = 1.364567!
+        '
+        'txtVorkosten
+        '
+        Me.txtVorkosten.Height = 0.2!
+        Me.txtVorkosten.Left = 2.787402!
+        Me.txtVorkosten.Name = "txtVorkosten"
+        Me.txtVorkosten.Text = "txtVorkosten"
+        Me.txtVorkosten.Top = 0!
+        Me.txtVorkosten.Width = 1.354331!
+        '
+        'txtAbfertigungsdatum
+        '
+        Me.txtAbfertigungsdatum.Height = 0.2!
+        Me.txtAbfertigungsdatum.Left = 1.0!
+        Me.txtAbfertigungsdatum.Name = "txtAbfertigungsdatum"
+        Me.txtAbfertigungsdatum.Text = "txtAbfertigungsdatum"
+        Me.txtAbfertigungsdatum.Top = 0!
+        Me.txtAbfertigungsdatum.Width = 0.7874016!
+        '
+        'txtMarge
+        '
+        Me.txtMarge.Height = 0.2!
+        Me.txtMarge.Left = 5.506299!
+        Me.txtMarge.Name = "txtMarge"
+        Me.txtMarge.Style = "text-align: left"
+        Me.txtMarge.Text = "txtMarge"
+        Me.txtMarge.Top = 0!
+        Me.txtMarge.Width = 1.364567!
+        '
+        'txtMargeProz
+        '
+        Me.txtMargeProz.Height = 0.2!
+        Me.txtMargeProz.Left = 6.870867!
+        Me.txtMargeProz.Name = "txtMargeProz"
+        Me.txtMargeProz.Style = "text-align: center"
+        Me.txtMargeProz.Text = "txtMargeProz"
+        Me.txtMargeProz.Top = 0!
+        Me.txtMargeProz.Width = 0.6094489!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0.01041651!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Height = 0!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Chart, Me.Line1, Me.txtRechnungenSumme, Me.txtMargeSumme, Me.txtRechnungenSchnitt, Me.txtMargeSchnitt, Me.TxtSumme, Me.TextBox6, Me.txtVorkostenSumme, Me.txtVorkostenSchnitt, Me.txtAnzahlSumme, Me.txtAnzahlSchnitt, Me.txtMargeProzSchnitt})
+        Me.ReportFooter1.Height = 4.8438!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'Chart
+        '
+        Me.Chart.AutoRefresh = True
+        Me.Chart.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.SteelBlue, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
+        ChartArea1.AntiAliasMode = GrapeCity.ActiveReports.Chart.Graphics.AntiAliasMode.Graphics
+        Axis1.Arrow = GrapeCity.ActiveReports.Chart.ArrowType.Lines
+        Axis1.AxisType = GrapeCity.ActiveReports.Chart.AxisType.Categorical
+        Axis1.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!), 75.0!)
+        Axis1.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dash), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dot), 1.0R, 0!, False)
+        Axis1.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis1.StaggerLabels = True
+        Axis1.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis2.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis2.LabelsGap = 0
+        Axis2.LabelsVisible = False
+        Axis2.Line = New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, 0)
+        Axis2.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis2.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis2.Position = 0R
+        Axis2.TickOffset = 0R
+        Axis2.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis2.Visible = False
+        Axis3.Arrow = GrapeCity.ActiveReports.Chart.ArrowType.Lines
+        Axis3.AxisType = GrapeCity.ActiveReports.Chart.AxisType.Categorical
+        Axis3.DisplayScale = True
+        Axis3.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis3.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Gray, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Silver, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dot), 1.0R, 10.0!, True)
+        Axis3.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Gray, 0), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0.1R, 0!, False)
+        Axis3.Position = 0R
+        Axis3.Title = "Euro"
+        Axis3.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!), -90.0!)
+        Axis4.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis4.LabelsVisible = False
+        Axis4.Line = New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None)
+        Axis4.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis4.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis4.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis4.Visible = False
+        Axis5.LabelFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis5.LabelsGap = 0
+        Axis5.LabelsVisible = False
+        Axis5.Line = New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None)
+        Axis5.MajorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis5.MinorTick = New GrapeCity.ActiveReports.Chart.Tick(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0R, 0!, False)
+        Axis5.Position = 0R
+        Axis5.TickOffset = 0R
+        Axis5.TitleFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Axis5.Visible = False
+        ChartArea1.Axes.AddRange(New GrapeCity.ActiveReports.Chart.AxisBase() {Axis1, Axis2, Axis3, Axis4, Axis5})
+        ChartArea1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
+        ChartArea1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
+        ChartArea1.Light = New GrapeCity.ActiveReports.Chart.Light(New GrapeCity.ActiveReports.Chart.Graphics.Point3d(10.0!, 40.0!, 20.0!), GrapeCity.ActiveReports.Chart.LightType.InfiniteDirectional, 0.14!)
+        ChartArea1.Name = "defaultArea"
+        ChartArea1.Projection = New GrapeCity.ActiveReports.Chart.Projection(GrapeCity.ActiveReports.Chart.Graphics.ProjectionType.Identical, 0.1!, 0.1!, -8.0!, 20.0!)
+        WallRange1.AdjacentAxes.AddRange(New GrapeCity.ActiveReports.Chart.AxisBase() {Axis1})
+        WallRange1.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(System.Drawing.Color.LightGray)
+        WallRange1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None))
+        WallRange1.Name = "range1"
+        WallRange1.PrimaryAxis = Axis1
+        WallRange1.Visible = False
+        ChartArea1.WallRanges.AddRange(New GrapeCity.ActiveReports.Chart.WallRange() {WallRange1})
+        ChartArea1.WallXY = New GrapeCity.ActiveReports.Chart.PlaneItem(New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.Red, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched))
+        Me.Chart.ChartAreas.AddRange(New GrapeCity.ActiveReports.Chart.ChartArea() {ChartArea1})
+        Me.Chart.ChartBorder = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)), 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 1, System.Drawing.Color.White)
+        Me.Chart.Height = 3.895669!
+        Me.Chart.Left = 0!
+        Legend1.Alignment = GrapeCity.ActiveReports.Chart.Alignment.Right
+        Legend1.Backdrop = New GrapeCity.ActiveReports.Chart.BackdropItem(System.Drawing.Color.White, CType(128, Byte))
+        Legend1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(), 0, System.Drawing.Color.Black)
+        Legend1.DockArea = ChartArea1
+        Title1.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
+        Title1.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
+        Title1.DockArea = Nothing
+        Title1.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Title1.Name = ""
+        Title1.Text = ""
+        Legend1.Footer = Title1
+        Title2.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.White, 2), 0, System.Drawing.Color.Black)
+        Title2.DockArea = Nothing
+        Title2.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Arial", 8.0!, GrapeCity.ActiveReports.Chart.Drawing.FontStyle.Bold))
+        Title2.Name = ""
+        Title2.Text = "Legende"
+        Legend1.Header = Title2
+        Legend1.LabelsFont = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Arial", 8.0!))
+        Legend1.Name = "defaultLegend"
+        Me.Chart.Legends.AddRange(New GrapeCity.ActiveReports.Chart.Legend() {Legend1})
+        Me.Chart.Name = "Chart"
+        Series1.AxisX = Axis1
+        Series1.AxisY = Axis3
+        Series1.ChartArea = ChartArea1
+        Series1.Legend = Legend1
+        Series1.Name = "Vorkosten"
+        Series1.Properties = New GrapeCity.ActiveReports.Chart.CustomProperties(New GrapeCity.ActiveReports.Chart.KeyValuePair() {New GrapeCity.ActiveReports.Chart.KeyValuePair("Line", New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Red, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dot)), New GrapeCity.ActiveReports.Chart.KeyValuePair("BarType", GrapeCity.ActiveReports.Chart.BarType.Bar)})
+        Series1.Type = GrapeCity.ActiveReports.Chart.ChartType.Line
+        Series1.ValueMembersY = Nothing
+        Series1.ValueMemberX = Nothing
+        Series2.AxisX = Axis1
+        Series2.AxisY = Axis3
+        Series2.ChartArea = ChartArea1
+        Series2.Legend = Legend1
+        Series2.Name = "Rechnungen"
+        Series2.Properties = New GrapeCity.ActiveReports.Chart.CustomProperties(New GrapeCity.ActiveReports.Chart.KeyValuePair() {New GrapeCity.ActiveReports.Chart.KeyValuePair("Line", New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Lime, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.Dash)), New GrapeCity.ActiveReports.Chart.KeyValuePair("BarType", GrapeCity.ActiveReports.Chart.BarType.Bar)})
+        Series2.Type = GrapeCity.ActiveReports.Chart.ChartType.Line
+        Series2.ValueMembersY = Nothing
+        Series2.ValueMemberX = Nothing
+        Series3.AxisX = Axis1
+        Series3.AxisY = Axis3
+        Series3.ChartArea = ChartArea1
+        Series3.Legend = Legend1
+        Series3.Name = "Marge"
+        Series3.Properties = New GrapeCity.ActiveReports.Chart.CustomProperties(New GrapeCity.ActiveReports.Chart.KeyValuePair() {New GrapeCity.ActiveReports.Chart.KeyValuePair("Line", New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Black, 2))})
+        Series3.Type = GrapeCity.ActiveReports.Chart.ChartType.Line
+        Series3.ValueMembersY = Nothing
+        Series3.ValueMemberX = Nothing
+        Me.Chart.Series.AddRange(New GrapeCity.ActiveReports.Chart.Series() {Series1, Series2, Series3})
+        Title3.Alignment = GrapeCity.ActiveReports.Chart.Alignment.Center
+        Title3.Backdrop = New GrapeCity.ActiveReports.Chart.Graphics.Backdrop(GrapeCity.ActiveReports.Chart.Graphics.BackdropStyle.Transparent, System.Drawing.Color.White, System.Drawing.Color.White, GrapeCity.ActiveReports.Chart.Graphics.GradientType.Vertical, System.Drawing.Drawing2D.HatchStyle.DottedGrid, Nothing, GrapeCity.ActiveReports.Chart.Graphics.PicturePutStyle.Stretched)
+        Title3.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
+        Title3.DockArea = Nothing
+        Title3.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Arial", 10.0!, GrapeCity.ActiveReports.Chart.Drawing.FontStyle.Bold))
+        Title3.Name = "header"
+        Title3.Text = "Verlauf"
+        Title4.Border = New GrapeCity.ActiveReports.Chart.Border(New GrapeCity.ActiveReports.Chart.Graphics.Line(System.Drawing.Color.Transparent, 0, GrapeCity.ActiveReports.Chart.Graphics.LineStyle.None), 0, System.Drawing.Color.Black)
+        Title4.DockArea = Nothing
+        Title4.Docking = GrapeCity.ActiveReports.Chart.DockType.Bottom
+        Title4.Font = New GrapeCity.ActiveReports.Chart.FontInfo(System.Drawing.Color.Black, New GrapeCity.ActiveReports.Chart.Drawing.Font("Microsoft Sans Serif", 8.0!))
+        Title4.Name = "footer"
+        Title4.Text = "Chart Footer"
+        Title4.Visible = False
+        Me.Chart.Titles.AddRange(New GrapeCity.ActiveReports.Chart.Title() {Title3, Title4})
+        Me.Chart.Top = 0.9480315!
+        Me.Chart.UIOptions = GrapeCity.ActiveReports.Chart.UIOptions.ForceHitTesting
+        Me.Chart.Width = 7.480316!
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 0.3937008!
+        Me.Line1.LineColor = System.Drawing.Color.Gray
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0.07283465!
+        Me.Line1.Width = 6.692914!
+        Me.Line1.X1 = 0.3937008!
+        Me.Line1.X2 = 7.086614!
+        Me.Line1.Y1 = 0.07283465!
+        Me.Line1.Y2 = 0.07283465!
+        '
+        'txtRechnungenSumme
+        '
+        Me.txtRechnungenSumme.Height = 0.2!
+        Me.txtRechnungenSumme.Left = 4.141733!
+        Me.txtRechnungenSumme.Name = "txtRechnungenSumme"
+        Me.txtRechnungenSumme.Style = "text-align: left"
+        Me.txtRechnungenSumme.Text = "txtRechnungenSumme"
+        Me.txtRechnungenSumme.Top = 0.1811024!
+        Me.txtRechnungenSumme.Width = 1.364567!
+        '
+        'txtMargeSumme
+        '
+        Me.txtMargeSumme.Height = 0.2!
+        Me.txtMargeSumme.Left = 5.506298!
+        Me.txtMargeSumme.Name = "txtMargeSumme"
+        Me.txtMargeSumme.Style = "text-align: left"
+        Me.txtMargeSumme.Text = "txtMargeSumme"
+        Me.txtMargeSumme.Top = 0.1811024!
+        Me.txtMargeSumme.Width = 1.364567!
+        '
+        'txtRechnungenSchnitt
+        '
+        Me.txtRechnungenSchnitt.Height = 0.2!
+        Me.txtRechnungenSchnitt.Left = 4.141733!
+        Me.txtRechnungenSchnitt.Name = "txtRechnungenSchnitt"
+        Me.txtRechnungenSchnitt.Style = "text-align: left"
+        Me.txtRechnungenSchnitt.Text = "txtRechnungenSchnitt"
+        Me.txtRechnungenSchnitt.Top = 0.4330709!
+        Me.txtRechnungenSchnitt.Width = 1.364567!
+        '
+        'txtMargeSchnitt
+        '
+        Me.txtMargeSchnitt.Height = 0.2!
+        Me.txtMargeSchnitt.Left = 5.506298!
+        Me.txtMargeSchnitt.Name = "txtMargeSchnitt"
+        Me.txtMargeSchnitt.Style = "text-align: left"
+        Me.txtMargeSchnitt.Text = "txtMargeSchnitt"
+        Me.txtMargeSchnitt.Top = 0.4330709!
+        Me.txtMargeSchnitt.Width = 1.364567!
+        '
+        'TxtSumme
+        '
+        Me.TxtSumme.Height = 0.2!
+        Me.TxtSumme.Left = 0.2165354!
+        Me.TxtSumme.Name = "TxtSumme"
+        Me.TxtSumme.Style = "text-align: left"
+        Me.TxtSumme.Text = "Summe:"
+        Me.TxtSumme.Top = 0.1811024!
+        Me.TxtSumme.Width = 1.364567!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.2!
+        Me.TextBox6.Left = 0.2165352!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "text-align: left"
+        Me.TextBox6.Text = "Durchschnitt:"
+        Me.TextBox6.Top = 0.433071!
+        Me.TextBox6.Width = 1.364567!
+        '
+        'txtVorkostenSumme
+        '
+        Me.txtVorkostenSumme.Height = 0.2!
+        Me.txtVorkostenSumme.Left = 2.787402!
+        Me.txtVorkostenSumme.Name = "txtVorkostenSumme"
+        Me.txtVorkostenSumme.Text = "txtVorkostenSumme"
+        Me.txtVorkostenSumme.Top = 0.1811024!
+        Me.txtVorkostenSumme.Width = 1.354331!
+        '
+        'txtVorkostenSchnitt
+        '
+        Me.txtVorkostenSchnitt.Height = 0.2!
+        Me.txtVorkostenSchnitt.Left = 2.787402!
+        Me.txtVorkostenSchnitt.Name = "txtVorkostenSchnitt"
+        Me.txtVorkostenSchnitt.Text = "txtVorkostenSchnitt"
+        Me.txtVorkostenSchnitt.Top = 0.4330709!
+        Me.txtVorkostenSchnitt.Width = 1.354331!
+        '
+        'txtAnzahlSumme
+        '
+        Me.txtAnzahlSumme.Height = 0.2!
+        Me.txtAnzahlSumme.Left = 1.787402!
+        Me.txtAnzahlSumme.Name = "txtAnzahlSumme"
+        Me.txtAnzahlSumme.Text = "txtAnzahlSumme"
+        Me.txtAnzahlSumme.Top = 0.1811024!
+        Me.txtAnzahlSumme.Width = 1.0!
+        '
+        'txtAnzahlSchnitt
+        '
+        Me.txtAnzahlSchnitt.Height = 0.2!
+        Me.txtAnzahlSchnitt.Left = 1.787402!
+        Me.txtAnzahlSchnitt.Name = "txtAnzahlSchnitt"
+        Me.txtAnzahlSchnitt.Text = "txtAnzahlSchnitt"
+        Me.txtAnzahlSchnitt.Top = 0.4330709!
+        Me.txtAnzahlSchnitt.Width = 1.0!
+        '
+        'txtMargeProzSchnitt
+        '
+        Me.txtMargeProzSchnitt.Height = 0.2!
+        Me.txtMargeProzSchnitt.Left = 6.870867!
+        Me.txtMargeProzSchnitt.Name = "txtMargeProzSchnitt"
+        Me.txtMargeProzSchnitt.Style = "text-align: center"
+        Me.txtMargeProzSchnitt.Text = "txtMargeProzSchnitt"
+        Me.txtMargeProzSchnitt.Top = 0.4330709!
+        Me.txtMargeProzSchnitt.Width = 0.6094489!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5, Me.TextBox7, Me.TextBox8})
+        Me.GroupHeader1.DataField = ""
+        Me.GroupHeader1.Height = 0.375!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 0.000001072884!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox1.Text = "Monat"
+        Me.TextBox1.Top = 0.07047245!
+        Me.TextBox1.Width = 1.0!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.2!
+        Me.TextBox2.Left = 1.787402!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox2.Text = "Anzahl"
+        Me.TextBox2.Top = 0.07047245!
+        Me.TextBox2.Width = 1.0!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.2!
+        Me.TextBox3.Left = 4.141735!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox3.Text = "Rechnungen"
+        Me.TextBox3.Top = 0.07047245!
+        Me.TextBox3.Width = 1.364567!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.2!
+        Me.TextBox4.Left = 2.787402!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox4.Text = "Vorkosten"
+        Me.TextBox4.Top = 0.07047245!
+        Me.TextBox4.Width = 1.354331!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 1.000001!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox5.Text = "Jahr"
+        Me.TextBox5.Top = 0.07047245!
+        Me.TextBox5.Width = 0.7874014!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 5.5063!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox7.Text = "Marge"
+        Me.TextBox7.Top = 0.07047245!
+        Me.TextBox7.Width = 1.364567!
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 6.870868!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold; text-align: " &
+    "center"
+        Me.TextBox8.Text = "%"
+        Me.TextBox8.Top = 0.07047245!
+        Me.TextBox8.Width = 0.6094489!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'subrptAuswertung
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.480317!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtMonat, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkosten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbfertigungsdatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeProz, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Chart, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahlSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents txtMonat As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRechnungen As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkosten As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAbfertigungsdatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMarge As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeProz As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents Chart As GrapeCity.ActiveReports.SectionReportModel.ChartControl
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents txtRechnungenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRechnungenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TxtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkostenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkostenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahlSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahlSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeProzSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/subrptAuswertung.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/subrptAuswertung.vb
@@ -0,0 +1,137 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptAuswertung
+
+    Property whatshallwedo As String = ""
+
+    Public Rechnungssumme As Double = 0
+    Public Vorkostensumme As Double = 0
+    Public MargeSumme As Double = 0
+    Public AnzahlSumme As Double = 0
+    Public AnzahlProz As Double = 0
+    Public c As Integer = 0 ' Wiederholungscounter
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        'If frmAuswertung.Jahresauswertung = False Then
+        '    Try
+        '        txtMonat.Text = Fields.Item("Monat").Value
+        '        txtAbfertigungsdatum.Text = Fields.Item("Jahr").Value 'VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Abfertigungsdatum").Value).Substring(6)
+        '    Catch
+        '        txtMonat.Text = "-"
+        '        txtAbfertigungsdatum.Text = "-"
+        '    End Try
+
+        'ElseIf frmAuswertung.Jahresauswertung = True Then
+        '    txtMonat.Text = "-"
+        '    txtAbfertigungsdatum.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Jahr").Value)
+        'End If
+
+        Select Case whatshallwedo
+            Case "Jahresauswertung"
+                txtMonat.Text = "-"
+                txtAbfertigungsdatum.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Jahr").Value)
+            Case Else
+                Try
+                    txtMonat.Text = Fields.Item("Monat").Value
+                    txtAbfertigungsdatum.Text = Fields.Item("Jahr").Value 'VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Abfertigungsdatum").Value).Substring(6)
+                Catch
+                    txtMonat.Text = "-"
+                    txtAbfertigungsdatum.Text = "-"
+                End Try
+        End Select
+
+        txtAnzahl.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Anzahl").Value)
+        txtRechnungen.Text = CDbl(VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Rechnungen").Value)).ToString("c2")
+        txtVorkosten.Text = CDbl(VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Vorkosten").Value)).ToString("c2")
+
+        txtMarge.Text = (txtRechnungen.Text - txtVorkosten.Text).ToString("c2")
+        Dim i As Double = CDbl((100 * txtMarge.Text) / txtRechnungen.Text).ToString("N2")
+        txtMargeProz.Text = i & "%"
+
+        If c Mod 2 = 0 Then
+            txtMonat.BackColor = Color.White
+            txtAnzahl.BackColor = Color.White
+            txtRechnungen.BackColor = Color.White
+            txtVorkosten.BackColor = Color.White
+            txtAbfertigungsdatum.BackColor = Color.White
+            txtMarge.BackColor = Color.White
+            txtMargeProz.BackColor = Color.White
+        Else
+            txtMonat.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtAnzahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtRechnungen.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtVorkosten.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtAbfertigungsdatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtMarge.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtMargeProz.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        End If
+
+
+
+        Rechnungssumme = Rechnungssumme + txtRechnungen.Text
+        Vorkostensumme = Vorkostensumme + txtVorkosten.Text
+        MargeSumme = MargeSumme + txtMarge.Text
+        AnzahlSumme = AnzahlSumme + txtAnzahl.Text
+        AnzahlProz = AnzahlProz + i
+
+        Try
+            Dim dprechnungen, dpvorkosten, dpmarge As New GrapeCity.ActiveReports.Chart.DataPoint
+            If frmAuswertung.Jahresauswertung = False Then
+                dprechnungen.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item(4).Value).Substring(3)
+            Else
+                dprechnungen.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Jahr").Value)
+            End If
+
+            dprechnungen.YValues = New Chart.DoubleArray(New Double() {VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Rechnungen").Value)})
+            Chart.Series("Rechnungen").Points.Add(dprechnungen)
+
+            dpvorkosten.XValue = dprechnungen.XValue
+            'dpvorkosten.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item(4).Value).Substring(3)
+            dpvorkosten.YValues = New Chart.DoubleArray(New Double() {VERAG_PROG_ALLGEMEIN.SQL.checkNulDbl(Fields.Item("Vorkosten").Value)})
+            Chart.Series("Vorkosten").Points.Add(dpvorkosten)
+
+            dpmarge.XValue = dprechnungen.XValue
+            'dpvorkosten.XValue = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item(4).Value).Substring(3)
+            dpmarge.YValues = New Chart.DoubleArray(New Double() {txtMarge.Text})
+            Chart.Series("Marge").Points.Add(dpmarge)
+
+
+        Catch ex As Exception
+        End Try
+
+        c = c + 1
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = frmAuswertung.dt 'frmAuswertung.ds.Tables(0)
+    End Sub
+
+    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
+
+    End Sub
+
+    Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
+
+
+    End Sub
+
+    Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
+        txtMargeSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtRechnungenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtVorkostenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtAnzahlSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        TxtSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+        txtMargeSumme.Text = MargeSumme.ToString("c2")
+        txtRechnungenSumme.Text = Rechnungssumme.ToString("c2")
+        txtVorkostenSumme.Text = Vorkostensumme.ToString("c2")
+        txtAnzahlSumme.Text = AnzahlSumme.ToString
+
+        txtMargeSchnitt.Text = (MargeSumme / c).ToString("c2")
+        txtRechnungenSchnitt.Text = (Rechnungssumme / c).ToString("c2")
+        txtVorkostenSchnitt.Text = (Vorkostensumme / c).ToString("c2")
+        txtAnzahlSchnitt.Text = (AnzahlSumme / c).ToString("n2")
+        txtMargeProzSchnitt.Text = (AnzahlProz / c).ToString("n2") & "%"
+    End Sub
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelStat.Designer.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelStat.Designer.vb
@@ -0,0 +1,324 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class subrptEinzelStat
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptEinzelStat))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtSummeAuftraege = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSummeAuftraege, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtPosNr, Me.txtAuftraggeber, Me.txtFraechter, Me.txtLeistung, Me.txtDatum})
+        Me.Detail.Height = 0.2397638!
+        Me.Detail.Name = "Detail"
+        '
+        'txtPosNr
+        '
+        Me.txtPosNr.Height = 0.2!
+        Me.txtPosNr.Left = 0!
+        Me.txtPosNr.Name = "txtPosNr"
+        Me.txtPosNr.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtPosNr.Text = "PosNr."
+        Me.txtPosNr.Top = 0!
+        Me.txtPosNr.Width = 0.8267716!
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.Height = 0.2!
+        Me.txtAuftraggeber.Left = 1.970866!
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtAuftraggeber.Text = "Auftraggeber"
+        Me.txtAuftraggeber.Top = 0!
+        Me.txtAuftraggeber.Width = 3.937796!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.Height = 0.2!
+        Me.txtFraechter.Left = 5.908662!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtFraechter.Text = "Frächter"
+        Me.txtFraechter.Top = 0!
+        Me.txtFraechter.Width = 3.933859!
+        '
+        'txtLeistung
+        '
+        Me.txtLeistung.Height = 0.2!
+        Me.txtLeistung.Left = 9.842521!
+        Me.txtLeistung.Name = "txtLeistung"
+        Me.txtLeistung.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtLeistung.Text = "Leistung"
+        Me.txtLeistung.Top = 0!
+        Me.txtLeistung.Width = 1.141733!
+        '
+        'txtDatum
+        '
+        Me.txtDatum.Height = 0.2!
+        Me.txtDatum.Left = 0.8267717!
+        Me.txtDatum.Name = "txtDatum"
+        Me.txtDatum.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtDatum.Text = "Datum"
+        Me.txtDatum.Top = 0!
+        Me.txtDatum.Width = 0.8267716!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox6, Me.TextBox7, Me.TextBox3})
+        Me.GroupHeader1.Height = 0.2501394!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox1.Text = "PosNr."
+        Me.TextBox1.Top = 0!
+        Me.TextBox1.Width = 0.8267716!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.2!
+        Me.TextBox2.Left = 1.970866!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox2.Text = "Auftraggeber"
+        Me.TextBox2.Top = 0!
+        Me.TextBox2.Width = 3.937796!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.2!
+        Me.TextBox6.Left = 5.908662!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox6.Text = "Frächter"
+        Me.TextBox6.Top = 0!
+        Me.TextBox6.Width = 3.933859!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 9.842521!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox7.Text = "Leistung"
+        Me.TextBox7.Top = 0.0001393631!
+        Me.TextBox7.Width = 1.14173!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.2!
+        Me.TextBox3.Left = 0.8267717!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox3.Text = "Datum"
+        Me.TextBox3.Top = 0!
+        Me.TextBox3.Width = 0.8267716!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Height = 0!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox4, Me.TextBox5, Me.TextBox8, Me.txtSummeAuftraege, Me.txtSummeTransporte, Me.txtSummeHandlings})
+        Me.ReportFooter1.Height = 1.177083!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.2!
+        Me.TextBox4.Left = 0.8267717!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox4.Text = "Summe"
+        Me.TextBox4.Top = 0.1397638!
+        Me.TextBox4.Width = 1.09252!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 0.8267717!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.TextBox5.Text = "Transporte:"
+        Me.TextBox5.Top = 0.3397638!
+        Me.TextBox5.Width = 0.8267716!
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 0.8267717!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.TextBox8.Text = "Handlings:"
+        Me.TextBox8.Top = 0.5397638!
+        Me.TextBox8.Width = 0.8267716!
+        '
+        'txtSummeAuftraege
+        '
+        Me.txtSummeAuftraege.Height = 0.2!
+        Me.txtSummeAuftraege.Left = 2.435433!
+        Me.txtSummeAuftraege.Name = "txtSummeAuftraege"
+        Me.txtSummeAuftraege.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.txtSummeAuftraege.Text = "Summe"
+        Me.txtSummeAuftraege.Top = 0.1397638!
+        Me.txtSummeAuftraege.Width = 1.09252!
+        '
+        'txtSummeTransporte
+        '
+        Me.txtSummeTransporte.Height = 0.2!
+        Me.txtSummeTransporte.Left = 2.435433!
+        Me.txtSummeTransporte.Name = "txtSummeTransporte"
+        Me.txtSummeTransporte.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtSummeTransporte.Text = "Transporte:"
+        Me.txtSummeTransporte.Top = 0.3397638!
+        Me.txtSummeTransporte.Width = 0.8267716!
+        '
+        'txtSummeHandlings
+        '
+        Me.txtSummeHandlings.Height = 0.2!
+        Me.txtSummeHandlings.Left = 2.435433!
+        Me.txtSummeHandlings.Name = "txtSummeHandlings"
+        Me.txtSummeHandlings.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtSummeHandlings.Text = "Handlings:"
+        Me.txtSummeHandlings.Top = 0.5397638!
+        Me.txtSummeHandlings.Width = 0.8267716!
+        '
+        'subrptEinzelStat
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 10.98425!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSummeAuftraege, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtSummeAuftraege As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelStat.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelStat.vb
@@ -0,0 +1,48 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptEinzelStat
+
+    Dim t As Integer = 0
+    Dim h As Integer = 0
+    Dim c As Integer = 0
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        txtPosNr.Text = Fields.Item("atr_frachtpos").Value
+        txtDatum.Text = Fields.Item("atr_datum").Value
+        txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
+        txtFraechter.Text = Fields.Item("Transportunternehmen").Value
+        txtLeistung.Text = Fields.Item("atr_AuftragsArt").Value
+        If txtLeistung.Text = "HANDLING" Then
+            h = h + 1
+        ElseIf txtLeistung.Text = "TRANSPORT" Then
+            t = t + 1
+        End If
+        c = c + 1
+
+        If c Mod 2 = 0 Then
+            txtPosNr.BackColor = Color.White
+            txtDatum.BackColor = Color.White
+            txtAuftraggeber.BackColor = Color.White
+            txtFraechter.BackColor = Color.White
+            txtLeistung.BackColor = Color.White
+        Else
+            txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtDatum.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+        End If
+    End Sub
+
+    Private Sub subrptEinzelStat_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = frmAuswertung.dt
+    End Sub
+
+    Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
+        txtSummeAuftraege.Text = h + t
+        txtSummeTransporte.Text = t
+        txtSummeHandlings.Text = h
+    End Sub
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelauswertung.Designer.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelauswertung.Designer.vb
@@ -0,0 +1,706 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class subrptEinzelauswertung
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptEinzelauswertung))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAuftraggeber = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAusgaben = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtGewinn = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMarge = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEinnahmen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.txtRechnungenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRechnungenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TxtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkostenSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkostenSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahlSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeProzSchnitt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRechnungenSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkostenSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahlSummeTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRechnungenSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox21 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVorkostenSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahlSummeHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeProzSchnittTransporte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtMargeProzSchnittHandlings = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAusgaben, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtGewinn, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEinnahmen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungenSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkostenSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahlSummeTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRechnungenSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVorkostenSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahlSummeHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeProzSchnittTransporte, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtMargeProzSchnittHandlings, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtPosNr, Me.txtAuftraggeber, Me.txtAusgaben, Me.txtGewinn, Me.txtFraechter, Me.txtLeistung, Me.txtMarge, Me.txtEinnahmen})
+        Me.Detail.Height = 0.20835!
+        Me.Detail.Name = "Detail"
+        '
+        'txtPosNr
+        '
+        Me.txtPosNr.Height = 0.2!
+        Me.txtPosNr.Left = 0!
+        Me.txtPosNr.Name = "txtPosNr"
+        Me.txtPosNr.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtPosNr.Text = "PosNr."
+        Me.txtPosNr.Top = 0!
+        Me.txtPosNr.Width = 0.8267716!
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.Height = 0.2!
+        Me.txtAuftraggeber.Left = 0.8267717!
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtAuftraggeber.Text = "Auftraggeber"
+        Me.txtAuftraggeber.Top = 0!
+        Me.txtAuftraggeber.Width = 3.385827!
+        '
+        'txtAusgaben
+        '
+        Me.txtAusgaben.Height = 0.2!
+        Me.txtAusgaben.Left = 4.212599!
+        Me.txtAusgaben.Name = "txtAusgaben"
+        Me.txtAusgaben.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtAusgaben.Text = "Ausg."
+        Me.txtAusgaben.Top = 0!
+        Me.txtAusgaben.Width = 0.6311023!
+        '
+        'txtGewinn
+        '
+        Me.txtGewinn.Height = 0.2!
+        Me.txtGewinn.Left = 5.474803!
+        Me.txtGewinn.Name = "txtGewinn"
+        Me.txtGewinn.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtGewinn.Text = "Gewinn"
+        Me.txtGewinn.Top = 0!
+        Me.txtGewinn.Width = 0.7086617!
+        '
+        'txtFraechter
+        '
+        Me.txtFraechter.Height = 0.2!
+        Me.txtFraechter.Left = 6.815355!
+        Me.txtFraechter.Name = "txtFraechter"
+        Me.txtFraechter.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtFraechter.Text = "Frächter"
+        Me.txtFraechter.Top = 0!
+        Me.txtFraechter.Width = 3.381496!
+        '
+        'txtLeistung
+        '
+        Me.txtLeistung.Height = 0.2!
+        Me.txtLeistung.Left = 10.19685!
+        Me.txtLeistung.Name = "txtLeistung"
+        Me.txtLeistung.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtLeistung.Text = "Leistung"
+        Me.txtLeistung.Top = 0!
+        Me.txtLeistung.Width = 0.7874026!
+        '
+        'txtMarge
+        '
+        Me.txtMarge.Height = 0.2!
+        Me.txtMarge.Left = 6.183465!
+        Me.txtMarge.Name = "txtMarge"
+        Me.txtMarge.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtMarge.Text = "Marge"
+        Me.txtMarge.Top = 0!
+        Me.txtMarge.Width = 0.6299216!
+        '
+        'txtEinnahmen
+        '
+        Me.txtEinnahmen.Height = 0.2!
+        Me.txtEinnahmen.Left = 4.843701!
+        Me.txtEinnahmen.Name = "txtEinnahmen"
+        Me.txtEinnahmen.Style = "font-size: 9.75pt; font-weight: normal"
+        Me.txtEinnahmen.Text = "Einn."
+        Me.txtEinnahmen.Top = 0!
+        Me.txtEinnahmen.Width = 0.6311027!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Height = 0!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.txtRechnungenSumme, Me.txtMargeSumme, Me.txtRechnungenSchnitt, Me.txtMargeSchnitt, Me.TxtSumme, Me.TextBox9, Me.txtVorkostenSumme, Me.txtVorkostenSchnitt, Me.txtAnzahlSumme, Me.txtMargeProzSchnitt, Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox13, Me.txtRechnungenSummeTransporte, Me.txtMargeSummeTransporte, Me.txtTransporte, Me.txtVorkostenSummeTransporte, Me.txtAnzahlSummeTransporte, Me.txtRechnungenSummeHandlings, Me.txtMargeSummeHandlings, Me.TextBox21, Me.txtVorkostenSummeHandlings, Me.txtAnzahlSummeHandlings, Me.txtMargeProzSchnittTransporte, Me.txtMargeProzSchnittHandlings, Me.TextBox14})
+        Me.ReportFooter1.Height = 1.729167!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 0.984252!
+        Me.Line1.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0.0937008!
+        Me.Line1.Width = 9.015746!
+        Me.Line1.X1 = 0.984252!
+        Me.Line1.X2 = 9.999998!
+        Me.Line1.Y1 = 0.0937008!
+        Me.Line1.Y2 = 0.0937008!
+        '
+        'txtRechnungenSumme
+        '
+        Me.txtRechnungenSumme.Height = 0.2!
+        Me.txtRechnungenSumme.Left = 4.845673!
+        Me.txtRechnungenSumme.Name = "txtRechnungenSumme"
+        Me.txtRechnungenSumme.Style = "text-align: left"
+        Me.txtRechnungenSumme.Text = "txtRechnungenSumme"
+        Me.txtRechnungenSumme.Top = 0.368504!
+        Me.txtRechnungenSumme.Width = 1.364567!
+        '
+        'txtMargeSumme
+        '
+        Me.txtMargeSumme.Height = 0.2!
+        Me.txtMargeSumme.Left = 6.210237!
+        Me.txtMargeSumme.Name = "txtMargeSumme"
+        Me.txtMargeSumme.Style = "text-align: left"
+        Me.txtMargeSumme.Text = "txtMargeSumme"
+        Me.txtMargeSumme.Top = 0.368504!
+        Me.txtMargeSumme.Width = 1.364567!
+        '
+        'txtRechnungenSchnitt
+        '
+        Me.txtRechnungenSchnitt.Height = 0.2!
+        Me.txtRechnungenSchnitt.Left = 4.845673!
+        Me.txtRechnungenSchnitt.Name = "txtRechnungenSchnitt"
+        Me.txtRechnungenSchnitt.Style = "text-align: left"
+        Me.txtRechnungenSchnitt.Text = "txtRechnungenSchnitt"
+        Me.txtRechnungenSchnitt.Top = 0.6204725!
+        Me.txtRechnungenSchnitt.Width = 1.364567!
+        '
+        'txtMargeSchnitt
+        '
+        Me.txtMargeSchnitt.Height = 0.2!
+        Me.txtMargeSchnitt.Left = 6.210237!
+        Me.txtMargeSchnitt.Name = "txtMargeSchnitt"
+        Me.txtMargeSchnitt.Style = "text-align: left"
+        Me.txtMargeSchnitt.Text = "txtMargeSchnitt"
+        Me.txtMargeSchnitt.Top = 0.6204725!
+        Me.txtMargeSchnitt.Width = 1.364567!
+        '
+        'TxtSumme
+        '
+        Me.TxtSumme.Height = 0.2!
+        Me.TxtSumme.Left = 0.9204738!
+        Me.TxtSumme.Name = "TxtSumme"
+        Me.TxtSumme.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
+        Me.TxtSumme.Text = "Summe:"
+        Me.TxtSumme.Top = 0.368504!
+        Me.TxtSumme.Width = 1.364567!
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Height = 0.2!
+        Me.TextBox9.Left = 0.9204735!
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
+        Me.TextBox9.Text = "Durchschnitt:"
+        Me.TextBox9.Top = 0.6204725!
+        Me.TextBox9.Width = 1.364567!
+        '
+        'txtVorkostenSumme
+        '
+        Me.txtVorkostenSumme.Height = 0.2!
+        Me.txtVorkostenSumme.Left = 3.491341!
+        Me.txtVorkostenSumme.Name = "txtVorkostenSumme"
+        Me.txtVorkostenSumme.Text = "txtVorkostenSumme"
+        Me.txtVorkostenSumme.Top = 0.368504!
+        Me.txtVorkostenSumme.Width = 1.354331!
+        '
+        'txtVorkostenSchnitt
+        '
+        Me.txtVorkostenSchnitt.Height = 0.2!
+        Me.txtVorkostenSchnitt.Left = 3.491341!
+        Me.txtVorkostenSchnitt.Name = "txtVorkostenSchnitt"
+        Me.txtVorkostenSchnitt.Text = "txtVorkostenSchnitt"
+        Me.txtVorkostenSchnitt.Top = 0.6204725!
+        Me.txtVorkostenSchnitt.Width = 1.354331!
+        '
+        'txtAnzahlSumme
+        '
+        Me.txtAnzahlSumme.Height = 0.2!
+        Me.txtAnzahlSumme.Left = 2.491341!
+        Me.txtAnzahlSumme.Name = "txtAnzahlSumme"
+        Me.txtAnzahlSumme.Text = "txtAnzahlSumme"
+        Me.txtAnzahlSumme.Top = 0.368504!
+        Me.txtAnzahlSumme.Width = 1.0!
+        '
+        'txtMargeProzSchnitt
+        '
+        Me.txtMargeProzSchnitt.Height = 0.2!
+        Me.txtMargeProzSchnitt.Left = 7.574806!
+        Me.txtMargeProzSchnitt.Name = "txtMargeProzSchnitt"
+        Me.txtMargeProzSchnitt.Style = "text-align: center"
+        Me.txtMargeProzSchnitt.Text = "txtMargeProzSchnitt"
+        Me.txtMargeProzSchnitt.Top = 0.6204725!
+        Me.txtMargeProzSchnitt.Width = 0.6094489!
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Height = 0.2!
+        Me.TextBox10.Left = 3.491339!
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox10.Text = "Ausgaben:"
+        Me.TextBox10.Top = 0.0937008!
+        Me.TextBox10.Width = 1.354331!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Height = 0.2!
+        Me.TextBox11.Left = 4.84567!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox11.Text = "Einnahmen:"
+        Me.TextBox11.Top = 0.0937008!
+        Me.TextBox11.Width = 1.364567!
+        '
+        'TextBox12
+        '
+        Me.TextBox12.Height = 0.2!
+        Me.TextBox12.Left = 6.210237!
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox12.Text = "Gewinn:"
+        Me.TextBox12.Top = 0.0937008!
+        Me.TextBox12.Width = 1.364567!
+        '
+        'TextBox13
+        '
+        Me.TextBox13.Height = 0.2!
+        Me.TextBox13.Left = 7.574804!
+        Me.TextBox13.Name = "TextBox13"
+        Me.TextBox13.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox13.Text = "Marge"
+        Me.TextBox13.Top = 0.0937008!
+        Me.TextBox13.Width = 0.6094488!
+        '
+        'txtRechnungenSummeTransporte
+        '
+        Me.txtRechnungenSummeTransporte.Height = 0.2!
+        Me.txtRechnungenSummeTransporte.Left = 4.845672!
+        Me.txtRechnungenSummeTransporte.Name = "txtRechnungenSummeTransporte"
+        Me.txtRechnungenSummeTransporte.Style = "text-align: left"
+        Me.txtRechnungenSummeTransporte.Text = "txtRechnungenSumme"
+        Me.txtRechnungenSummeTransporte.Top = 1.066535!
+        Me.txtRechnungenSummeTransporte.Width = 1.364567!
+        '
+        'txtMargeSummeTransporte
+        '
+        Me.txtMargeSummeTransporte.Height = 0.2!
+        Me.txtMargeSummeTransporte.Left = 6.210235!
+        Me.txtMargeSummeTransporte.Name = "txtMargeSummeTransporte"
+        Me.txtMargeSummeTransporte.Style = "text-align: left"
+        Me.txtMargeSummeTransporte.Text = "txtMargeSumme"
+        Me.txtMargeSummeTransporte.Top = 1.066535!
+        Me.txtMargeSummeTransporte.Width = 1.364567!
+        '
+        'txtTransporte
+        '
+        Me.txtTransporte.Height = 0.2!
+        Me.txtTransporte.Left = 0.9204725!
+        Me.txtTransporte.Name = "txtTransporte"
+        Me.txtTransporte.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
+        Me.txtTransporte.Text = "Transporte:"
+        Me.txtTransporte.Top = 1.066535!
+        Me.txtTransporte.Width = 1.364567!
+        '
+        'txtVorkostenSummeTransporte
+        '
+        Me.txtVorkostenSummeTransporte.Height = 0.2!
+        Me.txtVorkostenSummeTransporte.Left = 3.491339!
+        Me.txtVorkostenSummeTransporte.Name = "txtVorkostenSummeTransporte"
+        Me.txtVorkostenSummeTransporte.Text = "txtVorkostenSumme"
+        Me.txtVorkostenSummeTransporte.Top = 1.066535!
+        Me.txtVorkostenSummeTransporte.Width = 1.354331!
+        '
+        'txtAnzahlSummeTransporte
+        '
+        Me.txtAnzahlSummeTransporte.Height = 0.2!
+        Me.txtAnzahlSummeTransporte.Left = 2.49134!
+        Me.txtAnzahlSummeTransporte.Name = "txtAnzahlSummeTransporte"
+        Me.txtAnzahlSummeTransporte.Text = "txtAnzahlSumme"
+        Me.txtAnzahlSummeTransporte.Top = 1.066535!
+        Me.txtAnzahlSummeTransporte.Width = 1.0!
+        '
+        'txtRechnungenSummeHandlings
+        '
+        Me.txtRechnungenSummeHandlings.Height = 0.2!
+        Me.txtRechnungenSummeHandlings.Left = 4.845672!
+        Me.txtRechnungenSummeHandlings.Name = "txtRechnungenSummeHandlings"
+        Me.txtRechnungenSummeHandlings.Style = "text-align: left"
+        Me.txtRechnungenSummeHandlings.Text = "txtRechnungenSumme"
+        Me.txtRechnungenSummeHandlings.Top = 1.316535!
+        Me.txtRechnungenSummeHandlings.Width = 1.364567!
+        '
+        'txtMargeSummeHandlings
+        '
+        Me.txtMargeSummeHandlings.Height = 0.2!
+        Me.txtMargeSummeHandlings.Left = 6.210235!
+        Me.txtMargeSummeHandlings.Name = "txtMargeSummeHandlings"
+        Me.txtMargeSummeHandlings.Style = "text-align: left"
+        Me.txtMargeSummeHandlings.Text = "txtMargeSumme"
+        Me.txtMargeSummeHandlings.Top = 1.316535!
+        Me.txtMargeSummeHandlings.Width = 1.364567!
+        '
+        'TextBox21
+        '
+        Me.TextBox21.Height = 0.2!
+        Me.TextBox21.Left = 0.9204725!
+        Me.TextBox21.Name = "TextBox21"
+        Me.TextBox21.Style = "font-size: 9.75pt; font-weight: bold; text-align: left"
+        Me.TextBox21.Text = "Handlings:"
+        Me.TextBox21.Top = 1.316535!
+        Me.TextBox21.Width = 1.364567!
+        '
+        'txtVorkostenSummeHandlings
+        '
+        Me.txtVorkostenSummeHandlings.Height = 0.2!
+        Me.txtVorkostenSummeHandlings.Left = 3.491339!
+        Me.txtVorkostenSummeHandlings.Name = "txtVorkostenSummeHandlings"
+        Me.txtVorkostenSummeHandlings.Text = "txtVorkostenSumme"
+        Me.txtVorkostenSummeHandlings.Top = 1.316535!
+        Me.txtVorkostenSummeHandlings.Width = 1.354331!
+        '
+        'txtAnzahlSummeHandlings
+        '
+        Me.txtAnzahlSummeHandlings.Height = 0.2!
+        Me.txtAnzahlSummeHandlings.Left = 2.49134!
+        Me.txtAnzahlSummeHandlings.Name = "txtAnzahlSummeHandlings"
+        Me.txtAnzahlSummeHandlings.Text = "txtAnzahlSumme"
+        Me.txtAnzahlSummeHandlings.Top = 1.316535!
+        Me.txtAnzahlSummeHandlings.Width = 1.0!
+        '
+        'txtMargeProzSchnittTransporte
+        '
+        Me.txtMargeProzSchnittTransporte.Height = 0.2!
+        Me.txtMargeProzSchnittTransporte.Left = 7.574804!
+        Me.txtMargeProzSchnittTransporte.Name = "txtMargeProzSchnittTransporte"
+        Me.txtMargeProzSchnittTransporte.Style = "text-align: center"
+        Me.txtMargeProzSchnittTransporte.Text = "txtMargeProzSchnitt"
+        Me.txtMargeProzSchnittTransporte.Top = 1.066535!
+        Me.txtMargeProzSchnittTransporte.Width = 0.6094489!
+        '
+        'txtMargeProzSchnittHandlings
+        '
+        Me.txtMargeProzSchnittHandlings.Height = 0.2!
+        Me.txtMargeProzSchnittHandlings.Left = 7.574804!
+        Me.txtMargeProzSchnittHandlings.Name = "txtMargeProzSchnittHandlings"
+        Me.txtMargeProzSchnittHandlings.Style = "text-align: center"
+        Me.txtMargeProzSchnittHandlings.Text = "txtMargeProzSchnitt"
+        Me.txtMargeProzSchnittHandlings.Top = 1.316535!
+        Me.txtMargeProzSchnittHandlings.Width = 0.6094489!
+        '
+        'TextBox14
+        '
+        Me.TextBox14.Height = 0.2!
+        Me.TextBox14.Left = 2.491339!
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox14.Text = "Anzahl:"
+        Me.TextBox14.Top = 0.09370077!
+        Me.TextBox14.Width = 1.0!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox3})
+        Me.GroupHeader1.DataField = ""
+        Me.GroupHeader1.Name = "GroupHeader1"
+        Me.GroupHeader1.RepeatStyle = GrapeCity.ActiveReports.SectionReportModel.RepeatStyle.OnPage
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 0.0000009536743!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox1.Text = "PosNr."
+        Me.TextBox1.Top = 0.02493032!
+        Me.TextBox1.Width = 0.8267716!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Height = 0.2!
+        Me.TextBox2.Left = 0.8267725!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox2.Text = "Auftraggeber"
+        Me.TextBox2.Top = 0.02493032!
+        Me.TextBox2.Width = 3.385827!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Height = 0.2!
+        Me.TextBox4.Left = 4.214568!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox4.Text = "Ausg."
+        Me.TextBox4.Top = 0.02493032!
+        Me.TextBox4.Width = 0.6311028!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 5.476772!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox5.Text = "Gewinn"
+        Me.TextBox5.Top = 0.02493032!
+        Me.TextBox5.Width = 0.7086611!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.2!
+        Me.TextBox6.Left = 6.815356!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox6.Text = "Frächter"
+        Me.TextBox6.Top = 0.02493032!
+        Me.TextBox6.Width = 3.381496!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 10.19685!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox7.Text = "Leistung"
+        Me.TextBox7.Top = 0.02506968!
+        Me.TextBox7.Width = 0.7874014!
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 6.185434!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox8.Text = "Marge"
+        Me.TextBox8.Top = 0.02493032!
+        Me.TextBox8.Width = 0.6299213!
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Height = 0.2!
+        Me.TextBox3.Left = 4.845671!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "background-color: WhiteSmoke; font-size: 11.25pt; font-weight: bold"
+        Me.TextBox3.Text = "Einn."
+        Me.TextBox3.Top = 0.02493032!
+        Me.TextBox3.Width = 0.6311028!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'subrptEinzelauswertung
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 10.98425!
+        Me.ScriptLanguage = "VB.NET"
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAuftraggeber, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAusgaben, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtGewinn, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMarge, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEinnahmen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungenSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TxtSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkostenSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkostenSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahlSumme, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeProzSchnitt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungenSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkostenSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahlSummeTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRechnungenSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVorkostenSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahlSummeHandlings, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeProzSchnittTransporte, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtMargeProzSchnittHandlings, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents txtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAuftraggeber As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtEinnahmen As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAusgaben As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtGewinn As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMarge As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents txtRechnungenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRechnungenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TxtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkostenSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkostenSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahlSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeProzSchnitt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRechnungenSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkostenSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahlSummeTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRechnungenSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox21 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVorkostenSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahlSummeHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeProzSchnittTransporte As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtMargeProzSchnittHandlings As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelauswertung.vb
+++ b/UID/ARConverterBackup/Reports/Auswertung/subrptEinzelauswertung.vb
@@ -0,0 +1,144 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptEinzelauswertung
+    Public Rechnungssumme As Double = 0
+    Public Vorkostensumme As Double = 0
+    Public MargeSumme As Double = 0
+    Public AnzahlSumme As Double = 0
+    Public AnzahlProz As Double = 0
+
+    Public Transporte As Double = 0
+    Public Handlings As Double = 0
+
+    Public TransporteAusgaben As Double = 0
+    Public HandlingsAusgaben As Double = 0
+    Public TransporteEinnahmen As Double = 0
+    Public HandlingsEinnahmen As Double = 0
+
+    Public c As Integer = 0 'Counter
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        txtPosNr.Text = Fields.Item("atr_frachtpos").Value
+        txtAuftraggeber.Text = Fields.Item("atr_auftr_firma").Value
+        txtEinnahmen.Text = CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
+        ' txtAusgaben.Text = CDbl((Fields.Item("Vorkosten_Vorzeichen").Value)).ToString("c2")
+        txtAusgaben.Text = CDbl(CleanValue(Fields, "Vorkosten", "Integer")).ToString("c2")
+        txtGewinn.Text = (CDbl(Fields.Item("Rechnungen").Value) - CDbl(CleanValue(Fields, "Vorkosten", "Integer"))).ToString("c2") 'CDbl(Fields.Item("Vorkosten_Vorzeichen").Value)).ToString("c2") 'CDbl(Fields.Item("Marge").Value).ToString("c2")
+        Dim i As Double = CDbl((100 * txtGewinn.Text) / txtEinnahmen.Text).ToString("N2")
+        txtMarge.Text = CDbl((100 * txtGewinn.Text) / txtEinnahmen.Text).ToString("N2") & "%"
+        txtFraechter.Text = VERAG_PROG_ALLGEMEIN.SQL.checkNullStr(Fields.Item("Frächter").Value)
+        txtLeistung.Text = Fields.Item("ShortAuftragsart").Value
+
+        If c Mod 2 = 0 Then
+            txtPosNr.BackColor = Color.Transparent
+            txtAuftraggeber.BackColor = Color.Transparent
+            txtEinnahmen.BackColor = Color.Transparent
+            txtAusgaben.BackColor = Color.Transparent
+            txtGewinn.BackColor = Color.Transparent
+            txtMarge.BackColor = Color.Transparent
+            txtFraechter.BackColor = Color.Transparent
+            txtLeistung.BackColor = Color.Transparent
+        Else
+            txtPosNr.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtAuftraggeber.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtEinnahmen.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtAusgaben.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtGewinn.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtMarge.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtFraechter.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+            txtLeistung.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        End If
+        c = c + 1
+
+        Rechnungssumme = Rechnungssumme + txtEinnahmen.Text
+        Vorkostensumme = Vorkostensumme + txtAusgaben.Text
+        MargeSumme = MargeSumme + txtGewinn.Text
+        AnzahlSumme = c
+        AnzahlProz = AnzahlProz + i
+
+        'If Fields.Item("ShortAuftragsart").Value = "TRANSP." Then
+        '    Transporte = Transporte + 1
+        '    TransporteEinnahmen = TransporteEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
+        '    TransporteAusgaben = TransporteAusgaben + CDbl(Fields.Item("Vorkosten").Value).ToString("c2")
+        'ElseIf Fields.Item("ShortAuftragsart").Value = "HANDLING" Then
+        '    Handlings = Handlings + 1
+        '    HandlingsEinnahmen = HandlingsEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
+        '    HandlingsAusgaben = HandlingsAusgaben + CDbl(Fields.Item("Vorkosten").Value).ToString("c2")
+        'End If
+        If Fields.Item("ShortAuftragsart").Value = "TRANSP." Then
+            Transporte = Transporte + 1
+            TransporteEinnahmen = TransporteEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
+            TransporteAusgaben = TransporteAusgaben + CDbl(CleanValue(Fields, "Vorkosten", "Integer")).ToString("c2") 'CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
+        ElseIf Fields.Item("ShortAuftragsart").Value = "HANDLING" Then
+            Handlings = Handlings + 1
+            HandlingsEinnahmen = HandlingsEinnahmen + CDbl(Fields.Item("Rechnungen").Value).ToString("c2")
+            HandlingsAusgaben = HandlingsAusgaben + CDbl(CleanValue(Fields, "Vorkosten", "Integer")).ToString("c2") 'CDbl(Fields.Item("Vorkosten_Vorzeichen").Value).ToString("c2")
+        End If
+
+    End Sub
+
+    Function CleanString(StringIn As String)
+        If StringIn.Length > 0 Then
+            Return StringIn
+        Else
+            Return 0
+        End If
+
+    End Function
+
+    Function CleanValue(FC As GrapeCity.ActiveReports.Data.FieldCollection, FI As String, ReturnArt As String)
+        If FC.Item(FI) Is Nothing Then
+            Select Case ReturnArt
+                Case "Integer"
+                    Return 0
+                Case "String"
+                    Return ""
+            End Select
+        Else
+            Return FC.Item(FI).Value
+        End If
+
+    End Function
+
+    Private Sub subrptEinzelauswertung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        DataSource = frmAuswertung.dt
+    End Sub
+
+    Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
+        txtMargeSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtRechnungenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtVorkostenSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtAnzahlSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        TxtSumme.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+        txtMargeSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtRechnungenSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtVorkostenSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtAnzahlSummeTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        txtMargeProzSchnittTransporte.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+
+        txtMargeSumme.Text = MargeSumme.ToString("c2")
+        txtRechnungenSumme.Text = Rechnungssumme.ToString("c2")
+        txtVorkostenSumme.Text = Vorkostensumme.ToString("c2")
+        txtAnzahlSumme.Text = AnzahlSumme.ToString
+
+        txtMargeSchnitt.Text = (MargeSumme / c).ToString("c2")
+        txtRechnungenSchnitt.Text = (Rechnungssumme / c).ToString("c2")
+        txtVorkostenSchnitt.Text = (Vorkostensumme / c).ToString("c2")
+        txtMargeProzSchnitt.Text = (txtMargeSchnitt.Text * 100 / txtRechnungenSchnitt.Text).ToString("n2") & "%"
+
+        txtAnzahlSummeTransporte.Text = Transporte
+        txtRechnungenSummeTransporte.Text = TransporteEinnahmen.ToString("c2")
+        txtVorkostenSummeTransporte.Text = TransporteAusgaben.ToString("c2")
+        txtMargeSummeTransporte.Text = (TransporteEinnahmen - TransporteAusgaben).ToString("c2")
+        txtMargeProzSchnittTransporte.Text = (txtMargeSummeTransporte.Text * 100 / TransporteEinnahmen).ToString("n2") & "%"
+
+        txtAnzahlSummeHandlings.Text = Handlings
+        txtRechnungenSummeHandlings.Text = HandlingsEinnahmen.ToString("c2")
+        txtVorkostenSummeHandlings.Text = HandlingsAusgaben.ToString("c2")
+        txtMargeSummeHandlings.Text = (HandlingsEinnahmen - HandlingsAusgaben).ToString("c2")
+        txtMargeProzSchnittHandlings.Text = "" '(txtMargeSummeHandlings.Text * 100 / HandlingsEinnahmen).ToString("n2") & "%"
+    End Sub
+End Class