Hola Shiryu_Libra, antes que nada gracias por responder...la verdad es que no se mas que ideas sacar de la cabeza y es por eso que reaccioné de esa manera....me arrepentí luego pero borrarlo era ya imposible...pido disculpas...
con respecto a lo que me dices, entiendo lo que dices, lo pondré en practica pero el include del archivo, puesto al inicio, es correcto considerando que como dices el procesamiento es lineal?
el echo es que tengo varios codigos distintos y todos terminan de la misma manera...
este es otro ejemplo:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
reportname = "CliResumen.rpt"
If Not IsObject (session("oApp")) Then
Set session("oApp") = Server.CreateObject("CrystalRuntime.Application.11")
End If
Path = Request.ServerVariables("PATH_TRANSLATED")
While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend
If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
End if
Set session("oRpt") = session("oApp").OpenReport(Ruta & reportname, 1)
session("oRpt").MorePrintEngineErrorMessages = True
session("oRpt").EnableParameterPrompting = False
session("oRpt").DiscardSavedData
For itrI = 1 To Session("oRpt").Database.Tables.Count
Session("oRpt").Database.Tables.Item(itrI).SetLogOnInfo "V-ALFREDO-XP\CX", "Comercial", "****", "********"
Next
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" -->
el resultado obtenido es el mismo...
me gustaría, si podes y queres (si no quieres entenderé el porque), delucidarme sobre lo que necesito tener para que el todo funcione...
por lo que veo es una cuestion de modulos faltantes o "incompatibilidad" de versiones... a lo mejor le estoy errando y los archivos no son los que corresponden con mi version de Crystal Report instalado....
el Crystal Report Server es necesario?o con el Crystal Report Viewer es suficiente?alguna dll esencial?algun ActiveX??presiento que algo esta faltando o no está funcionando como corresponde...
gracias de antemano...
EDIT:
si puede servir de ayuda, estoy probando todo en una maquina virtual XP, pero una vez que funcione tendría que pasar todo a un servidor y accder a los reportes desde una terminal....