Sumar el importe de un dbgrid

[maravert]

Que tal a todos:

Llevo ya una semana y no encuentro como resolver esto:

Tengo un dbbgrid, donde capturo la factura, lo que necesito saber es como hacer para que cuando se teclea un nuevo producto, vaya apareceindo al final el importe total, el impuesto y el gran total de los productos que se van capturando.

Mi tabla se llama ventas y tiene estos campos (cantidad, clavearticulo, precio, descuento, impuesto e importe).

Trabajo con tablas ´paradix y delphi7

El importe total, impuesto y gran total estan el un Label.

gracias a todos

[Neftali [Germán.Estévez]]

Puedes utilizar SQL para calcular el total ¿Qué tal se te da el SQL?
Algo así:

Código SQL [-]
select SUM(Importe) as TOTALIMPORTE from Ventas where "Lineas de la factura"

NOTA: La condición debe ser la que cumplen todos los artículos que quieres sumar; Supongo que son todas las líneas de esa factura

También puedes incluir la cantidad:

Código SQL [-]
select SUM(Importe * cantidad) as ...

Prueba y dinos qué tal...

[maravert]

Muchas gracia por tu ayuda

[maravert]

Hola, he probado las instrucciones y me da '0.00'

Estoy realizando una factura y no me muestra el importe al final en el momento de que el usuario va dando de alta los productos que se van vendiendo.

Mi codigo es el siguiente:


Código SQL [-]

procedure TForm18.DBGrid1CellClick(Column: TColumn);
var
TotalImporte : real;
begin
Query1.Close;
Query1.SQL.Text:= 'SELECT SUM (importe) as Totalimporte FROM ventas';
Label18.Caption := FormatFloat('#,##0.00',Totalimporte);
end;






Espero puedan ayudarme

[Neftali [Germán.Estévez]]

Creo que te faltan algunas cosas...

Código Delphi [-]
  // Cierras
  Query1.Close;
  // Asignas el SQL
  Query1.SQL.Text:= 'SELECT SUM (importe) as Totalimporte FROM ventas';
  // Debes lanzar la consulta
  Query1.Open;
  // Luego consultar el valor
  Totalimporte := Query1.FieldByName('Totalimporte ').AsDouble; 
  // Luego mostrarlo
  Label18.Caption := FormatFloat('#,##0.00',Totalimporte);
  // Finalmente puedes volver a cerrar
  Query1.Close;