[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.