campo calculado no existe

[Casimiro Noteví]

Yo tendría un query aparte para calcular la suma de la columna.
Un simple:

Código SQL [-]
select sum(precio*cantidad) from tbAceites where codigo= :codigo;  // se supone que tienes un campo clave para identificar el pedido/factura/loquesea

Lo puedes ejecutar en el onExit de la celda cantidad.

[anubis]

Si así lo tengo como tu lo has puesto

Código Delphi [-]
aceites.close;   
ACEITES.SQL.Clear;   
 ACEITES.SQL.Text:='SELECT SUM(PRECIO*cantidad) as sumatorio from aceites';   
ACEITES.OPEN;      
LABEL8.CAPTION:='$'+INTToStr(ACEITES.Fieldbyname('sumatorio').asINTEGER);      
ACEITES.SQL.CLEAR;      
ACEITES.SQL.TEXT:='SELECT * FROM ACEITES';   
 aceites.Active:=true;

Pero como comento, para aplicar la suma de toda la columna, cada vez que meto una cantidad y aplico el onexit se ejecuta el codigo anterior volviendo al comienzo de la columna.

Lo que no entiendo es si ese codigo se aplica asi o hay otras opciones en el que no tenga que cerrar el query.

[Casimiro Noteví]

Te copio lo que he puesto antes:

Yo tendría un query aparte para calcular la suma de la columna.

[anubis]

Perdon Casimiro, no lo leí bien.

De todas formas no entiendo muy bien lo del query aparte para calcular la suma.

Seria por ejemplo un query en memoria que contenga 2 columnas 1 de primary key y la otra donde se vayan añadiendo las cantidades por fila y de ahi, como ese query no es visible, actualizar la suma?.

Esto se podria hacer en el evento oncolexit del dbgrid o mejor en el onupdaterecord del query principal?.

Uso, de momento, sqlite3 y autocommit.

gracias de nuevo.

[Casimiro Noteví]

Veamos, entiendo que estás dando de alta unos registros en alguna tabla de la base de datos.
Creo que quieres la suma de un campo en particular.
Pues entonces añade a tu proyecto un nuevo query y le pones la sentencia que corresponda.

Código SQL [-]
select sum(campo) from tabla where campoclave= loquesea

[anubis]

Perdoname pero no lo entiendo, tal y como me pones la referencia, no se como aplicarla tal asi.

Le meto un query igual a ese.

Perdon me perdi.

saludos y gracias

[Casimiro Noteví]

Bueno, antes de seguir responde a esto:

Empezado por Casimiro Notevi

1. Veamos, entiendo que estás dando de alta unos registros en alguna tabla de la base de datos. ¿Sí/No?
2. Creo que quieres la suma de un campo en particular. ¿Sí/No?

[ecfisa]

Hola.

Creo que lo que te sugiere Casimiro, es algo similar a esto:

Código Delphi [-]
procedure TForm1.aceitesCalcFields(DataSet: TDataSet);
var
  Sumatoria: Double;
begin
  // Campo calculado
  with aceites do
    FieldByName('CALCULADO').AsFloat := FieldByName('PRECIO').AsFloat *
      FieldByName('CANTIDAD').AsFloat;

  // Mostrar sumatoria de: PRECIO*cantidad(columna del cpo calculado) en un Edit
  with OtroQuery do
  begin
    Close;
    SQL.Text:= 'SELECT SUM(PRECIO*CANTIDAD) AS SUMATORIA FROM TU_TABLA';
    Open;
    Sumatoria:= FieldByName('SUMATORIA').AsFloat;
    Close;
    Edit1.Text:= FloatToStr(Sumatoria);
  end;
end;

Saludos.