Resumen Acumular total con Crystal

Mensaje enviado por fhusa@sefes.es (FHUSA)

A ver, imaginemos que el listado es de tres columnas, Debe, Haber y Saldo

en la columna del debe declarar la formula @@Debe como sigue, con la opcion de
no imprimir si = 0

NumberVar Debe; Debe :=0;
if {Campo A} = "D" then
   Debe :={Campo B};
Debe

Lo mismo en la columna del Haber, formula @@Haber con la opcion de no imprimir
si = 0

NumberVar Haber; Haber :=0;
if {Campo A} = "H" then
   Haber :={Campo B};
Haber

y luego en la columna del Saldo, la formula @@Saldo
WhilePrintingRecords;
NumberVar Saldo;
Saldo :=Saldo + {@@Debe}-{@@Haber};
Saldo

y en algun lugar del listado, una formula que iniciliaze el valor del Saldo y
que al mismo tiempo te puede hacer saltar el listado si la cuenta, la fecha, o
lo que sea no es la misma

WhilePrintingRecords;
NumberVar Saldo;
if {Consulta} <> Next ({Consulta}) then
  Saldo :=0
else
  Saldo :=Saldo

Espero que te sirva

Saludos
Juan Cros



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com