none
Reportes.. RRS feed

  • Pregunta

  • Por favor alguien me puede ayudar con el codigo para generar un reporte en vb 2010,  genero los dataSet con las tablas, creo la hoja de reporte solo me falta el codigo, de antemano muchas gracias...
    martes, 27 de agosto de 2013 18:43

Todas las respuestas

  • Hola:

    Imagino que ya has creado tu dataset y has pasado las tablas a tu report. Si es así y si estás funcionando con vb.2010 el código que puedes aplicar es el siguiente:

    Public Sub Imprimir()
     Dim dsInformes As New DataSet("dsInformes")
    
            Try
                Using Cnn As New OleDbConnection(strConexion)
                    Cnn.Open()
    
                    'Creamos el dataAdapter y la sql de selección
                        Dim cmd As New OleDbCommand("SELECT  Grupo, Descripcion, Ejer_01, Ejer_02, Ejer_03, Ejer_04, Ejer_05, PorcTot1, PorcTot2, PorcTot3, PorcTot4, PorcTot5, PorcDesv1, PorcDesv2, PorcDesv3, PorcDesv4 " & _
                                                          "FROM Varios WHERE Cod_Empresa = @empresa AND Grupo = 'MASAS PATRIMONIALES' ORDER BY Orden", Cnn)
    
                        cmd.Parameters.AddWithValue("@empresa", m_strCod_Empresa)
                        Dim daInformes As New OleDbDataAdapter(cmd)
    
    'Poblar las tablas del dataset desde los dataAdaperts
                        daInformes.Fill(dsInformes, "Informe")
    
    'Declaramos y asignamos el objeto CrReports
                Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
                CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
    
     'Asignamos el data adapter al objeto crReport
                CrReport.SetDataSource(dsInformes)
    
    '//Llamamos al visor de informes y vemos el informe
                Dim VisorInforme As frmCrViewer = New frmCrViewer
                VisorInforme.crViewer1.ReportSource = CrReport
                VisorInforme.Text = "Informe del Flujo de Caja"
    
                VisorInforme.ShowDialog()
                'Destruimos todo el informe
                frmPreparandoInforme.Dispose()
                CrReport.Dispose()
                VisorInforme.Dispose()
                dsInformes.Dispose()
    
            Catch ex As Exception
                MessageBox.Show("Error: " & ex.Message, "Informe Flujo de Caja.")
            End Try
        End Sub

    Adaptalo con tus nombres de adpater, etc. y así lo podrás ver en pantalla.

    Un saludo.

    Gemma.

    * Si la respuesta te ha servido, márcala para darla por terminada.

    viernes, 30 de agosto de 2013 11:23