Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
Any help !!
Thanks
Preena
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
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