1. #1
    God Evolution

    Data de Ingresso
    01/10/06
    Localização
    Fortaleza - CE
    Idade
    22
    Posts
    1.017
    Créditos
    3.051,00
    Agradecimentos
    3
    Agradecido:918 em 119 Posts

    Validando Número do Título Eleitoral


    Veja nesta dica como incrementar seu sistema acrescentando a validação do número eleitoral, com uma simples função desenvolvida baseando-se no Resolução do TSE.
    Para entender como funciona o esquema de validação do título de eleitor devemos primeiro dar uma olhada na Resolução, de Nº 20.132 do dia 19/03/1998. Vejamos o que diz o artigo de número 10:
    Art. 10 - Os Tribunais Regionais Eleitorais farão distribuir, observada a seqüência numérica fornecida pela Secretaria de Informática, às Zonas Eleitorais da respectiva Circunscrição, séries de números de inscrição eleitoral, a serem utilizados na forma deste artigo.
    Parágrafo único - O número de inscrição compor-se-á de até 12 (doze) algarismos, por Unidade da Federação, assim discriminados:
    a) os 8 (oito) primeiros algarismos serão seqüenciados, desprezando-se, na emissão, os zeros à esquerda;
    b) os 2 (dois) algarismos seguintes serão representativos da Unidade da Federação de origem da inscrição, conforme códigos constantes da seguinte tabela:
    01 - São Paulo
    02 - Minas Gerais
    03 - Rio de Janeiro
    04 - Rio Grande do Sul
    05 - Bahia
    06 - Paraná
    07 - Ceará
    08 - Pernambuco
    09 - Santa Catarina
    10 - Goiás
    11 - Maranhão
    12 - Paraíba
    13 - Pará
    14 - Espírito Santo
    15 - Piauí
    16 - Rio Grande do Norte
    17 - Alagoas
    18 - Mato Grosso
    19 - Mato Grosso do Sul
    20 - Distrito Federal
    21 - Sergipe
    22 - Amazonas
    23 - Rondônia
    24 - Acre
    25 - Amapá
    26 - Roraima
    27 - Tocantins
    28 - Exterior (ZZ)
    c) os 2 (dois) últimos algarismos constituirão dígitos verificadores, determinados com base no módulo 11 (onze), sendo o primeiro calculado sobre o número seqüencial e o último sobre o código da Unidade da Federação seguido do primeiro dígito verificador.
    Resumindo: Os dígitos verificadores são calculados em duas etapas. Na primeira, calcula-se o módulo 11 sobre os 8 primeiros dígitos. Os estados de SP e MG possuem títulos com 13 dígitos, sendo assim, nestes casos devemos considerar os 9 primeiros algarismos. Na segunda etapa calculamos o módulo 11 sobre o código da UF + o primeiro dígito verificador.
    Vejamos agora a função implementada:


    function TForm2.valida_titulo(numero: String): Boolean;
    var
    intInd1,intInd2,intLimite : Integer;
    intSoma,intDigito : Integer;
    strDVc,strSequencial : String;
    strUF,strDV1,strDV2 : String;
    begin
    numero := Trim(numero);
    while (Length(numero) < 13) do numero := '0' + numero;
    intInd1 := 0; intInd2 := 0; strDVc := '';
    strSequencial := Copy(numero,1,9);
    strUF := Copy(numero,10,2);
    strDV1 := Copy(numero,12,1);
    strDV2 := Copy(numero,13,1);
    {Verifca se a UF estiver entre os código possíveis, de 1(SP) até 28(ZZ-Exterior)**
    if ((StrToInt(strUF) > 0) and (StrToInt(strUF) < 29)) then
    begin

    intLimite := 9;
    {Loop para calcular os 2 dígitos verificadores**
    for intInd1 := 1 to 2 do
    begin

    intSoma := 0;
    {Calcula a soma para submeter ao módulo 11**
    for intInd2 := 1 to intLimite do
    begin

    intSoma := intSoma + StrToInt(Copy(strSequencial,intInd2,1)) * (intLimite + 2 - intInd2);
    end;
    {Pega o resto da dívisão, o módulo, por 11**
    intDigito := intSoma mod 11;
    ** Se a UF for SP ou MG**
    if (StrToInt(strUF) in [1,2]) then
    begin
    if
    (intDigito = 1) then intDigito := 0
    else if (intDigito = 0) then intDigito := 1
    else intDigito := 11 - intDigito;
    end
    ** Outros UF e Exterior**
    else begin

    if ((intDigito = 1) or (intDigito = 0)) then intDigito := 0
    else intDigito := 11 - intDigito;
    end;
    {Atribui à variavel strDVc o dígito calculado**
    strDVc := strDVc + IntToStr(intDigito);
    {Muda o valor de intLimite para o cáculo do segundo dígito**
    intLimite:= 3;
    {O cálculo do segundo dígito será sobre o código da UF + primeiro dígito verificador**
    strSequencial:= strUF + IntToStr(intDigito);
    end;
    end;

    result := (strDV1+strDV2 = strDVc);
    end;

    Para usá-la é bastante simples. Adicione ao seu form um Edit e um Button. No evento onClick deste Button, faça:


    procedure TForm2.Button1Click(Sender: TObject);
    begin
    if
    valida_titulo(Edit1.Text) then
    MessageDlg('Título Válido', mtInformation, [mbOk], 0)
    else
    MessageDlg('Título Inválido', mtWarning, [mbOk], 0);
    end;

    Pronto! Agora basta rodar o aplicativo, informar um número qualquer de título eleitoral que você verá a mensagem "Título Válido", a menos que o número informado esteja incorreto! :-)


    Creditos: William Gustavo Ourives Maciel

    Tópicos Similares a Este
    :


    Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiTweet this Post!

  2. # ADS
    Usuario Participativo
    Data de Ingresso
    Sep 2005
    Localização
    São Paulo
    Idade
    2010
    Posts
    2500
     

Visitors found this page by searching for:

numero de titulo de eleitor valido

titulo de eleitor numero e digito

titulo de eleitor valido

dv do titulo de eleitor

validar titulo de eleitor

o que algarismo no titulo eleitoraldigito verificador titulo de eleitornumero titulo de eleitor e algarismodigito do titulo de eleitor fica ondedigito titulo de eleitorhttp:www.cheatsbrasil.orglocaldelphi18879-validando-numero-do-titulo-eleitoral.htmlo numero do titulo tem digitoquantos numeros tem o titulo de eleitorquantos numeros tem o título de eleitordigito no titulo de eleitortitulo de eleitor 13 digitosnumero de titulo eleitoral validoquantos digitos tem o titulo de eleitortitulo de eleitor e digitonumeros de titulo de eleitor validosdigito verificador do titulo de eleitorquantos dígitos tem o título de eleitortitulo de eleitor digitonumero do titulo e digitovalidar titulo eleitoralquantos numeros tem um titulo de eleitorquantos numeros tem no titulo de eleitordigito verificador do titulo eleitoralquais são os dígitos do número do título de eleitorqual é o digito no titulo de eleitornumero do titulo de eleitor 13 digitoscalculo do digito verificador do titulo de eleitorquantos numeros tem o titulo de eleitor de minas geraistitulo de eleitor com 12 digitosquantos numeros tem o titulo
SEO Blog

Marcadores

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •  

Conectar