What are the reasons for following Javascript error in Report Viewer

Question

Post Author: dhuka
CA Forum: Crystal Reports
Hello Everybody!
I am using Crystal Reports 10 in my web application. But unfortunately I am surrounded with strange problem related to it because of which I have been unable to deploy is on client-side. In my application the error given below is displayed as javascript error in Report Viewer and report is not displayed. But more frustrating part is that I am getting the same error due to different problem with reporting and I am stuck with it as I am unable to figure out what's causing the error now. Earlier this error appeared due to problem with parameter passing to stored procedure which I resolved it and error vanished but once again it has shown up. Moreover this error now appears less frequently and randomly therefore it is even difficult to trace the cause.
Problem with this Web page might prevent it from being displayed properly or functioning properly. In the future, you can display this message by double-clicking the warning icon displayed in the status bar.
Line: 40Char: 12Error: Expected ')'Code: 0URL: http://myServer/myApp/myForms/myReports/ReportViewer.aspx
So can anybody tell me what factors might be causing this errors as the error text is very vague in nature and gives no idea about the actual error.
Guys, I hope for your kind co-operation.
Regards,

Answer 1

Post Author: dhuka
CA Forum: Crystal Reports
Thanks for you reply Krishna.
But this syntax error is the one that is creating problem for me as I cannot trace it. The form ReportViewer.aspx contains only a report viewer object which remains un-binded to any ReportDocument even at runtime.
At code behind ReportViewer.aspx I have code below that associates SQL Stored Procedure Parameter and Report Filter along with report name. Once all above is associated with ReportDocument, I export ReportDocument to PDF file format and display the report. Here I dont' even bind ReportDocument with my ReportViewer. Moreover, as I mentioned previously this error is encountered randomly (with no reasonable explanation so far) on client PC (while browsing through application).
I hope below code give you good idea of the way I am implementing my reporting.
Looking forward to you solution. Please note that I am only passing the ReportFileName and Parameter and Filter Criteria to this form while dataTable by itself using the connection information.
<<<<<<<<<<<<<<<<<CODE BEHIND of REPORTVIEWER.ASPX>>>>>>>>>>>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strKeys() As String
Dim strReportFilter As String
Dim strReportName As String
Dim strError As structError
Try
ReDim strKeys(0)
If strReportName = "" Then
strReportName = Context.Session("ReportName").ToString()
If Not Session("ReportParameters") = Nothing Then
Dim char_Delimiter() As Char = ";".ToCharArray()
strKeys = Session("ReportParameters").ToString().Split(char_Delimiter)
End If
If Not Session("ReportFilter") = Nothing Then
strReportFilter = Session("ReportFilter").ToString()
End If
Else
Session("DataTable") = Nothing
End If
If Not ViewParameterReport(strReportName, strKeys, strReportFilter, strError) Then
ASPNET_DisplayErrorMessageBox(strError.strMsg, Me)
Exit Sub
End If
Catch ex As Exception
strError.strMsg = Err.Description
ASPNET_DisplayErrorMessageBox(strError.strMsg, Me)
Finally
End Try
End Sub
Private Function ViewParameterReport(ByVal str_ReportName As String, ByVal str_ReportParameters() As String, ByVal strReportFilter As String, ByRef strError As structError) As Boolean
Dim str_ReportPath As String = CStr(ConfigurationSettings.AppSettings.Get("ReportPath"))
Dim crLogInfo As TableLogOnInfo
Dim crConnectionInfo As ConnectionInfo
Try
str_ReportPath = CStr(ConfigurationSettings.AppSettings.Get("ReportPath"))
o_Rpt = New CrystalDecisions.CrystalReports.Engine.ReportDocument
o_Rpt.Load(str_ReportPath & "\rpts\" & str_ReportName)
If Context.Session("DataTable") = "" Then
crLogInfo = New TableLogOnInfo()
crConnectionInfo = New ConnectionInfo()
crLogInfo = o_Rpt.Database.Tables(0).LogOnInfo
crConnectionInfo = o_Rpt.Database.Tables(0).LogOnInfo.ConnectionInfo
clsDbCnn.SetDBProperties()
crConnectionInfo.ServerName = clsDbCnn.Server
crConnectionInfo.DatabaseName = clsDbCnn.Database
crConnectionInfo.UserID = clsDbCnn.UserID
crConnectionInfo.Password = clsDbCnn.Password
crLogInfo.ConnectionInfo = crConnectionInfo
o_Rpt.Database.Tables(0).ApplyLogOnInfo(crLogInfo)
Else
ds_MISReports = New DataSet()
ds_MISReports = CType(Session("DataTable"), DataSet)
o_Rpt.SetDataSource(ds_MISReports)
End If
If Not IsPostBack Then
Dim param_Fields As CrystalDecisions.Shared.ParameterFields = New ParameterFields()
Dim iCount As Integer
If str_ReportParameters.GetUpperBound(0) <> 0 Then
For iCount = 0 To str_ReportParameters.Length - 1 Step 2
o_Rpt.SetParameterValue(CStr(str_ReportParameters(iCount).ToString()), CStr(str_ReportParameters(iCount + 1).ToString()))
Next
o_Rpt.RecordSelectionFormula = strReportFilter
End If
End If
'crViewer.DisplayGroupTree = False
'crViewer.ReportSource = o_Rpt
SetDBLogonForReport(crConnectionInfo, o_Rpt)
Dim TargetFileName As String
Dim fs As System.IO.FileStream
Dim FileSize As Long
Dim GenDS As DataSet
'Dim oRD As New ReportDocument()
Dim crReportObject As CrystalDecisions.CrystalReports.Engine.ReportObject()
Dim oExO As ExportOptions
Dim oExDo As New DiskFileDestinationOptions()
'Build Target Filename
TargetFileName = str_ReportPath & "\Pdfs\" & Session.SessionID & ".pdf"
'Export to PDF
oExDo.DiskFileName = TargetFileName
oExO = o_Rpt.ExportOptions
oExO.ExportDestinationType = ExportDestinationType.DiskFile
oExO.ExportFormatType = ExportFormatType.PortableDocFormat
oExO.DestinationOptions = oExDo
o_Rpt.Export()
o_Rpt.Close()
'Send the file to the user that made the request
Response.Clear()
Response.Buffer = True
Response.AddHeader("Content-Type", "application/pdf")
Response.AddHeader("Content-Disposition", "attachment;filename=MyReport.pdf;")
fs = New System.IO.FileStream(TargetFileName, IO.FileMode.Open)
FileSize = fs.Length
Dim bBuffer(CInt(FileSize)) As Byte
fs.Read(bBuffer, 0, CInt(FileSize))
fs.Close()
Response.BinaryWrite(bBuffer)
Response.Flush()
Response.Close()
o_Rpt = Nothing
Return True
Catch ex As Exception
strError.strMsg = Err.Description
Return False
Finally
crConnectionInfo = Nothing
crLogInfo = Nothing
End Try
End Function
Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, _
ByVal myReportDocument As ReportDocument)
Dim myTables As Tables = myReportDocument.Database.Tables
Dim count As Integer
For count = 0 To myTables.Count - 1
Dim myTableLogonInfo As TableLogOnInfo = myTables(count).LogOnInfo
myTableLogonInfo.ConnectionInfo = myConnectionInfo
myTables(count).ApplyLogOnInfo(myTableLogonInfo)
myTables(count).Location = myConnectionInfo.DatabaseName & ".dbo." & myTables(count).Location.Substring(myTables(count).Location.LastIndexOf(".") + 1)
myTables(count).LogOnInfo.ConnectionInfo.ServerName = myConnectionInfo.ServerName()
Next
End Sub