Como calcular o dígito do Código de Município do IBGE http://www.devmedia.com.br/articles/viewcomp.asp?
comp=12308
Whats new? | Login | Parceiros
Cadastre-se | Atendimento | RSS
Home Entenda o site Revistas Canais Cursos Loja virtual Suporte Fórum Serviços Assine Compre
Créditos Lançamento
Easy Java Magazine #1,
a publicação para iniciantes
em Java Compartilhe |
Acesse gratuitamente!
Você está em: / canal Delphi [artigos] + Delphi: artigos | vídeos | cursos | mais
Este post foi publicado diretamente pelo autor e não foi revisado pela DevMedia.
ANDRÉ FERREIRA DE MORAES.
Técnico em Processamento de Dados -
Instituto Adventista Paranaense - IAP;
Atualmente cursando 4º ano de Sistemas
de Informação Faculdade Santa Bárbara -
FAESB - Tatuí; Para dúvidas sobre o Projeto
Como calcular o dígito do Código de Município do IBGE ACBr utilize o FórumWeb -
http://www.forumweb.c...
Ver space do autor
Neste artigo é mostrada uma função para calcular o dígito do Código de Município do IBGE, util para ser
usado com o exemplo do site www.buscarcep.com.br
Estatísticas:
Visualizações: 3657
Favoritado: 3 vez(es)
Para calcular o dígito do Código de Município do IBGE, use a função abaixo: Conteúdo:
Didática:
function DigitoCidade( Codigo : String ) : String;
Utilidade: 2 0
var votos: 2
i, Valor, Soma: integer;
Digito: string; Serviços:
const Inclua seu próprio artigo! (ajuda)
PESO = '1212120'; Inclua um comentário
NAO_VALIDAR = '|2201919|2202251|2201988|2611533|3117836|3152131|4305871|5203939|5203962|'; Adicionar aos Favoritos
begin Marcar como lido/assistido
if Length(Codigo) < 6 then Incluir anotação pessoal (ajuda)
begin
RSS Feeds
Result := 'Tamanho Inválido';
Versão para impressão
exit;
end;
if pos('|' + copy(Codigo, 1, 6), NAO_VALIDAR) > 0 then
begin
Result := copy(NAO_VALIDAR,pos('|' + Codigo, NAO_VALIDAR)+1,7);
exit;
end;
soma := 0;
for i := 1 to 6 do
begin
valor := StrToInt(copy(Codigo, i, 1)) * StrToInt(copy(PESO, i, 1));
if valor > 9 then
soma := soma + StrToInt(copy(IntToStr(valor), 1, 1)) + StrToInt(copy(IntToStr(valor), 2, 1))
else
soma := soma + valor;
end;
digito := IntToStr((10 - (soma mod 10)));
if ((soma mod 10) = 0) then
digito := '0';
Result := copy(codigo,1,6) + Digito;
end;
Participe! Inclua um comentário
Nenhum comentário foi postado - seja o primeiro a comentar ;-)
1 de 2 15/11/2010 20:02
Como calcular o dígito do Código de Município do IBGE http://www.devmedia.com.br/articles/viewcomp.asp?comp=12308
[Ver todos] [Ver todos]
ACBrNFe – Componente para Nota Fiscal Eletrônica - Artigo Clube Como construir uma solução Web em Asp.Net distribuída em
Delphi 108 camadas utilizando orientação a objetos(Avançado)
Como funcionam os modos de contingência da NFe Curso Online-Novidades no Delphi 2010
Como calcular o dígito do Código de Município do IBGE Formação completa Delphi Developer
Curso completo de ClientDataSet
Descobrir o Código do Município para ser usado na NFe utilizando o
CEP.
Delphi for PHP - Loja virtual
ACBrNFe - Componente OpenSource para Nota Fiscal Eletrônica - NFe
curso online - Delphi Prism
- Parte 2
Curso Completo MySQL
ACBrNFe - Componente OpenSource para Nota Fiscal Eletrônica - NFe
- Parte 1
Curso Online:JavaScript(básico)
ACBrNFeMonitor - Utilitário para integração ERP - Nota Fiscal Introdução à Engenharia de Requisitos
Eletrônica - NFe
[Ver todos]
[Este post ainda não foi associado a uma sequência] [vídeo] Menu de Ferramentas: Curso Crystal Reports XI com Delphi
2010 – Parte 2
[vídeo] Introdução: Curso Crystal Reports XI com Delphi 2010 –
Parte 1
[vídeo] dbPivotGrid - Curso DevExpress com Delphi - Parte 1
[vídeo] LayoutControl - Curso DevExpress com Delphi - Parte 2
[vídeo] DXPrinting: Devexpress – Curso Componente DevExpress -
Parte 40
MonthCalendar : Dias em Negrito com TDataSet
Entendendo Coesão e Acoplamento
[vídeo] Implementando Delete - Curso Entity Framework - Aplicação
web de Classificados - Parte 26
[vídeo] Implementando TemplateField para a funcionalidade Delete -
Curso Entity Framework - Aplicação web de Classificados – Parte 31
DevMedia Group www.devmedia.com.br | www.javafree.org | www.mrbool.com
2010 - Todos os Direitos Reservados a DevMedia Group - (21) 3382-5038
2 de 2 15/11/2010 20:02
