DevMedia
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
post favorito     comentários

Descobrir o Código do Município para ser usado na NFe utilizando o CEP.

Exemplo de como usar o serviço do site www.buscarcep.com.br para descobrir o Código de Município do IBGE usando o CEP.

[fechar]

Você não gostou da qualidade deste conteúdo?

(opcional) Você poderia comentar o que não lhe agradou?

Confirmo meu voto negativo
O site http://www.buscarcep.com.br/ oferece um serviço de consulta de CEP gratuíto para até 5 consultas por minuto ou até 20 consultas por minuto para quem é cadastrado. Para quem necessita realizar mais que 20 consultas por minuto, é possível fazer um plano pago com a quantidade que desejar.
 
O serviço disponível neste site, permite que através do CEP recebamos o retorno de todas as informações do endereço (cep, uf, cidade, bairro, tipo de logradouro, logradouro, código IBGE da UF e o código IBGE do município).
 
Inicie uma nova aplicação no Delphi (File - New - Application) e adicione 1 componente TMaskEdit, 10 componentes do tipo TEdit, 1 componente do tipo TMemo e 1 componentes do tipo TButton. Adicione também um componente IdHTTP que está na aba Indy e um componente TXMLDocument que está disponível na aba Internet. A tela ficará com a aparência da imagem abaixo.
 

 

Selecione o componente MaskEdit1, altere a propriedade name para edtCep e também a propriedade EditMask para 00000\-999;1;_ . Nos componetes TEdit, coloque os seguintes nomes: edtCepResp, edtUF, edtCidade, edtBairro, edtTipoLog, edtLogradouro, edtResultado, edtResultadoTXT, edtUFIBGE, edtCidadeIBGE. Altere o propriedade caption do componente Button1 para Consultar CEP. Altere a propriedade name do componente Memo1 para memoRes.
 
Dê um duplo clique no Button1 e acrescente o seguinte código:
 memoRes.Clear;
 memoRes.Text := IdHTTP1.Get('http://www.buscarcep.com.br/?cep='+StringReplace(edtCep.Text,'-','',[rfReplaceAll])+'&formato=xml');
 XMLDocument1.Active := False;
 XMLDocument1.LoadFromFile('http://www.buscarcep.com.br/?cep='+StringReplace(edtCep.Text,'-','',[rfReplaceAll])+'&formato=xml');
 XMLDocument1.Active := True;
 edtCepResp.Text := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['cep'].Text;
 edtUF.Text      := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['uf'].Text;
 edtCidade.Text  := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['cidade'].Text;
 edtBairro.Text  := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['bairro'].Text;
 edtTipoLog.Text := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['tipo_logradouro'].Text;
 edtLogradouro.Text   := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['logradouro'].Text;
 edtResultado.Text    := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['resultado'].Text;
 edtResultadoTXT.Text := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['resultado_txt'].Text;
 edtUFIBGE.Text       := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['ibge_uf'].Text;
 edtCidadeIBGE.Text   := XMLDocument1.ChildNodes['webservicecep'].ChildNodes['ibge_municipio'].Text;
 
Pronto, basta compilar o programa, digitar um cep no componente edtCep e clicar no botão Consultar CEP.
 
ATENÇÃO: código de município do IBGE, é retornado sem o dígito verificador, para usá-lo na geração do XML da NFe, basta calcular o dígito do município conforme orientação do Manual de Integração - Contribuinte disponível no site NFe. Um exemplo de como efetuar o calculo você encontra clicando aqui.
 


Formado em Sistemas de Informação Faculdade Santa Bárbara - FAESB - Tatuí; Técnico em Processamento de Dados - Instituto Adventista Paranaense - IAP; Para dúvidas sobre o Projeto ACBr utilize - http://www.djsystem.com.br/acb [...]

O que você achou deste post?
Conhece a assinatura MVP?
Publicidade
Serviços

Mais posts