Ahora, como llamo ese reporte desde mi pagina?

| |||
Oye RsOfT ese tambien es un problema que tengo no tengo idea de como llamar ya intente lo que viene en el link pero no me lo abre, si a ti te sale, me podrias ayudarme ![]() ![]() |
| ||||
Esto es lo que yo hago. Genero un pdf y lo ejecuto en el navegador:
Código:
Dim Report As New Nombre_del_Reporte Dim exportOpts As New CrystalDecisions.Shared.ExportOptions Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions diskOpts.DiskFileName = "C:\Reporte.pdf" Report.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize Report.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.DefaultPaperOrientation Report.DataDefinition.FormulaFields("cFechaTrabajo").Text = "'" & Format(CDate(Request.QueryString("Fecha")), "dd/MM/yyyy") & "'" Report.DataDefinition.RecordSelectionFormula = "{MovPeriodico_vw.cdCodigo} = '" & Request.QueryString("Ruta") & "'" '-- En caso de que la conxión sea con OleDB-- Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables Dim crTable As CrystalDecisions.CrystalReports.Engine.Table Dim crConnInfo As New CrystalDecisions.Shared.ConnectionInfo Dim crLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo crTables = Report.Database.Tables For Each crTable In crTables crConnInfo.DatabaseName = "DB" crConnInfo.ServerName = "SERVIDOR" crConnInfo.UserID = "USER" crConnInfo.Password = "PASSWORD" crLogOnInfo = crTable.LogOnInfo crLogOnInfo.ConnectionInfo = crConnInfo crTable.ApplyLogOnInfo(crLogOnInfo) Next '--------------------------------------------- exportOpts = Report.ExportOptions exportOpts.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat exportOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile exportOpts.DestinationOptions = diskOpts Report.Export() 'Con esto se genera un DPF '--Abrir el reporte-- Dim PaginaWeb As String PaginaWeb = "http://prsist20/ConsultaProceso/Reportes/Reporte.pdf" Response.Write("<script>" & vbCrLf) Response.Write("window.open('" & PaginaWeb & "');" & vbCrLf) Response.Write("javascript:history.back();" & vbCrLf) Response.Write("</script>") '--------------------
__________________ .::RsOfT::. --El que se aferra a lo conocido, nunca conocerá lo desconocido-- --Es intentando lo imposible como se realiza lo posible-- --Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance-- |