ActiveReports

This commit is contained in:
2025-08-14 11:32:13 +02:00
parent 0ca060b7c0
commit 93fd68c058
35 changed files with 8571 additions and 11127 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

File diff suppressed because one or more lines are too long

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

View File

@@ -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

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,362 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptAktendeckelDISPO
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(VALUES As AktendecelVALUES)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.txtFiliale.Text = VALUES.Filiale
Me.txtAuftragsdatum.Text = VALUES.Auftragsdatum
Me.txtAtrNr.Text = VALUES.AtrNr
Me.txtAtr_Firma.Text = VALUES.Atr_Firma
Me.txtAbs_Firma.Text = VALUES.Abs_Firma
Me.txtEmpf_Firma.Text = VALUES.Empf_Firma
Me.txtFrachtfBis_Firma.Text = VALUES.FrachtfBis_Firma
Me.txtFrachtfAb_Firma.Text = VALUES.FrachtfAb_Firma
Me.txtAtr_RefNr.Text = VALUES.Atr_RefNr
Me.txtAtr_KdNr.Text = VALUES.Atr_KdNr
Me.txtAbs_KdNr.Text = VALUES.Abs_KdNr
Me.txtEmpf_KdNr.Text = VALUES.Empf_KdNr
Me.txtFrachtfBis_KdNr.Text = VALUES.FrachtfBis_KdNr
Me.txtFrachtfAb_KdNr.Text = VALUES.FrachtfAb_KdNr
Me.txtAbs_Datum.Text = VALUES.Abs_Datum
Me.txtEmpf_Datum.Text = VALUES.Empf_Datum
Me.txtAbs_Oeffnungszeiten.Text = VALUES.Abs_Oeffnungszeiten
Me.txtEmpf_Oeffnungszeiten.Text = VALUES.Empf_Oeffnungszeiten
Me.txtVERAG_Entladung.Text = VALUES.VERAG_Entladung
Me.txtVERAG_Beladung.Text = VALUES.VERAG_Beladung
Me.txtFrachtfBis_tatKosten.Text = VALUES.FrachtfBis_tatKosten
Me.txtFrachtfBis_LKW.Text = VALUES.FrachtfBis_LKW
Me.txtFrachtfAb_tatKosten.Text = VALUES.FrachtfAb_tatKosten
Me.txtFrachtfAb_LKW.Text = VALUES.FrachtfAb_LKW
Me.txtSachbearbeiter.Text = VALUES.Sachbearbeiter
Me.txtLadung_Anz_1.Text = VALUES.Ladung_Anz_1
Me.txtLadung_Anz_2.Text = VALUES.Ladung_Anz_2
Me.txtLadung_Anz_3.Text = VALUES.Ladung_Anz_3
Me.txtLadung_Anz_4.Text = VALUES.Ladung_Anz_4
Me.txtLadung_Verpackung_1.Text = VALUES.Ladung_Verpackung_1
Me.txtLadung_Verpackung_2.Text = VALUES.Ladung_Verpackung_2
Me.txtLadung_Verpackung_3.Text = VALUES.Ladung_Verpackung_3
Me.txtLadung_Verpackung_4.Text = VALUES.Ladung_Verpackung_4
Me.txtLadung_Inhalt_1.Text = VALUES.Ladung_Inhalt_1
Me.txtLadung_Inhalt_2.Text = VALUES.Ladung_Inhalt_2
Me.txtLadung_Inhalt_3.Text = VALUES.Ladung_Inhalt_3
Me.txtLadung_Inhalt_4.Text = VALUES.Ladung_Inhalt_4
Me.txtLadung_Gewicht_1.Text = VALUES.Ladung_Gewicht_1
Me.txtLadung_Gewicht_2.Text = VALUES.Ladung_Gewicht_2
Me.txtLadung_Gewicht_3.Text = VALUES.Ladung_Gewicht_3
Me.txtLadung_Gewicht_4.Text = VALUES.Ladung_Gewicht_4
Me.txtLadung_FPGGewicht_1.Text = VALUES.Ladung_FPGGewicht_1
Me.txtLadung_FPGGewicht_2.Text = VALUES.Ladung_FPGGewicht_2
Me.txtLadung_FPGGewicht_3.Text = VALUES.Ladung_FPGGewicht_3
Me.txtLadung_FPGGewicht_4.Text = VALUES.Ladung_FPGGewicht_4
Me.txtAuftraggeber_Entladung.Text = VALUES.Auftraggeber_Entladung
Me.txtAuftraggeber_Lagerung.Text = VALUES.Auftraggeber_Lagerung
Me.txtAuftraggeber_Beladung.Text = VALUES.Auftraggeber_Beladung
Me.txtAuftraggeber_Sp<EFBFBD>tzuschlag.Text = VALUES.Auftraggeber_Sp<EFBFBD>tzuschlag
Me.txtAuftraggeber_Transportkosten.Text = VALUES.Auftraggeber_Transportkosten
Me.txtAuftraggeber_Ausfuhrabfertigung.Text = VALUES.Auftraggeber_Ausfuhrabfertigung
Me.txtAuftraggeber_Einfuhrabfertigung.Text = VALUES.Auftraggeber_Einfuhrabfertigung
Me.txtAuftraggeber_T1T2.Text = VALUES.Auftraggeber_T1T2
Me.txtAuftraggeber_Verwahrung.Text = VALUES.Auftraggeber_Verwahrung
Me.txtSonstigeLeistungTxt1.Text = VALUES.Auftraggeber_Sonstiges1Txt
Me.txtSonstigeLeistungTxt2.Text = VALUES.Auftraggeber_Sonstiges2Txt
Me.txtAuftraggeber_Sonstiges1.Text = VALUES.Auftraggeber_Sonstiges1
Me.txtAuftraggeber_Sonstiges2.Text = VALUES.Auftraggeber_Sonstiges2
Me.cbxEntladung.Text = If(VALUES.Auftraggeber_Entladung, "X", "")
Me.cbxLagerung.Text = If(VALUES.Auftraggeber_Lagerung, "X", "")
Me.cbxBeladung.Text = If(VALUES.Auftraggeber_Beladung, "X", "")
Me.cbxSp<EFBFBD>tzuschlag.Text = If(VALUES.Auftraggeber_Sp<EFBFBD>tzuschlag, "X", "")
Me.cbxTransportkosten.Text = If(VALUES.Auftraggeber_Transportkosten, "X", "")
Me.cbxAusfuhrabfertigung.Text = If(VALUES.Auftraggeber_Ausfuhrabfertigung, "X", "")
Me.cbxEinfuhrabfertigung.Text = If(VALUES.Auftraggeber_Einfuhrabfertigung, "X", "")
Me.cbxT1T2.Text = If(VALUES.Auftraggeber_T1T2, "X", "")
Me.cbxVerwahrung.Text = If(VALUES.Auftraggeber_Verwahrung, "X", "")
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Function genFirma(firma, ort) As String '(VALUES.atr_auftr_firma,VALUES.atr_auftr_ort)
genFirma = If(firma, "")
If If(ort, "") <> "" Then
If Not genFirma.Contains(If(ort, "")) Then
genFirma &= "; " & ort
End If
End If
genFirma = genFirma.Trim
End Function
Sub New(VALUES As cDispoAuftraege)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.txtFiliale.Text = VALUES.atr_FilialenNr
Me.txtAuftragsdatum.Text = VALUES.atr_datum
Me.txtAtrNr.Text = VALUES.atr_frachtpos
Me.txtAtr_Firma.Text = genFirma(VALUES.atr_auftr_firma, VALUES.atr_auftr_ort)
Me.txtAbs_Firma.Text = genFirma(VALUES.atr_absender_firma, VALUES.atr_absender_ort)
Me.txtEmpf_Firma.Text = genFirma(VALUES.atr_empfaenger_firma, VALUES.atr_empfaenger_ort)
Me.txtFrachtfBis_Firma.Text = genFirma(VALUES.atr_frachtf_firma, VALUES.atr_frachtf_ort)
Me.txtFrachtfAb_Firma.Text = genFirma(VALUES.atr_frachtfAb_firma, VALUES.atr_frachtfAb_ort)
Me.txtAtr_RefNr.Text = If(VALUES.atr_RgRefNr, "")
Me.txtAtr_KdNr.Text = If(VALUES.atr_auftr_Kdnr, "")
Me.txtAbs_KdNr.Text = If(VALUES.atr_absender_Kdnr, "")
Me.txtEmpf_KdNr.Text = If(VALUES.atr_empfaenger_Kdnr, "")
Me.txtFrachtfBis_KdNr.Text = If(VALUES.atr_frachtf_Kdnr, "")
Me.txtFrachtfAb_KdNr.Text = If(VALUES.atr_frachtfAb_Kdnr, "")
Me.txtAbs_Datum.Text = If(VALUES.atr_ladest_terminDat, "")
Me.txtEmpf_Datum.Text = If(VALUES.atr_entladest_terminDat, "")
' If VALUES.atr_absender_id IsNot Nothing AndAlso IsNumeric(VALUES.atr_absender_id) Then
' Dim ABS As New cEntry(VALUES.atr_absender_id)
' If ABS.hasEntry Then
' End If
' End If
Me.txtAbs_Oeffnungszeiten.Text = ""
Me.txtEmpf_Oeffnungszeiten.Text = ""
'Me.txtEmpf_Oeffnungszeiten.Text = VALUES.Empf_Oeffnungszeiten
Me.txtVERAG_Entladung.Text = If(VALUES.atr_entladung, "")
Me.txtVERAG_Beladung.Text = If(VALUES.atr_beladung, "")
Me.txtFrachtfBis_tatKosten.Text = If(VALUES.atr_frachtf_tatKosten, "")
Me.txtFrachtfBis_LKW.Text = If(VALUES.atr_anhKz, "")
If Me.txtFrachtfBis_LKW.Text = "" Then Me.txtFrachtfBis_LKW.Text = If(VALUES.atr_lkwKz, "")
Me.txtFrachtfAb_LKW.Text = If(VALUES.atr_frachtfAb_anhKz, "")
If Me.txtFrachtfAb_LKW.Text = "" Then Me.txtFrachtfAb_LKW.Text = If(VALUES.atr_frachtfAb_lkwKz, "")
Me.txtFrachtfAb_tatKosten.Text = If(VALUES.atr_frachtfAb_tatKosten, "")
Me.txtSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Me.txtLadung_Anz_1.Text = ""
Me.txtLadung_Verpackung_1.Text = ""
Me.txtLadung_Inhalt_1.Text = ""
Me.txtLadung_Gewicht_1.Text = ""
Me.txtLadung_FPGGewicht_1.Text = ""
Me.txtLadung_Anz_2.Text = ""
Me.txtLadung_Verpackung_2.Text = ""
Me.txtLadung_Inhalt_2.Text = ""
Me.txtLadung_Gewicht_2.Text = ""
Me.txtLadung_FPGGewicht_2.Text = ""
Me.txtLadung_Anz_3.Text = ""
Me.txtLadung_Verpackung_3.Text = ""
Me.txtLadung_Inhalt_3.Text = ""
Me.txtLadung_Gewicht_3.Text = ""
Me.txtLadung_FPGGewicht_3.Text = ""
Me.txtLadung_Anz_4.Text = ""
Me.txtLadung_Verpackung_4.Text = ""
Me.txtLadung_Inhalt_4.Text = ""
Me.txtLadung_Gewicht_4.Text = ""
Me.txtLadung_FPGGewicht_4.Text = ""
If VALUES.LADUNGEN.Count > 0 Then
Dim L As cDispoLadungen = VALUES.LADUNGEN(0)
Me.txtLadung_Anz_1.Text = L.lad_Anzahl
Me.txtLadung_Verpackung_1.Text = L.lad_Art
Me.txtLadung_Inhalt_1.Text = L.lad_Bezeichnung
Me.txtLadung_Gewicht_1.Text = L.lad_BruttoKg
Me.txtLadung_FPGGewicht_1.Text = L.lad_StatNr
End If
If VALUES.LADUNGEN.Count > 1 Then
Dim L As cDispoLadungen = VALUES.LADUNGEN(1)
Me.txtLadung_Anz_2.Text = L.lad_Anzahl
Me.txtLadung_Verpackung_2.Text = L.lad_Art
Me.txtLadung_Inhalt_2.Text = L.lad_Bezeichnung
Me.txtLadung_Gewicht_2.Text = L.lad_BruttoKg
Me.txtLadung_FPGGewicht_2.Text = L.lad_StatNr
End If
If VALUES.LADUNGEN.Count > 2 Then
Dim L As cDispoLadungen = VALUES.LADUNGEN(2)
Me.txtLadung_Anz_3.Text = L.lad_Anzahl
Me.txtLadung_Verpackung_3.Text = L.lad_Art
Me.txtLadung_Inhalt_3.Text = L.lad_Bezeichnung
Me.txtLadung_Gewicht_3.Text = L.lad_BruttoKg
Me.txtLadung_FPGGewicht_3.Text = L.lad_StatNr
End If
If VALUES.LADUNGEN.Count > 3 Then
Dim L As cDispoLadungen = VALUES.LADUNGEN(3)
Me.txtLadung_Anz_4.Text = L.lad_Anzahl
Me.txtLadung_Verpackung_4.Text = L.lad_Art
Me.txtLadung_Inhalt_4.Text = L.lad_Bezeichnung
Me.txtLadung_Gewicht_4.Text = L.lad_BruttoKg
Me.txtLadung_FPGGewicht_4.Text = L.lad_StatNr
End If
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.txtAuftraggeber_Entladung.Text = getFromBHRG(VALUES, 1, 1)
Me.txtAuftraggeber_Lagerung.Text = getFromBHRG(VALUES, 2, 1)
Me.txtAuftraggeber_Beladung.Text = getFromBHRG(VALUES, 3, 1)
Me.txtAuftraggeber_Sp<EFBFBD>tzuschlag.Text = getFromBHRG(VALUES, 4, 1)
Me.txtAuftraggeber_Transportkosten.Text = getFromBHRG(VALUES, 5, 1)
Me.txtAuftraggeber_Ausfuhrabfertigung.Text = getFromBHRG(VALUES, 6, 1)
Me.txtAuftraggeber_Einfuhrabfertigung.Text = getFromBHRG(VALUES, 7, 1)
Me.txtAuftraggeber_T1T2.Text = getFromBHRG(VALUES, 8, 1)
'Me.txtAuftraggeber_T1T2.Text = getFromBHRG(VALUES, 8)
Me.txtAuftraggeber_Verwahrung.Text = getFromBHRG(VALUES, 9, 1)
Me.txtAuftraggeber_Sonstiges1.Text = getFromBHRG(VALUES, 11, 1)
Me.txtAuftraggeber_Sonstiges2.Text = getFromBHRG(VALUES, 12, 1)
Me.txtSonstigeLeistungTxt1.Text = getFromBHRGTxt(VALUES, 11, 1)
Me.txtSonstigeLeistungTxt2.Text = getFromBHRGTxt(VALUES, 12, 1)
Me.cbxEntladung.Text = If(Me.txtAuftraggeber_Entladung.Text <> "", "X", "")
Me.cbxLagerung.Text = If(Me.txtAuftraggeber_Lagerung.Text <> "", "X", "")
Me.cbxBeladung.Text = If(Me.txtAuftraggeber_Beladung.Text <> "", "X", "")
Me.cbxSp<EFBFBD>tzuschlag.Text = If(Me.txtAuftraggeber_Sp<EFBFBD>tzuschlag.Text <> "", "X", "")
Me.cbxTransportkosten.Text = If(Me.txtAuftraggeber_Transportkosten.Text <> "", "X", "")
Me.cbxAusfuhrabfertigung.Text = If(Me.txtAuftraggeber_Ausfuhrabfertigung.Text <> "", "X", "")
Me.cbxEinfuhrabfertigung.Text = If(Me.txtAuftraggeber_Einfuhrabfertigung.Text <> "", "X", "")
Me.cbxT1T2.Text = If(Me.txtAuftraggeber_T1T2.Text <> "", "X", "")
Me.cbxVerwahrung.Text = If(Me.txtAuftraggeber_Verwahrung.Text <> "", "X", "")
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & VALUES.atr_FilialenNr & "-" & VALUES.atr_frachtpos & "-" & 0 & "/", 1, True, 18)
barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
barcodeSendung.Image = barcode
End Sub
Function getFromBHRG(VALUES As cDispoAuftraege, LeitungsNr As String, op As Integer) As String
Dim r = VALUES.BH_rechnungen.Find(Function(X) X.bhrg_leistungIdDispo = LeitungsNr And X.bhrg_option = op)
If r Is Nothing Then Return ""
Return CDbl(getDBL(r.bhrg_frei) + getDBL(r.bhrg_pfl)).ToString("C2")
End Function
Function getFromBHRGTxt(VALUES As cDispoAuftraege, LeitungsNr As String, op As Integer) As String
Dim r = VALUES.BH_rechnungen.Find(Function(X) X.bhrg_leistungIdDispo = LeitungsNr And X.bhrg_option = op)
If r Is Nothing Then Return ""
Return r.bhrg_vermerk
End Function
Function getDBL(v) As Double
If v Is Nothing Then Return 0
v = v.ToString.Replace(".", ",")
If Not IsNumeric(v) Then Return 0
getDBL = CDbl(If(IsNumeric(v), v, 0))
End Function
Private Sub rptAktendeckelDISPO_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
Picture.Image = My.Resources.DispoAMBAR
End If
Dim sumAuftraggeber As Double = 0
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Entladung.Text), Me.txtAuftraggeber_Entladung.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Lagerung.Text), Me.txtAuftraggeber_Lagerung.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Beladung.Text), Me.txtAuftraggeber_Beladung.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Sp<EFBFBD>tzuschlag.Text), Me.txtAuftraggeber_Sp<EFBFBD>tzuschlag.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Transportkosten.Text), Me.txtAuftraggeber_Transportkosten.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Ausfuhrabfertigung.Text), Me.txtAuftraggeber_Ausfuhrabfertigung.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Einfuhrabfertigung.Text), Me.txtAuftraggeber_Einfuhrabfertigung.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_T1T2.Text), Me.txtAuftraggeber_T1T2.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Verwahrung.Text), Me.txtAuftraggeber_Verwahrung.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Sonstiges1.Text), Me.txtAuftraggeber_Sonstiges1.Text, 0)
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Sonstiges2.Text), Me.txtAuftraggeber_Sonstiges2.Text, 0)
txtSumAuftraggeber.Text = sumAuftraggeber.ToString("N2")
End Sub
End Class
Public Class AktendecelVALUES
Property Filiale As String = ""
Property Auftragsdatum As String = ""
Property AtrNr As String = ""
Property Atr_Firma As String = ""
Property Abs_Firma As String = ""
Property Empf_Firma As String = ""
Property FrachtfBis_Firma As String = ""
Property FrachtfAb_Firma As String = ""
Property Atr_RefNr As String = ""
Property Atr_KdNr As String = ""
Property Abs_KdNr As String = ""
Property Empf_KdNr As String = ""
Property FrachtfBis_KdNr As String = ""
Property FrachtfAb_KdNr As String = ""
Property Abs_Datum As String = ""
Property Empf_Datum As String = ""
Property Abs_Oeffnungszeiten As String = ""
Property Empf_Oeffnungszeiten As String = ""
Property VERAG_Entladung As String = ""
Property VERAG_Beladung As String = ""
Property FrachtfBis_tatKosten As String = ""
Property FrachtfBis_LKW As String = ""
Property FrachtfAb_tatKosten As String = ""
Property FrachtfAb_LKW As String = ""
Property Sachbearbeiter As String = ""
Property Ladung_Anz_1 As String = ""
Property Ladung_Anz_2 As String = ""
Property Ladung_Anz_3 As String = ""
Property Ladung_Anz_4 As String = ""
Property Ladung_Verpackung_1 As String = ""
Property Ladung_Verpackung_2 As String = ""
Property Ladung_Verpackung_3 As String = ""
Property Ladung_Verpackung_4 As String = ""
Property Ladung_Inhalt_1 As String = ""
Property Ladung_Inhalt_2 As String = ""
Property Ladung_Inhalt_3 As String = ""
Property Ladung_Inhalt_4 As String = ""
Property Ladung_Gewicht_1 As String = ""
Property Ladung_Gewicht_2 As String = ""
Property Ladung_Gewicht_3 As String = ""
Property Ladung_Gewicht_4 As String = ""
Property Ladung_FPGGewicht_1 As String = ""
Property Ladung_FPGGewicht_2 As String = ""
Property Ladung_FPGGewicht_3 As String = ""
Property Ladung_FPGGewicht_4 As String = ""
Property Auftraggeber_Entladung As String = ""
Property Auftraggeber_Lagerung As String = ""
Property Auftraggeber_Beladung As String = ""
Property Auftraggeber_Sp<EFBFBD>tzuschlag As String = ""
Property Auftraggeber_Transportkosten As String = ""
Property Auftraggeber_Ausfuhrabfertigung As String = ""
Property Auftraggeber_Einfuhrabfertigung As String = ""
Property Auftraggeber_T1T2 As String = ""
Property Auftraggeber_Verwahrung As String = ""
Property Auftraggeber_Sonstiges1 As String = ""
Property Auftraggeber_Sonstiges2 As String = ""
Property Auftraggeber_Sonstiges1Txt As String = ""
Property Auftraggeber_Sonstiges2Txt As String = ""
Property barcodeSendung As Image = Nothing
End Class

