Information générale
Catégorie:
Codage, syntaxe et commandes
Até aonde eu sei esta Dll só funciona para a Insc.Estadual mas eu você pode usar uma função para consistir os CPF e CNPJ
Ex de CPF
Function CPF && VERIFICA SE O DIGITO DO CPF ESTA CORRETO
*************
Parameters lcCPF
controle = ''
lcCPF1 = Left(lcCPF,9)
lcCPF2 = Right(lcCPF,2)
digito1 = ''
digito2 = ''
tot = 0
i = 0
For i = 1 To 9
a = ((11 - i) * Val(Substr(lcCPF,i,1)))
tot = tot + a
Endfor
digito1 = Str(11 - Mod(tot,11))
If Val(digito1) > 9
digito1 = '0'
Endif
digito1 = Alltrim(digito1)
tot = 0
For i = 1 To 9
a = ((12 - i) * Val(Substr(lcCPF,i,1)))
tot = tot + a
Endfor
tot = tot + (Val(digito1)*2)
digito2 = Str(11 - Mod(tot,11))
If Val(digito2) > 9
digito2 = '0'
Endif
digito2 = Alltrim(digito2)
controle = digito1 + digito2
If controle # lcCPF2
Return .F.
Else
Return .T.
Endif
Atenc.
Alexandre
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement