FastReport: Funcionamiento de SUM.

[Jose_Pérez]

Hola a todos:

Estoy intentando hacer un listado de producción de vehículos. Dependiendo del tipo de vehículo, el cáculo de realiza en horas, viajes o kilómetros. Programando el evento OnBeforePrint del MasterData he conseguido imprimir correctamente la columna según el vehículo.


procedure MasterDataOnBeforePrint(Sender: TfrxComponent);
begin

If Get('Tipo')=1 Then
begin
MemoMasterContador1.Text:='';
MemoMasterContador2.Text:='[<Kilometros> #n%2,0n]';
end;

If Get('Tipo')=2 Then
begin
MemoMasterContador1.Text:='[<Horas> #n%2,0n] h.';
MemoMasterContador2.Text:='[<Minutos> #n%2,0n] min.';
end;

If Get('Tipo')=3 Then
begin
MemoMasterContador1.Text:='';
MemoMasterContador2.Text:='[<Viajes> #n%2,0n]';
end;

end;


El problema viene en el GroupFooter y la función SUM. No puedo programa el evento OnBeforePrint del mismo modo que hice con el MasterData, porque justo en ese momento el report habrá terminado de imprimir los datos, y SUM dará un valor vacío ¿Me explixco?

Es decir, esto no funciona:


procedure GroupFooterOnBeforePrint(Sender: TfrxComponent);
begin

If Get('Tipo')=1 Then
begin
MemoFooterContador1.Text:='';
MemoFooterContador2.Text:='[Sum(<Kilometros>) #n%2,0n]';
end;

If Get('Tipo')=2 Then
begin
MemoFooterContador1.Text:='[Sum(<Horas>) #n%2,0n] h.';
MemoFooterContador2.Text:='[Sum(<Minutos>) #n%2,0n] min.';
end;

If Get('Tipo')=3 Then
begin
MemoFooterContador1.Text:='';
MemoFooterContador2.Text:='[Sum(<Viajes>) #n%2,0n]';
end;

end;


¿Cómo puedo resolverlo?

Saludos y gracias.