Blank page in report

Question

I created an application in VB.NET 2010 that launches a report in CR2010.
In VS2010 when launching the report displays fine but on the distribution server (Windows 2008 R2, Web Edition 64-bit with IIS 7), the report is displayed with a blank page. I installed the 64bit runtime package (CRforVS_redist_install_64bit_13_0.zip). This is the code that runs the report:
        Dim objReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo()
        Dim mySubRepDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        Dim MyCon As New ConnectionInfo()
        Dim param As List(Of ParametroFormula) = Me.ParametriStampa
        Dim myTableLogonInfo As New TableLogOnInfo
        Dim mySubReport As ReportDocument
        Try
            objReport.Load(Me.PathNomeReport)
            If Me.NomeFileXML <> String.Empty Then
                For Each table As Table In objReport.Database.Tables
                    table.Location = Me.NomeFileXML
                Next
                For nSub As Short = 0 To objReport.Subreports.Count - 1
                    For Each table As Table In objReport.Subreports(nSub).Database.Tables
                        table.Location = Me.NomeFileXML
                    Next
                Next
            Else
                Dim sqlConn As New SqlConnectionStringBuilder(System.Configuration.ConfigurationManager.ConnectionStrings("ATC_DB").ToString)
                With MyCon
                    .DatabaseName = sqlConn.InitialCatalog
                    .ServerName = sqlConn.DataSource
                    .UserID = sqlConn.UserID
                    .Password = sqlConn.Password
                End With
                For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In objReport.Database.Tables
                    myTableLogonInfo = myTable.LogOnInfo
                    myTableLogonInfo.ConnectionInfo = MyCon
                    myTable.ApplyLogOnInfo(myTableLogonInfo)
                Next
                For nSub As Short = 0 To objReport.Subreports.Count - 1
                    For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In objReport.Subreports(nSub).Database.Tables
                        myTableLogonInfo = myTable.LogOnInfo
                        myTableLogonInfo.ConnectionInfo = MyCon
                        myTable.ApplyLogOnInfo(myTableLogonInfo)
                    Next
                Next
            End If
            If param IsNot Nothing Then
                Dim par As List(Of ParametroFormula) = (From e In param
                                                       Where e.isParameter = True
                                                       Select e).ToList
                Dim form As List(Of ParametroFormula) = (From e In param
                                                       Where e.isParameter = False
                                                       Select e).ToList
                Dim nPar As Short = 0
                For Each p As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition In objReport.DataDefinition.ParameterFields
                    If p.ParameterType = ParameterType.StoreProcedureParameter Then
                        objReport.SetParameterValue(p.Name, par(nPar).Valore)
                        nPar += 1
                    End If
                Next
                For nSub As Short = 0 To objReport.Subreports.Count - 1
                    mySubReport = objReport.OpenSubreport(objReport.Subreports(nSub).Name)
                    nPar = 0
                    For Each p As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition In mySubReport.DataDefinition.ParameterFields
                        If p.ParameterType = ParameterType.StoreProcedureParameter Then
                            objReport.SetParameterValue(p.Name, par(nPar).Valore, mySubReport.Name)
                            nPar += 1
                        End If
                    Next
                Next
                For Each f As FormulaFieldDefinition In objReport.DataDefinition.FormulaFields
                    If form.Find(Function(e) e.Nome.ToLower = f.Name.ToLower) IsNot Nothing Then
                        f.Text = form.Find(Function(e) e.Nome.ToLower = f.Name.ToLower).Valore
                    End If
                Next
                For nSub As Short = 0 To objReport.Subreports.Count - 1
                    For Each f As FormulaFieldDefinition In objReport.Subreports(nSub).DataDefinition.FormulaFields
                        If form.Find(Function(e) e.Nome.ToLower = f.Name.ToLower) IsNot Nothing Then
                            f.Text = form.Find(Function(e) e.Nome.ToLower = f.Name).Valore
                        End If
                    Next
                Next
            End If
            'If there is a selection formula passed to this function then use that
            If selectionFormula.Length > 0 Then
                objReport.RecordSelectionFormula = selectionFormula
            End If
            'Re setting control
            CrystalReportViewer1.ReportSource = Nothing
            'Set the current report object to report.
            CrystalReportViewer1.ReportSource = objReport
            Return True
        Catch ex As System.Exception
            File.AppendAllText(MapPath("~\Log\") + "log.txt", String.Format(" - Errore ViewReport: ", Now.ToShortDateString, Now.ToShortTimeString, ex.Message.Replace("'", " "), vbCrLf))
            MessaggioLabel.Text = "Impossibile visualizzare il report"
            Return False
        End Try
Thanks.
Edited by: GCriscuolo on Jan 19, 2011 6:42 PM
Edited by: GCriscuolo on Jan 19, 2011 6:43 PM

Answer 1

The BusinessObjects.Licensing.KeycodeDecoder.dll issue is well documented in these forums as well as the Kbase and is of no consequence here, or with any other issue.
I think language issues are getting in the way on us here as we are interpreting your description quite differently than what you are trying to say. At this point in time, I am not suer if you are even seeing the viewer(?). E.g.; do you at least get the viewer toolbar?
I'd recommend looking at a web sample app or two, deploying one of these and see how it works. Deploying a web app that uses a viewer as well as one that does not use a viewer may be a good idea. Samples can be downloaded from here;
https://wiki.sdn.sap.com/wiki/display/BOBJ/CrystalReportsfor.NETSDK+Samples
Looking at the following two articles may also help;
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/a0437ea8-97d2-2b10-2795-c202a76a5e80
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/50aa68c0-82dd-2b10-42bf-e5502b45cd3a
While the issues described in the above articles are not identical to what you are experiencing, it will give you an idea on how the CR viewer behaves and how it needs to be configured (particularly pay attention to non default web site setup). The articles also do not cover CRVS2010, but as you will see from reading the articles, the pattern is pretty self explanatory - no matter the version of CR.
- Ludek