Suma de campos de un dbgrid

[lisc_dla]

Solo un detalle la aplicación que estoy creando es sobre venta de artículos, hago la consulta de las ventas del día y estas se muestran en el dbgrid, pero necesito que en el text solo me muestre la suma de las ventas del día. Estuvo probando el ejemplo pero no se donde colocar la función y me muestra un error

[[Caral]]

Hola
Si se realiza una busqueda con un adotable me imagino que lo que se hara sera un filtro ?.
Si se hace un filtro se puede usar algo como esto.

Código Delphi [-]
var
Total: Integer;
begin
// siempre que no este abierta la tabla
AdoTable1.Open;
Total := 0;
adotable1.disablecontrols;
try
// este filtro se supone que ya se hizo
adotable1.filter := 'TuCampo = '+ edit1.text;
adotable1.filtered := true;
adotable1.first;
while not adotable1.EOF do
 begin
 Total := Total + adotable1['Total'];
 adotable1.next;
 end;
adotable1.filter := '';
adotable1.filtered := false;
edit1.text := Inttostr(Total);
finally
adotable1.enablecontrols;
end;

Saludos

[[oscarac]]

mmmmm
si ya tienes una consulta para mostrar las ventas del dia, te recomentaria mejor crear una consulta similar la cual te sume las ventas del dia

imaginemos que tu consulta es asi

Código Delphi [-]
 
Select TipoDOC, Documento, Fecha, Cliente, Total From TablaVentas where
Fecha = :Fecha

podrias crear esta consulta que te sume las ventas del dia

Código Delphi [-]
Select Sum (Total) As Total From TablaVentas where
Fecha = :Fecha

asocias un datasource al nuevo query y muestras esa informacion en un tdblabel

[lisc_dla]

oscarac

mi consulta para visualizar las ventas del día es:

Código Delphi [-]
if frm_cortedecaja.Adotable1.Locate('fecha',lbl_fecha.Caption,[]) = false then
begin
//en caso de no encontrar nada solo visualiza el dbgrid pero sin datos
    frm_cortedecaja.AdoTable1.Filtered := False;
    frm_cortedecaja.AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    frm_cortedecaja.AdoTable1.Filter := Filtro;
    frm_cortedecaja.AdoTable1.Filtered := True;
    frm_cortedecaja.AdoTable1.Open;
    frm_cortedecaja.ShowModal;
end else
begin
//en caso de encontrar datos los visuliza en el dbgrid
    frm_cortedecaja.AdoTable1.Filtered := False;
    frm_cortedecaja.AdoTable1.Filtered := False;
    Filtro := 'fecha = '+lbl_fecha.Caption;
    frm_cortedecaja.AdoTable1.Filter := Filtro;
    frm_cortedecaja.AdoTable1.Filtered := True;
    frm_cortedecaja.AdoTable1.Open;
    frm_cortedecaja.ShowModal;

entonces como seria la suma

[lisc_dla]

[caral]
me tira el siguiente error


Imagen1.jpg

[ecfisa]

Empezado por lisc_dla

Estuvo probando el ejemplo pero no se donde colocar la función y me muestra un error

Podés colocarla inmediatamente despues de la declaración

Código Delphi [-]
interface

function SumarTotales(Grid: TDBGrid; const AFieldName: string): Currency;
....

y podes utilizarla en esa unidad sin problemas. También en otra unidad y agregarla en la declaración uses de la unit en que desees usarla. No mencionaste el error que te genera pero supongo que será por el alcance de la función.

Una ventaja que tiene la función que te puse, es que podés utilizarla para cualquier TDBGrid y para cualquier campo de la tabla asociada al mismo (de tipo numérico lógicamente).

Saludos.

[lisc_dla]

por ejemplo puedo colocar la función dentro del procedure

[ecfisa]

Empezado por lisc_dla

por ejemplo puedo colocar la función dentro del procedure

Si, es posible también. Delphi permite anidar procedimientos y funciones (aunque habría que hacer algunos cambios).
Pero si la declarás en una unit donde guardes tus rutinas es reutilizable para cualquier TDBGrid de esa o cualquier otra aplicación que realices.



Saludos.

[[Caral]]

Hola
Esto si que esta para romperse la cabeza:
ecfisa, directamente al DBgrid.
oscarac, por sql.
Caral, Por adotable.
Si después de todo esto lisc_dla no se hace un lio o no necesita un loquero habremos hecho un buen trabajo....
Saludos

[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.



.