Visualizar un Cristal Report

[DanX03]

Hola que tal, tengo el siguiente problema:

He generado un Cristal Report, lo que deseo hacer es que al final de la captura de los datos me muestre dicho reporte, ¿como logro esto?

[DanX03]

Hola de nuevo ya encontre la forma de poder visualizar el reporte, ahora tengo que importarlo en un Archivo PDF, checando otras paginas encontre este codigo que hace la importacion:

Código ASP:

Dim CRRepote_Datos = New Reporte_Datos1
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationsOptions As New DiskFileDestinationOptions
        Dim crFormatTypeOptions As New PdfFormatOptions
        Dim strFolder As String = "C:\Documentos PDF AZTECA\"
 
        If Not Directory.Exists(strFolder) Then
            Directory.CreateDirectory(strFolder)
        End If
        
        Try
            Abrir_Conexion()
            CRRepote_Datos.SetParameterValue("@folio", nfolio)
            CrystalReportViewer1.ReportSource = CRRepote_Datos
            crDiskFileDestinationsOptions.DiskFileName = strFolder & nfolio & ".pdf"
            crExportOptions = CRRepote_Datos.ExportOptions
            With crExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .DestinationOptions = crDiskFileDestinationsOptions
                .FormatOptions = crFormatTypeOptions
            End With
 
            CRRepote_Datos.Export()
            CRRepote_Datos.Close()
 
        Catch ex As Exception
            Response.Write("Error al momento de generar el archivo </ br>")
            Response.Write(ex)
            Response.End()
        End Try
 

El detalle de este codigo es que no hace la importacion, ya que marca como error de que no encuentra la conexion con la base de datos, pero no encuentro el error, ¿donde esta dicho error?

[Drako_18]

Buenas compañero!

Lo primero, podrías poner cómo mostrar el informe de Cristal Report? (También estoy interesado y jamás lo hice jajaja)
En cuanto a tu error, al informe tendrás que decirle cual es la conexión, si es que el error sucede al hacer el "Export()", sino, indícanos en qué línea y el error en concreto :)


Un saludo y gracias!

[DanX03]

Ya resolvi el detalle de la conexion con el servidor SQL Server, este es el codigo que utilice para solucionarlo:

Código ASP:

Dim crReporte = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim dsDataSet As New DataSet
        Dim CRRepote_Datos = New Crystal_Reports1
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationsOptions As New DiskFileDestinationOptions
        Dim crFormatTypeOptions As New PdfFormatOptions
        Dim strFolder As String = "C:\Documentos PDF AZTECA\"
 
        If Not Directory.Exists(strFolder) Then
            Directory.CreateDirectory(strFolder)
        End If
 
        cadenaconexion = "Provider=SQLOLEDB;Data Source=GT\SQLEXPRESS2;Initial Catalog=es_fundacion;Persist Segurity Info=true;User ID=SA;Password=781acs"
    Try
            Abrir_Conexion()
            datos_rep = "select a.al_folio,a.al_apepat,a.al_apemat,a.al_nombre,a.al_calle,a.al_numext,a.al_numint,a.al_cp,a.al_colonia,a.al_delmun,a.al_estado,"
            datos_rep = datos_rep & "a.al_CURP,e.in_nombre1,e.in_cantidad1,e.in_nombre2,e.in_cantidad2,e.in_nombre3,e.in_cantidad3,e.in_nombre4,e.in_cantidad4,"
            datos_rep = datos_rep & "e.in_nombre5,e.in_cantidad5,e.in_pagren,e.in_gasali,e.in_gastra,e.in_gasesp,e.in_gasrop,e.in_gasluz,e.in_gasagua,e.in_gastel,"
            datos_rep = datos_rep & "e.in_gascel,e.in_gasint,e.in_gascab,"
            datos_rep = datos_rep & "(e.in_pagren+e.in_gasali+e.in_gastra+e.in_gasesp+e.in_gasrop+e.in_gasluz+e.in_gasagua+e.in_gastel+e.in_gascel+e.in_gasint+"
            datos_rep = datos_rep & "e.in_gascab)as totalgastos from [es_fundacion].dbo.alumno as a left join [es_fundacion].dbo.ingreso as e on "
            datos_rep = datos_rep & "a.al_folio=e.al_folio where a.al_folio=" & nfolio
            Dim daDataAdapter As New OleDbDataAdapter(datos_rep, cadenaconexion)
            daDataAdapter.Fill(dsDataSet, "DPT")
            CRRepote_Datos.SetDataSource(dsDataSet.Tables("DPT"))
            crDiskFileDestinationsOptions.DiskFileName = strFolder & nfolio & ".pdf"
            crExportOptions = CRRepote_Datos.ExportOptions
            With crExportOptions
                .ExportDestinationType = ExportDestinationType.DiskFile
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .DestinationOptions = crDiskFileDestinationsOptions
                .FormatOptions = crFormatTypeOptions
            End With
    
            CRRepote_Datos.Export()
            CRRepote_Datos.Close()
            labmensaje.Visible = True
        Catch ex As Exception
            Response.Write("Error al momento de generar el archivo </ br>")
            Response.Write(ex)
            Response.End()
        End Try