none
Llamar reporte RRS feed

  • Pregunta

  • 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

    lunes, 17 de diciembre de 2012 22:51

Todas las respuestas

  • 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.

    miércoles, 19 de diciembre de 2012 14:47