Paso de parametro en reporte
Publicado por [email protected] (17 intervenciones) el 03/07/2008 20:02:51
Saludos
Mi caso es el siguiente consegi un codigo para imprimir es asp.net
pero haora ocupo pasar un parametro y quiero utilisar selection formula
y me aparese en est alinea
crReportDocument.RecordSelectionFormula = "{TblClientes.Id_Cliente} = '42594'"
el siguiente error
Invalid report file path
pero si le quito esta linea si me funciona bien el ejemplo es el siguiente
Private Sub ConfigureCrystalReports()
Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
myConnectionInfo.UserID = "sysadm"
myConnectionInfo.Password = "sysadm"
myConnectionInfo.ServerName = "epro"
crReportDocument = New ReportDocument()
Dim reportPath As String = Server.MapPath("CRCreditos.rpt")
crReportDocument.RecordSelectionFormula = "{TblClientes.Id_Cliente} = '42594'"
si le quito esta linea si me funciona bien pero ocupo pasar un parametro
rReportDocument.Load(reportPath)
myCrystalReportViewer.ReportSource = crReportDocument
SetDBLogonForReport(myConnectionInfo, crReportDocument)
End Sub
Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo
, ByVal myReportDocument As ReportDocument)
Dim myTables As Tables = myReportDocument.Database.Tables
For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = myConnectionInfo
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next
End Sub
Grasias por su tiempo
Mi caso es el siguiente consegi un codigo para imprimir es asp.net
pero haora ocupo pasar un parametro y quiero utilisar selection formula
y me aparese en est alinea
crReportDocument.RecordSelectionFormula = "{TblClientes.Id_Cliente} = '42594'"
el siguiente error
Invalid report file path
pero si le quito esta linea si me funciona bien el ejemplo es el siguiente
Private Sub ConfigureCrystalReports()
Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()
myConnectionInfo.UserID = "sysadm"
myConnectionInfo.Password = "sysadm"
myConnectionInfo.ServerName = "epro"
crReportDocument = New ReportDocument()
Dim reportPath As String = Server.MapPath("CRCreditos.rpt")
crReportDocument.RecordSelectionFormula = "{TblClientes.Id_Cliente} = '42594'"
si le quito esta linea si me funciona bien pero ocupo pasar un parametro
rReportDocument.Load(reportPath)
myCrystalReportViewer.ReportSource = crReportDocument
SetDBLogonForReport(myConnectionInfo, crReportDocument)
End Sub
Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo
, ByVal myReportDocument As ReportDocument)
Dim myTables As Tables = myReportDocument.Database.Tables
For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = myConnectionInfo
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next
End Sub
Grasias por su tiempo
Valora esta pregunta


0