Procedimiento almacenado devuelve 0 si una de varias variables es 0

[Tcmn]

Hola uso Firebird 2.1, IbExpert, Delphi 6 en WXP Profesional. Tengo un procedimiento almacenado en el que no se porque si una de las variables es 0 ya no me devuelve el resultado de una operacion aunque las demas variables si contengan valores.

El asunto es que tengo una tabla maestro que tiene una tabla de detalles. En la tabla maestro se genera un balance financiero en base a los registros en el detalle. Los registros del detalle los dividos en entradas y salidas y a su vez las entradas y salidas estan subdivididas en categorias (Entradas: Interes, Abonos, etc.;Salidas Prestamos, gastos, sueldo de usuario, etc). El problema radica en que cuando el procedimiento almacenado que yo tengo hace una sumatoria de las categorias para sacar un total de entradas asi como uno de salidas para sacar la diferencia y asi poder actualizar el balance financiero que esta en el encabezado, si la sumatoria de una de las categorias es 0.00 el resultado de la resta ENTRADAS-SALIDAS=0.00 Aunque deberia ser diferente, por que si hay valores resultantes en las otras categorias.

El codigo del procedimiento almacenado lo he hecho de dos maneras pero ni una funciona hasta que no esten todas las categorias con minimo un valor de 1. El primer intento que hice fue el siguiente(donde hay nota de pm si van dos puntos (":"), pero no los escribo porque me los convierte en caritas el editor):

Código SQL [-]
 
begin
v_sumaintereses=0.0; v_sumaabonos=0.0;
v_sumadesempenos=0.0; v_sumaretironenboveda=0.0;
v_totalgramoscomprapesos=0.0; v_totalempenos=0.0; 
v_totalaumentos=0.0; v_totalentrada_cajas=0.0; 
v_totalsalidas_cajas=0.0; v_montoinicialturno=0.0;
v_diferencia_ent_sal=0.0;
 
