Cita:
Empezado por joselaz
-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.
