Ver Mensaje Individual
  #9  
Antiguo 09-06-2006
k2k2k2 k2k2k2 is offline
Miembro
 
Registrado: mar 2004
Posts: 28
Reputación: 0
k2k2k2 Va por buen camino
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.

Última edición por marcoszorrilla fecha: 09-06-2006 a las 22:55:14.
Responder Con Cita