View File

@@ -92,35 +92,29 @@
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="ActiveReports.Designer.resources">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\ActiveReports.Designer.resources.dll</HintPath>
</Reference>
<Reference Include="ActiveReports.Imports.resources">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\ActiveReports.Imports.resources.dll</HintPath>
</Reference>
<Reference Include="ActiveReports.Imports.Win.resources">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\ActiveReports.Imports.Win.resources.dll</HintPath>
</Reference>
<Reference Include="ActiveReports.ThemeEditor.resources">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\ActiveReports.ThemeEditor.resources.dll</HintPath>
</Reference>
<Reference Include="ActiveReports.Viewer.resources">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\ActiveReports.Viewer.resources.dll</HintPath>
</Reference>
<Reference Include="ActiveReports.WpfViewer.resources">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\ActiveReports.WpfViewer.resources.dll</HintPath>
<Reference Include="BouncyCastle.Crypto, Version=1.8.4.0, Culture=neutral, PublicKeyToken=0e99375e54769942">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
</Reference>
<Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\BouncyCastle.Cryptography.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\allDll\BouncyCastle.Cryptography.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging, Version=7.0.0.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<Reference Include="DS.Documents.DX.Windows, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\DS.Documents.Imaging.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.DX.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf, Version=7.0.0.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<Reference Include="DS.Documents.Imaging, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\DS.Documents.Pdf.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Imaging.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Imaging.Windows, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Imaging.Windows.dll</HintPath>
</Reference>
<Reference Include="DS.Documents.Pdf, Version=7.2.2.0, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\DS.Documents.Pdf.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer">
<HintPath>F:\PROGRAMMIERUNG\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll</HintPath>
@@ -144,98 +138,165 @@
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca">
<HintPath>..\..\dll\itextsharp.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Chart, Version=18.0.4.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Chart.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Chart.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders, Version=3.0.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Chart.Win, Version=18.0.4.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Chart.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders, Version=3.1.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.DataProviders.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.DataProviders.Excel, Version=1.1.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.DataProviders.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Document, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gc, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Document.Drawing.Gdi, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Document.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Excel.Page, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gc, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Export.Excel.Page.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Drawing.Gc.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Image.Page">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Export.Image.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section, Version=4.5.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Drawing.Gdi, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Drawing.Gdi.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rdl, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Excel.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Excel.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Html.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Html.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting, Version=3.9.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Image.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Image.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win">
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Pdf.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Pdf.Section, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Pdf.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Svg.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Svg.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Text.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Text.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Tiff.Section, Version=4.7.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Tiff.Section.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win, Version=18.0.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Export.Word.Page, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.ActiveReports.Win.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Export.Word.Page.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.DataEngine, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Rdl, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.DataEngine.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Rdl.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.ExpressionInfo, Version=4.0.0.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<Reference Include="MESCIUS.ActiveReports.Core.Rendering, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.ExpressionInfo.dll</HintPath>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Rendering.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Core.Scripting, Version=3.12.1.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Core.Scripting.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Design.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Design.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Excel, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Excel.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Html, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Html.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Image.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Image.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Image.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Pdf.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Pdf.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Pdf.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Word, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Word.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Export.Xml, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Export.Xml.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.QueryDesigner, Version=1.0.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.QueryDesigner.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Serializer, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Serializer.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.SpreadBuilder, Version=2.2.0.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.SpreadBuilder.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Common, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Viewer.Common.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Viewer.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Viewer.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.ActiveReports.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.ActiveReports.Win.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.DataEngine, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.DataEngine.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.ExpressionInfo, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.ExpressionInfo.dll</HintPath>
</Reference>
<Reference Include="MESCIUS.Data.VBFunctionLib, Version=4.0.3.0, Culture=neutral, PublicKeyToken=0b5e1563d2869208, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\ACTIVE_REPORTS_2025\MESCIUS.Data.VBFunctionLib.dll</HintPath>
</Reference>
<Reference Include="Microsoft.ReportViewer.Common, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>

