Fw: [firebase-br] Off Topic - Stored Procedure - correção

[marcos_mentz em sinos.net]

 use dessa  forma (correção):

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

 select gen_id(codigo, 0)  into :VALOR 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
>