GARANTIR DESCONTO

Fórum preciso de ajuda nessa migracao #28965

29/02/2008

0

[quote:6e203b1c5d=´Moderação´][color=red:6e203b1c5d]Tópico bloqueado por Massuda

Tópico duplicado. Por favor, mantenha a discussão neste tópico...
http://forum.devmedia.com.br/viewtopic.php?t=93526[/color:6e203b1c5d][/quote:6e203b1c5d]ola pessoal,
tenho uma procedure que tem como objetivo retornar um endereco apos informar um nuemro de cep, a procedure esta funcionando, ja testei deiretamente no oracle, mas no delphi nao sei como executa-la por causa dos parametros de retorno, segue abaixo o codigo:

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";


a versao do oracle: Oracle XE
versao do delphi: BDS 2006
componente de acesso ADO

um forte abarco a todos
alineri


Alineri

Alineri

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar