Ir para conteúdo

POWERED BY:

Arquivado

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

Thimape

[Resolvido] Relatorio com crystal reports nao abre

Por , em ASP Clássico

Recommended Posts

Thimape    0

Thimape
Postado

Foi mal e que sou novo aqui

 

Este erro acontece em todos os relatorios

Ai ta o codigo de um deles:

 

rel_etiqueta.asp

 

Dim ParamColecao, param1
		Dim nCliente
	
		out "<table border=0 cellspacing=0 cellpadding=3 class='clsTitulo' width='100%'>"
		out "<tr><td height=40 colspan=3 id='titulo'>  Aguarde a Impressão ..."
		out "</table>"

		set ParamColecao = IniciarRelatorio ("cliente_etiqueta13.rpt")

		set param1 = ParamColecao.item(1)

		for each nCliente in request("lst_cliente")
			call param1.AddCurrentValue(cInt(nCliente))
		next

		ImprimirRelatorio ()

function ImprimirRelatorio ()
	%><!-- #include file="crystal/MoreRequiredSteps.asp" --><%
	if err.number = 0 then
		out "<script>alert('if')</script>"%><script language="JavaScript">location="../include/crystal/SmartViewerActiveX.asp";</script><%
	end if
end function

SmartViewerActiveX.asp

<html>
<head>
	<title>Intranet</title>
	<link type="text/css" href="../estilos.css" rel="stylesheet">
</head>

<BODY>
<table border=0 cellspacing=0 cellpadding=3 class='clsTitulo' width='100%'>
<tr><td height=40 id='titulo'>  PREVIEW
<tr><td> <img src='../../imagens/voltar.gif' border=0 onClick='javascript:history.go(-2)' style='cursor:hand;'>
</table>

<OBJECT ID="CRViewer"
	CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
	WIDTH=100% HEIGHT=90%
	CODEBASE="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
<PARAM NAME="EnableRefreshButton" VALUE=1>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=0>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=0>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=0>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>

<script LANGUAGE="VBScript">
<!--
Sub Page_Initialize
	'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 = "C:\sac\include\crystal\rptserver.asp"
	else
		Dim webSource		
		Set webSource = CreateObject("WebReportSource.WebReportSource")
		webSource.ReportSource = webBroker
		webSource.URL = "C:\sac\include\crystal\rptserver.asp"
		webSource.PromptOnRefresh = true
		CRViewer.ReportSource = webSource
	end if
	CRViewer.ViewReport
	CRViewer.Zoom(90)
End Sub
-->
Page_Initialize
</SCRIPT>

</BODY>
</HTML>

alwaysrequiredSteps.asp

<%                                                                    
If Not IsObject ( session ("oApp")) Then
	Set session ("oApp") = Server.CreateObject("CrystalRuntime.Application.8")
End If                                                                

dim path


'path="e:\wwwroot\sac\relatorios\"
path="c:\sac\relatorios\"
If isObject(session("oRpt")) then
	set session("oRpt") = nothing
End If

Set session("oRpt") = session("oApp").OpenReport(path & NomeRelatorio, 1)
out"<script>alert('aqui')</script>"
                                                                      
session("oRpt").MorePrintEngineErrorMessages = false
session("oRpt").EnableParameterPrompting = false
session("oRpt").DiscardSavedData

session("oRpt").Database.Tables.Item(1).SetLogonInfo "xxxxxxxxxxx", "xxxxxxxxxs", "xxxxxxx", "xxxxxxxx"
%>

MoreRequiredSteps.asp

<%
'On Error Resume Next                                                  
session("oRpt").ReadRecords                         
out"<script>alert('aqui tambem')</script>"
                  
If Err.Number <> 0 Then
   response.Write "<script>document.all('titulo').innerText='ERRO NA IMPRESSÃO!!!'</script>"
   Response.Write "Ocorreu um erro no servidor na tentativa de acessar o relatório."
   Response.Write "<br>Contate o seu administrador."
Else                                                                  
	If isObject(session("oPageEngine")) then
		set session("oPageEngine") = nothing 
	End If                                                                    
	Set session("oPageEngine") = session("oRpt").PageEngine               
End If   

%>

E ai ninguem tem ideia nao??????

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum ero ????

número e linha

Compartilhar este post

Link para o post
Compartilhar em outros sites

Thimape    0

Thimape
Postado

Nada de erro ,so aparece aqela parte do crystal reports cinza ,

na parte de cima uma parada carregando que nunca acaba...e se clicar nela ela zera

 

Quando eu chamo diretamente o arquivo rptserver.asp ,da o seguinte erro

 

CRAXDRT Error Occured on Server.

Error Number: -2147319779

Error Description: 006~ASP 0177~Falha em Server.CreateObject~8002801d

 

Mas possivelmente este ocorre porque esta chamando a classe diretamente,ai ela nao tem todos os objetos.

 

Mais alguem tem algo a apresentar...??

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