Fórum Executar SP do Oracle a partir do Delphi #354619

create or replace PROCEDURE "LISTA_LUGAR" 
( 
  "PCEP" IN VARCHAR2, 
  "PESTADO" OUT VARCHAR2, 
  "PCIDADE" OUT VARCHAR2, 
  "PBAIRRO" OUT VARCHAR2, 
  "PENDERECO" OUT VARCHAR2, 
  "PCEPS" OUT VARCHAR2, 
  "PCOMPLEMENTO" OUT VARCHAR2 
) 
AS 

begin 
select a.uf_sigla, 
b.cidade_descricao, 
c.bairro_descricao, 
d.endereco_logradouro, 
d.endereco_cep, 
d.endereco_complemento 
into 
pestado, 
pcidade, 
pbairro, 
pendereco, 
pceps, 
pcomplemento 
from uf a,cidade b, bairro c,  endereco d 

where (a.uf_codigo = b.uf_codigo) and (b.cidade_codigo = c.cidade_codigo)  and (c.bairro_codigo = d.bairro_codigo) and  (d.endereco_cep = pcep) 
order by c.bairro_descricao,d.endereco_logradouro,d.endereco_cep; 
    
end "LISTA_LUGAR";