Totales en REPORT

[Manuel Aranda]

Hola amigos:

Necesito poner varios campos numéricos de un registro en varias lineas de un REPORT. Lo hago así:

COLUMN TITLE "Título" ;
DATA SALDO->T1,SALDO->T2,SALDO->T3 PICTURE "@E 9,999,999.99" TOTAL SIZE 9 RIGHT GRID

y perfecto. El problema es que el TOTAL es la suma de los 3 campos.
¿Podrían obtenerse 3 totales con la suma de cada campo igual que se obtienen tres lineas por cada registro listado ?

[Armando]

Manuel:

Hasta donde entiendo no es posible que la TReport lo haga automatico pues como te has dado cuenta se suman los tres campos que hay en la misma columna, tendras que hacerlo "a pie" usando el ON CHANGE.

Saludos

[Manuel Aranda]

Gracias, Armando.
Agradecería un ejemplillo de lo que comentas. Precisando un poco más necesitaría totalizar el primer y tercer campo en el TOTAL, sin que apareciera el segundo.

[Armando]

Manuel:

A ver si me explico

Code: Select all  Expand view  RUN

COLUMN TITLE "Efectivo"      DATA (cDetalle)->DET_ICE            SIZE  7 RIGHT PICTURE "@Z 999,999.99" TOTAL
END REPORT



[Armando]

Manuel:

A ver si me explico (Disculpa la respuesta anterior, me equivoque de botón )

Dfines tus columnas de la forma tradicional

Code: Select all  Expand view  RUN

COLUMN TITLE "Efectivo"      DATA (cDetalle)->DET_ICE            SIZE  7 RIGHT PICTURE "@Z 999,999.99" TOTAL
END REPORT


Despues en el ACTIVATE usas el método ON CHANGE para definir una función donde crearas los acumulados.

Code: Select all  Expand view  RUN

ACTIVATE REPORT oReporte;
   ON STARTPAGE (Alinea(oReporte,1,3),Alinea(oReporte,2,3));
   ON STARTLINE Sombra(oReporte);
   ON CHANGE Detalle(oReporte,nTot,nSub);
   ON END MessageBeep()


Este es un ejemplo de la función DETALLE()

Code: Select all  Expand view  RUN

STATIC FUNCTION Detalle(oReporte)
LOCAL cFact := ""
oReporte:aColumns[8]:nTotal := nTotFle
RETURN(.T.)


Observa el código oReporte:aColumns[8]:nTotal es un arreglo donde la TReport acumula los totales, puedes usar esos arreglos o definir tus propias variables.

Sigo a tus ordenes por si no fui muy claro

Saludos

[Manuel Aranda]

Muchas gracias Armando. Estaba esperando una segunda respuesta, pues me habia quedado un poco descolocado con la primera parte.
Lo pruebo y ya te contaré.