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;
select sum(interes_entrada), sum(abonoacapital_entrada),
sum(desempeno_entrada), sum(retiroenboveda_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_sumaintereses,:v_sumaabonos,
:v_sumadesempenos,:v_sumaretironenboveda;
v_totalentrada_cajas=:v_sumaintereses+:v_sumaabonos+:v_sumadesempenos+:v_sumaretironenboveda;*/
select sum(montototalcompra_salida), sum(empeno_salida), sum (aumento_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_totalgramoscomprapesos, :v_totalempenos,:v_totalaumentos;
v_totalsalidas_cajas=:v_totalgramoscomprapesos+:v_totalempenos+:v_totalaumentos;*/
select montototalinicioturno
from controldiariomaestro where consec=pm_cvectrldiariomaestro
into:v_montoinicialturno;
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;
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;
select sum(interes_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_sumaintereses;
select sum(abonoacapital_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_sumaabonos;
select sum(desempeno_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_sumadesempenos;
select sum(retiroenboveda_entrada)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_sumaretironenboveda;
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;
select sum(montototalcompra_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_totalgramoscomprapesos;
select sum(empeno_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_totalempenos;
select sum(aumento_salida)
from controldiariodetalle
where clavecontroldiariomaestro=pm_cvectrldiariomaestro
into :v_totalaumentos;
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
into:v_montoinicialturno;
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;
end
Perdon por el rollote que me avente espero haberme explicado y gracias de antemano por cualquier ayuda que pudieran brindar.