Alternativa a los campos agregados en un TQuery

[Osorio]

Te quedaria algo asi como esto:

Código Delphi [-]
function TfProductos.SumarDBGrid :Currency;
Var
  Suma: Double;
  Cantidad, Costo: TField;
  Marca : TBookmark;
begin
  Suma := 0;
  with Query1 do begin
    Marca := Bookmark;
    DisableControls; {linea nueva}
    Cantidad := FieldByName('cantidad');
    Costo := FieldByName('costo');
    First;
    while Not EoF do begin
      Suma := Suma + (Costo.AsFloat*Cantidad.AsFloat);
      Next;
    end;
    enableControls;  {linea nueva}
    Bookmark := Marca;

    Result := Suma;
  end;
end;

[[AgustinOrtu]]

Empezado por Osorio

Te quedaria algo asi como esto:

Código Delphi [-]
function TfProductos.SumarDBGrid :Currency;
Var
  Suma: Double;
  Cantidad, Costo: TField;
  Marca : TBookmark;
begin
  Suma := 0;
  with Query1 do begin
    Marca := Bookmark;
    DisableControls; {linea nueva}
    Cantidad := FieldByName('cantidad');
    Costo := FieldByName('costo');
    First;
    while Not EoF do begin
      Suma := Suma + (Costo.AsFloat*Cantidad.AsFloat);
      Next;
    end;
    enableControls;  {linea nueva}
    Bookmark := Marca;

    Result := Suma;
  end;
end;

Yo tenia una funcion casi identica a esta y me resultaba lenta, y tuve que optar por hacer el SUM dentro del query; pase de "un ratito" a "instantaneo" basicamente; asi que esta solucion hay que probarla con muchos registros o si se sabe que son pocos entonces no hay problema

[wilcg]

Gracias a todos por sus aportes un saludo y ¡¡¡feliz año nuevo!!!