Relatórios crystal reports no iis 8

[Mux 0]

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

 

 

 

[ExtremsX 58]

Aparece algum erro na hora?

[Mux 0]

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