[firebase-br] Cursor numa proc

[RedDevil]

ola Daniel,


> Obrigado pela resposta Cantu
> 
> teria como explicar como manipular o for select?

compre o livro dele que la tem bem explicadinho...
brincadeirinha...
;o)

eu estou colocando na roda ae abaixo uma SP na qual eu uso o For Select 
para "varrer" uma tabela de pacientes, pegar o codigo e o nome deles e 
usar o codigo para retornar quantas vezes o paciente esteve internado em 
um determinado periodo...

create procedure zeus (datebegin date, dateend date)
returns(codpac integer, nampac varchar(50), tbaixas integer)
as
begin
for select pacs.codigo, pacs.nome
      from pacientes pacs
      order by pacs.nome
      into :codpac, :nampac
do
begin
select count(codigo) from atendimentos atend
where (atend.dataentra between :datebegin and :dateend) and 
(atend.codigo = :codpac)
into :tbaixas;
suspend;
end
end


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

--
Luiz "RedDevil" Stefanski
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