Insertar consulta SQL en Crystal Reports (para reporte)

Question

Buen día:

¿Cómo puedo insertar la siguiente consulta en un reporte que generé en Crystal Reports?

Select C.Empresa,  
  'Contratados' = (Select Sum(Folios) From GDDM_FoliosReg WHERE Empresa = C.Empresa group by empresa),
  'Utilizados'  = COUNT(C.uuid),
  'Restan'      = (Select Sum(Folios) From GDDM_FoliosReg WHERE Empresa = C.Empresa group by empresa) - COUNT(C.uuid)
  From CFDEncabezado C  
 WHERE LEN(Ltrim(RTRIM(C.uuid)))=36
  AND C.FechaTimbrado Between '20131201' and '20150423'
 Group by C.Empresa

Esta consulta me permite mostrar el inventario de unos folios y me arroja la siguiente información:

Empresa Contratados Utilizados Restan
EPE                 4000    495  3505
PMO                 1000        5    995
DDM               51000 18931     32069

Ya jalé mi tabla original en el reporte, pero no sé en dónde meter esa consulta para que en el reporte me salga la tablita que anteriormente les puse.

Answer 1

Saludos

estas trabajando con dataSet si es asi coloca las tabla que vaz a utilizar en el reporte de crystal report y en un

formulario con crystalreportview colocas algo a esto :

  Dim sqlDaProd As OleDbDataAdapter
        Dim sqlDaCate As OleDbDataAdapter
        Dim sqlempresa As OleDbDataAdapter
        Dim dsPc As New DataSet1

        ''Dim strConn As String = "Server=localhost;Initial Catalog=Northwind;Integrated Security = SSPI"
        Dim StrCommCate As String = "SELECT * from cabecerafactura where facturanumero=" & numerofactura & ""
        Dim strCommProd As String = "Select * From detallefactura1 where facturanumero=" & numerofactura & ""
        Dim strempresa As String = "Select * From empresa"
        Try
            cn.Open()

            'Crear los DataAdapters
            '' sqlConn = New SqlConnection(strConn)
            sqlDaCate = New OleDbDataAdapter(StrCommCate, cn)
            sqlDaProd = New OleDbDataAdapter(strCommProd, cn)
            sqlempresa = New OleDbDataAdapter(strempresa, cn)
            'Poblar las tablas del dataset desde los dataAdaperts
            sqlDaCate.Fill(dsPc, "cabecerafactura")
            sqlDaProd.Fill(dsPc, "detallefactura1")
            sqlempresa.Fill(dsPc, "empresa")
            'Poblar el informe con el dataSet y mostrarlo
         
                Dim info As New Nombre de tu reporte
                info.SetDataSource(dsPc)
                CrystalReportViewer1.ReportSource = info