Ver Mensaje Individual
  #19  
Antiguo 18-03-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
Aclaro un poco más:

suponemos que tienes una tabla TblDetalles donde tienes el campo Importe y quieres sacar la suma de todos los importes.

Pues bien, create una consulta llamada qryImporte que sea asi:
select sum(importe) from Detalles where codigoFactura = :Codigo

Ahora en el QuickReport pones un QRlabel, y en el evento beforePrint haces
esto:
Código Delphi [-]
var Suma:currency
begin
QryImporte.parambyname('Codigo').asinteger := 3  //hallamos la suma para
// el codigo 3 
qryImporte.open;
Suma := qryImporte.fields[0].ascurrency;
qryImporte.close; // ya no lo necesitamos mas
Letras1.Numero := Suma;
qrlabel1.caption := Letras1.AsString;

Espero haber ayudado.
Responder Con Cita