campo calculado no existe

[anubis]

Buenas,

sigo peleando con los campos de las bases de datos.

Tengo una base de datos en sqlite usando lazarus y este codigo:

Código Delphi [-]
procedure TForm1.ACEITESCalcFields(DataSet: TDataSet);

begin
 aceites.FieldByName('calculo').asinteger:=aceites.fieldbyname('precio').asinteger * aceites.fieldbyname('cantidad').asinteger;
 aceites.Active:=false;
 ACEITES.SQL.Clear;
  ACEITES.SQL.Text:='SELECT SUM(CALCULO) from aceites';
  aceites.ExecSQL;
  aceites.Active:=true;

end;

le meti un campo calculado al query y la primera parte, que multiplica la cantidad por el precio me lo hace bien, pero queria sumar toda la columna calculada y me dice que el campo calculo no existe.


alguna idea?

saludos y gracias

[anubis]

Hola,
Perdonad que escriba como respuesta pero no me deja editar el post.

Si algo aprendi, creo, es que el campo calculado no existe porque no está directamente en la tabla de ahí que me de error, asi que lo he tenido que hacer de esta forma:

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;

Esto funciona, pero como estoy trabajando con dbgrid, cada vez que se actualiza la suma, al ir llenando las celdas, el cursor vuelve al principio de la columna, si, esto seria normal porque cierro y abro la tabla, pero en otros programas comerciales no pasa eso, el total se actualiza de forma transparente para el usuario puesto que no cambia de celda volviendo al principio.

El código anterior es así o hay otra forma de hacerlo, si es lo primero, como puedo evitar que vuelva al principio.

Ya puestos, el total lo he puesto en un label, sería mas correcto meterlo en un stringgrid o un dbgrid?.

Saludos y gracias

Para actualizar el dbgrid uso DBGrid3EditingDone, aunque he probado otros.

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