CALCULO DO DV DA NFE

RICOCARDOZO 17/04/2013 18:26:55
#422088
Olá a todos ,
é o seguinte estou querendo montar o seguinte
Um form com dois Text que , ao digitar a chave de uma nfe no primeiro text o segundo efetue o calculo do digito verificador da nfe.
Att
MJAC 17/04/2013 22:54:10
#422104
Não entendi qual a dúvida, se for sobre a formula para calcular o DV, é apenas um módulo 11 comum segue exemplo abaixo:

  
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


Para chamar a função conforme solicitou em dois textboxs segue um exemplo.
  TextBox2.Text = Calculo_DV11(TextBox1.Text)


Notas para teste:
Calculo_DV11([ô]5010051234567890123455001000000112000001551[ô]) Retorna 2
Calculo_DV11([ô]3510030510350200015255001000006720000006720[ô]) Retorna 0
Calculo_DV11([ô]5206043300991100250655012000000780026730161[ô]) Retorna 5
RICOCARDOZO 17/04/2013 23:38:23
#422107
Na verdade eu preciso saber como que se calcula os ultimos 4 digitos da chave.
RICOCARDOZO 18/04/2013 09:55:32
#422118
Deu certo em termos
O que aconteceu foi o seguinte :
O cara quando iniciou o uso da nfe estava usando o emissor gratuito de sp , emitiu umas 10 notas , só que agora contratou uma nova empresa e papo vai papo vem perguntei pra ele dos xml destas 10 nfe, resposta o micro nem existe mais.
Ele tem umas 5 notas impressas , beleza consigo consultar na sefaz e baixar o xml.
Mais estas outras 5 ele não tem as cópias ,extraviou , dai estava tentando gerar estas chaves apartir de infomações dele , pois ele tem os numeros das notas o cnpj do cliente e a data que foi emitida as notas pelo livro fiscal.
Mais pelo que vi este sistema gera um numero aleatório antes do dv e nem sei como é gerado este numero.
LUIS2013 18/04/2013 10:43:51
#422120 Resposta escolhida
cara, esse numero que voce se refere é livre, ele pode ser random
RICOCARDOZO 18/04/2013 10:50:23
#422121
Pois é , parei nisso e nas paginas só é possivel baixar de posse da chave., a não ser RS que libera pelo numero e certificado digital.
LUIS2013 18/04/2013 16:17:26
#422147
o que voce pode fazer é um programa igual aqueles para descobrir o numero de cpf (tem aqui no site)
que você digita parte do cpf e ele completa com as possíveis combinações.
Tópico encerrado , respostas não são mais permitidas
Voltar