También descargué todo ejemplo posible, los he probado y ninguno ha funcionado...solo me han servido para llegar a lo siguiente:
Problematica:
(1)tengo un reporte echo con Crystal Reports 11 Developer el cual internamente tiene echa una conexión OLEDB ADO a un procedimiento almacenado que segun los paramentros que toma, ejecuta distintas consultas en la base de datos.
(2)tengo instalado Crystal Reports Server 2008 en una maquina con windows x, el cual configuró una serie de "carpetas" en la "Default Web Page" del IIS 5.1 (y la verdad no tengo idea para que sirva, en ningun lado se habla de ello con respecto a esta tematica)
(3)tengo una pagina ASP que ejecutaría el reporte echa de esta manera:
Código:
al ejecutar dicha pagina ASP aparentemente funcionaría pero el reporte no viene visualizado. solo visualiza el fondo de la pantalla del navegador en un color grisesito claro. tengo mas ejemplos, con codigos distintos pero todos dan el mismo resultado...<%@ LANGUAGE="VBSCRIPT" %>
<%
'Initialize the RDC application.
Initialize
Dim reportname
reportname = "CliResumen.rpt"
Dim Report
Set Report = OpenReport(reportname)
%>
<%
Function OpenReport(ByRef FileName)
Dim Path
Path = Request.ServerVariables("PATH_TRANSLATED")
Dim iLen
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend
Dim Report
Set Report = session("oApp").OpenReport(path & FileName, 1)
Set OpenReport = Report
End Function
%>
<%
Sub Initialize
If Not IsObject (session("oApp")) Then
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application.11")
End If
End Sub
%>
<%
If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if
Set session("oRpt") = Report
session("oRpt").MorePrintEngineErrorMessages = True
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData
Session("oRpt").ParameterFields.GetItemByName("@suc").AddCurrentValue(CDbl("1"))
Session("oRpt").ParameterFields.GetItemByName("@cliented").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@clienteh").AddCurrentValue(CDbl("100"))
Session("oRpt").ParameterFields.GetItemByName("@zonad").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@zonah").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@localidad").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@provincia").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@orden").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@estado").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@clasif").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@idvendD").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@idvendH").AddCurrentValue(CDbl("0"))
Session("oRpt").ParameterFields.GetItemByName("@lista").AddCurrentValue(CDbl("0"))
On Error Resume Next
session("oRpt").ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else
If IsObject(session("oPageEngine")) Then
set session("oPageEngine") = nothing
End If
set session("oPageEngine") = session("oRpt").PageEngine
End If
%>
<!-- #include file="SmartViewerActiveX.asp" -->
No entiendo lo que me falta, si es a nivel de codigo, de librerias, de programas adjuntos, la verdad ya no se mas donde golpear la cabeza....
agradecería infinitamente una ayuda.
Gracias!
EDIT:
Gente, tengo novedades, ejecutando el todo en Explorer (yo lo hacia siempre con Chrome) me salta el siguiente error:
pareciera un problema de ActiveX o algo por el estilo?!?!
AYUDA POR FAVOR!
GRACIAS!
