ayudemen con crystal report 6.0

[vpino]

Señores de foro, se lo que se de asp, reconozco que soy demasiado ignorante en el manejo de la herramienta pero por favor necesito que me colaboren indicandomen como utilizo crystal report 6.0 con asp, he seguido las intrucciones dadas en el foro pero no son claras para mi, ustedes saben demasiado y se que me pueden ayudar porfa. Me fui a las ayudas que trae el crystal report. Seagate Crystal Reports\sample\Xtreme\aspweb pero no entiendo los el ejemplo de report.asp. Será que ustedes me daran una manito y me perdonan la ignorancia ?

[Myakire]

¿Qué es especificamente lo que no entiendes o cuál es tu duda precisa?

En tu DD tienes otros ejemplos en esta ruta: C:\Archivos de programa\Seagate Software\Crystal Reports\Samples\Code\Web\Active Server Pages (si tienes las versión developer)

O puedes bajarlos de la Web de Seagate Software.

[vpino]

gracias por contestar: el directorio del que dispongo es el siguiente C:\Archivos de programa\Seagate Crystal Reports\sample\Xtreme\aspweb y el programa report.asp es el que sigue:
<% if Session("username") = "" then
Response.Redirect("logon.asp")
end if
%>
<%
' Make sure the browser does not cache this file
response.expires = 0

' Get the requested report name
rpttoview = request.querystring("rpt")

' Set a default, to show a group tree
' this can be modified for indivual reports
showgrouptree = "1"

' the viewer type is detected and stored in this variable
viewer = Session("init")

'Save the reportn name that is being processed
Session("report") = rpttoview

'build full path for report
fullpathtorpt = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-32)) & "\reports\xtreme\" & rpttoview & ".rpt"

' Need to set the location of the data, this is done to illustrate
' the capability of the automation server.
' Build the path to the xtreme.mdb
pathtomdb = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-32)) & "\xtreme.mdb"

' Only create the Crystal Application Object on first time through

If Not IsObject ( Session ("oApp")) Then
Set Session ("oApp") = Server.CreateObject("Crystal.CRPE.Application")
End If

' Turn off all Error Message dialogs
Set oGlobalOptions = Session ("oApp").Options
oGlobalOptions.MorePrintEngineErrorMessages = 0


' Open the report

Set Session("oRpt") = Session("oApp").OpenReport(fullpathtorpt)

' Turn off sepecific report error messages
Set oRptOptions = Session("oRpt").Options
oRptOptions.MorePrintEngineErrorMessages = 0

' now set the table location
Set oDB = session("oRpt").Database
For Each oDBTable In oDB.Tables
oDBTable.Location = pathtomdb
Next



' Based on the selected report, modify various report parameters

Select Case rpttoview

Case "customer"
' this report is dynamically personalized based on the current user,
' by changing a parameter field
Set paramFlds = Session("oRpt").ParameterFields
Set paramFld = paramFlds(1)
paramFld.SetCurrentValue session("username"), 12
' now set the table location on the subreport
Set oSubReport = session("oRpt").OpenSubReport("orders.rpt")

' Turn off sepecific report error messages
Set oRptOptions = Session("oRpt").Options
oRptOptions.MorePrintEngineErrorMessages = 0
Set oDB = oSubReport.Database
For Each oDBTable In oDB.Tables
oDBTable.Location = pathtomdb
Next

Case "empsales"
' this report is dynamically personalized based on the current user,
' by changing a parameter field
Set paramFlds = Session("oRpt").ParameterFields
Set paramFld = paramFlds(1)
paramFld.SetCurrentValue session("username"), 12

Case "statemnt"
' this report is dynamically personalized based on the current user,
' by changing a parameter field
Set paramFlds = Session("oRpt").ParameterFields
Set paramFld = paramFlds(1)
paramFld.SetCurrentValue session("username"), 12

Case "maillabl"
' Turn off grouptree for this report
showgrouptree = "0"

Case "balance"
' Turn off grouptree for this report
showgrouptree = "0"

