campos calculados, hacen los que se les antoja¡¡¡

[agova]

hola a todos
nesecito ayuda con los campos calculados, este es mi codigo:

procedure TFormInven.CInvenDiaCalcFields(DataSet: TDataSet);
begin
Inv:=Inv+CInvenDia.FieldByName('Venta').AsInteger+CInvenDia.FieldByName('Salidas').AsInteger+
CInvenDia.FieldByName('Entradas').AsInteger;
CInvenDia.FieldByName('Inventario').AsInteger:=Inv;
end;

donde la variable Inv es global de tipo longint, la primera vez lo calcula bien, el problema es cuando se llega al final o al inicio del dbgrid que es donde vuelve a calcular de nuevo la columna calculada Inventario y como inv ya no tiene el valor real calcula en base a otro numero, y esto no es todo la misma consulta la mando a un qreport y todoavia peor ya que aquí ni siquiera imprime los valores que estoy viendo en pantalla manda otros completamente distintos.

alguien podria decirme como hacerle para que no este recalculando los campos calculados cada que se le antoje, es decir, lo haga solo una vez, si no es posible como saber cuando se inicia el calculo para volver a iniciar el valor de inv.

NB. cabe mencionar que el valor de la variable inv es inicializado con el valor que me regresa otra consulta.

gracias por su atencon y se agradece cualquier sugerencia.

[jachguate]

El uso de campos calculados no es recomendable para "arrastrar" valores que dependen de otros registros de la tabla/consulta, ya que delphi recalculará los campos con bastante frecuencia y a su discresión. Por ello, si queres llevar un dato de este tipo, es mejor que te valgas de algún mecanismo de la base de datos. Si usas interbase/firebird, por ejemplo, podes hacer el cálculo en un StoredProcedure, y te evitas el uso de campos calculados en delphi.

Hasta luego.

[agova]

gracias.

El detalle es que estoy usando access por medio de ODBC's. Otra cosa que habia pensado es, como les habia comentado que el valor de la variable "inven" viene dado de otra consulta tendria que estar ejecutando dicha consulta para que me de el valor de inven para cada fecha, pero esto se me hace poco practico y eficiente ya que la consulta puede tener cientos de registros con lo cual dicha consulta se ejecutaría muchas veces.

Los datos que me devuelve la consulta son

Inicialmente el inventario al 01/01/04 es de 100 pzas (inven=100)

FECHA VENTAS ENTRADAS SALIDAS INVENTARIO
01/01/04 -54 100 0 146
02/01/04 -40 0 -10 196
..........................asi sucesivamente y todo depende del valor inicial de la variable inven para el campo calculado INVENTARIO

[agova]

alguien sabe si existe alguna forma de activar y/o desactivar el calculo de campos campos calculados para que el calculo se de solo si esta activado?

[marcoszorrilla]

Tienes la propiedad AutoCalcFields que puedes poner a falso.

Un Saludo.

[agova]

me parece logico que asi fuera pero lo probe y de todas formas sigue autocalculando los valores aun cuando la propiedad AutoCalcFields esta en falso

gracias de todas formas, seguiere intentando.

[guillotmarc]

Hola.

Te recomiendo que busques otra forma de hacer esto. Los campos calculados no están diseñados para mantener acumulados, y como ves no sirven, porqué el campo calculado no mantiene su valor en memória por lo que se tiene que volver a evaluar cada vez que te mueves a un registro (independientemente de que se vuelva a evaluar cada vez que se modifica un campo, cosa que debe desactivar la propiedad AutoCalcFields).

Si pusieras la variable global Inv a 0 antes de llamar al Report, obtendrías resultados válidos. Pero no podrás conseguirlo en la Grid (solo parece funcionar mientras únicamente te mueves hacia adelante).

Soluciones tienes varias, basicamente : tablas temporales y datasets en memória (como los campos Internal Calc en el clientdataset).

Saludos.

[jachguate]

Ya marc y yo te dijimos que no te servirá la solución para acumulados... pero si queres intentarlo de nuevo sin recalculo de campos... basta que cuando querras desactivarlos hagas:

Tabla1.OnCalcFields := nil;

y cuando querras activar el recalculo de nuevo:

tabla1.OnCalcFields := Tabla1CalcFields;

Si llegas a algo que sea útil... compartí aqui también la solución.

Hasta luego.

[guillotmarc]

Hola.

He modificado mi mensaje anterior, ampliandolo un poco, para explicar porqué no le van a servir los campos calculados, incluso aunque desactive el evento OnCalcFields.

