Perguntas Calculo do DV na NF-e

Bom dia,

Alguem saberia me informa como o calculo do Digito da Chave da NF-e é realizado.

Se tiver algum fonte, software ou site que eu possa realizar este calculo já ajudaria


Att,

Ronaldo Gomes

User function fDvNfe(cChave)
local nSoma := 0
local nDivisao := 0
local nDigito := 0
local cDigito := ""
local lRet := .T.
// 1 2 3 4
//12345678901234567890123456789012345678901234
// 4329876543298765432987654329876543298765432
aMulp := {4,3,2,9,8,7,6,5,4,3,2,9,8,7,6,5,4,3,2,9,8,7,6,5,4,3,2,9,8,7,6,5,4,3,2,9,8,7,6,5,4,3,2}

for i:=1 to len(cchave)-1
nSoma += val(substr(cchave,i,1))*aMulp
next
nDivisao := noround(nSoma/11,0)
nDigito:= ((nDivisao*11)-nSoma)+11
if nDigito > 9
cDigito := "0"
else
cDigito := Alltrim(str(nDigito))
end
if substr(cchave,44,1) <> cDigito
alert("Digito verificador invalido, verifique a chave!")
lret:= .f.
end

return(lRet)