Case "finstate"
' Turn off grouptree for this report
showgrouptree = "0"
' now set the table location on the subreport
Set oSubReport = session("oRpt").OpenSubReport("income.rpt")
' Turn off sepecific report error messages
Set oRptOptions = Session("oRpt").Options
oRptOptions.MorePrintEngineErrorMessages = 0
Set oDB = oSubReport.Database
For Each oDBTable In oDB.Tables
oDBTable.Location = pathtomdb
Next

' now set the table location on the subreport
Set oSubReport = session("oRpt").OpenSubReport("fr2.rpt")

' Turn off sepecific report error messages
Set oRptOptions = Session("oRpt").Options
oRptOptions.MorePrintEngineErrorMessages = 0
Set oDB = oSubReport.Database
For Each oDBTable In oDB.Tables
oDBTable.Location = pathtomdb
Next

Case "income"
' Turn off grouptree for this report
showgrouptree = "0"


End Select


' This method forces all records to be read
Session("oRpt").ReadRecords

' The PageEngine object can derive all (drill down)views of the report
Set Session("oPageEngine") = Session("oRpt").PageEngine

' Now decide what viewer to create

Select Case viewer

Case "java"
%>
<html><body
<%
if(Session("page")="fr_sales" ) then
response.write(" bgcolor=#003366")
elseif(Session("page")="fr_company") then
response.write(" bgcolor=#330066")
elseif(Session("page")="fr_eis") then
response.write(" bgcolor=#186666")
elseif(Session("page")="fr_warehouse") then
response.write(" bgcolor=#990000")
end if


%>

>




<applet

ALIGN = LEFT
code=ReportViewer.class
codebase="/viewer/JavaViewer"
id=ReportViewer
width=100%
height=95% >
<param name=ReportName value="rptserver.asp">
</applet>
</body>
</html>
<%
Case "actx"
%>
<html><body
<%
if(Session("page")="fr_sales" ) then
response.write(" bgcolor=#003366")
elseif(Session("page")="fr_company") then
response.write(" bgcolor=#330066")
elseif(Session("page")="fr_eis") then
response.write(" bgcolor=#186666")
elseif(Session("page")="fr_warehouse") then
response.write(" bgcolor=#990000")
end if


%>

>
<OBJECT ALIGN = LEFT ID="CRViewer" WIDTH=100% HEIGHT=95%
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
CODEBASE="/viewer/activeXViewer/CRViewer.dll#Version=1,2,0,30">
<PARAM NAME="Report Name" VALUE="rptserver.asp">
<PARAM NAME="Show Group Tree" VALUE= <% response.write showgrouptree %>>
<PARAM NAME="Show Toolbar" VALUE= 1>
</OBJECT>

<%
Case "html_frame"
response.redirect "htmstart.asp"

Case "html_page"

response.redirect "rptserver.asp"



end select

%>



y no entiendo el programa,yo he utilizado esta misma version de crystal en visual basic 6.0 y funciona muy bien, sera porque las lineas del programa en vb son pocas, en vb el el siguiente:

CReports.Connect = "DSN=xxxxxx;UID=xxxx;PWD=xxxx"
Nombre_Reporte = App.Path & "\ReporHoja.rpt"
CReports.ReportFileName = Nombre_Reporte
CReports.SortFields(0) = sort
CReports.WindowState = crptMaximized
CReports.Action = 1
CReports.ReportFileName = Empty

como puedes ver el codigo de asp es demasiado y me complica, te agradezco la ayuda

[battlemagic]

Hola a todos, recien me registre a vuestra pagina. Estoy buscando desesperadamente el crystal report 6.0 y no lo consigo. Tengo el 8.5 con licencia, pero necesito el 6.0 ya que el reporte creado por el otro programador fue realizado en 6.0 y no me permite guardarlo sin alterar nada. Dicho de otra manera, al estar grabado con la versión 6.0 y yo querer grabarlo con la 8.5 el programa no me permite usar el reporte. Agradesco a quien pueda proporcionarme dicha version, al menos free ya que en 1 o 2 dias cambio el reporte y no la usare mas. Gracias

[Myakire]

¿qué tiene que ver eso con ASP o por lo menos con el tema del post?

Se cierra el mensaje al ser revivido un tema viejo innecesariamente

...

por cierto .... Bienvenido al foro