Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tuca_filho

Asp com Crystal Report 9

Por , em ASP Clássico

Recommended Posts

Tuca_filho    0

Tuca_filho
Postado

enhores,

 

Estou com um problema e preciso da ajuda de voces.

 

Estou chamando um relatorio feito no Crystal Report 9 em uma pagina asp, porem estar dando a seguinte mensage:

 

"Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: 'CRViewer9'

/cristal4/relatorio.asp, line 41

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; GTB6; InfoPath.1;.NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)"

 

 

Já procurei o erro e não achei, o Crystal estar instalado na minhamaquina porem ele dar essa menesagem, gostaria de saber se alguem japassou por esse problema e qual a solução ?

 

Estou enviando meu codigo para analise.

 

 

 

 

default.asp

===========


<html>
	<head></head>
	<body>
		<h1>Chamar relatorio de Cristal Report</h1>
		<form name="form1" method="post" action="relatorio.asp" >
			<input type="Submit" name="butao" value="Relatorio">
		</form>
		
	</body>

</html>



relatorio.asp
==============

<BODY MS_POSITIONING="GridLayout" BGCOLOR="#c6c6c6" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0">

		<!--activexviewer.cab#Version=9,2,0,442  2DEF4530-8CE6-41C9-84B6-A54536C90213-->

 <OBJECT ID="CRViewer9"CLASSID="CLSID:2DEF4530-8CE6-41c9-84B6-A54536C90213" WIDTH=100%HEIGHT=100%CODEBASE="/viewer9/activeXViewer/activexviewer.cab#Version=9,2,0,442"VIEWASTEXT>
		  <param name="EnableRefreshButton"    value=<%=EnableRefreshButton%>>
		  <param name="EnableGroupTree"        value=<%=EnableGroupTree%>>
		  <param name="DisplayGroupTree"       value=<%=DisplayGroupTree%>>
		  <param name="EnablePrintButton"      value=<%=EnablePrintButton%>>
		  <param name="EnableExportButton"     value=<%=EnableExportButton%>>
		  <param name="EnableDrillDown"        value=<%=EnableDrillDown%>>
		  <param name="EnableSearchControl"    value=<%=EnableSearchControl%>>
		  <param name="EnableAnimationControl" value=<%=EnableAnimationControl%>>
		  <param name="EnableZoomControl"      value=<%=EnableZoomControl%>>
		</OBJECT>


<%

Sub Page_Initialize
'On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker9.WebReportBroker")

if err.number <> 0 then
	'window.alert err.description
	'window.alert "_LOC_The Crystal ActiveX Viewer is unable to create its resource objects_ENDLOC_."
	response.write "erro"
else
	Dim webSource0
	Set webSource0 = CreateObject("WebReportSource9.WebReportSource")
	webSource0.ReportSource = webBroker
	webSource0.URL = server.mapPath("\cristal4\")&"\"&"Report1.rpt"
	
'	Response.Write(webSource0.URL)
'	Response.End()

	webSource0.PromptOnRefresh = True
	
	
	CRViewer9.ReportSource = webSource0
end if


CRViewer9.ViewReport
End Sub


Page_Initialize()
%>
Agreadeço a todos

 

Tuca Aguiar

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito