none
Insertar consulta SQL en Crystal Reports (para reporte) RRS feed

  • Pregunta

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

    sábado, 1 de agosto de 2015 17:35

Todas las respuestas

  • 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

            

    domingo, 2 de agosto de 2015 12:41