Suma de campos de un dbgrid

[ecfisa]

Empezado por Caral

Si después de todo esto lisc_dla no se hace un lio o no necesita un loquero habremos hecho un buen trabajo....

Por las dudas preparémonos !!!

[lisc_dla]

implementado el código

[Casimiro Noteví]

Voto por sum(total) where lo quesea evidentemente

[lisc_dla]

como mencione mi consulta es:

Código Delphi [-]
if Adotable1.Locate('fecha',lbl_fecha.Caption,[]) = false then
begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
end
else
begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
end;

pero donde coloco el codigo de la suma:

Código Delphi [-]
function SumarTotales(Grid: TDBGrid; const AFieldName: string): Currency;
var
  BM: TBookMarkStr;
begin
  Result:= 0;
  with Grid.DataSource.DataSet do
  begin
    BM:= Bookmark;
    DisableControls;
    while not Eof do
    begin
      Result:= Result + FieldByName(AFieldName).AsCurrency;
      Next;
    end;
    BookMark:= BM;
    EnableControls;
  end;
end;

y donde colo este otro codigo

Código Delphi [-]
Edit.Text:= FloatToStr(SumarTotales(DBGrid1,'Total'));

ya estuve intentando y me marca error

[Casimiro Noteví]

Recuerda poner el código entre etiquetas.



.

[ecfisa]

Primero gracias por las etiquetas Casimiro ...

pero donde coloco el codigo de la suma:

lisc_dla, como te dije en el mensaje #10 podés ubicarlo inmediatamente despues de la declaracion implementation de la unidad que lo uses. Es claro que tu consulta debe haber sido realizada antes.

y donde colo este otro codigo

Bueno eso depende de como y cuando quieras mostrarlo. Yo te pongo un ejemplo tán válido como cualquier otro:

Código Delphi [-]
...
implementation

function SumarTotales(Grid: TDBGrid; const AFieldName: string): Currency;
var
  BM: TBookMarkStr;
begin
  Result:= 0;
  with Grid.DataSource.DataSet do
  begin
    BM:= Bookmark;
    DisableControls;
    while not Eof do
    begin
      Result:= Result + FieldByName(AFieldName).AsCurrency;
      Next;
    end;
    BookMark:= BM;
    EnableControls;
  end;
end;
...
(* Este es el ejemplo de llamada *)
procedure TForm.Button1Click(Sender: TObject);
begin
  if Adotable1.Locate('fecha',lbl_fecha.Caption,[]) = false then
  begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
  end
  else
  begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
  end;
  Edit.Text:= FloatToStr(SumarTotales(DBGrid1,'Total'));
end;

Para el ejemplo supongo que el nombre del campo donde están los valores a sumar se llama Total.

Saludos.

[[Caral]]

Hola
No se, no se, no se.
Si, no se, por eso digo, alguien me dice si este codigo tiene sentido?

Código Delphi [-]
if Adotable1.Locate('fecha',lbl_fecha.Caption,[]) = false then
begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
end
else
begin
    AdoTable1.Filtered := False;
    AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    AdoTable1.Filter := Filtro;
    AdoTable1.Filtered := True;
    AdoTable1.Open;
end;

Saludos

[lisc_dla]

[caral]
el código funciona, pero en realidad no es necesario algunas lineas

[mramos65]

Sos unos genios autoctonos, GRACIAS por resolverme esta duda, tenia dias buscando una solucion a este problema y aqui esta mas claro que el agua.

Por lo de la duda del amigo lisc_dla, quedaria resuelta con la solucion de la fuction y la llamada que dieron


SALUDOS

[[oscarac]]

no quiero ser waterparty (aguafiestas) jejejeje ni nada
pero prefiero el uso de una consulta para la suma

cuando la base de datos esta vacia o no contiene muchos datos, el filtro lo ejecuta rapidamente.... pero hazle un filtro a una tabla con 50,000 registros o mas, ahi veras que el rendimiento se ve afectado

otra cosita....no encuentro diferencias entre los bloques de codigo que estan en el If then..

[[Caral]]

Hola
Es que para empezar esta usando un AdoTable, osea, ya abrio toda la tabla, ya por ahi perdio tiempo.
Todo se deberia de hacer con sql, eso es definitivo.
Saludos.
PD: Exacto, el codigo es exacto, osea hello......