Ver Mensaje Individual
  #8  
Antiguo 27-05-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por joselaz Ver Mensaje
-El datos deberá mostrarse en una etiqueta de texto o similar, no en el dbgrid
...
Hola joselaz.

Entonces otra opción es hacerte una función para obtener la sumatoria:
Código Delphi [-]
...
function TForm1.GetTotal(const Desde, Hasta: string): Currency;
begin
  with tuOtroADOQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT SUM(IMPORTES) AS SUMA FROM ANOTACIONES');
    SQL.Add('WHERE PRCODAN >= :DESDE AND PRCODAN <= :HASTA');
    Parameters.ParamByName('DESDE').Value := Desde;
    Parameters.ParamByName('HASTA').Value := Hasta;
    Open;
    Result := FieldByName('SUMA').AsCurrency;
    Close;
  end;
end;

Llamada ejemplo:
Código Delphi [-]
  Label1.Caption := FormatFloat('$ 0.00', GetTotal(ancodp2.Caption, ancodp5.Caption));

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita