consulta sql para resumen de cuenta corriente

[pjacob80]

los pagos son pagos de trabajos, pero supongamos que un trabajo valio 100, el cliente puede pagar 50, mas adelante pagar 20, y mas adelante 30. en la tabla que quiero deberia mostrarse asi:


fecha | descripcion | debe | haber | saldo
| saldo anterior | | | 0
1/1/13 | trabajo realizado | 100 | | 100
2/1/13 | pago cuota 1 | | 50 | 50
3/1/13 | pago cuota 2 | | 20 | 30
4/1/13 | pago cuota 3 | | 30 | 20

[pjacob80]

aqui un ejemplo de un reporte impreso de un veterinario. lo subo para que se vea la idea.

[[fjcg02]]

Aprovechando que no está la jefa, aunque tengo mucho trabajo ....

prueba con esto, no está probado ni depurado pero creo que te puede poner en la pista. Para los puristas, es pseudocódigo sin probar !!
1. Calculamos el saldo hasta la fecha
2. Seleccionamos los trabajos y los pagos, por cada registro calculamos el saldo y lo sacamos.

Notas:
for select ... into variables;
suspend;
hace una select, por cada regsitro obtenido asigna las columnas a las variables, y suspend las presenta.

Por cada registro calculamos el saldo.
Sacamos los resultados

Espero que te sirva.

Código SQL [-]
CREATE OR ALTER PROCEDURE SP_PRUEBA (
    fechaDesde, FechaHasta date,
  idcliente integer)
  returns(
  fecha date,
  articulo varchar(50),
  debe numeric(10,2),
  haber numeric(10,2)
  saldo numeric(10,2)
  )
as
declare variable 
montante numeric(10,2);

begin
  /* Procedure Text */
/* inicializacmos las variables de salida */
  fecha = null;
  articulo='';
  debe= 0;
  haber= 0;
  saldo= 0;

  /* Calculamos los trabajos */
  SELECT SUM(TRABAJO.IMPORTE) FROM TRABAJO
  WHERE IDCLIENTE=:IDCLIENTE AND FECHA < :FechaDesde
  INTO montante;
  saldo= montante;
  /* Calculamos los pagos */
  SELECT SUM(PAGO.IMPORTE) FROM PAGO
  WHERE IDCLIENTE=:IDCLIENTE AND FECHA < :FechaDesde
  INTO montante;
  saldo= saldo - montante;
  /* ya tenemos la primera linea, es decir el saldo hasta la fecha desde, la sacamos */
  suspend;
  
  for select fecha, articulo, debe, haber 
  from (
    /* importes de los trabajos del cliente entre las fechas */
    select fecha, trabajo, importe, 0 
    from trabajo
    where 
      fecha >= :FechaDesde and fecha <= :FechaHasta
      and idcliente=:idCliente
    group by fecha
    UNION
    /* importes de los pagos del cliente entre las fechas */
    select  fecha, articulo, 0, importe
    from pago
    where 
      fecha >= :FechaDesde and fecha <= :FechaHasta 
      and idcliente=:idCliente
    group by fecha
      )
  order by fecha
  into fecha, articulo, debe, haber;
  saldo=saldo +debe-haber;
  /* sacamos los datos por cada registro */
  suspend;  
   
end^