Missing Parameter Field Current Value
Friends,
There are 2 sub reports in my master report. When i try to export it to PDF i am getting the Error "Missing Parameter Field Current Value". If i try to export the reports individually to PDF it is working fine. Any Idea..? here is my code
Thx
Dim oRpt As New rptInvSummaryandDetail
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crParameterFieldDefinitions As CrystalDecisions.CrystalReports.Engine.ParameterFi eldDefinitions
Dim crParameterFieldDefinition As CrystalDecisions.CrystalReports.Engine.ParameterFi eldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
With crConnectionInfo
.ServerName = ServerName
.DatabaseName = DatabaseName
.UserID = userIDName
.Password = pwdName
End With
CrTables = oRpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
CrTable.Location = crConnectionInfo.DatabaseName & ".dbo." & CrTable.Location.Substring(CrTable.Location.LastIn dexOf(".") + 1)
Next
crParameterDiscreteValue.Value = Request.QueryString("id")
crParameterFieldDefinitions = oRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("InvoiceID")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crPa rameterValues)
''Start Date Parameter
crParameterDiscreteValue.Value = IIf(Request.QueryString("sid") = "True", True, False)
crParameterFieldDefinitions = oRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("StartDate")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crPa rameterValues)
''Rates Parameter
crParameterDiscreteValue.Value = IIf(Request.QueryString("rid") = "True", True, False)
crParameterFieldDefinitions = oRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("Rate")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crPa rameterValues)
''Commission Parameter
crParameterDiscreteValue.Value = IIf(Request.QueryString("cid") = "True", True, False)
crParameterFieldDefinitions = oRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("commission")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crPa rameterValues)
oRpt.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape
Dim oStream As New MemoryStream 'using System.IO
If Request.QueryString("t") = "pdf" Then
oStream = oRpt.ExportToStream(CrystalDecisions.Shared.Export FormatType.PortableDocFormat)
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/pdf" 'vnd.ms-word
Response.BinaryWrite(oStream.ToArray())
Response.End()
Else
oStream = oRpt.ExportToStream(CrystalDecisions.Shared.Export FormatType.Excel)
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.BinaryWrite(oStream.ToArray())
Response.End()
End If
|