View File

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.0.4")>
<Assembly: AssemblyFileVersion("1.2.0.4")>
<Assembly: AssemblyVersion("1.2.0.6")>
<Assembly: AssemblyFileVersion("1.2.0.6")>
<Assembly: NeutralResourcesLanguage("")>

View File

@@ -44,7 +44,7 @@ Partial Public Class rptAuswertung
'
Me.Picture1.Height = 0.5905511!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -15,9 +15,9 @@ Public Class rptAuswertung
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
ElseIf frmAuswertung.subrep = "subrptEinzelauswertung" Then
txtUeberschrift.Text = "Einzelauswertung"
Dim subrpt_Einzelauswertung As New subrptEinzelauswertung
Me.subrpt.Report = subrpt_Einzelauswertung
End If

View File

@@ -46,7 +46,7 @@ Partial Public Class rptAuswertungLandscape
'
Me.Picture1.Height = 0.5905511!
Me.Picture1.HyperLink = Nothing
Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
Me.Picture1.Left = 0!
Me.Picture1.Name = "Picture1"
Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom

File diff suppressed because one or more lines are too long

View File

@@ -191,7 +191,7 @@ Partial Public Class subrptAuswertung
'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)
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, GrapeCity.ActiveReports.Chart.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
@@ -237,7 +237,7 @@ Partial Public Class subrptAuswertung
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.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, GrapeCity.ActiveReports.Chart.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"
@@ -249,7 +249,7 @@ Partial Public Class subrptAuswertung
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))
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, GrapeCity.ActiveReports.Chart.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!
@@ -258,7 +258,7 @@ Partial Public Class subrptAuswertung
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.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, GrapeCity.ActiveReports.Chart.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!))
@@ -304,7 +304,7 @@ Partial Public Class subrptAuswertung
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.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, GrapeCity.ActiveReports.Chart.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))

