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