[firebase-br] RES: Problema com Retorno de SP

[Daniel M.Pavan]

Grande Newton!

Tente Ajustar sua procedure como abaixo. Acho que deve dar certo.

CREATE PROCEDURE SP_PEGA_GERADOR (
    pnome varchar(50)) /* Passo o nome do Generator
returns (
    pvalor integer)
as
declare variable vcomando varchar(500);
begin
  vComando = 'select gen_id(' || pNome || ',0)+1 NOVO_GEN from
rdb$database';
  execute statement vComando into :pValor;
  suspend;
end

Sds,

Daniel


-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Newton
Enviada em: quarta-feira, 20 de janeiro de 2010 12:46
Para: lista em firebase.com.br
Assunto: [firebase-br] Problema com Retorno de SP

Salve,
Tenho uma SP que quero me retorne o numero do Generator, mas está dando 
erro. Não está me retornando o valor do GEN.

Delphi 7 com Zeos

o Erro Retornado é : SQL Error: Variable type (position 1) in EXECUTE 
STATEMENT 'select next value for GEN_GRUPO' INTO does not match returned 
column type At procedure "SP_PEGA_GERADOR" Error code: -904



CREATE PROCEDURE SP_PEGA_GERADOR (
    pnome varchar(50)) /* Passo o nome do Generator
returns (
    pvalor integer)
as
declare variable vcomando varchar(500);
begin
  vComando = 'select next value for ' || pNome || ' from rdb$database';
  execute statement vComando into :pValor;
  suspend;
end

Grato,
Newton Carvalho