FiveTech Support Forums

Hola amigos,

Reformando un viejo programa, estoy intentando crear un GROUP ON que sume los totales de una columna en concreto, en cada grupo, Pero lo lo consigo.

Este es el código:

       COLUMN TITLE "Fecha" DATA recibos->FECHA size 10                      center

       COLUMN TITLE "Nº Reci"   DATA recibos->NUMRECI PICTURE "999999" center

       COLUMN TITLE "Periodo"   DATA SUBS(recibos->PERIODO,1,30) SIZE 15 //CENTER

   COLUMN TITLE "TOTAL"     DATA recibos->TOTAL PICTURE cPic9 SIZE 10 center //TOTAL

       GROUP oGrupo ON recibos->CONTROL HEADER inqui->INMUEBLE  FOOTER "Total";

        + Transform(oReport:aGroups[1]:aTotal[4] ,"999,999,999.99")



       oReport:oTitle:aFont[1] := {|| 3 }

       oReport:oHeader:aFont[1] := {|| 2 }

       oReport:oDevice:SetPortrait()

       oReport:oDevice:lPrvModal := .T. //preview modal



       END REPORT



       ACTIVATE REPORT oReport ON STARTGROUP ( oReport:aColumns[4]:nTotal:=0 ) ;

                               ON POSTGROUP oReport:NewLine()

Si la columna [4] le añado TOTAL, me tira al entrar e la impresora. Este código me hace los grupos, pero en los totales de cada grupo me pone cero

Muchas gracias por vuestra ayuda

Manuel

Estimado Manuel,

Cómo lo solucionaste ? :)

Recordad que lo que pretendía es hacer un report con grupos, totalizando en cada grupo, pero no totalizando el total, tanto en cada página como al final del informe:

REPORT oReport ;
CAPTION "Málaga" ;
TITLE "*** Listado de Recibos ***" ;
HEADER propie->NOMBRE, DTOC(DATE()), " " ;
FONT oFont1,;
oFont2,;
oFont3 ;
FOOTER "Página Número: " + STR (oReport:nPage,3) CENTER;
PREVIEW ;
SUMMARY

COLUMN TITLE "Fecha" DATA recibos->FECHA size 10 center
COLUMN TITLE "Nº Reci" DATA recibos->NUMRECI PICTURE "999999" center
COLUMN TITLE "Periodo" DATA SUBS(recibos->PERIODO,1,30) SIZE 15
COLUMN TITLE "TOTAL" DATA recibos->TOTAL PICTURE cPic9 SIZE 10 TOTAL // columna con los importes

GROUP oGrupo ON recibos->CONTROL ;
Header (field->PORTAL+Space(1)+field->FINCA + ;
IIF (nLen=1, SUBS(field->NOMBRE,1,30), ' '));
FOOTER ' ';
FONT 2
oReport:oTitle:aFont[1] := {|| 3 }
oReport:oHeader:aFont[1] := {|| 2 }
oReport:oDevice:SetPortrait()
oReport:oDevice:lPrvModal := .T.
END REPORT

ACTIVATE REPORT oReport ON STARTGROUP ( oReport:NewLine());
ON ENDGROUP oReport:bEnd:={|| oReport:aColumns[4]:nTotal := 0 }