Ir para conteúdo

Arquivado

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

Mux

Relatórios crystal reports no iis 8

Recommended Posts

Boa tarde a todos programadores,

estou com um problema na elaboração de relatorio crystal reports quando publico este no servidor iis 8

no ambiente de desenvolvimento funciona normalmente ao fazer o deploy é possivel a visualização mas não

consigo manipular o mesmo(carregar dados, actualizar ou imprimir)!!

já pesquisei por por todo lado mas nem um resultado

alguem me ajuda por favor

abraço

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

desculpe me por não ter respondido a tempo

o que acontece é o seguinte:

é possivel carregar o relatório mediante o parametro desejado, mas ao realizar o perações de "exportar" e "imprimir",

resultado final são dados anteriores carregados enquanto testados na fase de desenvolvimento do relatório.

 

''eis o código que permite o carregamento do relatório

Try
Dim cryRpt As New ReportDocument()
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
''Definição de parametros
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
cryRpt.Load(Server.MapPath("~/sample.rpt"))
With crConnectionInfo
.ServerName = "PC-SALA"
.DatabaseName = "db_mgobra"
.UserID = "sa"
.Password = "evandra"
End With
CrTables = cryRpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
'CrystalReportViewer1.ReportSource = cryRpt
''utilização dos parametro já declaradas
''linha set do parametro
crParameterDiscreteValue.Value = Convert.ToInt32(TextBox1.Text)
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("exercicio")
crParameterValues = crParameterFieldDefinition.CurrentValues
''linha set do segundo parametro
crParameterDiscreteValue.Value = (TextBox2.Text)
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("situacao")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.ParameterFieldInfo.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
--------------------------------------------
''este permite a exportação
'função para selecção do tipo ou o formato
Dim crystalReport As New ReportDocument()
BindReport(crystalReport)
Dim crParameterValues As New ParameterValues
Dim formatType As ExportFormatType = ExportFormatType.NoFormat
Select Case rbFormat.SelectedItem.Value
Case "Word"
formatType = ExportFormatType.WordForWindows
Exit Select
Case "PDF"
formatType = ExportFormatType.PortableDocFormat
Exit Select
Case "Excel"
formatType = ExportFormatType.Excel
Exit Select
Case "CSV"
formatType = ExportFormatType.CharacterSeparatedValues
Exit Select
End Select
Try
CrystalReportViewer1.RefreshReport()
crystalReport.Export()
Catch ex As Exception
End Try
crystalReport.ExportToHttpResponse(formatType, Response, True, "Crystal")
Response.[End]()
espero a sua reposta
obrigado pela atenção

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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