Basicamente es debido a que no se mantienen en memoria, por lo que forzosamente se tienen que evaluar, y con el esquema planteado unicamente tendrian valores correctos mientras solo nos movamos en una dirección. (Y si desactivas su cálculo al finalizar la carga del dataset, lo único que conseguirás es que si vuelves hacia atrás, perderán su valor en la grid).

Saludos.

[jachguate]

Empezado por guillotmarc

tendrian valores correctos mientras solo nos movamos en una dirección. (Y si desactivas su cálculo al finalizar la carga del dataset, lo único que conseguirás es que si vuelves hacia atrás, perderán su valor en la grid).

Es el comportamiento que me temia... pero esperaba que agova lo confirmara por su propia cuenta...

[agova]

la verdad ya encontre una solucion solo que es algo lenta ya que lo que hice fué crear una consulta a la que le paso el parametro fecha-1 y con esto obtengo el valor de la variable inv, y cada que se calcula me da valores correctos ya que vienen dados por la consulta. Solo que como les dije antes no me gusta mucho ya que es algo lento (cuando la consulta tiene mas de 100 registros tarda hasta 30 seg. para presentarme el preview del reporte al 100%)

De todas formas se agradecería si alguien tiene una solucion mejor, seguiré buscando y si encuentro algo les aviso.

gracias por su ayuda.

[jachguate]

Empezado por agova

De todas formas se agradecería si alguien tiene una solucion mejor, seguiré buscando y si encuentro algo les aviso.

Empezado por guillotmarc

Soluciones tienes varias, basicamente : tablas temporales y datasets en memória (como los campos Internal Calc en el clientdataset).

[guillotmarc]

Hola

A las dos soluciones que propuse (las que ha recordado Juan Antonio). Quisiera añadir que también puedes utilizar un procedimiento almacenado, aunque varian mucho en función de la base de datos que vayas a utilizar. (Por ejplo. en Interbase/Firebird es muy fácil crear un procedimiento almacenado que contenga un campo acumulador).

Saludos.

[jachguate]

Empezado por guillotmarc

A las dos soluciones que propuse (las que ha recordado Juan Antonio). Quisiera añadir que también puedes utilizar un procedimiento almacenado, ... en Interbase/Firebird ... que contenga un campo acumulador

Empezado por yo mismo!

Si usas interbase/firebird, por ejemplo, podes hacer el cálculo en un StoredProcedure, y te evitas el uso de campos calculados en delphi

mas me olvide recordarme a mi mismo...

[guillotmarc]

Ups. Ya veo que te he plagiado la propuesta Juan Antonio.

Lo siento.

[agova]

estoy manejando el poderosisimo access (ja,ja,ja) no se si soporte procedimientos almacenados. Entonces la verdad nunca he usado tablas temporales o datasets en memoria ni esas cosas, ¿podrian si no es mucha molestia decirme como usarlos?
(algún ejemplo o link, cualquier cosa serviría)

gracias de antemano.

[guillotmarc]

Hola.

Me parece que vamos a tener que olvidarnos de los procedimientos almacenados, y tablas temporales.

Puedes simular una tabla temporal, mediante una tabla normal. Simplemente crea una tabla (con los mismos campos a salir en el informe, el campo de acumulado incluido), cuando quieras ver el informe, vacias la tabla con una consulta : DELETE FROM TEMPORAL, la rellenas con una consulta : INSERT INTO TEMPORAL (Campo1, Campo2, ...) SELECT Campo1, Campo2 FROM TABLA WHERE ....

Una vez tienes todos los datos a mostrar, en la tabla temporal, la abres en el Formulario, haces un recorrido del primer registro al ultimo y vas asignando valor al campo del acumulado. De esta forma, tendrás el valor correcto en la grid, y ya no va a variar, por mas que te muevas sobre la grid, o imprimas los datos.

Saludos.

[agova]

ok probare y luego os platico.

gracias.

[Delfino]

Porque no intentas hacerlo de una manera mas sencilla? creas un campo normal como otros y vas calculando tu mismo el valor y extrayendo el valor anteior usando los eventos del Dataset Beforexxx y Afterxxx, lo hice asi en una de las pocas veces q necesite de ello y me salio bien, el unico problema es cuando se cambia un valor q no es el ultimo registro, tienes a actualizar en cascada todos los registros bajo el q ha cambiado, yo lo hice en un click de boton..