Справочник Пользователя для Business Objects 7008038
Crystal Reports Server XI
Upgrading Crystal Enterprise 10 Embedded Edition Applications
// Open the report into a Report Document object
ReportClientDocument rptClientDoc =
rptAppFactory.openDocument((IInfoObject)ceReports.get(0),
0, Locale.ENGLISH);
rptAppFactory.openDocument((IInfoObject)ceReports.get(0),
0, Locale.ENGLISH);
Putting it all together
After having completed these steps, your application is now able to use all the
features available in Crystal Reports Server XI. Below is an example of a
complete COM SDK (ASP) application that changes the database location at
runtime:
features available in Crystal Reports Server XI. Below is an example of a
complete COM SDK (ASP) application that changes the database location at
runtime:
Dim objFactory
Set objFactory =
Server.CreateObject("CrystalReports.ObjectFactory")
Server.CreateObject("CrystalReports.ObjectFactory")
‘Load the Crystal Enterprise Session Manager
Dim ceSessionManager
Set ceSessionManager =
Server.CreateObject("CrystalEnterprise.SessionMgr")
Server.CreateObject("CrystalEnterprise.SessionMgr")
‘Logon to the Enterprise CMS
Dim ceSession
Set ceSession = ceSessionManager.Logon(“<CRS user name>”,
“<CRS password>”, “<CRS Installed CMS>”, “<Authentication
Type>”)
“<CRS password>”, “<CRS Installed CMS>”, “<Authentication
Type>”)
Set ceReports = IStore.query("Select * from CI_INFOOBJECTS
where SI_NAME='Consolidated Balance Sheet'")
where SI_NAME='Consolidated Balance Sheet'")
‘Create the Enterprise InfoStore
Dim ceInfoStore
Set ceInfoStore = ceSession.Service("", "InfoStore")
Dim rptClientDoc
Dim rptAppFactory
If (ceReports.resultCount > 0) Then
‘Initialize Report Application Server
Set rptAppfactory =
ceInfoStore.EnterpriseSession.Service("",
"RASReportFactory")
‘Open the infoObject as a reportClientDocument
Set rptClientDoc =
rptAppFactory.openDocument(oInfoObjects.item(1))
3/30/2007 10:15 AM
Copyright © 2007 Business Objects. All rights reserved.
Page
10
crserver_xi_upgrading_from_ce10_embedded.pdf