Page 1 of 1

Obtener Totales en Report

PostPosted: Fri Jul 30, 2010 6:57 pm
by cmarucco
Hola Foro: Necesito obtener los totales de las columnas listadas en un report por grupos .... hice esto pero siempre me devuelve 0
GROUP ON oPagos:FieldGetByName('tip_desc');
FOOTER "Total Registros "+oReport:aGroups[1]:cValue+" "+LTrim(Str(oReport:aGroups[1]:nCounter))+" -----> "+Str(oReport:aGroups[1]:aTotal[1],6,2) ;
FONT 1

Desde ya muchas gracias .....

Re: Obtener Totales en Report

PostPosted: Fri Jul 30, 2010 7:40 pm
by Patricio Avalos Aguirre
prueba colocando TOTAL a la columna

Code: Select all  Expand view
COLUMN TITLE "Total" Temp->Total FONT 2 PICTURE "@E 999,999,999"  TOTAL SIZE 10

Re: Obtener Totales en Report

PostPosted: Fri Jul 30, 2010 11:03 pm
by cmarucco
Gracias por el aporte Patricio, pero no es lo que necesito, eso que comentas en el el report comun, lo que necesito es obtener los totales en un GROUP ON ...

gracias

Re: Obtener Totales en Report

PostPosted: Mon Aug 02, 2010 2:59 am
by nageswaragunupudi
cmarucco wrote:Gracias por el aporte Patricio, pero no es lo que necesito, eso que comentas en el el report comun, lo que necesito es obtener los totales en un GROUP ON ...

gracias

oCol:lTotals := .t. // to show totals in report and export to excel
oCol:nTotal := <anynumericvalue> // oBrw:MakeTotals() to work

From version 10.5 onwards it is enough to write
oCol:nFooterType := AGGR_SUM

Re: Obtener Totales en Report

PostPosted: Mon Aug 02, 2010 7:35 am
by FranciscoA
Carlos: Prueba así (a ver si entendí tu requerimiento)

FOOTER "Total Registros "+oReport:aGroups[1]:cValue+" "+LTrim(Str(oReport:aGroups[1]:nCounter))+" -----> "+Transform(oReport:aGroups[1]:aTotal[4] ,"999,999,999.99") //[4] es la columna en el reporte, que totalizas

además:
ACTIVATE REPORT oReport ON STARTGROUP ( oReport:aColumns[4]:nTotal:=0 ,oReport:NewLine() )

Saludos.
Francisco Alegria P.

Re: Obtener Totales en Report

PostPosted: Tue Aug 03, 2010 5:33 pm
by cmarucco
Hola Foro:
respecto a este tema... y probando.... debo decir que lo que patricio comento , si funciona... es decir, que aparentemente, para obtener los totales en los grupos, hay que referenciar TOTAL en las columnas numericas que deseamos se totalicen al final del grupo, pero lo que pasa, es que ademas, al momento de imprimir, me pone los dos totales y encimados ( por ahora), .....
Ejemplo de patricio
COLUMN TITLE "Total" Temp->Total FONT 2 PICTURE "@E 999,999,999" TOTAL SIZE 10
de esta forma, si va acumulando en los totales del grupo ......
Alguna otra sugerencia ,.,...
MUCHAS GRACIAS

Re: Obtener Totales en Report

PostPosted: Tue Aug 03, 2010 8:12 pm
by Patricio Avalos Aguirre
Hola

yo lo hago de esta manera

Code: Select all  Expand view

    if cRutPro = NIL
        COLUMN TITLE "Rut"                                        DATA Tempo->Rut_Cli   FONT 1 SIZE 10
        COLUMN TITLE iif( lCli, "Clientes", "Proveedor" ) DATA Tempo->Nom_Cli   FONT 1      SIZE 30
    endif

    COLUMN TITLE "Documento"        DATA Tempo->Tip_Doc                 FONT 1 SIZE 15
    COLUMN TITLE "Fecha", "Emisión"    DATA Tempo->FeC_Emi                     FONT 1 SIZE 10
    COLUMN TITLE "Fecha", "Vto."        DATA Tempo->Fec_Vto                 FONT 1 SIZE 10
    COLUMN TITLE "Total","Documento" DATA Tempo->Total                  FONT 1 PICTURE "@E 99,999,999"  SIZE 10
    COLUMN TITLE "Total", "Abonos"  DATA Tempo->Abono                   FONT 1 PICTURE "@E 99,999,999"  SIZE 10
    COLUMN TITLE "Total"                    DATA Tempo->Total-Tempo->Abono   FONT 2 PICTURE "@E 99,999,999"  SIZE 10 TOTAL
    COLUMN TITLE "Saldo","Acumulado"    DATA Tempo->Saldo                   FONT 1 PICTURE "@E 99,999,999"  SIZE 10

    if cRutPro = NIL
        GROUP ON Tempo->RUT FOOTER "Sub-Total"  FONT 2
    endif

    END REPORT

    oReport:bSkip := { || Tempo->( dbSkip() ) }
    oReport:cName := "Sistema Administrativo Comercial"
    oReport:oDevice:cDocument := "Control de impresión"
    oReport:cGrandTotal := "   Total General  "
    oReport:cPageTotal  := "   Total acumulado"


 



Image

Uploaded with ImageShack.us