sábado, 30 de novembro de 2013

Função que checa o numero do PIS


Function fn_ChecaPIS(Dado: String): Boolean ;
Var Contador, Soma, Auxiliar11, Digito, Verificador:
   Word ;
Begin
   Result := False ;
   If Dado = '' Then
      Abort ;
   Digito := StrToInt(Copy(Dado, 11, 1)) ;
   Soma := 0 ;
   Auxiliar11 := 2 ;
   For Contador := 1 To 10 Do Begin
      Soma := Soma + (Auxiliar11 * StrToInt(Copy(Dado, 11 - Contador, 1))) ;
      If Auxiliar11 < 9 Then
         Auxiliar11 := Auxiliar11 + 1
      Else
         Auxiliar11 := 2 ;
   End ;
   Verificador := 11 - (Soma Mod 11) ;
   If Verificador > 9 Then
      Verificador := 0 ;
   If Digito = Verificador Then
      Result := True ;
End ;

Nenhum comentário:

Postar um comentário