Bases de Datos > Crystal Reports

 Clase Para Crear Informe

(1/1)

vallekas0:
Buenos días,

Tengo una duda, ¿siempre hay que crear una clase de este tipo (mirar el código de abajo) por cada informe que se cree?


--- Código: Text ---Option Strict OffOption Explicit On Imports CrystalDecisions.CrystalReports.EngineImports CrystalDecisions.ReportSourceImports CrystalDecisions.SharedImports SystemImports System.ComponentModelImports Microsoft.VisualBasic  Namespace CR_PF_Extracto     Public Class Rpt_PF_Extracto        Inherits ReportClass         Public Sub New()            MyBase.New()        End Sub         Public Overrides Property ResourceName() As String            Get                Return "Rpt_PF_Extracto.rpt"            End Get            Set(ByVal value As String)                'Do nothing            End Set        End Property         <Browsable(False), _         DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _        Public ReadOnly Property Section1() As CrystalDecisions.CrystalReports.Engine.Section            Get                Return Me.ReportDefinition.Sections(0)            End Get        End Property         <Browsable(False), _         DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _        Public ReadOnly Property Section2() As CrystalDecisions.CrystalReports.Engine.Section            Get                Return Me.ReportDefinition.Sections(1)            End Get        End Property         <Browsable(False), _         DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _        Public ReadOnly Property Section3() As CrystalDecisions.CrystalReports.Engine.Section            Get                Return Me.ReportDefinition.Sections(2)            End Get        End Property         <Browsable(False), _         DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _        Public ReadOnly Property Section4() As CrystalDecisions.CrystalReports.Engine.Section            Get                Return Me.ReportDefinition.Sections(3)            End Get        End Property         <Browsable(False), _         DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Hidden)> _        Public ReadOnly Property Section5() As CrystalDecisions.CrystalReports.Engine.Section            Get                Return Me.ReportDefinition.Sections(4)            End Get        End Property    End Class     <System.Drawing.ToolboxBitmapAttribute(GetType(CrystalDecisions.Shared.ExportOptions), "report.bmp")> _    Public Class CachedRpt_PF_Extracto        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(ByVal value As Boolean)                '            End Set        End Property         Public Overridable Property ShareDBLogonInfo() As Boolean Implements CrystalDecisions.ReportSource.ICachedReport.ShareDBLogonInfo            Get                Return False            End Get            Set(ByVal value As Boolean)                '            End Set        End Property         Public Overridable Property CacheTimeOut() As System.TimeSpan Implements CrystalDecisions.ReportSource.ICachedReport.CacheTimeOut            Get                Return CachedReportConstants.DEFAULT_TIMEOUT            End Get            Set(ByVal value As System.TimeSpan)                '            End Set        End Property         Public Overridable Function CreateReport() As CrystalDecisions.CrystalReports.Engine.ReportDocument Implements CrystalDecisions.ReportSource.ICachedReport.CreateReport            Dim rpt As Rpt_PF_Extracto = New Rpt_PF_Extracto            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                    Return key        End Function    End Class End Namespace   
Muchas gracias.

Navegación

[0] Índice de Mensajes