Error Cargar Reporte utilizando CrystalDecisions
Estoy trabajando con Visual Studio 2008, y he creado una pagina WEB que genera un reporte, cuando lo ejecuto en mi PC sale todo bien, pero cuando lo ejecuto en el servidor Web, me esta saliendo este error:
URL:
/consultas/frmReportes.aspx
Servidor:
webiis_des
Directorio:
E:\Inetpub\consultassat\frmReportes.aspx
Cliente Web:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR
2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Origen:
CrystalDecisions. CrystalReports. Engine
Mensaje:
Load report failed.
Traza:
At
CrystalDecisions. ReportAppServer. ReportClientDocumentWrapper. EnsureDocumentIsOpened()
at CrystalDecisions.CrystalReports.Engine.ReportDocument.Load(String filename,
OpenReportMethod openMethod, Int16 parentJob) at
CrystalDecisions.CrystalReports.Engine.ReportDocument.Load(String filename) at
frmReportes.pImprimirReporte() in E:\Inetpub\consultas\frmReportes.aspx.vb:line
68
El código que uso para levantar mi reporte es:
Imports System. Data
Imports CrystalDecisions. ReportSource
Imports CrystalDecisions. Shared
Imports CrystalDecisions. CrystalReports. Engine
Partial Class frmReportes
Inherits Base.Web.PaginaBase
Private Sub pImprimirReporte()
Dim dtReporte As DataTable = Nothing
Dim strReporte As String
Dim strArchivo As String = ""
Dim intNumero As Integer
Dim strEnvio As String = ""
Dim arrParametro As New ArrayList
Try
If Not Page.IsPostBack Then
Me.Page.Title = "Gestión de Requerimientos - Visor de Reportes"
End If
intNumero = FuncionesWEB.GetVariableURL("numero")
strEnvio = FuncionesWEB.GetVariableURL("envío")
Using objImprimir As New COM.BLL.Oficio
arrParametro.Add(CType(intNumero, Integer))
arrParametro.Add(CType(strEnvio, String))
dtReporte = objImprimir.ImprimirOficio(arrParametro)
End Using
If dtReporte IsNot Nothing AndAlso dtReporte.Rows.Count > 0 Then
strReporte = Server.MapPath("rpt") & "/"
strArchivo = "OficioNro" & intNumero & ".pdf"
Using rpt As New ReportDocument
Rpt.Load(strReporte & "crRptOficioLoteEnvio.rpt") '' Aqui en donde se cae segun el error.
rpt.SetDataSource(dtReporte)
strReporte = Server.MapPath("temp") & "/"
rpt.ExportToDisk(ExportFormatType.PortableDocFormat, strReporte & strArchivo)
strReporte = "Temp/" & strArchivo
Response.Redirect(strReporte, False)
If strEnvio = "1" Then
Using objCerrarOfi As New COM.BLL.Oficio
ArrParametro. Clear()
ArrParametro. Add(CType(intNumero, Integer))
ArrParametro. Add(CType(mintCodUsu, Integer))
ArrParametro. Add(CType(mstrNomTer, String))
ObjCerrarOfi. CerrarOficio(arrParametro)
End Using
End If
End Using
Else
Response.Write("<h1> No existe datos a Imprimir!!! <h1>")
End If
Catch ex As Exception
ex
Finally
If dtReporte IsNot Nothing Then dtReporte.Dispose()
dtReporte = Nothing
End Try
End Sub
End Class