/*SUMARIZAR todas las ENTRADAS del detalle del control diario*/
select sum(interes_entrada), sum(abonoacapital_entrada),
sum(desempeno_entrada), sum(retiroenboveda_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_sumaintereses,:v_sumaabonos,
:v_sumadesempenos,:v_sumaretironenboveda; 
/*total global de todas las entradas a caja*/
v_totalentrada_cajas=:v_sumaintereses+:v_sumaabonos+:v_sumadesempenos+:v_sumaretironenboveda;*/
 
 
/*SUMARIZAR todas las SALIDAS del detalle del control diario*/
select sum(montototalcompra_salida), sum(empeno_salida), sum (aumento_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_totalgramoscomprapesos, :v_totalempenos,:v_totalaumentos;
 
 
/*total global de todas las salidas de la caja*/
v_totalsalidas_cajas=:v_totalgramoscomprapesos+:v_totalempenos+:v_totalaumentos;*/
 
select montototalinicioturno 
from controldiariomaestro where consec=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into:v_montoinicialturno;
 
/* //SUPERHABIT O DEFICIt*/
v_diferencia_ent_sal=(:v_montoinicialturno+:v_totalentrada_cajas)-:v_totalsalidas_cajas;
 
update controldiariomaestro set 
TOTALINTERESES_ENTRADAS=:v_sumaintereses,
TOTALABONOSACAPITAL_ENTRADAS=:v_sumaabonos,
TOTALDESEMPENOS_ENTRADAS=:v_sumadesempenos,
TOTALRETIROSBOVEDA_ENTRADAS=:v_sumaretironenboveda,
TOTAL_ENTRADAS=:v_totalentrada_cajas,
TOTALGRAMOSCOMPRAPESOS_SALIDA=:v_totalgramoscomprapesos,
TOTALEMPENOS_SALIDA=:v_totalempenos,
TOTALAUMENTOS_SALIDA=:v_totalaumentos,
TOTAL_SALIDAS=:v_totalsalidas_cajas,
DIFERENCIA_ENTRADAS_SALIDAS=:v_diferencia_ent_sal
 
where consec=pm_cvectrldiariomaestro;/*Este va con dos puntos al inicio */
end

El intento actual que esta es:

Código SQL [-]
begin
v_sumaintereses=0.0; v_sumaabonos=0.0;
v_sumadesempenos=0.0; v_sumaretironenboveda=0.0;
v_totalgramoscomprapesos=0.0; v_totalempenos=0.0; 
v_totalaumentos=0.0; v_totalentrada_cajas=0.0; 
v_totalsalidas_cajas=0.0; v_montoinicialturno=0.0; 
v_diferencia_ent_sal=0.0;
/*SUMARIZAR todas las ENTRADAS del detalle del control diario*/
select sum(interes_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_sumaintereses;
 
select sum(abonoacapital_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_sumaabonos;
 
select sum(desempeno_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_sumadesempenos;
 
select sum(retiroenboveda_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_sumaretironenboveda;
 
/*total global de todas las entradas a caja*/
if (v_sumaintereses>0.0) then v_totalentrada_cajas=:v_sumaintereses;
if (v_sumaabonos>0.0) then v_totalentrada_cajas=:v_totalentrada_cajas+:v_sumaabonos;
if (v_sumadesempenos>0.0) then v_totalentrada_cajas=:v_totalentrada_cajas+:v_sumadesempenos;
if (v_sumaretironenboveda>0.0) then v_totalentrada_cajas=:v_totalentrada_cajas+:v_sumaretironenboveda;
 
/*SUMARIZAR todas las SALIDAS del detalle del control diario*/
 
select sum(montototalcompra_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_totalgramoscomprapesos;
 
select sum(empeno_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_totalempenos;
 
select sum(aumento_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into :v_totalaumentos;
 
/*total global de todas las salidas de la caja*/
if (v_totalgramoscomprapesos>0.0) then v_totalsalidas_cajas=:v_totalgramoscomprapesos;
if (v_totalempenos>0.0) then v_totalsalidas_cajas=:v_totalsalidas_cajas+:v_totalempenos;
if (v_totalaumentos>0.0) then v_totalsalidas_cajas=:v_totalsalidas_cajas+:v_totalaumentos;
 
select montototalinicioturno from controldiariomaestro where consec=pm_cvectrldiariomaestro/*Este va con dos puntos al inicio */
into:v_montoinicialturno;
/* //SUPERHABIT O DEFICIt*/
v_diferencia_ent_sal=(:v_montoinicialturno+:v_totalentrada_cajas)-:v_totalsalidas_cajas;
update controldiariomaestro set TOTALINTERESES_ENTRADAS=:v_sumaintereses,
TOTALABONOSACAPITAL_ENTRADAS=:v_sumaabonos,
TOTALDESEMPENOS_ENTRADAS=:v_sumadesempenos,
TOTALRETIROSBOVEDA_ENTRADAS=:v_sumaretironenboveda,
TOTAL_ENTRADAS=:v_totalentrada_cajas,
TOTALGRAMOSCOMPRAPESOS_SALIDA=:v_totalgramoscomprapesos,
TOTALEMPENOS_SALIDA=:v_totalempenos,
TOTALAUMENTOS_SALIDA=:v_totalaumentos,
TOTAL_SALIDAS=:v_totalsalidas_cajas,
DIFERENCIA_ENTRADAS_SALIDAS=:v_diferencia_ent_sal
where consec=pm_cvectrldiariomaestro;/*Este va con dos puntos al inicio */
end

Perdon por el rollote que me avente espero haberme explicado y gracias de antemano por cualquier ayuda que pudieran brindar.

[[duilioisola]]

Supongo que el problema es que alguna de estas sumatorias te devuelve un valor nulo, porque no encuentra registros.

Lo que yo hago es verificar que no sea nulo. Si lo es, lo igualo a 0.

Código SQL [-]
selet sum(campo) from tabla
where condiciones...
into :suma;

if (suma is null) then suma=0;

Recuerda:

null + algo = null
null - algo = null
null / algo = null
null * algo = null
null || algo = null

[Tcmn]

eso es un buen punto deja checo

[Tcmn]

Empezado por duilioisola

Supongo que el problema es que alguna de estas sumatorias te devuelve un valor nulo, porque no encuentra registros.

Lo que yo hago es verificar que no sea nulo. Si lo es, lo igualo a 0.


Código SQL [-]selet sum(campo) from tabla
where condiciones...
into :suma;

if (suma is null) then suma=0;





Recuerda:

null + algo = null

null - algo = null

null / algo = null

null * algo = null

null || algo = null

El siempre bien agraciado null efectivamente estaba haciendo de las suyas. Muchas gracias

[guillotmarc]

¿ Supongo que conoces la función COALESCE para corregir el problema ?.

COALESCE(null, 0) = 0

COALESCE(algo, 0) = algo

Debes utilizar COALESCE(xxx, 0) en todos tus operandos para evitar estos problemas.

[Tcmn]

Vaya si habia visto esa funcion de COALESCE(xxxx, 0) pero no sabia para que servia exactamente. Lo que implemente y esta funcionando es

Código SQL [-]
(if variables is null) then variable=0

Probare y estudiare la otra opcion que mencionas, es bueno conocer mas de una opcion.

Gracias

[Casimiro Notevi]

Son dos opciones distintas, coalesce puedes usarlo en las sentencias sql, ejemplo:

Código SQL [-]
select codigo, nombre, coalesce(precio,0) from tbArticulos where... loquesea

Si algún precio es nulo, devolverá cero.

La otra opción es sólo cuando tienes un valor recogido en una variable:

Código SQL [-]
select precio from tbarticulos into :variable;
if (variable is null) then :variable=0;

[Tcmn]

Orale, eso esta muy gallon como dijeran en mi tierra. Ya probe ambas opciones y son buenas, aunque noto que cada opcion en ciertas circunstancias debe ser mejor que otra.

Gracias