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
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/rptTransportauftrag.Designer.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/rptTransportauftrag.Designer.vb
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/rptTransportauftrag.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/rptTransportauftrag.vb
@@ -0,0 +1,119 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptTransportauftrag
+
+    Property Printauftrag As cDispoAuftraege = Nothing
+    Property printTrip As cTrips = Nothing
+    Property Standort As String = "4819"
+    ' Property CMR As New List(Of cCMRLadeliste)
+    Dim auftraglist As New List(Of cDispoAuftraege)
+    Dim FrachtPostHeader As String = ""
+
+    Private Sub rptTransportauftrag_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+        If Not printTrip Is Nothing Then
+            For Each ding As DataRow In printTrip.trip_Aufträge.Rows
+                Dim toadd As New cDispoAuftraege
+                toadd.atr_id = ding.Item("atr_id")
+                toadd.LOAD()
+                FrachtPostHeader &= ", " & toadd.atr_frachtpos
+                auftraglist.Add(toadd)
+            Next
+        Else
+            FrachtPostHeader &= ", " & Printauftrag.atr_frachtpos
+            auftraglist.Add(Printauftrag)
+        End If
+
+        '  Me.DataSource = auftraglist
+    End Sub
+
+    ' Public Shared Standort As String = "4819"
+
+    Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
+
+        txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
+        txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        Dim FilialNr = ""
+        If Standort = "4807" Or Standort = "VERAG AG" Then
+            Picture1.Image = My.Resources.Verag_AG_Logo
+            FilialNr = "4807"
+            txtVerag.Text = "VERAG Spedition AG"
+            txtVeragAnschrift.Text = "AT  4975 - Suben 100" & vbCrLf &
+                        "Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
+                        "Fax +43 77 11 / 27 88" & vbCrLf &
+                        "dispo@verag.ag" & vbCrLf &
+                     vbCrLf &
+                        "FN:  216714y" & vbCrLf &
+                        "UID : ATU 53187000"
+        ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
+            FilialNr = "4819"
+            Picture1.Image = My.Resources.Verag_Spedition_GMBH_Logo
+            txtVerag.Text = "VERAG Spedition GmbH"
+            txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
+                        "D 94152 Neuhaus am Inn" & vbCrLf &
+                        "Tel. +49 8503 / 923675" & vbCrLf &
+                        "dispo-de@verag.ag" & vbCrLf &
+                        "UID: DE813570890" & vbCrLf &
+                     vbCrLf '&
+            '"Abrechnungspartner: " & vbCrLf &
+            '"VERAG Spedition AG in" & vbCrLf &
+            '"A-4975 Suben, Nr. 100"
+        ElseIf Standort = "5701" Or Standort = "AMBAR" Then
+            FilialNr = "5701"
+            txtVerag.Text = "AMBAR Logistic Services GmbH"
+            txtVeragAnschrift.Text = "Reichenhallerstrasse 62" & vbCrLf &
+                        "D 83435 Bad Reichenhall" & vbCrLf &
+                        "Tel. +49 8651 99624911 " & vbCrLf &
+                        "dispo@ambarlog.com" & vbCrLf &
+                        "UID: DE309105428" & vbCrLf
+
+
+            Picture1.Image = My.Resources.ambar_simple
+            TextBox2.Text = TextBox2.Text.Replace("Österreichischen", "Deutschen")
+        End If
+
+        txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)
+        If auftraglist(0).atr_TransportauftragArt = "NACH" Then
+            txtAnFirma.Text = auftraglist(0).atr_frachtfAb_firma
+            txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtfAb_str & " " & auftraglist(0).atr_frachtfAb_strnr
+            txtAnFirmaOrt.Text = auftraglist(0).atr_frachtfAb_land & " " & auftraglist(0).atr_frachtfAb_plz & " " & auftraglist(0).atr_frachtfAb_ort
+            txtAnAnsprechperson.Text = auftraglist(0).atr_frachtfAb_anspr
+            txtKennzeichen.Text = auftraglist(0).atr_frachtfAb_lkwKz
+            txtLKWArt.Text = auftraglist(0).atr_frachtfAb_lkwArt
+        ElseIf auftraglist(0).atr_TransportauftragArt = "VOR" Then
+            txtAnFirma.Text = auftraglist(0).atr_frachtf_firma
+            txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtf_str & " " & auftraglist(0).atr_frachtf_strnr
+            txtAnFirmaOrt.Text = auftraglist(0).atr_frachtf_land & " " & auftraglist(0).atr_frachtf_plz & " " & auftraglist(0).atr_frachtf_ort
+            txtAnAnsprechperson.Text = auftraglist(0).atr_frachtf_anspr
+            txtKennzeichen.Text = auftraglist(0).atr_lkwKz
+            txtLKWArt.Text = auftraglist(0).atr_lkwArt
+        End If
+
+    End Sub
+
+    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
+
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        Dim subdet As New subrptTrip
+        subdet.auftraglist = auftraglist
+        'subdet.CMR = CMR
+
+        Me.SubDetail.Report = subdet
+
+        'For i = 1 To 2
+        '    Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
+        '    subrpt_Ladestelle.Printauftrag = Printauftrag
+        '    Dim subrpt_Ladung As New subrptTransportauftragLadung
+        '    subrpt_Ladung.CMR = CMR
+        '    Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
+        '    Me.subrptTransportauftragLadung.Report = subrpt_Ladung
+
+        '    txtBemerkung.Text = Printauftrag.atr_bemerkung
+        '    txtVerzollungsadresse.Text = Printauftrag.atr_verzollungsadresse
+        '    txtFrachtkosten.Text = Printauftrag.atr_frachtkosten
+        'Next
+    End Sub
+End Class
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadestelle.Designer.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadestelle.Designer.vb
@@ -0,0 +1,193 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class subrptTransportauftragLadestelle
+    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
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptTransportauftragLadestelle))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtLadestelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEntLadestelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRefNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLadeSttermin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEntLadeStTermin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLadeoeffzeiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEntLadeoeffzeiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLadestAnspr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEntLadestAnspr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        CType(Me.txtLadestelle, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEntLadestelle, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRefNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLadeSttermin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEntLadeStTermin, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLadeoeffzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEntLadeoeffzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLadestAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEntLadestAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.CanShrink = True
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLadestelle, Me.txtEntLadestelle, Me.txtRefNr, Me.txtLadeSttermin, Me.txtEntLadeStTermin, Me.txtLadeoeffzeiten, Me.txtEntLadeoeffzeiten, Me.txtLadestAnspr, Me.txtEntLadestAnspr, Me.Line1})
+        Me.Detail.Height = 1.041667!
+        Me.Detail.Name = "Detail"
+        '
+        'txtLadestelle
+        '
+        Me.txtLadestelle.Height = 0.472441!
+        Me.txtLadestelle.Left = 0.09842519!
+        Me.txtLadestelle.Name = "txtLadestelle"
+        Me.txtLadestelle.Text = "txtLadestelle"
+        Me.txtLadestelle.Top = 0!
+        Me.txtLadestelle.Width = 2.086614!
+        '
+        'txtEntLadestelle
+        '
+        Me.txtEntLadestelle.Height = 0.472441!
+        Me.txtEntLadestelle.Left = 3.740158!
+        Me.txtEntLadestelle.Name = "txtEntLadestelle"
+        Me.txtEntLadestelle.Text = "txtEntLadestelle"
+        Me.txtEntLadestelle.Top = 0!
+        Me.txtEntLadestelle.Width = 2.085433!
+        '
+        'txtRefNr
+        '
+        Me.txtRefNr.CanShrink = True
+        Me.txtRefNr.Height = 0.2224412!
+        Me.txtRefNr.Left = 0.0984252!
+        Me.txtRefNr.Name = "txtRefNr"
+        Me.txtRefNr.Style = "font-family: Arial Narrow; font-size: 9.75pt; font-weight: bold"
+        Me.txtRefNr.Text = "txtRefNr"
+        Me.txtRefNr.Top = 0.7539371!
+        Me.txtRefNr.Width = 3.244882!
+        '
+        'txtLadeSttermin
+        '
+        Me.txtLadeSttermin.CanShrink = True
+        Me.txtLadeSttermin.DataField = ""
+        Me.txtLadeSttermin.DistinctField = ""
+        Me.txtLadeSttermin.Height = 0.1110236!
+        Me.txtLadeSttermin.Left = 0.6102363!
+        Me.txtLadeSttermin.Name = "txtLadeSttermin"
+        Me.txtLadeSttermin.Style = "background-color: WhiteSmoke; color: Black; font-family: Arial; font-size: 9.75pt" &
+    "; font-weight: bold; text-align: center; vertical-align: middle"
+        Me.txtLadeSttermin.SummaryGroup = ""
+        Me.txtLadeSttermin.Text = "txtLadeSttermin"
+        Me.txtLadeSttermin.Top = 0.472441!
+        Me.txtLadeSttermin.Width = 1.574803!
+        '
+        'txtEntLadeStTermin
+        '
+        Me.txtEntLadeStTermin.Height = 0.1110236!
+        Me.txtEntLadeStTermin.Left = 4.250788!
+        Me.txtEntLadeStTermin.Name = "txtEntLadeStTermin"
+        Me.txtEntLadeStTermin.Style = "background-color: WhiteSmoke; color: Black; font-family: Arial; font-size: 9.75pt" &
+    "; font-weight: bold; text-align: center; vertical-align: middle"
+        Me.txtEntLadeStTermin.Text = "txtEntLadeStTermin"
+        Me.txtEntLadeStTermin.Top = 0.472441!
+        Me.txtEntLadeStTermin.Width = 1.574803!
+        '
+        'txtLadeoeffzeiten
+        '
+        Me.txtLadeoeffzeiten.Height = 0.472441!
+        Me.txtLadeoeffzeiten.Left = 1.673228!
+        Me.txtLadeoeffzeiten.Name = "txtLadeoeffzeiten"
+        Me.txtLadeoeffzeiten.Style = "font-size: 8.25pt; text-align: right"
+        Me.txtLadeoeffzeiten.Text = "txtLadeoeffzeiten"
+        Me.txtLadeoeffzeiten.Top = 0!
+        Me.txtLadeoeffzeiten.Width = 1.811024!
+        '
+        'txtEntLadeoeffzeiten
+        '
+        Me.txtEntLadeoeffzeiten.Height = 0.472441!
+        Me.txtEntLadeoeffzeiten.Left = 5.472441!
+        Me.txtEntLadeoeffzeiten.Name = "txtEntLadeoeffzeiten"
+        Me.txtEntLadeoeffzeiten.Style = "font-size: 8.25pt; text-align: right"
+        Me.txtEntLadeoeffzeiten.Text = "txtEntLadeoeffzeiten"
+        Me.txtEntLadeoeffzeiten.Top = 0!
+        Me.txtEntLadeoeffzeiten.Width = 1.811024!
+        '
+        'txtLadestAnspr
+        '
+        Me.txtLadestAnspr.CanShrink = True
+        Me.txtLadestAnspr.Height = 0.1704724!
+        Me.txtLadestAnspr.Left = 0.0984252!
+        Me.txtLadestAnspr.Name = "txtLadestAnspr"
+        Me.txtLadestAnspr.Text = "txtLadestAnspr"
+        Me.txtLadestAnspr.Top = 0.5834646!
+        Me.txtLadestAnspr.Width = 3.244881!
+        '
+        'txtEntLadestAnspr
+        '
+        Me.txtEntLadestAnspr.CanShrink = True
+        Me.txtEntLadestAnspr.Height = 0.1704724!
+        Me.txtEntLadestAnspr.Left = 3.740158!
+        Me.txtEntLadestAnspr.Name = "txtEntLadestAnspr"
+        Me.txtEntLadestAnspr.Text = "txtEntLadestAnspr"
+        Me.txtEntLadestAnspr.Top = 0.5834646!
+        Me.txtEntLadestAnspr.Width = 3.228346!
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0.472441!
+        Me.Line1.Left = 3.641732!
+        Me.Line1.LineColor = System.Drawing.Color.Gray
+        Me.Line1.LineStyle = GrapeCity.ActiveReports.SectionReportModel.LineStyle.Dash
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 7.450581E-9!
+        Me.Line1.Width = 0!
+        Me.Line1.X1 = 3.641732!
+        Me.Line1.X2 = 3.641732!
+        Me.Line1.Y1 = 7.450581E-9!
+        Me.Line1.Y2 = 0.472441!
+        '
+        'subrptTransportauftragLadestelle
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.283465!
+        Me.ScriptLanguage = "VB.NET"
+        Me.Sections.Add(Me.Detail)
+        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.txtLadestelle, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEntLadestelle, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRefNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLadeSttermin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEntLadeStTermin, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLadeoeffzeiten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEntLadeoeffzeiten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLadestAnspr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEntLadestAnspr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+
+    Private WithEvents txtLadestelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtEntLadestelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRefNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLadeSt_termin As TextBox
+    Private WithEvents txtEntLadeSt_termin As TextBox
+    Private WithEvents txtLadeSttermin As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtEntLadeStTermin As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLadeoeffzeiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtEntLadeoeffzeiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtLadestAnspr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtEntLadestAnspr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+End Class
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadestelle.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadestelle.vb
@@ -0,0 +1,85 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptTransportauftragLadestelle
+    'Property auftraglist As New List(Of cDispoAuftraege)
+    Property Printauftrag As cDispoAuftraege = Nothing
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        ''//LADESTELLE
+        txtLadestelle.Text = Printauftrag.atr_ladest_firma & vbCrLf &
+                Printauftrag.atr_ladest_str & " " & Printauftrag.atr_ladest_strnr & vbCrLf &
+                Printauftrag.atr_ladest_land & " " & Printauftrag.atr_ladest_plz & " " & Printauftrag.atr_ladest_ort
+
+        If Printauftrag.atr_ladest_termin = "1" Then
+            txtLadeSttermin.Text = "Termin " & Printauftrag.atr_ladest_terminDat & vbCrLf & "von " & Printauftrag.atr_ladest_terminVon & " bis " & Printauftrag.atr_ladest_terminBis
+        Else
+            txtLadeSttermin.Text = "" : txtLadeSttermin.BackColor = Color.Transparent
+        End If
+
+        txtLadestAnspr.Text = ""
+        txtLadestAnspr.Text = Printauftrag.atr_ladest_anspr
+        Try
+            If Printauftrag.avisolade(1).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(1).ToString
+            If Printauftrag.avisolade(2).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(2).ToString
+        Catch
+        End Try
+
+
+        txtLadeoeffzeiten.Text = Printauftrag.oezlade
+
+
+        ''//ENTLADESTELLE
+        txtEntLadestelle.Text = Printauftrag.atr_entladest_firma & vbCrLf &
+                Printauftrag.atr_entladest_str & " " & Printauftrag.atr_entladest_strnr & vbCrLf &
+                Printauftrag.atr_entladest_land & " " & Printauftrag.atr_entladest_plz & " " & Printauftrag.atr_entladest_ort
+
+        If Printauftrag.atr_entladest_termin = "1" Then
+            txtEntLadeStTermin.Text = "Termin " & Printauftrag.atr_entladest_terminDat & vbCrLf & "von " & Printauftrag.atr_entladest_terminVon & " bis " & Printauftrag.atr_entladest_terminBis
+        Else
+            txtEntLadeStTermin.Text = "" : txtEntLadeStTermin.BackColor = Color.Transparent
+        End If
+
+        txtEntLadestAnspr.Text = ""
+        Try
+            If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "0" Then txtEntLadestAnspr.Text = "Avisieren:" & vbCrLf
+            If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "1" Then txtEntLadestAnspr.Text = "Ankunftsaviso:" & vbCrLf
+        Catch ex As Exception
+        End Try
+        txtEntLadestAnspr.Text &= frmAuftragNEU.printAuftrag.atr_entladest_anspr
+        Try
+            If Printauftrag.avisoentlade(1).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(1).ToString 'TELNummer
+            If Printauftrag.avisoentlade(2).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(2).ToString 'EMailAdresse
+        Catch
+        End Try
+
+
+
+        txtEntLadeoeffzeiten.Text = Printauftrag.oezentlade
+
+
+        ''//REFNr.
+        If Printauftrag.atr_ladest_refNr = "" Then
+            txtRefNr.Text = ""
+        Else
+            txtRefNr.Text = "RefNr.: " & Printauftrag.atr_ladest_refNr
+        End If
+
+
+
+
+    End Sub
+
+    Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
+
+        If txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height > txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height Then
+            Line1.Y2 = txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height
+        Else
+            Line1.Y2 = txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height
+        End If
+        'Line1.Y2 = "20"
+    End Sub
+
+
+End Class
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadung.Designer.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadung.Designer.vb
@@ -0,0 +1,138 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Public Class subrptTransportauftragLadung
+    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
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptTransportauftragLadung))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtZeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtArt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtBezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtStatNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtBruttoKG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtUmfang = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.txtZeichen, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtArt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtStatNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBruttoKG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtUmfang, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtZeichen, Me.txtAnzahl, Me.txtArt, Me.txtBezeichnung, Me.txtStatNr, Me.txtBruttoKG, Me.txtUmfang})
+        Me.Detail.Height = 0.2499999!
+        Me.Detail.Name = "Detail"
+        '
+        'txtZeichen
+        '
+        Me.txtZeichen.Height = 0.2!
+        Me.txtZeichen.Left = 0.001181103!
+        Me.txtZeichen.Name = "txtZeichen"
+        Me.txtZeichen.Style = "font-size: 8.25pt; font-weight: normal; text-align: center"
+        Me.txtZeichen.Text = "Zeichen/Nr."
+        Me.txtZeichen.Top = 0!
+        Me.txtZeichen.Width = 0.6889764!
+        '
+        'txtAnzahl
+        '
+        Me.txtAnzahl.Height = 0.2!
+        Me.txtAnzahl.Left = 0.6901575!
+        Me.txtAnzahl.Name = "txtAnzahl"
+        Me.txtAnzahl.Style = "font-size: 8.25pt; font-weight: normal; text-align: center"
+        Me.txtAnzahl.Text = "Anzahl"
+        Me.txtAnzahl.Top = 0!
+        Me.txtAnzahl.Width = 0.6692914!
+        '
+        'txtArt
+        '
+        Me.txtArt.Height = 0.2!
+        Me.txtArt.Left = 1.359449!
+        Me.txtArt.Name = "txtArt"
+        Me.txtArt.Style = "font-size: 8.25pt; font-weight: normal"
+        Me.txtArt.Text = "Art"
+        Me.txtArt.Top = 0!
+        Me.txtArt.Width = 1.0!
+        '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung.Height = 0.2!
+        Me.txtBezeichnung.Left = 2.359449!
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.Style = "font-size: 8.25pt; font-weight: normal"
+        Me.txtBezeichnung.Text = "Bezeichnung"
+        Me.txtBezeichnung.Top = 0!
+        Me.txtBezeichnung.Width = 2.438976!
+        '
+        'txtStatNr
+        '
+        Me.txtStatNr.Height = 0.2!
+        Me.txtStatNr.Left = 4.798426!
+        Me.txtStatNr.Name = "txtStatNr"
+        Me.txtStatNr.Style = "font-size: 8.25pt; font-weight: normal"
+        Me.txtStatNr.Text = "Stat.Nr."
+        Me.txtStatNr.Top = 0!
+        Me.txtStatNr.Width = 0.8645674!
+        '
+        'txtBruttoKG
+        '
+        Me.txtBruttoKG.Height = 0.2!
+        Me.txtBruttoKG.Left = 5.652757!
+        Me.txtBruttoKG.Name = "txtBruttoKG"
+        Me.txtBruttoKG.Style = "font-size: 8.25pt; font-weight: normal"
+        Me.txtBruttoKG.Text = "Brutto Kg"
+        Me.txtBruttoKG.Top = 0!
+        Me.txtBruttoKG.Width = 0.8645674!
+        '
+        'txtUmfang
+        '
+        Me.txtUmfang.Height = 0.2!
+        Me.txtUmfang.Left = 6.517323!
+        Me.txtUmfang.Name = "txtUmfang"
+        Me.txtUmfang.Style = "font-size: 8.25pt; font-weight: normal"
+        Me.txtUmfang.Text = "Umfang"
+        Me.txtUmfang.Top = 0!
+        Me.txtUmfang.Width = 0.7661417!
+        '
+        'subrptTransportauftragLadung
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.283465!
+        Me.Sections.Add(Me.Detail)
+        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.txtZeichen, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtArt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtStatNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBruttoKG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtUmfang, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents txtZeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtArt As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtBezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtStatNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtBruttoKG As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtUmfang As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadung.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadung.vb
@@ -0,0 +1,36 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptTransportauftragLadung
+    Property PrintAuftrag As cDispoAuftraege = Nothing
+
+    Private Sub subrptTransportauftragLadung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+
+        Me.DataSource = PrintAuftrag.LADUNGEN
+
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        Try
+            txtZeichen.Text = Fields.Item("lad_ZeNr").Value
+            txtAnzahl.Text = Fields.Item("lad_Anzahl").Value
+            txtArt.Text = Fields.Item("lad_Art").Value
+            txtBezeichnung.Text = Fields.Item("lad_Bezeichnung").Value
+            txtStatNr.Text = Fields.Item("lad_StatNr").Value
+            txtBruttoKG.Text = Fields.Item("lad_BruttoKg").Value
+            txtUmfang.Text = Fields.Item("lad_Umfang").Value
+            'txtZeichen.Text = Fields.Item("ZeNr").Value
+            'txtAnzahl.Text = Fields.Item("AnzPack").Value
+            'txtArt.Text = Fields.Item("Art").Value
+            'txtBezeichnung.Text = Fields.Item("Bez").Value
+            'txtStatNr.Text = Fields.Item("Stat").Value
+            'txtBruttoKG.Text = Fields.Item("BruttoKg").Value
+            'txtUmfang.Text = Fields.Item("Umfang").Value
+            'txtAnzahl.Text = Fields.Item("Anzahl").Value
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+            MsgBox("Keine Ladung vorhanden:" & PrintAuftrag.atr_frachtpos)
+        End Try
+
+    End Sub
+End Class
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTrip.Designer.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTrip.Designer.vb
@@ -0,0 +1,363 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subrptTrip
+    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
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptTrip))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtFrachtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.subrptTransportauftragLadung = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
+        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.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.subrptTransportauftragLadestelle = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
+        Me.txtBemTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVerzollTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVerzollungsadresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFrachtkoTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtFrachtkosten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.txtEnd = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.txtFrachtPosNr, 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.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBemTitel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVerzollTitel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFrachtkoTitel, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtFrachtkosten, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEnd, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.BackColor = System.Drawing.Color.White
+        Me.Detail.CanShrink = True
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFrachtPosNr, Me.Shape1, Me.subrptTransportauftragLadung, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.subrptTransportauftragLadestelle, Me.txtBemTitel, Me.txtBemerkung, Me.txtVerzollTitel, Me.txtVerzollungsadresse, Me.txtFrachtkoTitel, Me.txtFrachtkosten, Me.TextBox14, Me.Line3, Me.TextBox1, Me.Line1, Me.txtEnd})
+        Me.Detail.Height = 2.644619!
+        Me.Detail.KeepTogether = True
+        Me.Detail.Name = "Detail"
+        '
+        'txtFrachtPosNr
+        '
+        Me.txtFrachtPosNr.DistinctField = ""
+        Me.txtFrachtPosNr.Height = 0.2519685!
+        Me.txtFrachtPosNr.Left = 0!
+        Me.txtFrachtPosNr.Name = "txtFrachtPosNr"
+        Me.txtFrachtPosNr.Style = "background-color: WhiteSmoke; color: Black; font-size: 12pt; font-weight: bold; t" &
+    "ext-align: center; vertical-align: middle"
+        Me.txtFrachtPosNr.SummaryGroup = ""
+        Me.txtFrachtPosNr.Text = "Frachtposition:"
+        Me.txtFrachtPosNr.Top = 0!
+        Me.txtFrachtPosNr.Width = 7.480316!
+        '
+        'Shape1
+        '
+        Me.Shape1.Height = 2.407874!
+        Me.Shape1.Left = 0!
+        Me.Shape1.Name = "Shape1"
+        Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape1.Top = 0!
+        Me.Shape1.Width = 7.480316!
+        '
+        'subrptTransportauftragLadung
+        '
+        Me.subrptTransportauftragLadung.CanShrink = False
+        Me.subrptTransportauftragLadung.CloseBorder = False
+        Me.subrptTransportauftragLadung.Height = 0.4212599!
+        Me.subrptTransportauftragLadung.Left = 0.09842544!
+        Me.subrptTransportauftragLadung.Name = "subrptTransportauftragLadung"
+        Me.subrptTransportauftragLadung.Report = Nothing
+        Me.subrptTransportauftragLadung.ReportName = "subrptTransportauftragLadung"
+        Me.subrptTransportauftragLadung.Top = 1.399213!
+        Me.subrptTransportauftragLadung.Width = 7.283465!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.2!
+        Me.TextBox5.Left = 0.09842544!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox5.Text = "Zeichen/Nr."
+        Me.TextBox5.Top = 1.199213!
+        Me.TextBox5.Width = 0.6889764!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.2!
+        Me.TextBox6.Left = 0.7885829!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox6.Text = "Anzahl"
+        Me.TextBox6.Top = 1.199213!
+        Me.TextBox6.Width = 0.6692914!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.2!
+        Me.TextBox7.Left = 1.457874!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox7.Text = "Art"
+        Me.TextBox7.Top = 1.199213!
+        Me.TextBox7.Width = 1.0!
+        '
+        'TextBox8
+        '
+        Me.TextBox8.Height = 0.2!
+        Me.TextBox8.Left = 2.457874!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox8.Text = "Bezeichnung"
+        Me.TextBox8.Top = 1.199213!
+        Me.TextBox8.Width = 2.438976!
+        '
+        'TextBox9
+        '
+        Me.TextBox9.Height = 0.2!
+        Me.TextBox9.Left = 4.896852!
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox9.Text = "Stat.Nr."
+        Me.TextBox9.Top = 1.199213!
+        Me.TextBox9.Width = 0.8645674!
+        '
+        'TextBox10
+        '
+        Me.TextBox10.Height = 0.2!
+        Me.TextBox10.Left = 5.751184!
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox10.Text = "Brutto Kg"
+        Me.TextBox10.Top = 1.199213!
+        Me.TextBox10.Width = 0.8645674!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Height = 0.2!
+        Me.TextBox11.Left = 6.615747!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
+        Me.TextBox11.Text = "Umfang"
+        Me.TextBox11.Top = 1.199213!
+        Me.TextBox11.Width = 0.7661417!
+        '
+        'subrptTransportauftragLadestelle
+        '
+        Me.subrptTransportauftragLadestelle.CloseBorder = False
+        Me.subrptTransportauftragLadestelle.Height = 0.4606299!
+        Me.subrptTransportauftragLadestelle.Left = 0.09842544!
+        Me.subrptTransportauftragLadestelle.Name = "subrptTransportauftragLadestelle"
+        Me.subrptTransportauftragLadestelle.Report = Nothing
+        Me.subrptTransportauftragLadestelle.ReportName = "subrptTransportauftragLadestelle"
+        Me.subrptTransportauftragLadestelle.Top = 0.4677163!
+        Me.subrptTransportauftragLadestelle.Width = 7.283465!
+        '
+        'txtBemTitel
+        '
+        Me.txtBemTitel.CanShrink = True
+        Me.txtBemTitel.Height = 0.1181102!
+        Me.txtBemTitel.Left = 0.0984252!
+        Me.txtBemTitel.Name = "txtBemTitel"
+        Me.txtBemTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
+        Me.txtBemTitel.Text = "Bemerkung:"
+        Me.txtBemTitel.Top = 1.946851!
+        Me.txtBemTitel.Width = 1.312205!
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.CanShrink = True
+        Me.txtBemerkung.Height = 0.1181101!
+        Me.txtBemerkung.Left = 1.41063!
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Text = "txtBemerkung"
+        Me.txtBemerkung.Top = 1.946851!
+        Me.txtBemerkung.Width = 5.97126!
+        '
+        'txtVerzollTitel
+        '
+        Me.txtVerzollTitel.CanShrink = True
+        Me.txtVerzollTitel.Height = 0.1181101!
+        Me.txtVerzollTitel.Left = 0.0984252!
+        Me.txtVerzollTitel.Name = "txtVerzollTitel"
+        Me.txtVerzollTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
+        Me.txtVerzollTitel.Text = "Verzollungsadresse:"
+        Me.txtVerzollTitel.Top = 2.064961!
+        Me.txtVerzollTitel.Width = 1.312205!
+        '
+        'txtVerzollungsadresse
+        '
+        Me.txtVerzollungsadresse.CanShrink = True
+        Me.txtVerzollungsadresse.Height = 0.1181102!
+        Me.txtVerzollungsadresse.Left = 1.41063!
+        Me.txtVerzollungsadresse.Name = "txtVerzollungsadresse"
+        Me.txtVerzollungsadresse.Text = "txtVerzollungsadresse"
+        Me.txtVerzollungsadresse.Top = 2.064961!
+        Me.txtVerzollungsadresse.Width = 5.97126!
+        '
+        'txtFrachtkoTitel
+        '
+        Me.txtFrachtkoTitel.CanShrink = True
+        Me.txtFrachtkoTitel.Height = 0.1181102!
+        Me.txtFrachtkoTitel.Left = 0.0984252!
+        Me.txtFrachtkoTitel.Name = "txtFrachtkoTitel"
+        Me.txtFrachtkoTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
+        Me.txtFrachtkoTitel.Text = "Frachtkosten:"
+        Me.txtFrachtkoTitel.Top = 2.183071!
+        Me.txtFrachtkoTitel.Width = 1.312205!
+        '
+        'txtFrachtkosten
+        '
+        Me.txtFrachtkosten.CanShrink = True
+        Me.txtFrachtkosten.Height = 0.1181099!
+        Me.txtFrachtkosten.Left = 1.41063!
+        Me.txtFrachtkosten.Name = "txtFrachtkosten"
+        Me.txtFrachtkosten.Text = "txtFrachtkosten"
+        Me.txtFrachtkosten.Top = 2.183071!
+        Me.txtFrachtkosten.Width = 5.97126!
+        '
+        'TextBox14
+        '
+        Me.TextBox14.DistinctField = ""
+        Me.TextBox14.Height = 0.2!
+        Me.TextBox14.Left = 0.09842543!
+        Me.TextBox14.Name = "TextBox14"
+        Me.TextBox14.Style = "color: Black; font-family: Arial Narrow; font-size: 12pt; font-weight: bold; text" &
+    "-align: left; text-decoration: none; vertical-align: middle"
+        Me.TextBox14.SummaryGroup = ""
+        Me.TextBox14.Text = "Ladestelle:"
+        Me.TextBox14.Top = 0.2677163!
+        Me.TextBox14.Width = 3.641732!
+        '
+        'Line3
+        '
+        Me.Line3.Height = 0!
+        Me.Line3.Left = 0.8645672!
+        Me.Line3.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Line3.LineWeight = 1.0!
+        Me.Line3.Name = "Line3"
+        Me.Line3.Top = 1.882284!
+        Me.Line3.Width = 5.751181!
+        Me.Line3.X1 = 0.8645672!
+        Me.Line3.X2 = 6.615748!
+        Me.Line3.Y1 = 1.882284!
+        Me.Line3.Y2 = 1.882284!
+        '
+        'TextBox1
+        '
+        Me.TextBox1.DistinctField = ""
+        Me.TextBox1.Height = 0.2!
+        Me.TextBox1.Left = 3.740158!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "color: Black; font-family: Arial Narrow; font-size: 12pt; font-weight: bold; text" &
+    "-align: left; text-decoration: none; vertical-align: middle"
+        Me.TextBox1.SummaryGroup = ""
+        Me.TextBox1.Text = "Entladestelle:"
+        Me.TextBox1.Top = 0.2677163!
+        Me.TextBox1.Width = 3.641732!
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 0.8645672!
+        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 = 1.06378!
+        Me.Line1.Width = 5.751181!
+        Me.Line1.X1 = 0.8645672!
+        Me.Line1.X2 = 6.615748!
+        Me.Line1.Y1 = 1.06378!
+        Me.Line1.Y2 = 1.06378!
+        '
+        'txtEnd
+        '
+        Me.txtEnd.Height = 0.1066929!
+        Me.txtEnd.Left = 0.0984252!
+        Me.txtEnd.Name = "txtEnd"
+        Me.txtEnd.Style = "text-align: center; vertical-align: middle"
+        Me.txtEnd.Text = Nothing
+        Me.txtEnd.Top = 2.301181!
+        Me.txtEnd.Width = 7.283465!
+        '
+        'subrptTrip
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.480319!
+        Me.Sections.Add(Me.Detail)
+        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.txtFrachtPosNr, 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.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBemTitel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVerzollTitel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFrachtkoTitel, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtFrachtkosten, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEnd, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents subrptTransportauftragLadung As GrapeCity.ActiveReports.SectionReportModel.SubReport
+    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 TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents subrptTransportauftragLadestelle As GrapeCity.ActiveReports.SectionReportModel.SubReport
+    Private WithEvents txtBemTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVerzollTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVerzollungsadresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtFrachtkoTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtFrachtkosten As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents txtFrachtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents txtEnd As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTrip.vb
+++ b/UID/ARConverterBackup/Reports/TransportAuftrag/subrptTrip.vb
@@ -0,0 +1,73 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptTrip
+
+    Dim i As Integer = 0
+    Property auftraglist As New List(Of cDispoAuftraege)
+
+    Private Sub subrptTrip_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+
+        DataSource = auftraglist
+
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        ' txtBemTitel.Visible = True : txtVerzollTitel.Visible = True : txtFrachtkoTitel.Visible = True
+
+        Line3.Visible = True
+        Shape1.Height = 0
+
+        Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
+        subrpt_Ladestelle.Printauftrag = auftraglist(i)
+
+        Dim subrpt_Ladung As New subrptTransportauftragLadung
+        'subrpt_Ladung.DataSource = auftraglist(i).LADUNGEN
+        subrpt_Ladung.PrintAuftrag = auftraglist(i)
+
+
+        Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
+        Me.subrptTransportauftragLadung.Report = subrpt_Ladung
+
+        txtFrachtPosNr.Text = "Frachtposition: " & auftraglist(i).atr_frachtpos
+
+        txtBemerkung.Text = auftraglist(i).atr_bemerkung
+        'If auftraglist(i).atr_bemerkung = "" Then txtBemTitel.Visible = False
+        txtVerzollungsadresse.Text = auftraglist(i).atr_verzollungsadresse
+        'If auftraglist(i).atr_verzollungsadresse = "" Then txtVerzollTitel.Visible = False
+        txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
+        'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False
+
+        If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
+        If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
+        If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"
+
+        i = i + 1
+    End Sub
+
+    Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
+        Dim dh As Integer = Detail.Height
+
+
+        If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then
+
+            Shape1.Height = Detail.Height - 0.1
+            Line3.Visible = True
+        Else
+            Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
+            Line3.Visible = False
+        End If
+
+
+    End Sub
+
+    Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
+
+    End Sub
+
+    Private Sub Detail_Disposed(sender As Object, e As EventArgs) Handles Detail.Disposed
+
+
+        ' Detail.Height = dh + 0.3
+    End Sub
+End Class