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 strongm 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
Sep 24, 2001
7
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

D
  • Question
Stored Procedure with no Parameters
Replies
1
Views
233
hilfy
hilfy
MusicMan123
  • Locked
  • Question
Record Selection Formula Help
Replies
0
Views
82
MusicMan123
MusicMan123
rwwagner
  • Locked
  • Question
Passing date range formula from main report to sub report
Replies
2
Views
226
lbass
lbass
PeteyN.O
  • Locked
  • Question
Crystal Report passing a date parameter to a number type field
Replies
3
Views
100
hilfy
hilfy
mart10
  • Locked
  • Question
show multiple selections on a parameter in header
Replies
5
Views
122
nicmcd77
nicmcd77

Part and Inventory Search

Sponsor

Back
Top