Reporte con dos dataset

Highlander · #1 (**permalink**) 15/04/2011, 20:01

Hola el asunto es que tengo un reporte(cristal) un dataset(creado manualmente) y una form donde lo llamo y le asigno el datasource, todo funciona bien.

Necesito ahora mostrar mas datos en mi reporte y no puedo hacerlo con una sola consulta, así que le agrege dos tablas a mi dataset, pero al momento de generar el reporte solo aparecen los datos de la primera tabla.

Así lo hago ahora:
Private Sub ReporteOrdenTemplado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

mSqlServerExpress.Conectar()

Dim frmOrdenThermopanel As frmOrdenThermopanel = frmOrdenThermopanel.Instance

Dim CodigoOrdenThermopanel As Integer = frmOrdenThermopanel.Codigo

Dim strsqlconsulta As String = "SELECT OrdTrabajoThermopanel.Venta, Vendedores.Nombre as Vendedor, ItemOrdTrabajoThermopanel.Cantidad, Logo.Logo FROM OrdTrabajoThermopanel LEFT JOIN Vendedores ON Vendedores.Codigo = OrdTrabajoThermopanel.CodigoVendedor LEFT JOIN ItemOrdTrabajoThermopanel ON ItemOrdTrabajoThermopanel.CodOrdTrabajoThermopanel = OrdTrabajoThermopanel.Codigo LEFT JOIN Logo ON Logo.Codigo = 1 WHERE OrdTrabajoThermopanel.Codigo = " & CodigoOrdenThermopanel & "; SELECT ItemResumenThermopanel.Cristal, ItemResumenThermopanel.TotalCantidad FROM ItemResumenThermopanel WHERE ItemResumenThermopanel.CodOrdTrabajoThermopanel = " & CodigoOrdenThermopanel & ""

Dim da As New SqlDataAdapter(strsqlconsulta, conexionSqlEx)
Dim ds As DataSet = New DataSet()

da.Fill(ds)
ds.Tables(0).TableName = "OrdenThermopanel"
ds.Tables(1).TableName = "ResumenThermopanel"

Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent

' Asigno el reporte
CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()
CrReport.Load(Application.StartupPath & "\OrdenThermopanel.rpt")
CrReport.SetDataSource(ds)

CrystalReportViewer1.ReportSource = CrReport

mSqlServerExpress.Desconectar()

Catch ex As Exception
MessageBox.Show("Error generando el reporte: " & ex.Message, "Mostrando Reporte")
End Try

End Sub[/CODE]

Gracias por cualquier sugerencia.

Ka0stj · #2 (**permalink**) 15/04/2011, 21:08

Echale un ojo al siguiente enlace:

http://www.elguille.info/colabora/pu...ortDataset.htm

O bien lo que también puedes hacer es una vista entre ambas tablas.

Saludos!

Highlander · #3 (**permalink**) 15/04/2011, 22:27

Cita:

Iniciado por Ka0stj

Echale un ojo al siguiente enlace:

http://www.elguille.info/colabora/pu...ortDataset.htm

O bien lo que también puedes hacer es una vista entre ambas tablas.

Saludos!

GRacias con ese link ya logre llenar los dos dataset, pero surgio otro problema al momento de generar el reporte.

Cuando agrego cualquier campo del dataset2 al reporte por alguna razon me duplica datos del dataset 1 del area (DETAILS), si remuevo los datos del dataset2 se va el problema.

Asi quedo el codigo.

Código:

 Private Sub ReporteOrdenTemplado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim frmOrdenThermopanel As frmOrdenThermopanel = frmOrdenThermopanel.Instance
        Dim CodigoOrdenThermopanel As Integer = frmOrdenThermopanel.Codigo

        Dim sqlDaProd As SqlDataAdapter
        Dim sqlDaCate As SqlDataAdapter
        Dim dsPc As New ReporteThermopanel

        Dim StrCommCate As String = "SELECT OrdTrabajoThermopanel.Venta, OrdTrabajoThermopanel.Obra, OrdTrabajoThermopanel.Poli, OrdTrabajoThermopanel.Silicona, OrdTrabajoThermopanel.Cliente, OrdTrabajoThermopanel.Rut, OrdTrabajoThermopanel.Direccion, OrdTrabajoThermopanel.Fono, OrdTrabajoThermopanel.Factura, OrdTrabajoThermopanel.OC, OrdTrabajoThermopanel.ObraN, OrdTrabajoThermopanel.Observaciones, OrdTrabajoThermopanel.FechaIngreso, OrdTrabajoThermopanel.Serial, OrdTrabajoThermopanel.Supervisor, OrdTrabajoThermopanel.TotalCantidad as TotalCantidadOrden, OrdTrabajoThermopanel.TotalM2, Vendedores.Nombre as Vendedor, ItemOrdTrabajoThermopanel.Cantidad, ItemOrdTrabajoThermopanel.Cristal1, ItemOrdTrabajoThermopanel.Cristal2, ItemOrdTrabajoThermopanel.Separador, ItemOrdTrabajoThermopanel.Ancho, ItemOrdTrabajoThermopanel.Alto, ItemOrdTrabajoThermopanel.Tipo, Logo.Logo FROM OrdTrabajoThermopanel LEFT JOIN Vendedores ON Vendedores.Codigo = OrdTrabajoThermopanel.CodigoVendedor LEFT JOIN ItemOrdTrabajoThermopanel ON ItemOrdTrabajoThermopanel.CodOrdTrabajoThermopanel = OrdTrabajoThermopanel.Codigo LEFT JOIN Logo ON Logo.Codigo = 1  WHERE OrdTrabajoThermopanel.Codigo = " & CodigoOrdenThermopanel
        Dim strCommProd As String = "SELECT ItemResumenThermopanel.Cristal, ItemResumenThermopanel.TotalCantidad FROM ItemResumenThermopanel WHERE ItemResumenThermopanel.CodOrdTrabajoThermopanel = " & CodigoOrdenThermopanel & ""

        Try

            mSqlServerExpress.Conectar()

            'Crear los DataAdapters
            sqlDaCate = New SqlDataAdapter(StrCommCate, conexionSqlEx)
            sqlDaProd = New SqlDataAdapter(strCommProd, conexionSqlEx)

            'Poblar las tablas del dataset desde los dataAdaperts
            sqlDaCate.Fill(dsPc, "OrdenThermopanel")
            sqlDaProd.Fill(dsPc, "ResumenThermopanel")

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


            mSqlServerExpress.Desconectar()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Sub

Ka0stj · #4 (**permalink**) 16/04/2011, 10:41

Asegurate de que la relación que existe entra ambas tablas no te arroje esos datos duplicados, es decir, puede ser que un registro de tu tabla2 exista 2 veces en tu tabla1.

Realiza la consulta desde sql server para descartar esta situación.

Saludos!