por Maligno » 10 Ago 2007 01:32
//****************************************************************
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!