• Miércoles 1 de Mayo de 2024, 19:58

Autor Tema:  Error Con Crystal  (Leído 1060 veces)

alfonsolh

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Error Con Crystal
« en: Lunes 13 de Noviembre de 2006, 13:50 »
0
Buenas, utilizo este código para pasar el informe a pdf, pero en el stream me da el error "No se puede conectar", podría alguien echarme una mano??. Un compañero tiene el mismo código para otra aplicación y sí le va, tenemos el mismo S.O (XP), el mismo Visual Studio (2003), etc.....Gracias!!

Dim oStream As New System.IO.MemoryStream
    Dim Cro As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim Archivo As String = System.AppDomain.CurrentDomain.BaseDirectory() & "Informes/Visitas.rpt"
    Dim datos As New DataSet

    Try
      datos = DataSetComercial
      Cro.Load(Archivo)
      Cro.SetDataSource(datos)
      Cro.OpenSubreport("ValoracionesDeLaEmpresa").SetDataSource(datos)
      Cro.OpenSubreport("MotivosDeLaVisita").SetDataSource(datos)
      Cro.OpenSubreport("CalidadVisita").SetDataSource(datos)

      oStream = Cro.ExportToStream(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)

      Response.Clear()
      Response.Buffer = True
      Response.ContentType = "application/pdf"
      Response.BinaryWrite(oStream.ToArray())
      Response.End()
    Catch ex As Exception
      ErrorDeterminado("No ha sido posible Lanzar el Informe")
    End Try