create procedure max_dpto
returns (id_dpto integer)
as
declare variable codigo integer;
begin
select max(id_dpto) from dpto into :codigo; --aqui si lleva punto y coma
if (:codigo is null) then
begin
id_dpto = 0;
end
else
begin
id_dpto = codigo + 1;
end --aqui no lleva punto y coma
end --ni aqui tampoco