Crystal Report Parameters - Date

[Matt MacDonald]

I'm trying to run a report using a form containing a crystal report viewer, but I keep getting an error saying tha
"The specified value type is different to the current value type
I'm trying to use date parameters. The parameter is set up as a date in the report
Here's the code

Dim paramfields As New CrystalDecision s.Shared.Parame terField
Dim discreteval As New CrystalDecision s.Shared.Parame terDiscreteValu
Dim reporter As New bdb.frmReportVi ewe
Dim report As CrystalDecision s.CrystalReport s.Engine.Report Documen
report = Nothin
report = New DetForAcc
reporter.Report FileName = repor

Dim paramfield2 As New CrystalDecision s.Shared.Parame terFiel
paramfield2.Par ameterValueKind = CrystalDecision s.[Shared].ParameterValue Kind.DateParame te
paramfield2.Par ameterFieldName = "EffectiveL ow
discreteval.Val ue = dtpStart.Value. Dat
paramfield2.Cur rentValues.Add( discreteval
paramfields.Add (paramfield2

reporter.Report Parameters = paramfield
reporter.MdiPar ent = Me.MdiParen
reporter.Show(

Any ideas
Thanks, Matt

[Bernie Yaeger]

Hi Matt,

This is a lousy answer, but I ran into the same problem and developed a
workaround: when the date was merely for display (eg, date due) I pass a
string to a string parameter. However, when it is needed in a selection
formula, I pass a selection formula something like this:
Dim mglobals As New globals

mglobals.gl_sel ectionstring = "{bnlsum.invnum } >= '" & startnumbox.Tex t &
Chr(39) & " and {bnlsum.invnum} <= '" & endnumbox.Text & Chr(39)

gl_browseprintv ar = "f:\imcapps\bnl inv.rpt"

Dim newmdichild As New reportprinter_v iewerparam

newmdichild.Tex t = "BNL Summary Invoice"

newmdichild.Sho wDialog()

CrystalReportVi ewer1.Selection Formula = mglobals.gl_sel ectionstring

Note that I use the crystal syntax for {bnlsum.invnum} etc, so the report
acknowledges the selection formula.

This works fine for defining a date range filter. I've luckily not run into
a situation that could not be thus solved.

HTH,

Bernie Yaeger

"Matt MacDonald" <an*******@disc ussions.microso ft.com> wrote in message
news:EB******** *************** ***********@mic rosoft.com...

I'm trying to run a report using a form containing a crystal report viewer, but I keep getting an error saying that "The specified value type is different to the current value type"
I'm trying to use date parameters. The parameter is set up as a date in the report. Here's the code.

Dim paramfields As New CrystalDecision s.Shared.Parame terFields
Dim discreteval As New CrystalDecision s.Shared.Parame terDiscreteValu e
Dim reporter As New bdb.frmReportVi ewer
Dim report As CrystalDecision s.CrystalReport s.Engine.Report Document
report = Nothing
report = New DetForAcct
reporter.Report FileName = report

Dim paramfield2 As New CrystalDecision s.Shared.Parame terField
paramfield2.Par ameterValueKind = CrystalDecision s.[Shared].ParameterValue Kind.DateParame ter paramfield2.Par ameterFieldName = "EffectiveL ow"
discreteval.Val ue = dtpStart.Value. Date
paramfield2.Cur rentValues.Add( discreteval)
paramfields.Add (paramfield2)

reporter.Report Parameters = paramfields
reporter.MdiPar ent = Me.MdiParent
reporter.Show()

Any ideas?
Thanks, Matt

[Matt MacDonald]

Any idea how to go about it if I'm starting with a date data type from a
date time picker?

"Bernie Yaeger" <be*****@cherwe llinc.com> wrote in message
news:OS******** *****@TK2MSFTNG P10.phx.gbl...

Hi Matt,

This is a lousy answer, but I ran into the same problem and developed a
workaround: when the date was merely for display (eg, date due) I pass a
string to a string parameter. However, when it is needed in a selection
formula, I pass a selection formula something like this:
Dim mglobals As New globals

mglobals.gl_sel ectionstring = "{bnlsum.invnum } >= '" & startnumbox.Tex t &
Chr(39) & " and {bnlsum.invnum} <= '" & endnumbox.Text & Chr(39)

gl_browseprintv ar = "f:\imcapps\bnl inv.rpt"

Dim newmdichild As New reportprinter_v iewerparam

newmdichild.Tex t = "BNL Summary Invoice"

newmdichild.Sho wDialog()

CrystalReportVi ewer1.Selection Formula = mglobals.gl_sel ectionstring

Note that I use the crystal syntax for {bnlsum.invnum} etc, so the report
acknowledges the selection formula.

This works fine for defining a date range filter. I've luckily not run into a situation that could not be thus solved.

HTH,

Bernie Yaeger

"Matt MacDonald" <an*******@disc ussions.microso ft.com> wrote in message
news:EB******** *************** ***********@mic rosoft.com...

I'm trying to run a report using a form containing a crystal report

viewer, but I keep getting an error saying that

"The specified value type is different to the current value type"
I'm trying to use date parameters. The parameter is set up as a date in

the report.

Here's the code.

Dim paramfields As New CrystalDecision s.Shared.Parame terFields
Dim discreteval As New CrystalDecision s.Shared.Parame terDiscreteValu e
Dim reporter As New bdb.frmReportVi ewer
Dim report As CrystalDecision s.CrystalReport s.Engine.Report Document
report = Nothing
report = New DetForAcct
reporter.Report FileName = report

Dim paramfield2 As New CrystalDecision s.Shared.Parame terField
paramfield2.Par ameterValueKind =

CrystalDecision s.[Shared].ParameterValue Kind.DateParame ter

paramfield2.Par ameterFieldName = "EffectiveL ow"
discreteval.Val ue = dtpStart.Value. Date
paramfield2.Cur rentValues.Add( discreteval)
paramfields.Add (paramfield2)

reporter.Report Parameters = paramfields
reporter.MdiPar ent = Me.MdiParent
reporter.Show()

Any ideas?
Thanks, Matt

[Bernie Yaeger]

Hi Matt,

Sure:

Dim d As String

d = DateTimePicker1 .Value.ToShortD ateString

MessageBox.Show (d)

d is now a string displaying, eg, 4/28/04. It's easy from here.

HTH,

Bernie

"Matt MacDonald" <ma******@hotma il.com> wrote in message
news:Ou******** ******@TK2MSFTN GP12.phx.gbl...

Any idea how to go about it if I'm starting with a date data type from a
date time picker?

"Bernie Yaeger" <be*****@cherwe llinc.com> wrote in message
news:OS******** *****@TK2MSFTNG P10.phx.gbl...

Hi Matt,

This is a lousy answer, but I ran into the same problem and developed a
workaround: when the date was merely for display (eg, date due) I pass a
string to a string parameter. However, when it is needed in a selection
formula, I pass a selection formula something like this:
Dim mglobals As New globals

mglobals.gl_sel ectionstring = "{bnlsum.invnum } >= '" & startnumbox.Tex t & Chr(39) & " and {bnlsum.invnum} <= '" & endnumbox.Text & Chr(39)

gl_browseprintv ar = "f:\imcapps\bnl inv.rpt"

Dim newmdichild As New reportprinter_v iewerparam

newmdichild.Tex t = "BNL Summary Invoice"

newmdichild.Sho wDialog()

CrystalReportVi ewer1.Selection Formula = mglobals.gl_sel ectionstring

Note that I use the crystal syntax for {bnlsum.invnum} etc, so the report acknowledges the selection formula.

This works fine for defining a date range filter. I've luckily not run

into

a situation that could not be thus solved.

HTH,

Bernie Yaeger

"Matt MacDonald" <an*******@disc ussions.microso ft.com> wrote in message
news:EB******** *************** ***********@mic rosoft.com...

I'm trying to run a report using a form containing a crystal report

viewer, but I keep getting an error saying that

"The specified value type is different to the current value type"
I'm trying to use date parameters. The parameter is set up as a date

in the report.

Here's the code.

Dim paramfields As New CrystalDecision s.Shared.Parame terFields
Dim discreteval As New CrystalDecision s.Shared.Parame terDiscreteValu e
Dim reporter As New bdb.frmReportVi ewer
Dim report As CrystalDecision s.CrystalReport s.Engine.Report Document
report = Nothing
report = New DetForAcct
reporter.Report FileName = report

Dim paramfield2 As New CrystalDecision s.Shared.Parame terField
paramfield2.Par ameterValueKind =

CrystalDecision s.[Shared].ParameterValue Kind.DateParame ter

paramfield2.Par ameterFieldName = "EffectiveL ow"
discreteval.Val ue = dtpStart.Value. Date
paramfield2.Cur rentValues.Add( discreteval)
paramfields.Add (paramfield2)

reporter.Report Parameters = paramfields
reporter.MdiPar ent = Me.MdiParent
reporter.Show()

Any ideas?
Thanks, Matt