Not able to pass multiple paramaters in qvp

[#1]

Hi all

I am stuck in a v.simple problem . I am not able to pass multiple variables through qvp.

set Shell = createobject("wscript.shell")

Shell.Run

"iexplore qvp://servername/Dashboards/rma1.qvw?values=Email Security & catvalue=HIGH-END HW"

full code is like this , i am writting a macro and firing tha on a button click :

sub

set

doc = ActiveDocument

set

App = Doc.GetApplication

set

values=Doc.Fields("LOB"

).GetSelectedValues

set

values=doc.Fields("LOB"

).GetPossibleValues

set

v = ActiveDocument.GetVariable("values"

)

MsgBox

(v.GetContent. String

)

set

Shell = createobject("wscript.shell"

)

"iexplore qvp://serveranme/Dashboards/rma1.qvw?values=Email Security & catvalue=HIGH-END HW"

end

sub

ChooseCurrentSelect

Any help !!

Thanks

Preena

[#2]

Hi All !

Following is the code that i used to pass multiple selections in multiple parameters to another report :

In the base report : (need to declare all th evariables used to pass as parameter):

rptypeval = ActiveDocument.Evaluate("concat(DISTINCT ReportType, ',')")
set v8=ActiveDocument.Fields("ReportType").GetSelectedValues
urlpart = " "
if (v8.Count > 0) then
urlpart = urlpart & "&rptypeval=" & rptypeval //In case more than one paramters,
end if used switch here and concat the url
set Shell = createobject("wscript.shell")
Shell.Run "iexplore qvp://servername/foldername/rma1.qvw?" & urlpart

Apart from this , set Macro Ssecurity level set to "Allow System Access"

Then in rma1.qvw:

set v=ActiveDocument.GetVariable("rptypeval")
valarray = split(v.GetContent.String,",",-1,1)
i=0
for i=Lbound(valarray) to UBound(valarray)
if(i=0)then
ActiveDocument.Fields("ReportType").Select valarray(i)
else
ActiveDocument.Fields("ReportType").toggleSelect valarray(i)
end if
next

Call this in macro on load .

Cheers!!

Preena

[#3 · Accepted solution]

Hi All !

Following is the code that i used to pass multiple selections in multiple parameters to another report :

In the base report : (need to declare all th evariables used to pass as parameter):

rptypeval = ActiveDocument.Evaluate("concat(DISTINCT ReportType, ',')")
set v8=ActiveDocument.Fields("ReportType").GetSelectedValues
urlpart = " "
if (v8.Count > 0) then
urlpart = urlpart & "&rptypeval=" & rptypeval //In case more than one paramters,
end if used switch here and concat the url
set Shell = createobject("wscript.shell")
Shell.Run "iexplore qvp://servername/foldername/rma1.qvw?" & urlpart

Apart from this , set Macro Ssecurity level set to "Allow System Access"

Then in rma1.qvw:

set v=ActiveDocument.GetVariable("rptypeval")
valarray = split(v.GetContent.String,",",-1,1)
i=0
for i=Lbound(valarray) to UBound(valarray)
if(i=0)then
ActiveDocument.Fields("ReportType").Select valarray(i)
else
ActiveDocument.Fields("ReportType").toggleSelect valarray(i)
end if
next

Call this in macro on load .

Cheers!!

Preena