User1510859543 posted
Someone sent me the following code (in VB) and it works perfectly on IIS and SQL Server 2014 and below and does not use the ReportViewer control. On box with 2016 It fails compiling on the line below with the error
Dim rs As New ReportExecutionService()
and...
Namespace or type specified in the Imports 'Microsoft.Reporting.WebForms.Internal.Soap.ReportingServices2005.Execution' doesn't
contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.
Below is the code
Imports System
Imports System.Collections.Generic
Imports Microsoft.Reporting.WebForms.Internal.Soap.ReportingServices2005.Execution
Imports System.IO
Partial Class reports_PDFReport
Inherits System.Web.UI.Page
Private Function CreatePDFReport(ByVal strReportName As String) As String
' Output variables
Dim strReturn As String = ""
Dim intReturnID As Int32 = 0
Dim encoding As String = Nothing
Dim mimeType As String = Nothing
Dim extension As String = Nothing
Dim warnings As Warning() = Nothing
Dim streamIDs As String() = Nothing
Dim strReturnID As String = ""
Dim i As Integer = 0
Dim filelist As New List(Of String)
' ReportExecution object prepare
Dim rs As New ReportExecutionService()
rs.Credentials = System.Net.CredentialCache.DefaultCredentials
rs.Url = UtilClass.GetReportServerPath & "/ReportExecution2005.asmx"
' Render arguments
Dim result As Byte() = Nothing
Dim strFileName As String = ""
Dim strFullPath As String = ""
Dim reportPath As String = "/BodyShopReports/"
Dim reportName As String = strReportName
Dim format As String = "PDF"
Dim historyID As String = Nothing
Dim devInfo As String = "<DeviceInfo><Toolbar>False</Toolbar></DeviceInfo>"
Dim strOutputPath As String = Server.MapPath("~/OfficeDocs/Export/")
Dim strTime As String = Microsoft.VisualBasic.Format(System.DateTime.Now, "hhmmss")
strTime = Replace(strTime, ":", "")
' Prepare render
Dim execInfo As New ExecutionInfo()
Dim execHeader As New ExecutionHeader()
'get count of parameters sent
Dim intParams As Int32 = lstParameters.Items.Count
Dim parameters As ParameterValue() = New ParameterValue(intParams - 1) {}
Dim intParamNo As Int32 = 0
If intParams > 0 Then
' Prepare report parameters
Dim strItem As String = ""
Dim strParam As String = ""
For Each Li As ListItem In lstParameters.Items
strParam = Left(Li.Value(), InStr(Li.Value, "=") - 1)
strItem = Right(Li.Value(), Len(Li.Value) - InStr(Li.Value, "="))
parameters(intParamNo) = New ParameterValue()
parameters(intParamNo).Name = strParam
parameters(intParamNo).Value = strItem
intParamNo += 1
Next
End If
strFullPath = strOutputPath & strReportName & ".pdf"
If File.Exists(strFullPath) Then
strFileName &= strTime
strFullPath = strOutputPath & strReportName & strTime & ".pdf"
filelist.Add(strFullPath)
Else
filelist.Add(strFullPath)
End If
' Prepare render
rs.ExecutionHeaderValue = execHeader
execInfo = rs.LoadReport(reportPath & reportName, historyID)
If intParams > 0 Then
rs.SetExecutionParameters(parameters, "en-us")
End If
Dim SessionId As [String] = rs.ExecutionHeaderValue.ExecutionID
' Actual render
result = rs.Render(format, devInfo, extension, encoding, mimeType, warnings, streamIDs)
execInfo = rs.GetExecutionInfo()
' Write to file
Using stream As FileStream = File.Create(strFullPath, result.Length)
stream.Write(result, 0, result.Length)
stream.Dispose()
End Using
filelist.TrimExcess()
If filelist.Count > 0 Then
strFileName = Microsoft.VisualBasic.Format(System.DateTime.Now, "yyyyNNddhhmmss") & "reportfile.pdf"
'merge all files using public subroutine
UtilClass.MergePDFs(filelist, strFileName)
Else
strReturn = "There was no report to print."
End If
Return strReturn
End Function
End Class
p.s. I could not convert the C# code as it gave errors on the first (and other) lines.
