Buen Dia
bueno segun lo que miro en tu pagina, al parecer esta realizada como un ejecutable de visual basic, el cual no importa en que orden pongas los comandos o rutinas, estos se ejecutan por que se carga el objeto completo,
cosa que no pasa en la pagina, debido a que esta se podria decir que se hace lineal
miro que agregas tu include al final de la pagina.... realmente no entiendo por que
despues haces una mezcla entre el contenido de la pagina y los elementos a cargarse
cosa que tambien lo miro como un posible fallo, ya que si te das cuenta,
el objeto/rutina/comando "Initialize", esta en primer orden.... intentas inicializar el objeto CR11 sin siquiera haber cargado los elementos o subrutinas.... por logica.... podrias intentar con algo similar a esto, que no es otra cosa que tu mismo codigo, simplemente en diferente orden, espero que sea asi... jajjajajajaja
Código vb:
Ver original<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim reportname
Dim Report
reportname = "CliResumen.rpt"
Set Report = OpenReport(reportname)
<!-- #include file="SmartViewerActiveX.asp" -->
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
'Initialize the RDC application.
Initialize
If IsObject(session("oRpt")) then
Set session("oRpt") = nothing
else
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"))
End if
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
%>
ahora, en cuanto a la actitud,.... no creo que sea la correcta
se que algunas veces tenemos lios de codigo, y son urgentes, pero reaccionar asi ante una comunidad que dedica su propio tiempo libre para ayudar... no vale la pena ni leerlo entonces
saludos.... espero te sirva el cambio...