Posted 14 June 2020, 12:45 pm EST - Updated 30 September 2022, 6:35 am EST
i got issue on version 14 the webviewer.
i got one screen with the filter for my report
Dim rpx As New SectionReport
Dim ds As New DataSet()
Dim xtr As New System.Xml.XmlTextReader(Server.MapPath("~") & "\_Templates\Ar\Tms_TimeSheet.rpx")
ssql = "Exec sp_tms_SelRptTimeSheet """ & Session("Company").ToString & """,""" & myDS.Tables(0).Rows(0).Item(1).ToString & """,""" & myDS.Tables(0).Rows(0).Item(2).ToString & """,""" & ddlOPTION_GROUP.SelectedValue & """,""" & spid & """,""" & Session("EmpID").ToString & """"
ds = mySQL.ExecuteSQL(ssql)
rpx.LoadLayout(xtr)
rpx.DataSource = ds.Tables(0)
Session("rptGenericReport") = Nothing
Session("rptGenericReport") = rpx
myTargetURL = "../../ReportViewer.aspx"
Response.Redirect(myTargetURL)
xtr.Close()
then pass the sectionreport to the webviewer page
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Extensibility
Partial Class ReportViewer
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Page.IsPostBack = False Then
Dim viewprinter As New GrapeCity.ActiveReports.Extensibility.Printing.Printer()
viewprinter.PrinterName = ""
WebViewer1.ViewerType = GrapeCity.ActiveReports.Web.ViewerType.HtmlViewer
WebViewer1.Report = CType(Session("rptGenericReport"), SectionReport)
End If
End Sub
End Class
but got below error. the script was working fine on version 12.