This commit is contained in:
iTakinn
2026-05-28 14:13:52 -03:00
parent 9722205161
commit 811ad6eef1
+1 -1
View File
@@ -29,7 +29,7 @@ function validarCPF(var cpf:string):boolean;
dig2 := 11 - (soma mod 11);
if (dig2 = 10) or (dig2 = 11) then
dig2 := 0;
gitea@10.0.0.42:iTakinn/cpfs_pascal.git dig2 := 0;
ValidarCPF :=
(dig1=(Ord(cpf[10])-48)) and (dig2=(Ord(cpf[11])-48));