[roman]

Empezado por DEPROE

hay dos manerass de solucionar el problema

una es que al crear tus tablas declares que los valores numericos no puedan ser nulos y les pongas un valor por omición de cero

Me parece que el problema no es que tenga valores null en las tablas sino que algunas cuentas no presentan movimientos de algún tipo (débito o crédito) por lo que al hacer el sum() el resultado es null. Por ejemplo, si tiene los datos

+---------+----------+-------+
| cod_cta | tipo_mov | monto |
+---------+----------+-------+
|    2    |     D    |   30  |
+---------+----------+-------+
|    3    |     D    |   40  |
+---------+----------+-------+
|    1    |     C    |   50  |
+---------+----------+-------+
|    2    |     C    |   10  |
+---------+----------+-------+
|    2    |     C    |   20  |
+---------+----------+-------+
|    3    |     D    |   10  |
+---------+----------+-------+
|    1    |     C    |   50  |
+---------+----------+-------+
|    1    |     D    |   20  |
+---------+----------+-------+

la subconsulta

Código SQL [-]
(select sum(monto) from movimientos where cod_cta = cuenta.codigo and tipo_mov='C')

devolverá null para CUENTA.CODIGO = 3.

----------------------

Estuve investigando un poco.

En MySql puede usarse la función if():

Código SQL [-]
select
    cod_cta,
    sum(if(tipo_mov = 'C', monto, 0)) as credito,
    sum(if(tipo_mov = 'D', monto, 0)) as debito,
    sum(if(tipo_mov = 'C', monto, -monto)) as balance
from
    movimientos
group by
    cod_cta

para regresar una tabla con crédito, débito y balance como requiere vpepen

Sin embargo no tenia ni idea de si Interbase disponía de una función similar. Lo más cercano que tenía a la mano era FireBird en donde logré mi primera consulta SQL en FireBird:

Código SQL [-]
select
    cod_cta,
    sum(case when tipo_mov = 'C' then monto else 0 end) as credito,
    sum(case when tipo_mov = 'D' then monto else 0 end) as debito,
    sum(case when tipo_mov = 'C' then monto else -monto end) as balance
from
    movimientos
group by
    cod_cta

que funciona igual que la de MySql.

Busqué en Internet a ver si Interbase tenía algo semejante pero me encontré enlaces que claramente decían que no existía el case aunque ignoro si en las últimas versiones ya existe.

Finalmente me metí con los procedimientos almacenados y obtuve mi primer procedimiento almacenado:

Código SQL [-]
create procedure balances
returns (
    codigo integer,
    credito integer,
    debito integer,
    balance integer)
as
begin
  for select codigo from cuentas
  into :codigo do
  begin
    select sum(monto) from movimientos
    where cod_cta = :codigo and tipo_mov = 'C'
    into :credito;

    if (:credito is null) then credito = 0;

    select sum(monto) from movimientos
    where cod_cta = :codigo and tipo_mov = 'D'
    into :debito;

    if (:debito is null) then debito = 0;

    balance = :credito - :debito;
    suspend;
  end
end

que genera la tabla (con los datos anteriores):

| codigo | credito | debito | balance |
+--------+---------+--------+---------+
|   1    |   100   |   20   |    80   |
+--------+---------+--------+---------+
|   2    |    30   |   30   |     0   |
+--------+---------+--------+---------+
|   3    |     0   |   50   |   -50   |
+--------+---------+--------+---------+

que me parece es lo que requiere vpepen.

De hecho el procedimiento generará registros (con ceros en lugar de null) incluso para cuentas que no tengan ningún movimiento (ni crédito ni débito)

El procedmiento podría usarse así:

Código SQL [-]
select cuentas.nombre,  balances.*
from cuentas, balances
where cuentas.codigo = balances.codigo

En fin, como son mis primeros pasos en FireBird y procedimientos almacenados no me sorprendería que hubiera formas mucho más elegantes y sencillas, pero mientras tanto quizá le sirva a vpepen y a mi me sirve de ejercicio .

Supongo que la sintaxis de los procedimientos almacenados no diferirá gran cosa para Interbase.

// Saludos