[firebase-br] Store Procedure

[RedDevil]

ola Reuber,

eu fiz um pequeno exemplo na qual eu uso duas SP's criadas no meu BD
DragonEgg.FdB (o qual podera ser baixado na minha home) no qual uma SP busca o
codigo em outra e funcionou dessa maneira que eu exemplifiquei...

estou colocando as SP's ae abaixo... talvez nao esteja dando certo ae por algum
outro motivo, pois as tuas SP's sao bem complexas... no primeiro teste que eu
fiz eu informei como parametro o codigo errado e nao funcionou porque nao
retornou nada...

qualquer coisa, falae, e se der certo, tenha um bom final de ano e eu desejo que
que alguns dos teus sonhos se realizem em 2006 (nao todos... o ser humano eh
movido a sonhos, e no momento em que alguem realizar todos os seus sonhos, nao
vai mais querer permanecer neste plano existencial...;o).

Post Scriptum: cara, que barato a versao Full do IBExpert...
;o)


/* --------------------------------------------------- */
create procedure lord_morpheus
as
declare variable wcodigo integer;
begin

/* buscando o codigo do medicamento */
execute procedure lady_death ( 666666 )
returning_values :wcodigo;

/* inserindo na tabela saidas */
insert into saidas (codigo, paciente, data, quantidade)
values (:wcodigo, 666, current_date, 666);

exit;

end


create procedure lady_death ( pcod integer )
returns( rcodigo integer )
as
begin

select codigo from medicamentos
where (codigo = :pcod)
into :rcodigo;

suspend;

end
/* --------------------------------------------------- */


[]s
força sempre.
ate +++

--
Luiz "RedDevil" Stefanski - Linux User #399026
http://www.RedDevil.eti.br - Delphi 4 Powered by IBObjects
exemplos e dicas sobre o IBObjects:
http://www.firebase.com.br/cgi-bin/firebase.cgi/dnld?ID=165
compilaçao/instalaçao do IBObjects sabor BPG:
http://www.firebase.com.br/cgi-bin/firebase.cgi/artigo?ID=630



----- Original Message -----
From: "RAMJ SISTEMAS & CONSULTORIA" <jubrovolski em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Saturday, December 31, 2005 12:16 PM
Subject: Re: [firebase-br] Store Procedure


> Olá RedDevil
>
> Infelizmente não funcionou..
>
>
> Feliz 2006
>
>
> RedDevil escreveu:
>
> > ola Reuber,
> >
> >
> > Post By RAMJ SISTEMAS & CONSULTORIA:
> >
> >> [cut]
> >> preciso jogar o conteúdo de uma store procedure dentro de uma
> >> váriável, porém a variável está dentro de outra store procedure.
> >
> >
> > cara, eu nao tenho como testar agora para te afirmar com certeza, pois
> > estou com o meu fake em meia viagem, tentando rodar o IBExpert nele
> > sem fazer as benditas instalaçoes pelo WineTools, mas se eu nao estou
> > enganado, voce resolve esse drama ae usando o "returning_values" na
> > segunda SP... algo tipow assim:
> >
> > EXECUTE PROCEDURE USERS_PSEQUENCIA('ESTOQUE','EST_NUMLANC',0,'')
> > returning_values :vnumlanc;
> >
> >
> > e entao fazendo o insert:
> >
> > INSERT INTO estoque (campo1, campo2, campo3...)
> > values
> > (:vnumlanc,1,:VCODPROD,:VSUBCOD,date,1,NULL,NULL,'C',:VPESOTRAZ,0);
> >
> >
> > boa sorte ae...
> >
> >
> > []s
> > força sempre!!!
> > ate +++
> >
>