[firebase-br] Execute Block Fire 2.0
HPensador
hpensador em gmail.com
Ter Jul 5 10:06:40 -03 2011
Bom dia Colegas!
Estou tentando executar um bloco no qual tenho paramentros de entrada,
porém o fire dar erro nos mesmo. Já verifiquei em
http://www.firebirdsql.org/refdocs/langrefupd20-execblock.html e não
consigo ver nada de errado na minha PSQL, porém isto não quer dizer que
eu não esteja fazendo ... rs (vide abaixo)
execute block (
mes integer,
ano integer,
sequencia integer)
returns (
codigo_lotacao varchar(7),
nome_lotacao varchar(50),
codigo_secretaria varchar(7),
nome_secretaria varchar(50),
codigo_departamento varchar(7),
nome_departamento varchar(50),
qtde_funcionarios integer)
as
begin
for select x.codigo,
x.nome
from lotacao x
where x.nivel = 3
into :codigo_lotacao, :nome_lotacao do
begin
codigo_secretaria = substring(:codigo_lotacao from 1 for 2)||'00000';
codigo_departamento = substring(:codigo_lotacao from 1 for 4)||'000';
select a.nome
from lotacao a
where a.codigo = substring(:codigo_lotacao from 1 for 2)||'00000'
and a.nivel = 1
into :nome_secretaria;
select a.nome
from lotacao a
where a.codigo = substring(:codigo_lotacao from 1 for 4)||'000'
and a.nivel = 2
into :nome_departamento;
select count(w.matricula)
from capa_variavel w
where w.mes = :mes
and w.ano = :ano
and w.sequencia = :sequencia
and w.codigo_lotacao = :codigo_lotacao
group by w.codigo_lotacao into :qtde_funcionarios;
suspend;
end
end
--
[]'s,
Hélio Oliveira
Bel. Ciência da Computação
Técnico em Contabilidade
e-mail : hpensador em gmail.com
Skype : hpensador
http://hpensador.blogspot.com/
www.hpensador.net
(71) 9975-9176
Mais detalhes sobre a lista de discussão lista