Amigos:
Una vez más acudo a este bendito foro para solicitarles un pequeño ejemplo de un reporte con grupos usando la clase TReport (obviamente) y recordset.
Muchas gracias por su apoyo
Saludos
Porque no "AGRUPAS" tu informacion desde tu 'SELECT ......", cuando creas el RS.
Por Ejeemplo:
Select id,nombre, cantidad for xxxx
group by id
Y el reporte lo generas como si fuera creado desde un array.
saludos
Ricardo:
Te agradezco infinitamente la respuesta, sin embargo creo que no me soluciona el problema pues agrupando desde el SELECT solo tendré un registro por cada grupo con la suma de la columna en cuestión.
Lo que necesito hacer es imprimir todos los registros del grupo y al cambiar de grupo imprimir la suma de la columna, por ejemplo:
Vendedor: JMG
FACT: 1254 $ 35,569.80
FACT: 1657 $ 1,000.00
Total del vendedor: $ 36,569.80
Vendedor: AEB
FACT: 2556 $ 20,000.50
FACT: 1698 $ 10,000.00
Total del vendedor: $ 30,000.50
Esto lo podré hacer agrupando desde el SELECT ?, me parece que no.
Nuevamente te agradezco el interés, una abrazo
REPORT oReport PREVIEW FROM USER CAPTION "Reporte de Extranjeros" ;
TITLE "Reporte de Extranjeros" ,;
oApp:cEmpresa,;
oApp:cDomicilio, "" ;
HEADER "Fecha: " + dtoc(date()) + space(150) + "Hora: "+time() CENTERED ;
FOOTER "Pagina: " + strzero(oReport:nPage,3) CENTERED ;
FONT oFont1, oFont2, oFont3
COLUMN TITLE "Nombre" DATA oDatos:cId+" "+Alltrim(oDatos:cNombre) SIZE 20
COLUMN TITLE "Fecha Alta" DATA oDatos:dFecAlta SIZE 10
COLUMN TITLE "R f c" DATA oDatos:cRfc SIZE 10
COLUMN TITLE "Desarrollo" DATA oDatos:cNomDesa SIZE 20
GROUP ON oDatos:cIdNacion FOOTER "Nacionaldad: " + ;
alltrim(if(naciones->(dbseek(oReport:aGroups[1]:cValue)),naciones->nombre, "")) +;
"("+ltrim(str(oReport:aGroups[1]:nCounter)) + ")" FONT 2
oReport:lPrvModal := .F. // Para que muestre en forma modal la ventana del preview
oReport:SetCopies(1)
oReport:nTitleUpLine := RPT_NOLINE // Linea Arriba de los nombres de columnas
oReport:nTotalLine := RPT_SINGLELINE // Para las lineas mas delgadas
oReport:lSummary := .F.// si queremos que sumarice por conceptos y nada mas nos muestre los totales
[b]oReport:bSkip := {|| ++nBrinco, oDatos:skip(1) }[/b]
END REPORT
ACTIVATE REPORT oReport WHILE nBrinco <= len(oDatos:aDatos) ;
ON STARTPAGE Tone( 100, 1 ) ;
ON STARTGROUP oReport:NewLine()
Tambien pudiera ser como te decia en el ejemplo inicial, solo que en lugar de hacer
GROUP BY id
Seria
GROUP BY id,Factura ( por ejemplo )
Ricardo:
Muchas gracias, voy a probar.
Saludos