View File

@@ -1,5 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->

View File

@@ -1 +1,2 @@
GrapeCity.ActiveReports.Viewer.Win.Viewer, MESCIUS.ActiveReports.Viewer.Win, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, MESCIUS.ActiveReports.Export.Pdf, Version=18.2.2.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

View File

@@ -268,7 +268,7 @@ Partial Public Class rptAktendeckelDISPO
'Picture
'
Me.Picture.Height = 11.69291!
Me.Picture.ImageData = CType(resources.GetObject("Picture.ImageData"), System.IO.Stream)
Me.Picture.ImageBase64String = resources.GetString("Picture.ImageBase64String")
Me.Picture.Left = -0.1968504!
Me.Picture.Name = "Picture"
Me.Picture.Top = -0.1968504!

File diff suppressed because one or more lines are too long

View File

@@ -1,5 +1,5 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports GrapeCity.ActiveReports.Document
Public Class rptAktendeckelDISPO
Sub New()
@@ -76,7 +76,7 @@ Public Class rptAktendeckelDISPO
Me.txtSonstigeLeistungTxt2.Text = VALUES.Auftraggeber_Sonstiges2Txt
Me.txtAuftraggeber_Sonstiges1.Text = VALUES.Auftraggeber_Sonstiges1
Me.txtAuftraggeber_Sonstiges2.Text = VALUES.Auftraggeber_Sonstiges2
Me.cbxEntladung.Text = If(VALUES.Auftraggeber_Entladung, "X", "")
Me.cbxLagerung.Text = If(VALUES.Auftraggeber_Lagerung, "X", "")
@@ -243,7 +243,7 @@ Public Class rptAktendeckelDISPO
Me.cbxVerwahrung.Text = If(Me.txtAuftraggeber_Verwahrung.Text <> "", "X", "")
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & VALUES.atr_FilialenNr & "-" & VALUES.atr_frachtpos & "-" & 0 & "/", 1, True, 18)
barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)

