'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:2.0.50727.4952 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.ReportSource Imports CrystalDecisions.Shared Imports System Imports System.ComponentModel Public Class Crystal_Report16_CTB_RFC_nach_Besitzer Inherits ReportClass Public Sub New() MyBase.New End Sub Public Overrides Property ResourceName() As String Get Return "6_CTB_RFC_nach_Besitzer.rpt" End Get Set 'Do nothing End Set End Property Public Overrides Property NewGenerator() As Boolean Get Return true End Get Set 'Do nothing End Set End Property Public Overrides Property FullResourceName() As String Get Return "ITSM_Reporting.6_CTB_RFC_nach_Besitzer.rpt" End Get Set 'Do nothing End Set End Property _ Public ReadOnly Property Section1() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(0) End Get End Property _ Public ReadOnly Property ReportHeaderSection2() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(1) End Get End Property _ Public ReadOnly Property ReportHeaderSection1() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(2) End Get End Property _ Public ReadOnly Property Section2() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(3) End Get End Property _ Public ReadOnly Property GroupHeaderSection1() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(4) End Get End Property _ Public ReadOnly Property GroupHeaderSection2() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(5) End Get End Property _ Public ReadOnly Property Section3() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(6) End Get End Property _ Public ReadOnly Property GroupFooterSection2() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(7) End Get End Property _ Public ReadOnly Property GroupFooterSection1() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(8) End Get End Property _ Public ReadOnly Property Section4() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(9) End Get End Property _ Public ReadOnly Property Section5() As CrystalDecisions.CrystalReports.Engine.Section Get Return Me.ReportDefinition.Sections(10) End Get End Property End Class _ Public Class CachedCrystal_Report16_CTB_RFC_nach_Besitzer Inherits Component Implements ICachedReport Public Sub New() MyBase.New End Sub _ Public Overridable Property IsCacheable() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.IsCacheable Get Return true End Get Set ' End Set End Property _ Public Overridable Property ShareDBLogonInfo() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.ShareDBLogonInfo Get Return false End Get Set ' End Set End Property _ Public Overridable Property CacheTimeOut() As System.TimeSpan Implements CrystalDecisions.ReportSource.ICachedReport.CacheTimeOut Get Return CachedReportConstants.DEFAULT_TIMEOUT End Get Set ' End Set End Property Public Overridable Function CreateReport() As CrystalDecisions.CrystalReports.Engine.ReportDocument Implements CrystalDecisions.ReportSource.ICachedReport.CreateReport Dim rpt As Crystal_Report16_CTB_RFC_nach_Besitzer = New Crystal_Report16_CTB_RFC_nach_Besitzer rpt.Site = Me.Site Return rpt End Function Public Overridable Function GetCustomizedCacheKey(ByVal request As RequestContext) As String Implements CrystalDecisions.ReportSource.ICachedReport.GetCustomizedCacheKey Dim key As [String] = Nothing '// The following is the code used to generate the default '// cache key for caching report jobs in the ASP.NET Cache. '// Feel free to modify this code to suit your needs. '// Returning key == null causes the default cache key to '// be generated. ' 'key = RequestContext.BuildCompleteCacheKey( ' request, ' null, // sReportFilename ' this.GetType(), ' this.ShareDBLogonInfo ); Return key End Function End Class