Crystal Reports com ASP

[Carla Samira 0]

Por favor algue msabe omo faço para que em uma pagina WEb consiga fazer com ASP chamar os relatorios em Crystal Reports isso dinamicamente

[mebkocznski 0]

você já tem o Crystal Instalado no Servidor ??

 

Caso tenha, observe que existe um arquivo chamada "rptserver.asp"

 

Este arquivo é que deve processar todos os relatórios emitidos pelo Crystal.

 

Estou te mandando abaixo um exemplo de como utilizar o crystal....qualquer dúvida, poste aí no Fórum que a gente te ajuda.

 

<%Set RsAcao = Server.CreateObject("Adodb.recordset")	RsAcao.Open "Select * from contatos where cod=" & request("Cod"),conntemp,2,2,1	Set RsEquipe = Server.CreateObject("adodb.recordset")	RsEquipe.Open "Select * from equipes where equipe='" & RsAcao("CorFicha") & "'",Conntemp,2,2,1		If RsEquipe.EOF then  Response.Write "Equipe não encontrada, selecione uma equipe válida e retorne a solicitar o susbstalecimento"  Response.End	End if 		if RsAcao("Ativo_Passivo") = "2 - Ativo" then	reportname = "Substalecimento.rpt"	else	reportname = "Substalecimento_Passivo.rpt"	end if                     If IsObject(session("oApp")) Then                                Set Session("Oapp") = NothingEnd if  Set session("oApp") = Server.CreateObject("CrystalRuntime.Application")Path = Request.ServerVariables("PATH_TRANSLATED")                     While (Right(Path, 1) <> "\" And Len(Path) <> 0)                      iLen = Len(Path) - 1                                                  Path = Left(Path, iLen) Wend                                                                  'Response.Write "<BR>" & Path & ReportName & "?Cod=" & request("Cod")If IsObject(session("oRpt")) then	Set session("oRpt") = nothingEnd ifOn error resume nextSet session("oRpt") = session("oApp").OpenReport(path & reportname, 1)If Err.Number <> 0 Then  Response.Write "Error Occurred creating Report Object: " & Err.Description  Set Session("oRpt") = nothing  Set Session("oApp") = nothing  Response.EndEnd Ifsession("oRpt").MorePrintEngineErrorMessages = Falsesession("oRpt").EnableParameterPrompting = False'======================================================================================'Defining the Selection Formula'======================================================================================session("oRpt").DiscardSavedData	If RsAcao("Ativo_Passivo") = "2 - Ativo" then	sAutor = RsAcao("Autor")	sReu = RsAcao("Reu")	Adv = rsAcao("Advogado")	Tamanho = Len(Adv)	sCod_Adv = Mid(Adv,Tamanho - 3)	sComarca = RsAcao("Comarca")	sRito = RsAcao("Rito")	If uCASE(sRito) = "SUMÁRIA" oR uCASE(sRito) = "SUMARIA" then  sRito = "REGRESSIVA DE RESSARCIMENTO"	END IF	sAdvogado = RsEquipe("Equipe")	sOAB = RsEquipe("OAB")	Set session("ParamCollection") = Session("oRpt").Parameterfields                                                                           Set Param3 =  session("ParamCollection").Item(3)Call Param3.SetCurrentValue (CStr(sAdvogado), 12) Set Param4 =  session("ParamCollection").Item(1)Call Param4.SetCurrentValue (CStr(sRito), 12)Set Param5 =  session("ParamCollection").Item(2)Call Param5.SetCurrentValue (CStr(sReu), 12)Set Param7 =  session("ParamCollection").Item(4)Call Param7.SetCurrentValue (CStr(sOAB), 12)  Set Param12 =  session("ParamCollection").Item(5)Call Param12.SetCurrentValue (CStr(sAutor), 12)  else	sReu = RsAcao("Autor")	SNprocesso = rsAcao("Nprocesso")	sVara = rsAcao("Vara")	Adv = rsAcao("Advogado")	Tamanho = Len(Adv)	sCod_Adv = Mid(Adv,Tamanho - 3)	sComarca = RsAcao("Comarca")	sEstado = RsAcao("Estado")	sRito = RsAcao("Rito")	sAdvogado = RsEquipe("Equipe")	sOAB = RsEquipe("OAB")	Set session("ParamCollection") = Session("oRpt").Parameterfields                                                                           Set Param1 =  session("ParamCollection").Item(1)Call Param1.SetCurrentValue (Trim(sCod_Adv))Set Param3 =  session("ParamCollection").Item(3)Call Param3.SetCurrentValue (Trim(sAdvogado)) Set Param4 =  session("ParamCollection").Item(4)Call Param4.SetCurrentValue (Trim(sRito))Set Param5 =  session("ParamCollection").Item(5)Call Param5.SetCurrentValue (Trim(sReu))Set Param7 =  session("ParamCollection").Item(7)Call Param7.SetCurrentValue (Trim(sOAB))Set Param8 =  session("ParamCollection").Item(8)Call Param8.SetCurrentValue (Trim(sNprocesso))Set Param9 =  session("ParamCollection").Item(9)Call Param9.SetCurrentValue (Trim(sVara))        Set Param10 =  session("ParamCollection").Item(10)Call Param10.SetCurrentValue (Trim(sComarca))    Set Param11 =  session("ParamCollection").Item(11)Call Param11.SetCurrentValue (Trim(sEstado)) End if				If Not IsNumeric(Cod_Adv)then	Response.Write "Atualize o advogado...........O Sistema não pode gerar o Substalecimento"	RsAcao.Close	Set RsAcao = Nothing	Response.End	End if		RsAcao.Close	Set RsAcao = NothingSession("oRpt").RecordSelectionFormula = "{Lista.Cod}=" & sCod_Adv'''====================================================================================' Retrieve the Records and Create the "Page on Demand" Engine Object'====================================================================================On Error Resume Nextsession("oRpt").ReadRecordsIf Err.Number <> 0 Then                                                 Response.Write "Error Occurred Reading Records: " & Err.Description & "2"  Set Session("oRpt") = nothing  Set Session("oApp") = nothing' Session.Abandon  Response.EndElse  If IsObject(session("oPageEngine")) Then                               	 set session("oPageEngine") = nothing  End If  set session("oPageEngine") = session("oRpt").PageEngineEnd If' INSTANTIATE THE CRYSTAL REPORTS SMART VIEWER''When using the Crystal Reports automation server in an ASP environment, we use'the same page on demand "Smart Viewers" used with the Crystal Web Report Server.'The are four Crystal Reports Smart Viewers:''1.  ActiveX Smart Viewer'2.  Java Smart Viewer'3.  HTML Frame Smart Viewer'4.  HTML Page Smart Viewer''The Smart Viewer that you use will based on the browser's display capablities.'For Example, you would not want to instantiate the Java viewer if the browser'Line 200'did not support Java applets.  For purposes on this demo, we have chosen to'define a viewer.  You can through code determine the support capabilities of'the requesting browser.  However that functionality is inherent in the Crystal'Reports automation server and is beyond the scope of this demonstration app.''We have chosen to leverage the server side include functionality of ASP'for simplicity sake.  So you can use the SmartViewer*.asp files to instantiate'the smart viewer that you wish to send to the browser.  Simply replace the line'below with the Smart Viewer asp file you wish to use.''The choices are SmartViewerActiveX.asp, SmartViewerJave.asp,'SmartViewerHTMLFrame.asp, and SmartViewerHTMLPAge.asp.'Note that to use this include you must have the appropriate .asp file in the 'same virtual directory as the main ASP page.''*NOTE* For SmartViewerHTMLFrame and SmartViewerHTMLPage, you must also have'the files framepage.asp and toolbar.asp in your virtual directory.Tree = "0"viewer = "ActiveX"'viewer = "Java using Browser JVM"Pre = 0'This line collects the value passed for the viewer to be used, and stores'it in the "viewer" variable.If cstr(viewer) = "ActiveX" then%><!-- #include file="Teste_Crystal.asp" --><%ElseIf cstr(viewer) = "Java using Browser JVM" then%><!-- #include file="SmartViewerJava.asp" --><%ElseIf cstr(viewer) = "HTML" thenResponse.Redirect "rptserver.asp"End if'The above If/Then/Else structure is designed to test the value of the "viewer" varaible'and based on that value, send down the appropriate Crystal Smart Viewer.%>

E a página que processa o rptserver abaixo "teste_crystal.asp"

 

'This file contains the HTML code to instantiate the Smart Viewer ActiveX.      '                                                                     'You will notice that the Report Name parameter references the rptserver.asp file.'This is because the report pages are actually created by rptserver.asp.'Rptserver.asp accesses session("oApp"), session("oRpt") and session("oPageEngine")'to create the report pages that will be rendered by the ActiveX Smart Viewer.'%><HTML><HEAD><TITLE>Seagate ActiveX Viewer</TITLE></HEAD><BODY BackGround="\preregistro/images/fundo.jpg" ONUNLOAD="CallDestroy();"><OBJECT ID="CRViewer" CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A" WIDTH="100%" HEIGHT="100%"CODEBASE="_Fpclass/activexviewer.cab#Version=8,0,0,224"><PARAM NAME="EnableRefreshButton" VALUE=1><PARAM NAME="EnableGroupTree" VALUE="<%=Tree%>"><PARAM NAME="DisplayGroupTree" VALUE="<%=Tree%>"><PARAM NAME="EnablePrintButton" VALUE="1"><PARAM NAME="EnableExportButton" VALUE=1><PARAM NAME="EnableDrillDown" VALUE=1><PARAM NAME="EnableSearchControl" VALUE=1><PARAM NAME="EnableAnimationControl" VALUE=1><PARAM NAME="EnableZoomControl" VALUE=1><PARAM NAME="EnablePopupMenu" VALUE=1><PARAM NAME="EnableToolbar" VALUE=1><PARAM NAME="DisplayTabs" VALUE=1></OBJECT><script LANGUAGE="VBScript"><!--Sub Window_Onload	On Error Resume Next	Dim webBroker	Set webBroker = CreateObject("WebReportBroker.WebReportBroker")	if ScriptEngineMajorVersion < 2 then  window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."  CRViewer.ReportName = Location.Protocol + "//" + Location.Host + "/scrsamples/Web Component Server/rptserver.asp"	else  Dim webSource  Set webSource = CreateObject("WebReportSource.WebReportSource")  webSource.ReportSource = webBroker  webSource.URL = "Crystal/Rptserver.asp"  'Msgbox webSource.URL  webSource.PromptOnRefresh = True  CRViewer.ReportSource = webSource	end if	CRViewer.ViewReportEnd Sub--></SCRIPT><script language="javascript">function CallDestroy(){	window.open("Cleanup.asp");}</script></BODY></HTML><%

[Pedro Casado 0]

você já tem o Crystal Instalado no Servidor ??

 

Caso tenha, observe que existe um arquivo chamada "rptserver.asp"

 

Este arquivo é que deve processar todos os relatórios emitidos pelo Crystal.

 

Estou te mandando abaixo um exemplo de como utilizar o crystal....qualquer dúvida, poste aí no Fórum que a gente te ajuda.

Olá boas.

 

Sei que trataram deste assunto em 2003 mas só agora é que eu estou a aprender a trabalhar com isto e a deparar-me com o mesmo problema.

 

Não achei o "rptserver.asp", mas tenho o CR XI (Prof. versão 11.5) instalado no computador / servidor.

 

Não consigo perceber o conceito.

 

Sabe onde posso estudar mais sobre o assunto?

 

Um exemplo de correr um rpt, desde uma pagina asp, simples que só tenha um boneco sem que sejam precisos parametros?

 

Obrigado.

 

casadopedro@hotmail.com

Lisboa - Portugal

[Ted k' 126]

e está pensado em passar os parâmetros como? o realmente não está pesando em passar nada?