Validação de CPF/CGC no Delphi conforme as normas da Receita Federal

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
Confirmar voto
0
 (9)  (1)

Veja nesta dica a validação de CPF/CGC conforme as normas da Receita Federal

Validação de  CPF/CGC conforme as normas da Receita Federal

 

// Testa um string, verificando se é um CPF ou CGC válido.

// Se for um ou outro, formata adequadamente. Se não, devolve sem formatar

// para chamar a rotina:   Campo := Form.TestaCpfCgc(Campo)

function TForm.TestaCpfCgc(Dado: string): String;

var

  i: integer;

begin

  for i:= 1 to length(Dado) do begin

    if not (Dado[i] in ['0'..'9']) then delete(Dado,i,1);

  end;

  if ((length(Dado) <> 11) and (length(Dado) <> 14))then

     MessageDlg('ATENÇÃO: O número informado NÃO representa' + #13 +

                'um CPF ou CGC válido pelas regras da Receita Federal',mtWarning,[mbOK],0);

  if length(Dado) = 14 then begin

     if TestaCGC(Dado) then begin

        insert('-',Dado,13);

        insert('/',Dado,9);

        insert('.',Dado,6);

        insert('.',Dado,3);

     end

     else MessageDlg('O número informado NÃO representa um CGC' + #13 +

                     'válido pelas regras da Receita Federal', mtWarning, [mbOK], 0);

  end;

  if length(Dado) = 11 then begin

     if TestaCPF(Dado) then begin

        insert('-',Dado,10);

        insert('.',Dado,7);

        insert('.',Dado,4);

     end

     else MessageDlg('O número informado NÃO representa um CPF' + #13 +

                     'válido pelas regras da Receita Federal', mtWarning, [mbOK], 0);

  end;

  Result := Dado;

end;

 

{Valida dígito verificador de CGC}

function TROT.TestaCGC(Dado : string) : boolean;

var  D1            : array[1..12] of byte;

     I,

     DF1,

     DF2,

     DF3,

     DF4,

     DF5,

     DF6,

     Resto1,

     Resto2,

     PrimeiroDigito,

     SegundoDigito : integer;

begin

     Result := true;

     if Length(Dado) = 14 then

     begin

          for I := 1 to 12 do

               if Dado[I] in ['0'..'9'] then

                    D1[I] := StrToInt(Dado[I])

               else

                    Result := false;

          if Result then

          begin

               DF1 := 0;

               DF2 := 0;

               DF3 := 0;

               DF4 := 0;

               DF5 := 0;

               DF6 := 0;

               Resto1 := 0;

               Resto2 := 0;

               PrimeiroDigito := 0;

               SegundoDigito := 0;

               DF1 := 5*D1[1] + 4*D1[2] + 3*D1[3] + 2*D1[4] + 9*D1[5] + 8*D1[6] +

                      7*D1[7] + 6*D1[8] + 5*D1[9] + 4*D1[10] + 3*D1[11] + 2*D1[12];

               DF2 := DF1 div 11;

               DF3 := DF2 * 11;

               Resto1 := DF1 - DF3;

               if (Resto1 = 0) or (Resto1 = 1) then

                    PrimeiroDigito := 0

               else

                    PrimeiroDigito := 11 - Resto1;

               DF4 := 6*D1[1] + 5*D1[2] + 4*D1[3] + 3*D1[4] + 2*D1[5] + 9*D1[6] +

                      8*D1[7] + 7*D1[8] + 6*D1[9] + 5*D1[10] + 4*D1[11] + 3*D1[12] +

                      2*PrimeiroDigito;

               DF5 := DF4 div 11;

               DF6 := DF5 * 11;

               Resto2 := DF4 - DF6;

               if (Resto2 = 0) or (Resto2 = 1) then

                    SegundoDigito := 0

               else

                    SegundoDigito := 11 - Resto2;

               if (PrimeiroDigito <> StrToInt(Dado[13])) or

                  (SegundoDigito <> StrToInt(Dado[14])) then

                    Result := false;

          end;

     end

     else

          if Length(Dado) <> 0 then

               Result := false;

end;

 

{Valida dígito verificador de CPF}

function TForm.TestaCPF(Dado : string) : boolean;

var  D1            : array[1..9] of byte;

     I,

     DF1,

     DF2,

     DF3,

     DF4,

     DF5,

     DF6,

     Resto1,

     Resto2,

     PrimeiroDigito,

     SegundoDigito : integer;

begin

     Result := true;

     if Length(Dado) = 11 then

     begin

          for I := 1 to 9 do

               if Dado[I] in ['0'..'9'] then

                    D1[I] := StrToInt(Dado[I])

               else

                    Result := false;

          if Result then

          begin

               DF1 := 0;

               DF2 := 0;

               DF3 := 0;

               DF4 := 0;

               DF5 := 0;

               DF6 := 0;

               Resto1 := 0;

               Resto2 := 0;

               PrimeiroDigito := 0;

               SegundoDigito := 0;

               DF1 := 10*D1[1] + 9*D1[2] + 8*D1[3] + 7*D1[4] + 6*D1[5] + 5*D1[6] +

                      4*D1[7] + 3*D1[8] + 2*D1[9];

               DF2 := DF1 div 11;

               DF3 := DF2 * 11;

               Resto1 := DF1 - DF3;

               if (Resto1 = 0) or (Resto1 = 1) then

                    PrimeiroDigito := 0

               else

                    PrimeiroDigito := 11 - Resto1;

               DF4 := 11*D1[1] + 10*D1[2] + 9*D1[3] + 8*D1[4] + 7*D1[5] + 6*D1[6] +

                      5*D1[7] + 4*D1[8] + 3*D1[9] + 2*PrimeiroDigito;

               DF5 := DF4 div 11;

               DF6 := DF5 * 11;

               Resto2 := DF4 - DF6;

               if (Resto2 = 0) or (Resto2 = 1) then

                    SegundoDigito := 0

               else

                    SegundoDigito := 11 - Resto2;

               if (PrimeiroDigito <> StrToInt(Dado[10])) or

                  (SegundoDigito <> StrToInt(Dado[11])) then

                    Result := false;

          end;

     end

     else

          if Length(Dado) <> 0 then

               Result := false;

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?