75 lines
3.2 KiB
VB.net
75 lines
3.2 KiB
VB.net
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
|