campo calculado no existe

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

[anubis]

Si Casimiro,

Estoy dando de alta unos registros, cada vez que en la celda cantidad meto un valor, el total de esa fila se actualiza:

- Cantidad* precio, actualiza total.

en la segunda parte, cada vez que meto una cantidad, tiene que actualizarse el total de toda la columna total, de ahi la suma

ecfisa, no entiendo muy bien el ejemplo, como relaciono el primer query con el segundo, por el tema del campo calculado.
Y del segundo query, de donde extrae el precio y la cantidad para ir acumulando en sumatoria.
saludos y gracias

[ecfisa]

Hola Anubis.

de donde extrae el precio y la cantidad para ir acumulando en sumatoria.

Según tu código el valor del campo calculado se obtiene multiplicando el campo PRECIO por el campo CANTIDAD (msg #1):

Código Delphi [-]
  aceites.FieldByName('calculo').asinteger:=aceites.fieldbyname('precio').asinteger *
   aceites.fieldbyname('cantidad').asinteger;

Entonces la sumatoria de los campos PRECIO * CANTIDAD:

Código SQL [-]
SELECT SUM(PRECIO*CANTIDAD) AS SUMATORIA FROM TU_TABLA

Es igual a la suma de los campos de la columna correspondiente al campo calculado calculo.

Saludos.

[anubis]

Si gracias, pero la cuestion, con perdon, es como enlazas eso con el nuevo query.

[ecfisa]

Empezado por anubis

Si gracias, pero la cuestion, con perdon, es como enlazas eso con el nuevo query.

Hola anubis.

Realmente no entiendo que es lo que deseas enlazar entre los queries...

La sumatoria de una columna es la suma de determinado campo (calculado o no) presente en todos los registros de un DataSet. Esa acumulación de multiplicaciones, en este caso (PRECIO * CANTIDAD) arroja un resultado, que se vá actualizando en el evento OnCalcFields del query 'aceites'.

pero queria sumar toda la columna calculada...

Precisamente de eso se encargaría el segundo query: Hacer la suma de los productos por los cuales se conforma el valor del campo calculado.

Por ejemplo, mostrar la sumatoria del campo calculado cuando se presiona un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Suma: Double;
begin
  with Segundo_Query do
  begin
    Close;
    SQL.Text := 'SELECT SUM(PRECIO*CANTIDAD) AS TOTAL FROM TU_TABLA';
    Open;
    ShowMessage(FloatToStr(FieldByName('TOTAL').AsFloat));
    Close;
  end;
end;

Saludos.

[anubis]

Gracias, ya lo entendí.

hice un mini programa de prueba y funciona, y para actualizar la suma total lo he puesto en el query en el evento queryafterpost.

Me despiste con el query, pense que habia que crear otra tabla con sus campos y no que se podría hacer asi.

Muchas gracias de nuevo a los dos, se que a veces no me se explicar como debiera y por eso andamos dando vueltas.

saludos