Página 4 de 4
Validar CPF e CNPJ
Enviado: 15 Mai 2007 18:09
por Augusto
Eu sei... to brincando com vc... e com ELE (ou seria EOLO ??)
Validar CPF e CNPJ
Enviado: 15 Mai 2007 21:28
por 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
Validar CPF e CNPJ
Enviado: 16 Mai 2007 07:25
por 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é++ :|<
Validar CPF e CNPJ
Enviado: 16 Mai 2007 08:27
por 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?
Validar CPF e CNPJ
Enviado: 10 Ago 2007 01:32
por 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