Llamar reporte

Question

Hola a todos una consulta tengo un reporte hecho en crystal report el cual esta implemetado por medio de un store procedure, este reporte es mi reporte de factura de compra el cual me muestra los datos de la factura por el codigo de registro de la factura. Esta implementado el reporte de la siguiente manera en el código:

 Public Function FacturaCompra() As DataSet
        Try
            Using cn As DbConnection = clsConexionAD.Conectar
                Dim factory As DbProviderFactory = clsConexionAD.GetFactory()
                Dim da As DbDataAdapter = factory.CreateDataAdapter

                Dim cod As String = ""
                Dim cmd As DbCommand = cn.CreateCommand
                cmd.CommandText = "xspGenerarFacturaCompras"
                cmd.CommandType = CommandType.StoredProcedure
                cmd.Parameters.Add(CreateParameter("@idCompra", DbType.AnsiString, cod))
                da.SelectCommand = cmd
                Dim ds As DataSet = New DataSet
                'Dim dt As New DataTable
                da.Fill(ds)
                Return ds
                'Return dt
            End Using
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function

Public Function FacturaCompra() As DataSet
        Return objCompraCD.FacturaCompra
    End Function

Sub Imprimir()

        Dim objGenerarFacturaCompra As New rptFacturaCompra

        ' Recuperar los datos de conexión
        BuilLeerConection()
        objGenerarFacturaCompra.SetDatabaseLogon(NUsuario, Pass, NSevidor, NDataBase)
        'objGenerarFacturaCompra.Load("D:\Barzola\Entidades\WinUI\Reportes\rptFacturaCompra.rpt")

        objGenerarFacturaCompra.SetParameterValue("@idCompra", lblCodigo.Text)
        'Dim ds As DataSet = objCompraCL.FacturaCompra
        objGenerarFacturaCompra.SetDataSource(objCompraCL.FacturaCompra)
        frmFacturaCompra.crvFacturaCompra.ReportSource = objGenerarFacturaCompra
        'objGenerarFacturaCompra.Load("rptFacturaCompra.rpt")
        frmFacturaCompra.crvFacturaCompra.Refresh()
        frmFacturaCompra.Show()
    End Sub

Error :

---

Pedro Avila

Answer 1

no he realizado un reporte asi, y tus rutas estan comentadas? por que en la excepcion dice que no encuentra la ruta podrias hacer

objGenerarFacturaCompra.Load(@"D:\Barzola\Entidades\WinUI\Reportes\rptFacturaCompra.rpt")

o asi

objGenerarFacturaCompra.Load("D:\\Barzola\\Entidades\\WinUI\\Reportes\\rptFacturaCompra.rpt")

saludos si sigue sin funcionar postea, saludos

---

si mi respuesta te ayudo votala como util, si resolvio tu duda marcala como respuesta, de esta manera ayudas a otros compañeros que tengan dudas similares.