Agradecido
Código SQL
[-]
create or alter procedure SP_FLUJO_EFECTIVO (
ANIO integer)
returns (
KEY_FLUJO integer,
NOMBRE_CUENTA varchar(500),
CUENTA varchar(500),
MONTO numeric(15,2),
LISTA varchar(500))
as
declare variable SMTP varchar(500);
begin
FOR select x.key_flujo, x.nombre_cuenta, X.cuenta,x.cuentas_afectan
from flujo_efectivo x into :key_flujo,:nombre_cuenta,:cuenta,:lista Do
Begin
monto=0;
if (:lista is not null) then
Begin
smtp = 'select sum(d.debe-d.haber)
from cab_diario c , det_diario d where c.key_cab_diario=d.key_cab_diario
and c.estado=''T'' and extract(year from c.fecha_diario)=2018
and d.key_plan_ctas in ('||:lista||')';
EXECUTE STATEMENT :smtp into :monto;
End
suspend;
End
end
Ahi quedo el SP Gracias a los dos companeros por su tiempo y amabilidad