524
UpgradeLog.txt Normal file
View File

@@ -0,0 +1,524 @@
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\DISPO.vbproj
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\DISPO.vbproj was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\rptAuswertung.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\rptAuswertung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\rptAuswertungLandscape.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\rptAuswertungLandscape.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\subrptAuswertung.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\subrptAuswertung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\subrptEinzelauswertung.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\subrptEinzelauswertung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\subrptEinzelStat.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\Auswertung\subrptEinzelStat.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\rptTransportauftrag.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\rptTransportauftrag.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\subrptTransportauftragLadestelle.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\subrptTransportauftragLadestelle.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\subrptTransportauftragLadung.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\subrptTransportauftragLadung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\subrptTrip.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\Reports\TransportAuftrag\subrptTrip.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\rptAktendeckelDISPO.vb
D:\Andreas\Programmierung\VB\DISPO\DISPO\UID\rptAktendeckelDISPO.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj
D:\Andreas\Programmierung\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\Web.config
D:\Andreas\Programmierung\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\Web.config was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\SDL.vbproj
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\SDL.vbproj was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Administration\RPT\rptKostenstellen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Administration\RPT\rptKostenstellen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\buchhaltung\rptMahnung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\buchhaltung\rptMahnung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\buchhaltung\rptOP_Risikobericht.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\buchhaltung\rptOP_Risikobericht.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Checkliste\rptCheckliste.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Checkliste\rptCheckliste.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Checkliste\subRptVM.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Checkliste\subRptVM.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptFaktRechnungAn.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptFaktRechnungAn.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptRechnungDruck.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptRechnungDruck.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungAnlagenDruck.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungAnlagenDruck.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungAnlagenDruck_MDM.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungAnlagenDruck_MDM.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungDruck.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Fakturierung\rptSammelRechnungDruck.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CARNET-TIR\rptTIR.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CARNET-TIR\rptTIR.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CARNET-TIR\rptTIR_alt.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CARNET-TIR\rptTIR_alt.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CMR\rptCMR.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CMR\rptCMR.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CMR\subrptLadung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CMR\subrptLadung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CMR\subrptLadungKurz.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\CMR\subrptLadungKurz.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0735.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0735.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0736.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0736.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0777.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0777.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0778.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\Einheitspapier\rptEinheitspapier0778.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptDispoHaftListe.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptDispoHaftListe.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptLaufzettelZollDE.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptLaufzettelZollDE.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptPreislisten.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptPreislisten.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptVerpflichtungserklaerung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptVerpflichtungserklaerung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptVerpflichtungserklaerungNeu.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\rptVerpflichtungserklaerungNeu.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_ATA.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_ATA.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_ATZOLL.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_ATZOLL.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subrptPreislisten.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subrptPreislisten.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subrptPreislisten_Zoll.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Formulare\KDFormulare\FormulareBaukasten\subrptPreislisten_Zoll.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptAESKey.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptAESKey.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptEABeleg.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptEABeleg.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchBuchhaltung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchBuchhaltung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchBuchhaltungDetails.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchBuchhaltungDetails.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchKontenBericht.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchKontenBericht.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchLeihgeld2.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKassenbuchLeihgeld2.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKundenBeleg.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptKundenBeleg.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptLeihgeldBeleg.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\BelegReports\rptLeihgeldBeleg.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\KassenbuchSuche\rptKassenbuchBericht.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\KassenbuchSuche\rptKassenbuchBericht.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\KassenbuchSuche\rptKassenbuchBerichtSaldenBenutzer - Kopieren.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\KassenbuchSuche\rptKassenbuchBerichtSaldenBenutzer - Kopieren.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\KassenbuchSuche\rptKassenbuchBerichtSollHaben.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kassenbuch\KassenbuchSuche\rptKassenbuchBerichtSollHaben.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\rptFiskalkunde.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\rptFiskalkunde.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\rptFrachtkostenberechnung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\rptFrachtkostenberechnung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\rptKundeUebersicht.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\rptKundeUebersicht.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptAbfertigungen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptAbfertigungen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptAufschubdaten.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptAufschubdaten.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptBonitaetsverlauf.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptBonitaetsverlauf.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptLeistungen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptLeistungen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptOfferte.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\kunden\Berichte\subRptOfferte.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\ASFINAG\rptASFINAG_Anhang.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\ASFINAG\rptASFINAG_Anhang.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\IDS\rptIDS_Anhang.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\IDS\rptIDS_Anhang.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\IDS\rptIDS_Transaktionen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\IDS\rptIDS_Transaktionen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\IDS\rptIDS_TransaktionenSumary.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\IDS\rptIDS_TransaktionenSumary.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_Anhang.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_Anhang.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_CustomerConsortio.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_CustomerConsortio.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_Konsortium.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_Konsortium.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_LaenderGesamt.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_LaenderGesamt.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_TransaktionenSumary.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\PLOSE\rptPLOSE_TransaktionenSumary.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\rptASFINAG_TransaktionenSumary.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\mdm\rptASFINAG_TransaktionenSumary.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\rptSDLBrief.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\rptSDLBrief.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_AT.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_AT.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_CZ.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_CZ.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_DE.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_DE.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_FR.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_FR.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_FREJUS.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_FREJUS.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_HUGO.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_HUGO.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_IDS.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_IDS.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_IT.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_IT.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_MSE.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_MSE.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_MULTIBOX.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_MULTIBOX.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PL.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PL.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_CZ.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_CZ.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_IT.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_IT.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_truckmaster.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_truckmaster.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_SI.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_SI.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_UTA.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_UTA.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_VERAGCARD.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_VERAGCARD.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_WOELFL.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\BriefSDl\subrptBriefSDL_WOELFL.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptAuswertungMWSTOffeneAntraegeMitVorauszahlung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptAuswertungMWSTOffeneAntraegeMitVorauszahlung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptAuswertungUeberfaelligeBestellungen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptAuswertungUeberfaelligeBestellungen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptLeereOBU.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptLeereOBU.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptMWSTListe.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptMWSTListe.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLAbrechnungsblatt.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLAbrechnungsblatt.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungCZ.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungCZ.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungDE.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungDE.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungIDS.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungIDS.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungMSE.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungMSE.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungPL.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungPL.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungUTA.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\rptSDLBenachrichtigung\rptSDLBenachrichtigungUTA.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\subrptAuswertungUeberfaelligeBestellungen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\MDM\subrptAuswertungUeberfaelligeBestellungen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptAufschubabgleich.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptAufschubabgleich.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptGestellungskontrolleEZOLL.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptGestellungskontrolleEZOLL.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_Dakosy.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_Dakosy.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_NCTSTR.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_NCTSTR.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_TELOTEC.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_TELOTEC.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_Zolaris.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptKontrolleLKW_Zolaris.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptMRNDruck.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptMRNDruck.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptTGestellungskontrolle.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptTGestellungskontrolle.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptTGestellungskontrolleDY.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\rptTGestellungskontrolleDY.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_Dakosy.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_Dakosy.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_NCTSTR.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_NCTSTR.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_NCTSTR_Abrechnung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_NCTSTR_Abrechnung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_Telotec.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_Telotec.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_Zolaris.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Reports\Zoll\subrptKontrolleLKW_Zolaris.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\Nacherfassung\rptSpeditionsbericht_Gelangensbestaetigung.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\Nacherfassung\rptSpeditionsbericht_Gelangensbestaetigung.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\Nacherfassung\rptSpeditionsbericht_HandlingAussenstellen.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\Nacherfassung\rptSpeditionsbericht_HandlingAussenstellen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\Nacherfassung\rptSpeditionsberichtKdSpez.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\rptSpeditionsbericht.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\rptSpeditionsbericht.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\rptSpeditionsberichtKunde.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\rptSpeditionsberichtKunde.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\rptSpeditionsberichtRg.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\Speditionsbuch\rptSpeditionsberichtRg.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\zoll\rptAbgabenliste.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\zoll\rptAbgabenliste.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\SDL\SDL\SDL\zoll\rptFiskalvertretungVorschau.vb
D:\Andreas\Programmierung\VB\SDL\SDL\SDL\zoll\rptFiskalvertretungVorschau.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\rptSendungen.vb
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\rptSendungen.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\rptSendungenATILLA.vb
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\rptSendungenATILLA.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenATA.vb
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenATA.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenOfferte.vb
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenOfferte.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenVorkosten.vb
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenVorkosten.vb was updated successfully
Updating D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenZollpruefung.vb
D:\Andreas\Programmierung\VB\AVISO\Aviso\Gemeinsames\subRptSendungenZollpruefung.vb was updated successfully
Installing MESCIUS.Data.VBFunctionLib version 4.0.3 to DISPO
Package MESCIUS.Data.VBFunctionLib version 4.0.3 installed successfully.
Installing MESCIUS.Data.ExpressionInfo version 4.0.3 to DISPO
Package MESCIUS.Data.ExpressionInfo version 4.0.3 installed successfully.
Installing MESCIUS.Data.DataEngine version 4.0.3 to DISPO
Package MESCIUS.Data.DataEngine version 4.0.3 installed successfully.
Installing DS.Documents.Imaging.Windows version 7.2.2 to DISPO
Package DS.Documents.Imaging.Windows version 7.2.2 installed successfully.
Installing DS.Documents.DX.Windows version 7.2.2 to DISPO
Package DS.Documents.DX.Windows version 7.2.2 installed successfully.
Installing DS.Documents.Imaging version 7.2.2 to DISPO
Package DS.Documents.Imaging version 7.2.2 installed successfully.
Installing DS.Documents.Pdf version 7.2.2 to DISPO
Package DS.Documents.Pdf version 7.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Core.Rdl version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Rdl version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Rendering version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Rendering version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Drawing.Gdi version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Drawing.Gdi version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Drawing.Gc version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Drawing.Gc version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document.Drawing.Gc version 4.7.0 to DISPO
Package MESCIUS.ActiveReports.Core.Document.Drawing.Gc version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document.Drawing.Gdi version 4.7.0 to DISPO
Package MESCIUS.ActiveReports.Core.Document.Drawing.Gdi version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document version 4.7.0 to DISPO
Package MESCIUS.ActiveReports.Core.Document version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Pdf.Section version 4.7.0 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Pdf.Section version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Tiff.Section version 4.7.0 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Tiff.Section version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Image.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Image.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Pdf.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Pdf.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Svg.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Svg.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Html.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Html.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Text.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Text.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Excel.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Excel.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Word.Page version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Export.Word.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Scripting version 3.12.1 to DISPO
Package MESCIUS.ActiveReports.Core.Scripting version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.DataProviders version 3.1.2 to DISPO
Package MESCIUS.ActiveReports.Core.DataProviders version 3.1.2 installed successfully.
Installing MESCIUS.ActiveReports.Core.DataProviders.Excel version 1.1.2 to DISPO
Package MESCIUS.ActiveReports.Core.DataProviders.Excel version 1.1.2 installed successfully.
Installing MESCIUS.ActiveReports version 18.2.2 to DISPO
Package MESCIUS.ActiveReports version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Chart version 18.0.4 to DISPO
Package MESCIUS.ActiveReports.Chart version 18.0.4 installed successfully.
Installing MESCIUS.ActiveReports.Chart.Win version 18.0.4 to DISPO
Package MESCIUS.ActiveReports.Chart.Win version 18.0.4 installed successfully.
Installing MESCIUS.ActiveReports.Export.Image version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Export.Image version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Excel version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Export.Excel version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.SpreadBuilder version 2.2.0 to DISPO
Package MESCIUS.ActiveReports.SpreadBuilder version 2.2.0 installed successfully.
Installing MESCIUS.ActiveReports.QueryDesigner version 1.0.2 to DISPO
Package MESCIUS.ActiveReports.QueryDesigner version 1.0.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Word version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Export.Word version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Html version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Export.Html version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Xml version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Export.Xml version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Pdf version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Export.Pdf version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Viewer.Win version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Viewer.Win version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Design.Win version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Design.Win version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Viewer.Common version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Viewer.Common version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Serializer.VS2022 version 18.2.2 to DISPO
Package MESCIUS.ActiveReports.Serializer.VS2022 version 18.2.2 installed successfully.
Installing MESCIUS.Data.VBFunctionLib version 4.0.3 to SDL
Package MESCIUS.Data.VBFunctionLib version 4.0.3 installed successfully.
Installing MESCIUS.Data.ExpressionInfo version 4.0.3 to SDL
Package MESCIUS.Data.ExpressionInfo version 4.0.3 installed successfully.
Installing MESCIUS.Data.DataEngine version 4.0.3 to SDL
Package MESCIUS.Data.DataEngine version 4.0.3 installed successfully.
Installing DS.Documents.Imaging.Windows version 7.2.2 to SDL
Package DS.Documents.Imaging.Windows version 7.2.2 installed successfully.
Installing DS.Documents.DX.Windows version 7.2.2 to SDL
Package DS.Documents.DX.Windows version 7.2.2 installed successfully.
Installing DS.Documents.Imaging version 7.2.2 to SDL
Package DS.Documents.Imaging version 7.2.2 installed successfully.
Installing DS.Documents.Pdf version 7.2.2 to SDL
Package DS.Documents.Pdf version 7.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Core.Rdl version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Rdl version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Rendering version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Rendering version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Drawing.Gdi version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Drawing.Gdi version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Drawing.Gc version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Drawing.Gc version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document.Drawing.Gc version 4.7.0 to SDL
Package MESCIUS.ActiveReports.Core.Document.Drawing.Gc version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document.Drawing.Gdi version 4.7.0 to SDL
Package MESCIUS.ActiveReports.Core.Document.Drawing.Gdi version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document version 4.7.0 to SDL
Package MESCIUS.ActiveReports.Core.Document version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Pdf.Section version 4.7.0 to SDL
Package MESCIUS.ActiveReports.Core.Export.Pdf.Section version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Tiff.Section version 4.7.0 to SDL
Package MESCIUS.ActiveReports.Core.Export.Tiff.Section version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Image.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Image.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Pdf.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Pdf.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Svg.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Svg.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Html.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Html.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Text.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Text.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Excel.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Excel.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Word.Page version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Export.Word.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Scripting version 3.12.1 to SDL
Package MESCIUS.ActiveReports.Core.Scripting version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.DataProviders version 3.1.2 to SDL
Package MESCIUS.ActiveReports.Core.DataProviders version 3.1.2 installed successfully.
Installing MESCIUS.ActiveReports.Core.DataProviders.Excel version 1.1.2 to SDL
Package MESCIUS.ActiveReports.Core.DataProviders.Excel version 1.1.2 installed successfully.
Installing MESCIUS.ActiveReports version 18.2.2 to SDL
Package MESCIUS.ActiveReports version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Chart version 18.0.4 to SDL
Package MESCIUS.ActiveReports.Chart version 18.0.4 installed successfully.
Installing MESCIUS.ActiveReports.Chart.Win version 18.0.4 to SDL
Package MESCIUS.ActiveReports.Chart.Win version 18.0.4 installed successfully.
Installing MESCIUS.ActiveReports.Export.Image version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Export.Image version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Excel version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Export.Excel version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.SpreadBuilder version 2.2.0 to SDL
Package MESCIUS.ActiveReports.SpreadBuilder version 2.2.0 installed successfully.
Installing MESCIUS.ActiveReports.QueryDesigner version 1.0.2 to SDL
Package MESCIUS.ActiveReports.QueryDesigner version 1.0.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Word version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Export.Word version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Html version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Export.Html version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Xml version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Export.Xml version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Pdf version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Export.Pdf version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Viewer.Win version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Viewer.Win version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Design.Win version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Design.Win version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Viewer.Common version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Viewer.Common version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Serializer.VS2022 version 18.2.2 to SDL
Package MESCIUS.ActiveReports.Serializer.VS2022 version 18.2.2 installed successfully.
Installing MESCIUS.Data.VBFunctionLib version 4.0.3 to Gemeinsames
Package MESCIUS.Data.VBFunctionLib version 4.0.3 installed successfully.
Installing MESCIUS.Data.ExpressionInfo version 4.0.3 to Gemeinsames
Package MESCIUS.Data.ExpressionInfo version 4.0.3 installed successfully.
Installing MESCIUS.Data.DataEngine version 4.0.3 to Gemeinsames
Package MESCIUS.Data.DataEngine version 4.0.3 installed successfully.
Installing DS.Documents.Imaging.Windows version 7.2.2 to Gemeinsames
Package DS.Documents.Imaging.Windows version 7.2.2 installed successfully.
Installing DS.Documents.DX.Windows version 7.2.2 to Gemeinsames
Package DS.Documents.DX.Windows version 7.2.2 installed successfully.
Installing DS.Documents.Imaging version 7.2.2 to Gemeinsames
Package DS.Documents.Imaging version 7.2.2 installed successfully.
Installing DS.Documents.Pdf version 7.2.2 to Gemeinsames
Package DS.Documents.Pdf version 7.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Core.Rdl version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Rdl version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Rendering version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Rendering version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Drawing.Gdi version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Drawing.Gdi version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Drawing.Gc version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Drawing.Gc version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document.Drawing.Gc version 4.7.0 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Document.Drawing.Gc version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document.Drawing.Gdi version 4.7.0 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Document.Drawing.Gdi version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Document version 4.7.0 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Document version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Pdf.Section version 4.7.0 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Pdf.Section version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Tiff.Section version 4.7.0 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Tiff.Section version 4.7.0 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Image.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Image.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Pdf.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Pdf.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Svg.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Svg.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Html.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Html.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Text.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Text.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Excel.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Excel.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Export.Word.Page version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Export.Word.Page version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.Scripting version 3.12.1 to Gemeinsames
Package MESCIUS.ActiveReports.Core.Scripting version 3.12.1 installed successfully.
Installing MESCIUS.ActiveReports.Core.DataProviders version 3.1.2 to Gemeinsames
Package MESCIUS.ActiveReports.Core.DataProviders version 3.1.2 installed successfully.
Installing MESCIUS.ActiveReports.Core.DataProviders.Excel version 1.1.2 to Gemeinsames
Package MESCIUS.ActiveReports.Core.DataProviders.Excel version 1.1.2 installed successfully.
Installing MESCIUS.ActiveReports version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Chart version 18.0.4 to Gemeinsames
Package MESCIUS.ActiveReports.Chart version 18.0.4 installed successfully.
Installing MESCIUS.ActiveReports.Chart.Win version 18.0.4 to Gemeinsames
Package MESCIUS.ActiveReports.Chart.Win version 18.0.4 installed successfully.
Installing MESCIUS.ActiveReports.Export.Image version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Export.Image version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Excel version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Export.Excel version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.SpreadBuilder version 2.2.0 to Gemeinsames
Package MESCIUS.ActiveReports.SpreadBuilder version 2.2.0 installed successfully.
Installing MESCIUS.ActiveReports.QueryDesigner version 1.0.2 to Gemeinsames
Package MESCIUS.ActiveReports.QueryDesigner version 1.0.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Word version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Export.Word version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Html version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Export.Html version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Xml version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Export.Xml version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Export.Pdf version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Export.Pdf version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Viewer.Win version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Viewer.Win version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Design.Win version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Design.Win version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Viewer.Common version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Viewer.Common version 18.2.2 installed successfully.
Installing MESCIUS.ActiveReports.Serializer.VS2022 version 18.2.2 to Gemeinsames
Package MESCIUS.ActiveReports.Serializer.VS2022 version 18.2.2 installed successfully.