none
Reporte conCrystal Report RRS feed

  • Pregunta

  • Buenas Amigos, acudo a ustedes porque son los masters en este tipo de consultas

    Estoy queriendo realizar un reporte utilizando Crystal Report. Bueno. Uso vb.net 2010 version free, tuve que descargar el paquete de crystal report. Este mismo codigo que voy a pegar abajo usaba con el .net 2003, y me andaba a la perfeccion

    pase aqui y cuando ejecuto, me abre sin dramas el formato creado pero no puedo ver los datos que cargo en los datasets. cuanto hago query desde sql, salen los datos "sql express 2008 " es mi server. local.

    Entoces, me podrian ayudar porfavor, necesito urgente solucionar. les paso mi codigo. Gracias una vez mas

     Dim valor As Integer = CInt(Trim(Me.txtNumFactura.Text))

            Dim sqlDa_Cabecera As SqlDataAdapter
            Dim sqlDa_Detalle As SqlDataAdapter
            Dim Reporte_Factura As New dsCabeceraDetalleFactura (aqui tengo mis tablas cabecera y detalle de factura)
            Dim StrCommCabecera, StrCommDetalle As String
            '************************************************
            StrCommCabecera = "SELECT * FROM VF_FACTURA WHERE COD_FACTURA = " & valor & " "
            StrCommDetalle = "SELECT * FROM VF_DETALLE_FACTURA WHERE COD_FACTURA = " & valor & ""
            '****************************************************************************
            'Crear los DataAdapters
            sqlDa_Cabecera = New SqlDataAdapter(StrCommCabecera, SQLconexion)
            sqlDa_Detalle = New SqlDataAdapter(StrCommDetalle, SQLconexion)
            'Poblar las tablas del dataset desde los dataAdaperts
            sqlDa_Cabecera.Fill(Reporte_Factura, "VF_FACTURA")
            sqlDa_Detalle.Fill(Reporte_Factura, "VF_DETALLE_FACTURA")
            'Poblar el informe con el dataSet y mostrarlo
            Dim info As New crImpresionFactura_
            info.SetDataSource(Reporte_Factura)
            CrystalReportViewer1.ReportSource = info
            '*******************************************************************
            info.PrintToPrinter(2, False, 0, 0)
          

    • Cambiado Enrique M. Montejo martes, 25 de noviembre de 2014 7:17 Pregunta relacionada con Crystal Reports.
    domingo, 23 de noviembre de 2014 22:55

Todas las respuestas

  • http://ltuttini.blogspot.com/2010/05/crystal-reports-parameters-como.html

    Tengo una idea bastante clara de lo que quieres hacer, a mi me ha funcionado esta que es pasandole un parametro al reporte, otra forma que tienes de hacer esto es utilizando un subreporte dentro de tu reporte crystal report

    http://ltuttini.blogspot.com/2009/12/c-crystal-reports-usar-dataset-tipado.html

    dataset tipado como lo estas hacienda tu, espero que te funcione

    • Editado Efrain Diaz lunes, 24 de noviembre de 2014 2:26
    lunes, 24 de noviembre de 2014 2:21
  • hola Efrain, definitivamente con este caso de dataset tipado, no me funciona, no se si en esta version de vb

    es diferente, pero no me sale. Encontre un codigo en la web que explica bien como hacer el tipado pero no me da nada de resultado.

    Estaba mirando el caso que me pasaste pero no me quedo bien claro. Si me podrian orientar mas.

    gracias.

      Dim sqlConn As SqlConnection
            Dim sqlDaFactura As SqlDataAdapter
            Dim sqlDadetalle As SqlDataAdapter
            Dim dsPc As New dsCabeceraDetalleFactura

            Dim strConn As String = "server= ****-PC\SQLEXPRESS;database = GCV ;Trusted_Connection= true"
            Dim StrCommCate As String = "Select * From vf_factura"
            Dim strCommProd As String = "Select * From vf_detalle_factura"

            Try
                'Crear los DataAdapters
                sqlConn = New SqlConnection(strConn)
                sqlDaFactura = New SqlDataAdapter(StrCommCate, sqlConn)
                sqlDadetalle = New SqlDataAdapter(strCommProd, sqlConn)

                'Poblar las tablas del dataset desde los dataAdaperts
                sqlDaFactura.Fill(dsPc, "vf_factura")
                sqlDadetalle.Fill(dsPc, "vf_detalle_factura")

                'Poblar el informe con el dataSet y mostrarlo
                Dim info As New crImpresionFactura
                info.SetDataSource(dsPc)
                CrystalReportViewer1.ReportSource = info

                info.PrintToPrinter(2, False, 0, 0)

            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try

    lunes, 24 de noviembre de 2014 14:09
  • @Chelocho

    Fijate en este manual 

    Crystal Reports con DataSet tipado


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    • Propuesto como respuesta JoséLuisGarcía martes, 25 de noviembre de 2014 2:52
    lunes, 24 de noviembre de 2014 14:55
  • gracias a todos. ya pude solucionar, solo que debo cargar mi data set, y para ello seguia el mismo paso, solo que en .net 2010 , se define de otra forma.

    pongo abajo por su alguien precisa

    'TODO: esta línea de código carga datos en la tabla 'DsCabeceraDetalleFactura.VF_FACTURA' Puede moverla o quitarla según sea necesario.
            Me.VF_FACTURATableAdapter.Fill(Me.DsCabeceraDetalleFactura.VF_FACTURA)
            'TODO: esta línea de código carga datos en la tabla 'DsCabeceraDetalleFactura.VF_DETALLE_FACTURA' Puede moverla o quitarla según sea necesario.
            Me.VF_DETALLE_FACTURATableAdapter1.Fill(Me.DsCabeceraDetalleFactura.VF_DETALLE_FACTURA)
     

    luego el codigo que puse, y anda sin dramas.

    martes, 25 de noviembre de 2014 16:14