[SPED] Re: Cálculo dígito verificador NF-e

Geraldo,

Segue exemplo do modulo 11, feito em VB como comentou, imagino que
possa ser usado na macro, pois na macro se usa Visual Basic
Esta função retornara o digito verificador

Public Function Calculo_DV11(ByVal strNumero As String) As String
'Calculo modulo 11
Dim I As Integer : Dim IntCont As Integer : Dim Vlr As Integer
Dim Resto As Integer
IntCont = 2
Vlr = 0
For I = Len(strNumero) To 1 Step -1
Vlr = Vlr + (Val(Mid(strNumero, I, 1) * IntCont))
IntCont = IIf(IntCont >= 9, 2, IntCont + 1)
Next
Resto = Vlr Mod 11
Select Case Resto
Case 0
Resto = 0
Case 1
Resto = 0
Case Is > 1
Resto = Str(Val(11 - Resto))
End Select
Calculo_DV11 = Resto
End Function

On 22 nov, 11:45, Geraldo Nunes <geraldo.nu...@yahoo.com.br> wrote:
> Olá Pessoal,
>
> Há alguns dias falamos de como montar a chave de acesso da Nfe com base em alguns dados como o no nrº da nota, série, data de emissão, CNPJ do fornecedor, etc.
>
> Porém, agora eu é quem fiquei com a seguinte dúvida:
>
> No final da chave há o dígito verificador e depois se mostra como calcular, porém não entendi nada.
>
> Alguém poderia me explicar baseado como se faz esse cálculo do DV baseado nos dados abaixo?
> NF: 000003834
> SERIE: 1
> CNPJ: 01.844.555/0002-63
> UF: MG
> DT EMISSAO: 25/10/2011
>
> ***OBS: Extraí o texto abaixo do manual, alguém traduza isso para o português claro por favor
> Atenciosamente,
> Geraldo Nunes
>
> CÁLCULO DO DÍGITO VERIFICADOR DA CHAVE DE ACESSO DA NF-eO dígito verificador da chave de acesso da NF-e é baseado em um cálculo do
> módulo 11. O módulo 11 de um número é calculado multiplicando-se cada algarismo pela
> seqüência de multiplicadores 2,3,4,5,6,7,8,9,2,3, ... posicionados da direita para a esquerda.
> A somatória dos resultados das ponderações dos algarismos é dividida por 11 e o
> DV (dígito verificador) será a diferença entre o divisor (11) e o resto da divisão:DV = 11 - (resto da divisão)Quando o resto da divisão for 0 (zero) ou 1 (um), o DV deverá ser igual a 0 (zero).
> Exemplo: consideremos que a chave de acesso tem a seguinte seqüência de caracteres:
> Somatória das ponderações = 644
> Dividindo a somatória das ponderações por 11 teremos, 644 /11 = 58 restando 6.
> Como o dígito verificador DV = 11 - (resto da divisão), portando 11 - 6 = 5
> Neste caso o DV da chave de acesso da NF-e é igual a "
> chave de acesso totalizando a uma seqüência de 44 caracteres.5", valor este que deverá compor a

--
--------------
Este Grupo se destina a discutir a implantação do SPED - Sistema Público de Escrituração Digital. Você recebeu esta mensagem por ter se inscrito no grupo do Google Groups "SPED - Sistema Público de Escrituração Digital".

Para postar uma mensagem no grupo, envir um email para sped-nfe@googlegroups.com

Para sair do grupo, envie uma mensagem para
sped-nfe+unsubscribe@googlegroups.com