Un problemilla con TQRExpr

[[Lepe]]

Ampliando un poco más: El problema que veo, es precisamente el Header, cuando se imprime, aún no se sabe cuantas líneas de Detail tiene, ni tampoco la suma (o la operación que se haga) por tanto coge las sumas acumuladas de las páginas anteriores.

Directamente asocia los controles del Group Header a otra consulta. Esta consulta hará las sumas con el mismo "Where" que el detalle. De esta forma puedes saber los totales antes de imprimir el Detalle; son 2 consultas para un mismo Report, pero no creo que haya otra forma.

SAludos

[k2k2k2]

Gracias Lepe lo probare y contare los resultados.
Un saludo.

[k2k2k2]

Bueno ya esta solucionado, he seguido el consejo de Lepe y he creado una consulta para calcularlo antes, despues mediante el evento de OnStartPage del QReport, modificada un QRLabel que coloque en el Group Header.
El codigo ha sido este:

Código Delphi [-]
 
procedure TfrmReporte1.QuickRep1StartPage(Sender: TCustomQuickRep);
var
  total: Double;
begin
  total:=0;
  total:=DM.ADOQuery1.FieldByName('dias').AsInteger*DM.ADOQuery2.Fields[0].AsInteger*DM.ADOConfig.FieldValues['cuantiaprac'].AsInteger;
  QRLabel1.Caption:=FloatToStr(total)+' €';
  DM.ADOQuery2.Next;
end;

Siendo ADOQuery2 la consulta que he utilizado para calcular el número de alumnos.

Pues nada gracias de nuevo a todos. Un saludo.