Columna calculada en delphi

[agova]

Hola a todos

Necesito hacer un reporte en SQL donde una columna sea la operacion de 3 columnas de la base de datos, pero a su vez el resultado de esta columna en el primer renglon sea entrada para el segundo renglon y se opere de nuevo con las 3 columnas y el resultado sea la entrada del siguiente renglon y asi sucesivamente.

El uso es un estado de cuenta de clientes en donde la columna1 es venta, la columna2 es pagos y la columna3 es devolucion con lo cual la columna calculada se convierte en su deuda a ese dia, llamemosle saldo y este saldo es el inicial del siguiente renglon (siguiente dia en el que hay movimiento) para hacer la misma operacion y darme el saldo y asi hasta el final.

Se agradece cualquier ayuda.

Saludos y de antemano gracias.

[gendelphi]

Podrías hacerlo con un trigger que vaya llenando tu tabla de estado de cuenta cada vez que se genera un movimiento (AFTER INSERT) para la tabla de ventas y devoluciones.

[agova]

gracias gendelphi por tu pronta respuesta, pero podrias darme mas datos, como haces el triger?

[jachguate]

No veo la manera de hacerlo con un trigger, pero si con un stored procedure:

Código SQL [-]
set term ^ ;

create procedure EstadoCuenta (
  cliente integer
)
returns (
  ventas double precision,
  pagos double precision,
  devoluciones double precision,
  saldo double precision
)
AS
begin
  saldo = 0;
  for select ventas, pagos, devoluciones, saldo
        from tabla
       where cliente = :cliente
       order by fecha do
  begin
    saldo = saldo + ventas - pagos - devoluciones;
    suspend;
  end
end
^

set term ; ^

commit work;

//uso:

select *
  from EstadoCuenta(1);

Es probable que tenga errores de sintaxis, pues lo he hecho aquí mismo, pero la idea es esa.

Hasta luego.

[agova]

podrias ser mas especifico, nunca he utilizado procedimientos almacenados, mi base de datos en Access

[jachguate]

ups... lo siento, no se por que creí que estaba en el foro de firebird. Lo que he dicho no aplica para el motor que usas.

Lo que te queda es hacerlo con un ClientDataSet asociado a un provider y valerte de los eventos de este para manipular el conjunto de datos y realizar el cálculo. De esta manera a mi me ha funcionado muy bien con motores que no permiten hacer lo que firebird.

[agova]

lo estoy haciendo por medio de un campo calculado, y funciona bien y es rapido que era la primera razon por la que no lo queria hacer de este modo, por lento, pero el dbgrid esta haciendo cosas raras, aparentemente solo calcula los campos de los registros que se estan visualizando y si cambio de renglon y regreso a otro ya calculo de nuevo y el valor cambia.

Alguien sabe cual es la causa?

[jachguate]

El problema es que seguramente estas usando una variable para ir acumulando, y el valor de esa variable será correcto si vas recorriendo el dataset secuencialmente, pero no lo será si lo vas recorriendo de manera aleatoria (como ocurre en un grid).

Precisamente por eso propuse hacerlo con un TClientDataSet y un provider, donde no tendrás ese problema.

Hasta luego.

[agova]

gracias jachguate, pero no tengo experiencia con estas componentes, podrias ejemplificarlo por favor?

[jachguate]

Estoy liado ahora como para hacerte un ejemplo... lo que si puedo hacer es recomendarte que leas "La cara Oculta de Delphi 4", disponible en la sección Win32/Libros del FTP del club.

Recuerdo que Ian Marteens habla allí de los ClientDataSets y de los providers, lo suficiente como para orientarte en el tema.

Hasta luego.