[IVAND]

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
 /* Procedure Text */
  suspend;

 End
end

Ahi quedo el SP Gracias a los dos companeros por su tiempo y amabilidad