Validar CPF e CNPJ

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

Avatar do usuário
Augusto
Usuário Nível 3
Usuário Nível 3
Mensagens: 473
Registrado em: 26 Ago 2003 17:50
Localização: Maricá/RJ
Contato:

Validar CPF e CNPJ

Mensagem por Augusto »

Eu sei... to brincando com vc... e com ELE (ou seria EOLO ??)
:xau Fui...
goulart@provsul.com.br

Faça da PROVSUL o seu Provedor de Serviços WEB
Visite: www.PROVSUL.com.br
Avatar do usuário
Eolo
Colaborador
Colaborador
Mensagens: 1134
Registrado em: 08 Dez 2005 18:24
Localização: São Paulo - SP

Validar CPF e CNPJ

Mensagem 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
ederxc
Usuário Nível 4
Usuário Nível 4
Mensagens: 619
Registrado em: 15 Set 2006 08:40
Localização: Pedreira -SP-

Validar CPF e CNPJ

Mensagem 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é++ :|<
C:\Xharbour\Xdev\Fw\VSX
Avatar do usuário
Eolo
Colaborador
Colaborador
Mensagens: 1134
Registrado em: 08 Dez 2005 18:24
Localização: São Paulo - SP

Validar CPF e CNPJ

Mensagem 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?
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Validar CPF e CNPJ

Mensagem 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
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Responder