Business Objects 7008038 Manual Do Utilizador

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);

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:

Dim objFactory

Set objFactory =
Server.CreateObject("CrystalReports.ObjectFactory")

‘Load the Crystal Enterprise Session Manager

Dim ceSessionManager

Set ceSessionManager =
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>”)

Set ceReports = IStore.query("Select * from CI_INFOOBJECTS
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

Page

crserver_xi_upgrading_from_ce10_embedded.pdf