
| |||
![]() Buenas tardes a todos.. mi duda es que no se como mandar un dataset con la ifo que quiero poner en el reporte o no c como hacer para llenar el formularion mandando parametros!!!! porfa necesito ayuda ![]() |
| |||
Re: Mandar parametros a un report Viewer aca tengo una clase generica que permite mandar parametros al crystal report no se si te sea util
Código:
Imports Microsoft.VisualBasic Imports CrystalDecisions Imports CrystalDecisions.Web Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class ClsReporte Inherits System.Web.UI.Page Public Function Reporte_Parametros(ByVal Ruta As CrystalReportSource, ByVal ParamArray OBJ() As Object) As CrystalReportSource Dim Lista_Parametros As New CrystalDecisions.Web.ParameterCollection Dim myConnectionInfo1 As ConnectionInfo = New ConnectionInfo myConnectionInfo1.ServerName = "SVRPANORAMA" myConnectionInfo1.DatabaseName = "Gsi" myConnectionInfo1.IntegratedSecurity = False myConnectionInfo1.UserID = "sa" myConnectionInfo1.Password = "" SetDBLogonForReport(myConnectionInfo1, Ruta.ReportDocument) Dim a As Integer = 0 Dim cont As Integer = 0 Dim b As Integer For b = 0 To Ruta.ReportDocument.ParameterFields.Count - 1 Dim car As New CrystalDecisions.Web.Parameter Lista_Parametros.Add(car) Next b = 0 For cont = 0 To Ruta.ReportDocument.ParameterFields.Count - 1 'Step 1 Lista_Parametros.Item(cont).Name = OBJ(b) Lista_Parametros.Item(cont).DefaultValue = OBJ(b + 1) b = b + 2 Next For b = 0 To Lista_Parametros.Count - 1 Ruta.Report.Parameters.Add(Lista_Parametros(b)) Next Reporte_Parametros = Ruta Session("Reporte_General") = Ruta Return Ruta End Function 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 End Class y aca lo llamas desde tu aplicacion
Código:
saludos Private var_report As New ClsReporte Dim valor As New CrystalDecisions.Web.CrystalReportSource valor.Report.FileName = Server.MapPath("~/" + mymaster.ReporteNombre + ".rpt") CrystalReportViewer1.ReportSource = var_report.Reporte_Parametros(valor, "@Grupo", "", "@Id_Empresa", Session("Id_Empresa"), "@Fecha_Ini", Me.WUCPeriodo1.Fecha_Ini, "@Fecha_Fin", Me.WUCPeriodo1.Fecha_Fin, "@Moneda", "01", "@CuentaI", Me.WUC_Cuenta_Ini.Cuenta, "@CuentaF", Me.WUC_Cuenta_Fini.Cuenta, "@AnexoI", Me.WUCAnexo_Ini.Id_Anexo, "@AnexoF", WUCAnexo_Fin.Id_Anexo, "@Cond", "1") ' yluego lo enlazas a tu reporte |