Try
Dim objReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
'Code added for Crystal Report Server Enterprise
Dim mySessionMgr As New SessionMgr
Dim myEnterpriseSession As EnterpriseSession
Dim myEnterpriseService As EnterpriseService
Dim queryString As String
Dim strparam As String
Dim strparams() As String = Nothing
Dim frmDate As String = ""
Dim toDate As String = ""
myEnterpriseSession = mySessionMgr.Logon("Admin", "", "hddlgsdmnk9200", "secEnterprise")
myEnterpriseService = myEnterpriseSession.GetService("InfoStore")
Dim myInfoStore As New InfoStore(myEnterpriseService)
queryString = "SELECT * FROM CI_INFOOBJECTS WHERE SI_KIND = 'Folder' AND SI_NAME = 'IOWA_DWHDEV' "
Dim myInfoObjects1 As InfoObjects = myInfoStore.Query(queryString)
Dim myInfoObject1 As InfoObject = myInfoObjects1(1)
Dim id As Integer = myInfoObject1.ID
queryString = "Select SI_KIND,SI_CUID,SI_RUID,SI_PARENT_CUID,SI_GUID,SI_DESCRIPTION From CI_INFOOBJECTS Where SI_PROGID='CrystalEnterprise.Report' And SI_NAME = 'APPEAL_REPORT.rpt' and SI_PARENT_FOLDER = " + id.ToString()
Dim myInfoObjects As InfoObjects = myInfoStore.Query(queryString)
Dim myInfoObject As InfoObject = myInfoObjects(1)
objReportDoc.Load(myInfoObject, myEnterpriseSession)
strparam = Request.QueryString("rptParam")
strparams = strparam.Split(";".ToCharArray)
frmDate = strparams(0)
toDate = strparams(1)
Catch ex As Exception
Logger.Log(ex.StackTrace)
Finally
End Try
End Sub
Private Sub CrvLICReportViewer_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrvLICReportViewer.Unload
Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload
CrvLICReportViewer.Dispose()
GC.WaitForPendingFinalizers()
GC.Collect()
End Sub
End Class
IP Logged