How to use the crviewer in Visual InterDev

DianaStewart · Sep 10, 2002

I am trying to use the CRVIEWER in Visual InterDev for the first time. I drop the crviewer onto my page. How can I indicate which report to place in the viewer? What is the syntax to get a report to show in the crviewer on my web page?

Help is greatly appreciated...

TedLiu · Sep 10, 2002

Maybe you can go to crystaldecision support websit and download some sample code from there which will guide you go through how to generate and view a report.

Cheers!

Ted

DianaStewart · Sep 10, 2002

I just want to know what the syntax is for displaying a report in the actual crviewer... I checked the web site and found it confusing!!

TedLiu · Sep 10, 2002

Below is the exactly code to access a report object and view report. Hope it help

<%@ LANGUAGE="VBSCRIPT" %>
<title></title>
<%
'=======================================================================
' WORKING WITH THE REPORT DESIGNER COMPONENT AND ASP TO PREVIEW A REPORT
'=======================================================================

reportname = "logotest.rpt"
' - 1 -
' CREATE THE APPLICATION OBJECT
If Not IsObject (session("oApp&quot

) Then
Set session("oApp&quot

= Server.CreateObject("CrystalRuntime.Application&quot

End If

Path = Request.ServerVariables("PATH_TRANSLATED&quot

While (Right(Path, 1) <> "\" And Len(Path) <> 0)
iLen = Len(Path) - 1
Path = Left(Path, iLen)
Wend

If IsObject(session("oRpt&quot

) then
Set session("oRpt&quot

= nothing
End if

Response.Write Path & reportname

session("oApp&quot

.LogonServer "PDSODBC.DLL", Cstr("GEMSquotetest&quot

, Cstr("REWARDS_SCALING&quot

, Cstr("RWDTSTS1&quot

, "Scaling2002"

Set session("oRpt&quot

= session("oApp&quot

.OpenReport(path & "\New reports\CLALogo\" & reportname, 1)
'Session("oRpt&quot

.ParameterFields.GetItemByName("RTQNumber&quot

.AddCurrentValue(CStr("tedCORPRHOgq531&quot

)

'This Section suppress the subreport area dynamically
Dim RptSection
Dim supSection
Dim SectionOptions

'Get Report Section collection object
'Set RptSection = Session("oRpt&quot

.sections

session("oRpt&quot

.MorePrintEngineErrorMessages = False
session("oRpt&quot

.EnableParameterPrompting = False

'====================================================================================
' Retrieve the Records and Create the "Page on Demand" Engine Object
'====================================================================================

On Error Resume Next
session("oRpt&quot

.ReadRecords
If Err.Number <> 0 Then
Response.Write "An Error has occured on the server in attempting to access the data source"
Else

If IsObject(session("oPageEngine&quot

) Then
set session("oPageEngine&quot

= nothing
End If
set session("oPageEngine&quot

= session("oRpt&quot

.PageEngine
End If

%>
<HTML>
<HEAD>
<TITLE>Seagate ActiveX Viewer</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6 LANGUAGE=VBScript ONLOAD="Page_Initialize">

<OBJECT ID="CRViewer"
CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
WIDTH=100% HEIGHT=95%
codebase="/viewer/activeXViewer/activexviewer.cab#Version=8,0,0,224">
<PARAM NAME="EnableRefreshButton" VALUE=0>
<PARAM NAME="EnableGroupTree" VALUE=1>
<PARAM NAME="DisplayGroupTree" VALUE=1>
<PARAM NAME="EnablePrintButton" VALUE=1>
<PARAM NAME="EnableExportButton" VALUE=1>
<PARAM NAME="EnableDrillDown" VALUE=1>
<PARAM NAME="EnableSearchControl" VALUE=1>
<PARAM NAME="EnableAnimationControl" VALUE=1>
<PARAM NAME="EnableZoomControl" VALUE=1>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject("WebReportBroker.WebReportBroker&quot

if ScriptEngineMajorVersion < 2 then
window.alert "IE 3.02 users on NT4 need to get the latest version of VBScript or install IE 4.01 SP1. IE 3.02 users on Win95 need DCOM95 and latest version of VBScript, or install IE 4.01 SP1. These files are available at Microsoft's web site."
CRViewer.ReportName = "rptserver.asp"
else
Dim webSource
Set webSource = CreateObject("WebReportSource.WebReportSource&quot

webSource.ReportSource = webBroker
webSource.URL = "rptserver.asp"
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport
End Sub
-->
</SCRIPT>
</BODY>
</HTML>

After you understand this. you need to integrate your own code to customize it base on user requirement.

Ted

sue1127 · Sep 24, 2002

I've been trying to learn about the relationship between asp and Crystal, but I've been kind of going around in circles. At this time we have Crystal Enterprise 8.0 Standard installed on our web server. I noticed that the script indicates the Report Designer Component. Would the script also be applicable if Crystal Enterprise is being used.?

Thanks very much.

Sue

TedLiu · Sep 24, 2002

sue,

Crystal report and Crystal enterprise are two different system. CR can allow you view the report; CE will provide you much more functionalities, i.e. role-base security, distribute report, management and report scheduling.

ASP page and script can't be integrated with Crystal enterprise. They have their own administration site in your webserver and they use crystal server page - csp page to access it. If you want to access report base on CE environment with customized requirement, either use their admin site or create your own csp page to do it

Hope it give you some sense.

Ted

sue1127 · Sep 24, 2002

Ted,

The CE we are using is Standard, not Professional, so it does not provide security. There are only 2 roles possible--one role is administrator, and 4 guests. I'm not quite sure what crystal server page is--could you explain it, or tell me where I could go go find out about it?

Thanks,

Sue

malex · Sep 24, 2002

Hi,

I've found these examples in a couple of places. Thanks a lot, they're really helpful - what I'd like to know is if there is a reference for ASP as it relates to using the crviewer, i.e. the documentation for what all those options do, etc.

For instance, if this is an example, I'm looking for the actual manual on this stuff.

Thanks

TedLiu · Sep 24, 2002

Crystal server page defined by crystal decision is similar as ASP page. All the crystal enterprise functionalities are navigated by csp page. you can go to crystal support website and search csp and you may find lots of documents about it.

If you only need to view report, then you don't need to use it at all, it's really a pain to understand it.

Cheers !

Ted

sue1127 · Sep 24, 2002

Ted.

Thanks,

I'll check it out.

Sue

TedLiu · Sep 24, 2002

Hi Malex,

Those sample code you can find from crystal support websit. there is an aspxmps85.exe there. I just combine them together with my own logic(not inside this sample). If you want to find reference for those, they don't have any SDK stuff, you need to find different documents base on your specific issues, but most of them you can find answer in crystal support website.

Even here, lots of guys can help you out. I learn a lot from this forum.

Hope it helps

Ted

mgayb · Oct 2, 2002

The code is good and fine but I do not understand what is inside of WebBroker and also WebSource. Is the code available for the above objects ?

So if I have a Crystal Report calle Test.rpt...where do I load the report into the report object ?

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How to use the crviewer in Visual InterDev

DianaStewart

Programmer

TedLiu

Programmer

DianaStewart

Programmer

TedLiu

Programmer

sue1127

Programmer

TedLiu

Programmer

sue1127

Programmer

malex

Technical User

TedLiu

Programmer

sue1127

Programmer

TedLiu

Programmer

mgayb

Programmer

Similar threads

Part and Inventory Search

Sponsor