or
HTTP/1.1 200 OK
Server: Microsoft-IIS/5.1
Date: Fri, 08 Jul 2011 12:07:42 GMT
X-Powered-By: ASP.NET
X-AspNet-Version: 4.0.30319
Content-Length: 812
Set-Cookie: ASP.NET_SessionId=faopnca1hygazmjbd2yx4x5d; path=/; HttpOnly
Cache-Control: private
Content-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 OK
Server: Microsoft-IIS/5.1
Date: Fri, 08 Jul 2011 12:07:42 GMT
X-Powered-By: ASP.NET
X-AspNet-Version: 4.0.30319
Content-Length: 436
Cache-Control: private
Content-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
Select
End
Sub