[RESOLVED] Eliminating Parameter Prompt in applcation?

[blakemckenna]

I'm using CR 11 along with VB.Net. I have a report that takes 2 parameters that are passed from my VB App. My problem is that when I call the reporting procedure, I'm prompted by CR to enter my parameter values. Is there anyway I can prevent the prompt and pass the values to the report behind the scenes?

Thanks,

[Besoup]

can you post the code where you are passing them?

[blakemckenna]

Here is the VB.Net procedure that creates, passes, and calls the CR.

    Public Sub PrintGroupActivitySummary()
        Try
            dErr.clsModule = "modReports"

            Dim crDoc As New rptGroupActivitySummary

            With crConnectionInfo
                .ServerName = "sTEST"
                .DatabaseName = "DACK"
                .UserID = "CRVBNETSQL"
                .Password = "password"
                .IntegratedSecurity = True
            End With

            'Create Crystal Parameter
            Dim parameterFields As CrystalDecisions.Shared.ParameterFields
            Dim parameterField As CrystalDecisions.Shared.ParameterField

            Dim spValue As CrystalDecisions.Shared.ParameterDiscreteValue
            Dim spValue1 As CrystalDecisions.Shared.ParameterDiscreteValue

            spValue = New CrystalDecisions.Shared.ParameterDiscreteValue
            spValue1 = New CrystalDecisions.Shared.ParameterDiscreteValue

            parameterFields = New CrystalDecisions.Shared.ParameterFields
            parameterField = New CrystalDecisions.Shared.ParameterField

            parameterField.ParameterFieldName = "@userID"
            spValue.Value = mstrUserID
            parameterField.CurrentValues.Add(spValue)
            parameterFields.Add(parameterField)

            parameterField.ParameterFieldName = "@groupID"
            spValue1.Value = mIntGroupID
            parameterField.CurrentValues.Add(spValue1)
            parameterFields.Add(parameterField)

            'crDoc.RecordSelectionFormula = strFormula
            frmReports.crViewer.ParameterFieldInfo = parameterFields
            frmReports.crViewer.ReportSource = crDoc
            frmReports.crViewer.DisplayGroupTree = False
            frmReports.ShowDialog()

        Catch ex As Exception
            dErr.clsProcedure = "PrintGroupActivitySummary()"
            dErr.clsMsg = ex.Message
            dErr.OnlineErrorHandler(dErr.clsModule, dErr.clsProgram, dErr.clsProcedure, dErr.clsMsg)
        End Try
    End Sub

[Besoup]

is it throwing an exception at all?

[Besoup]

I usually just use:

crReportDocument.SetParameterValue("@paramName", paramValue)

[blakemckenna]

Since there is 2 parameters, what would the full syntax be?

[blakemckenna]

Besoup,

I actually just created 2 lines of your example and that seemed to work. However, the report is not showing the data like it should be.

[Besoup]

try this

Public Sub PrintGroupActivitySummary()
        Try
            dErr.clsModule = "modReports"
 
            Dim crDoc As New rptGroupActivitySummary
 
            With crConnectionInfo
                .ServerName = "sTEST"
                .DatabaseName = "DACK"
                .UserID = "CRVBNETSQL"
                .Password = "password"
                .IntegratedSecurity = True
            End With
 
            crDoc.SetParameterValue("@userID", mstrUserID)    
            crDoc.SetParameterValue("@groupID", mIntGroupID)   
 
            frmReports.crViewer.ReportSource = crDoc
            frmReports.crViewer.DisplayGroupTree = False
            frmReports.ShowDialog()
 
        Catch ex As Exception
            dErr.clsProcedure = "PrintGroupActivitySummary()"
            dErr.clsMsg = ex.Message
            dErr.OnlineErrorHandler(dErr.clsModule, dErr.clsProgram, dErr.clsProcedure, dErr.clsMsg)
        End Try
    End Sub

[Besoup]

However, the report is not showing the data like it should be.

what do you mean?

[blakemckenna]

My report should be showing at the least...Literals and its not. Here is what 1 of 3 formulas look like that reference the Stored Procedures.

