Correção ACBrValidador

[Luiz Alberto da Silva Lope]

Olá pessoal.

Estou enviando uma correção na função FormatarCNPJouCPF.

function FormatarCNPJouCPF(const AValue: String): String;
var
  S: String;
begin
  S := OnlyAlphaNum(AValue);
  if Length(S) = 0 then
     Result := S
  else
  begin
    //if Length(S) = 14 then
    if Length(S) > 11 then
      Result := FormatarCNPJ(S)
    else
      Result := FormatarCPF(S);
  end;
end;

Como nenhum CPF pode ter mais que 11 digitos, o "if Length(S) = 14 then" acaba gerando formatação errada.

ACBrValidador.pas

[Alexandre de Paula]

Boa tarde,

Criada a TK-7199 para avaliação.

Obrigado pela contribuição.

[Daniel Simoes]

3 horas atrás, Luiz Alberto da Silva Lope disse:

Como nenhum CPF pode ter mais que 11 digitos, o "if Length(S) = 14 then" acaba gerando formatação errada.

Faz todo sentido.. obrigado, enviado ao SVN...   Commit 39700

[Alexandre de Paula]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[*] Alterado o comportamento do commit 39700.
Obrigatório a entrada ter 11 ou 14 dígitos para fazer a mascara de CPF ou CNPJ, deve ser informado os zeros a esquerda.
Se não encontrar nenhum tamanho válido de 11 ou 14 dígitos, ele devolverá o valor sem nenhuma manipulação da entrada.

por Victor H Gonzales - Pandaaa