I'm trying to write my own paramters screen for CE. I have managed to update the currentValues for my required paramter. I am then using the following code to run the report. I have two problems.
1. I need to set EnableParameterPrompt = false as I have created my own screen, but get a "Missing Parameter Values" If i do this.
2. Do I need to set the Paramterfields object, even though I have updated the CurrentValues property?
Set oReportViewer = oObjectFactory.CreateObject("CrystalReports.CrystalReportInteractiveViewer")
Set oClientDoc = oReportFactory.OpenDocument(oReport)
oBooleanSearchControl.ReportDocument = oClientDoc
oReportViewer.HasCrystalLogo = False
oReportViewer.HasHeaderArea = true
oReportViewer.HasExportButton = True
oReportViewer.HasPrintButton = True
oReportViewer.PageTitle = oReport.Properties("SI_NAME")
oReportViewer.HasSearchButton = True
oReportViewer.EnableParameterPrompt = true
oReportViewer.HasBooleanSearchButton = True
oReportViewer.EnableBooleanSearch = true
oReportViewer.BooleanSearchControl = oBooleanSearchControl
oReportViewer.ZoomFactor = DefaultZoomLevel
oReportViewer.IsDisplayGroupTree = False
oReportViewer.IsOwnPage = true
oReportViewer.ReportSource = oReportSource
oReportViewer.EnterpriseLogon = istore.EnterpriseSession
oReportViewer.URI = CStr( Request.ServerVariables.Item("PATH_INFO") & "?" & Request.ServerVariables.Item("QUERY_STRING"))
oReportViewer.ProcessHttpRequest Request, Response, Session
'oReportViewer.ParameterFields.Item(0) = "100
1. I need to set EnableParameterPrompt = false as I have created my own screen, but get a "Missing Parameter Values" If i do this.
2. Do I need to set the Paramterfields object, even though I have updated the CurrentValues property?
Set oReportViewer = oObjectFactory.CreateObject("CrystalReports.CrystalReportInteractiveViewer")
Set oClientDoc = oReportFactory.OpenDocument(oReport)
oBooleanSearchControl.ReportDocument = oClientDoc
oReportViewer.HasCrystalLogo = False
oReportViewer.HasHeaderArea = true
oReportViewer.HasExportButton = True
oReportViewer.HasPrintButton = True
oReportViewer.PageTitle = oReport.Properties("SI_NAME")
oReportViewer.HasSearchButton = True
oReportViewer.EnableParameterPrompt = true
oReportViewer.HasBooleanSearchButton = True
oReportViewer.EnableBooleanSearch = true
oReportViewer.BooleanSearchControl = oBooleanSearchControl
oReportViewer.ZoomFactor = DefaultZoomLevel
oReportViewer.IsDisplayGroupTree = False
oReportViewer.IsOwnPage = true
oReportViewer.ReportSource = oReportSource
oReportViewer.EnterpriseLogon = istore.EnterpriseSession
oReportViewer.URI = CStr( Request.ServerVariables.Item("PATH_INFO") & "?" & Request.ServerVariables.Item("QUERY_STRING"))
oReportViewer.ProcessHttpRequest Request, Response, Session
'oReportViewer.ParameterFields.Item(0) = "100