Ver Mensaje Individual
  #6  
Antiguo 28-07-2017
jonharchival jonharchival is offline
Miembro
NULL
 
Registrado: may 2017
Posts: 13
Reputación: 0
jonharchival Va por buen camino
Hola de nuevo.
Finalmente he logrado hacer la dichosa suma. Copio el código por si a alguien le vale:
"
Código Delphi [-]
var
 List: TStringList;
 i: Integer;
 
procedure frReport1OnStartReport(Sender: TfrxComponent);
begin
 List := TStringList.Create;
end;
 
procedure frReport1OnStopReport(Sender: TfrxComponent);
begin
 List.Free;
end;
 
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
 i := 0;
end;
 
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
if Engine.FinalPass then
   Memo8.Text := 'Sum: ' + List[i];
end;
 
procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
if not Engine.FinalPass then
   List.Add(FloatToStr(SUM(,MasterData1)));
 Inc(i);
end;
 
begin
 
end.
"
Gracias a todos

Última edición por Casimiro Notevi fecha: 28-07-2017 a las 10:59:56.
Responder Con Cita