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!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Passing multiple selection parameters via URL 1

Status
Not open for further replies.
medeya

medeya

Technical User
Joined
Sep 24, 2001
Messages
7
Location
US
I am trying to pass Multiple Selection Parameters to the report via URL command line.
The selectin formula looks lke this :I get the message box with " The operation was comleted successfully...." , but no data returned.
Probably there is an error in selection formula but I don't know what that is.
Can anybody help ???
Thanks !
 
Sort by date Sort by votes
I use prompt0,prompt1 to pass parameters via a url.

You can use the code below to create a html page with you report enbeded

Code :
<HEAD>
<TITLE>Seagate Crystal Smart Viewer for ActiveX</TITLE>
</HEAD>
<BODY BGCOLOR=C6C6C6>

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

<SCRIPT LANGUAGE=&quot;VBScript&quot;>
<!--
Sub window_onLoad()
Page_Initialize()
End Sub

Sub Page_Initialize
On Error Resume Next
Dim webBroker
Set webBroker = CreateObject(&quot;WebReportBroker.WebReportBroker&quot;)
'URL = Location.Href
URL = &quot;server//demoreport.rpt&quot;
if InStr(1, URL, &quot;?&quot;)>0 then
URL=Mid(URL, 1, InStr(1, URL, &quot;?&quot;) - 1)
end if
if ScriptEngineMajorVersion < 2 then
window.alert &quot;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.&quot;
CRViewer.ReportName = URL
else
Dim webSource
Set webSource = CreateObject(&quot;WebReportSource.WebReportSource&quot;)
webSource.ReportSource = webBroker
webSource.URL = URL
webSource.AddParameter &quot;user0&quot;, &quot;user&quot;
webSource.AddParameter &quot;prompt0&quot;, &quot;DateTime(2001,9,25,0,0,0)&quot;
webSource.AddParameter &quot;prompt1&quot;, &quot;DateTime 2001,9,25,0,0,0)&quot;
webSource.PromptOnRefresh = True
CRViewer.ReportSource = webSource
end if
CRViewer.ViewReport

End Sub
-->
</SCRIPT></BODY></HTML>


Hope this helps !!!
 
Upvote 0 Downvote
I tried that but it doesn't work !
It returns tha table header and the area, surrounded with the chart border, but no chart and no data in the table !!

Thank you for your help !
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

G
  • Locked
  • Question Question
Multiple groups in same level
Replies
0
Views
350
george1610
G
D
  • Locked
  • Question Question
Stored Procedure with no Parameters
Replies
1
Views
770
hilfy
hilfy
MusicMan123
  • Locked
  • Question Question
Record Selection Formula Help
Replies
0
Views
327
MusicMan123
MusicMan123
rwwagner
  • Locked
  • Question Question
Passing date range formula from main report to sub report
Replies
2
Views
783
lbass
lbass
PeteyN.O
  • Locked
  • Question Question
Crystal Report passing a date parameter to a number type field
Replies
3
Views
434
hilfy
hilfy

Part and Inventory Search

Sponsor

Back
Top