Formula 1
Dim cnt1 as Number

If {prcSelectGASR_NewIR;1.NewIR} > 0 Then
    cnt1 = {prcSelectGASR_NewIR;1.NewIR}
    formula = "New Incident Requests for " & {prcSelectGASR_NewIR;1.groupName} & ":    " & Replace (ToText (cnt1), ".00" ,"")
Else
    cnt1 = 0
    formula = "New Incident Requests for " & {prcSelectGASR_NewIR;1.groupName} & ":    " & Replace (ToText (cnt1), ".00" ,"")
End If

prcSelectGASR_NewIR is a Stored Procedure. Below is the Select statement for this SP.

USE [DACK]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[prcSelectGASR_NewIR]
	(
	@userID		varchar(25),
	@groupID	int
	)
AS
BEGIN

             DECLARE @userIDStart	varchar(25)
             DECLARE @userIDEnd	varchar(25)
             DECLARE @groupIDStart	int
             DECLARE @groupIDEnd	int

	-- Check and initial for any nulls
	IF @userID = null
	    SET @userID = ''

	IF @groupID = null
	    SET @groupID = 0

	-- set userID selection range
	IF @userID > ''
	     BEGIN
	        SET @userIDStart = @userID
	        SET @userIDEnd = @userID
	     END
	ELSE
	     BEGIN
	        SET @userIDStart = ''
	        SET @userIDEnd = 'ZZZZZZZZZZZZZZZZZZZZZZZZZ'
	     END

	-- set userID selection range
	IF @groupID > ''
	     BEGIN
	        SET @groupIDStart = @groupID
	        SET @groupIDEnd = @groupID
	     END
	ELSE
	     BEGIN
	        SET @groupIDStart = 0
	        SET @groupIDEnd = 99999999
	     END

	SELECT	B.groupName,		
		Count(C.statusID) as 'NewIR'
	  FROM	tblGroupMembers B,
		tblRequest C
	 WHERE	(B.roleID = 1)					AND
		(B.empID Between @userIDStart And @userIDEnd)	AND
		(B.groupID Between @groupIDStart And @groupIDEnd)	AND
		(C.statusID = 13)					AND
		(C.requestDate >= GetDate() - 1)			AND
		(B.groupID = C.groupID)
  GROUP BY	B.groupName
END

[jggtz]

I use this for VB6

References:
Crystal Reports Viewer Control
Crystal Reports ActiveX Designer Run Time Library

' Typical Variable Declarations
dim crApp as New CRAXDRT.Application
dim crRept as New CRAXDRT.Report
dim crParamDefs as CRAXDRT.ParameterFieldDefinitions
dim crParamDef as CRAXDRT.ParameterFieldDefiniton
dim crDBTab as CRAXDRT.DatabaseTable

' Open Report File
set crRept = crApp.OpenReport("WHATEVER.RPT")

' Logon to SQL server
crRept.Database.LogonServer "p2ssql.dll", "server name", "database name", "userid", "userpassword"

' Set table locations (because my reports run against multiple servers)
foreach crDBTab in crRep.Database.Tables
  crDBTab.SetLogonInfo "server name", "database name", "userid", "userpassword"
next



' Disable Parameter Prompting for the end user
crRep.EnableParameterPrompting = FALSE



' Gather the list of available parameters from the report
set crParamDefs = crRep.ParameterFields

' Loop through all parameters in the report by name, filling in the appropriate parameter with the right value
foreach crParamDef in crParamDefs
  select case crParamDef.ParameterFieldName
    case "SubTitle"
      crParamDef.SetCurrentValue "My Report Subtitle Goes Here"
    case "@BeginDate"
      crParamDef.SetCurrentValue datevalue(txtBeginDate)
    case "@EndDate"
      crParamDef.SetCurrentValue datevalue(txtEndDate)
    case "@IntegerParam"
      crParamDef.SetCurrentValue val(int(txtIntegerParam))
  end select
next
crViewer1.ReportSource = crRept
crViewer1.viewReport

[blakemckenna]

I figured it out....

Thanks for the help guys..