campo calculado no existe

[Casimiro Noteví]

Hola, amigo, creo que estás hecho un lio
Explica exactamente qué estás haciendo, qué quieres hacer, etc. porque siguiendo tu comentario, la verdad, no está muy claro.

[anubis]

Gracias Casimiro por contestar.

Mira, tengo una tabla llamada aceites que tiene:

clave. autoincrement
nombre, string
precio, integer
cantidad, integer

tengo un dbgrid que apunta a esa tabla de aceites que contiene:

nombre,
precio,
cantidad
y un campo calculado que añadi al query que multiplica el precio x cantidad.

a medida que voy metiendo cantidad en cada celda, el campo calculado me resuelve el total por fila.

La idea es que a medida que voy metiendo la cantidad y me resuelve el total por fila, queria que se fuera actualizando la suma de todas las cantidades del campo calculado para lo cual tuve que meter otro campo en el query para resolver esto, campo sumatorio.

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;

el único problema que veo, es que cada vez que meto una cantidad y salgo de la celda, me actualiza el sum anterior, pero me regresa al principio del dbgrid, y esto sería lógico porque cierro y abro el query (creo que no hay otra forma)

No se si esto debe ser asi o, como he visto en otros post, en vez de hacer un sum global (que nose si esta bien) debo de ir acumulandolo en una variable integer como:

Código Delphi [-]
sum:=sum+calculado;

Saludos y gracias

[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