or
HTTP/1.1 200 OKServer: Microsoft-IIS/5.1Date: Fri, 08 Jul 2011 12:07:42 GMTX-Powered-By: ASP.NETX-AspNet-Version: 4.0.30319Content-Length: 812Set-Cookie: ASP.NET_SessionId=faopnca1hygazmjbd2yx4x5d; path=/; HttpOnlyCache-Control: privateContent-Type: text/xml; charset=utf-8<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
<s:Body>
<RenderAndCacheResponse xmlns="Telerik.ReportService"> <RenderAndCacheResult xmlns:a="http://schemas.datacontract.org/2004/07/Telerik.Reporting.Service" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"> <a:Error i:nil="true"/> <a:Actions/> <a:Bookmarks i:nil="true"/> <a:HasDocumentMap>false</a:HasDocumentMap> <a:InstanceID>226a967f-0ce1-4951-99a8-94449583823f</a:InstanceID>
<a:NavigateBackEnabled>false</a:NavigateBackEnabled>
<a:NavigateForwardEnabled>false</a:NavigateForwardEnabled> <a:PageCount>1</a:PageCount> <a:PageNumber>1</a:PageNumber> <a:Parameters/> <a:Report>MJDS.Relatorios.RelatorioTipoPermissao, MJDS.Relatorios, Culture=neutral, PublicKeyToken=null</a:Report> </RenderAndCacheResult> </RenderAndCacheResponse> </s:Body></s:Envelope>HTTP/1.1 200 OKServer: Microsoft-IIS/5.1Date: Fri, 08 Jul 2011 12:07:42 GMTX-Powered-By: ASP.NETX-AspNet-Version: 4.0.30319Content-Length: 436Cache-Control: privateContent-Type: text/xml; charset=utf-8<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"> <s:Body> <GetPageResponse xmlns="Telerik.ReportService"> <GetPageResult xmlns:a="http://schemas.datacontract.org/2004/07/Telerik.Reporting.Service" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"> <a:Error>Report is unavailable or session has expired.</a:Error> <a:Buffer i:nil="true"/> <a:PageNumber>0</a:PageNumber> </GetPageResult> </GetPageResponse> </s:Body></s:Envelope>Protected Sub btnDumpToExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDumpToExcel.Click Dim RunRpt As String = Me.ReportViewer1.Report.Reports(0).Name Dim tb As New DataTable(RunRpt) Dim dataConn As New SqlConnection Select Case RunRpt Case "evRptBehaviorChange" Dim report1 As Snap_EvalReports.evRptBehaviorChange = ReportViewer1.Report.Reports(0)
With report1 Dim xSQLDatasource As Telerik.Reporting.SqlDataSource = .DataSource Dim SQLConnectionString As String = System.Configuration.ConfigurationManager.ConnectionStrings(xSQLDatasource.ConnectionString).ToString Dim xSelectCommand As String = xSQLDatasource.SelectCommand dataConn.ConnectionString = SQLConnectionString dataConn.Open() Dim sdc As SqlCommand = New SqlCommand(xSelectCommand, dataConn) sdc.CommandTimeout = LengthOfTimeOut sdc.CommandType = CommandType.StoredProcedure 'xSQLDatasource.SelectCommandType For Each p As Telerik.Reporting.SqlDataSourceParameter In xSQLDatasource.Parameters Dim xParam As SqlParameter = New SqlParameter(p.Name, p.GetType) sdc.Parameters.Add(xParam) Next ' ALTER PROCEDURE [dbo].[StoredProcedure1] '(@FiscalYearID int=3) sdc.Parameters.Item("@FiscalYearID").Value = CType(Session("spaFiscalYear"), Integer) Dim sda As SqlDataAdapter sda = New SqlDataAdapter(sdc) sda.Fill(tb) dataConn.Close() dataConn = Nothing XLSExport(tb, RunRpt) End With End SelectEnd Sub