Validar CPF e CNPJ

[Augusto]

Eu sei... to brincando com vc... e com ELE (ou seria EOLO ??)

[Eolo]

Sygecom,
Recebido (valid das IE). Valeu! Vou olhar depois.

Augusto,
Eu mesmo me chamei de Vô porque, pelo jeito, sou o menos jovem aqui do Forum: 56, quase 57. Então, não ligo, não. Só me preocupa uma coisa: eu tenho um filho de 21 e, se ele não me arrumar um neto logo, quando ele vier vai olhar pra mim e dizer "Bisavô!!!!!!!"... Aí encho os dois de porrada. eh eh eh

Vô Eolo

[ederxc]

Caracas , eu ñ sabi EOLO que voce ja era "tiuzinho " assim

Estou começando a me perguntar , existe alguem com menos de trinta anos aqui no forum ?? Seria eu o mais novo aqui ou o pirralho da galera ?? Té++ :|<

[Eolo]

Leonardo,
Vi que o Rochinha já tinha postado o algoritmo do IE na sessão CÓDIGO FONTE....
(https://pctoledo.org/forum/viewtopic.php?t=5356)
Que tal vc editar o seu post e colocar só a referência ao tópico?

[Maligno]

Código: Selecionar todos

//****************************************************************
function ValidCNPJ(cCNPJ)
local cDigs := ""
local nSTot := 0
local d,i,k := 1
local lRet
if (lRet := Len(cCNPJ) = 14 .and. Val(cCNPJ) > 0)
   for d := 1 to 2
       for i := 11+d to 1 step -1
           nStot += Val(SubStr(cCNPJ,i,1)) * (k += if(k=9, -7, 1))
       next
       cDigs += Str(if((nSTot %= 11) < 2, 0, 11-nStot),1)
       nSTot := 0
       k     := 1
   next
   lRet := cDigs = Right(cCNPJ,2)
end
return lRet