[firebase-br] Off Topic - Stored Procedure

[marcos_mentz em sinos.net]

use dessa  forma:

CREATE PROCEDURE GERAR_CODIGO
 RETURNS (VALOR INTEGER)
AS
 begin
  /* Procedure Text */

  select gen_id(codigo, 0) as Codigo from RDB$database
end

OBS:
select gen_id(codigo, 0) as Codigo from RDB$database
desta forma retorna o código corrente

select gen_id(codigo, 1) as Codigo from RDB$database
desta forma retorna o próximo código

Marcos
M & L Informática Ltda

----- Original Message ----- 
From: "Salatiel Venâncio" <salatielvenancio em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Thursday, November 17, 2005 5:10 AM
Subject: Re: [firebase-br] Off Topic - Stored Procedure


>A procedure eh esta. Copiei toda a procedure. Eh uma procedure simples.
> Pega o Codigo de um Generator. No IB Expert funciona perfeitamente.
>
> SET TERM ^ ;
>
> CREATE PROCEDURE GERAR_CODIGO
> RETURNS (
>    VALOR VARCHAR(10))
> AS
> begin
>  /* Procedure Text */
>  VALOR = gen_id(CODIGO, 0);
>  suspend;
> end
> ^
>
> SET TERM ; ^
>
> GRANT EXECUTE ON PROCEDURE GERAR_CODIGO TO SYSDBA;
>
> --- Márcio Konrath <marcio em altero.com.br> escreveu:
>
>> Venâncio manda a procedure junto no email ;;;talvez o problemas seja
>> lá;;;;
>>
>> Márcio Konrath
>> CPD - Altero Design
>>
>> ----- Original Message ----- 
>> From: "Salatiel Venâncio" <salatielvenancio em yahoo.com.br>
>> To: "Lista FireBird" <lista em firebase.com.br>
>> Sent: Thursday, November 17, 2005 9:06 AM
>> Subject: [firebase-br] Off Topic - Stored Procedure
>>
>>
>> > Tudo bem Pessoal. Estou com um problema.
>> >
>> > Criei atraves do IB Expert uma procedure simples para retornar um
>> valor
>> > de uma tabela. Ao chamar esta procedure através do programa, ela
>> não
>> > retorna nada. Mas quando executo no IB Expert, funciona
>> normalmente.
>> >
>> > Uso o Delphi 5, IBO 4.3.A e para executar a procedure o componente
>> > TIBOStoreProc.
>> >
>> > Fiz um teste, para ver como se comportava, da seguinte maneira:
>> >
>> >  with D_Dados, sp_Temp do
>> >  begin
>> >    StoredProcName := 'GERAR_CODIGO';
>> >    Prepare;
>> >    ExecProc;
>> >    ShowMessage(Params[0].Value);  // --> Param de Retorno
>> >  end;
>> >
>> > O Resultado Retornou nulo. Será que está faltando alguma
>> configuracao
>> > no componente?
>> >
>> > Aguardo Contato.
>> >
>> > Att.
>> >
>> > Salatiel Venâncio
>> > "JESUS, Minha Certeza!"
>> > Campina Grande - PB
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> > _______________________________________________________
>> > Yahoo! Acesso Grátis: Internet rápida e grátis.
>> > Instale o discador agora!
>> > http://br.acesso.yahoo.com/
>> >
>> >
>> > ______________________________________________
>> > FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>> > Para editar sua configuração na lista, use o endereço
>> > http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>> >
>> > !DSPAM:437c723b309535664512685!
>> >
>> >
>>
>>
>> ______________________________________________
>> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>> Para editar sua configuração na lista, use o endereço
>> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>
>
>
> Att.
>
> Salatiel Venâncio
> "JESUS, Minha Certeza!"
> Campina Grande - PB
>
>
>
>
>
>
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis: Internet rápida e grátis.
> Instale o discador agora!
> http://br.acesso.yahoo.com/
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa