FONTE NFE VB.NET

Citação:

:
WILHAMPS,

mande tambem o xml que endica o erroooooooooo 215 para analizar o erro

Citação:

:
bom WILHAMPS,

o erro 215 tambem e erro de credenciamento

verifique se a empresa que vc esta em ambiente de homologação esta credenciada...

abç

[ô]para formatar com 0 antes valor para atingir o numero de caracteres necessarios
    Private Function Formata_campo_str(ByVal qt_necessario As Integer, ByVal valor As String, ByVal valor_preencher As String) As String
        Dim tamanho_string As Integer
        Dim tamanho_result As Integer
Contagem:
        tamanho_string = Len(valor)
        tamanho_result = qt_necessario - tamanho_string

        If tamanho_result <= 0 Then
            Formata_campo_str = Right(valor, qt_necessario)
        Else
            valor = Mid(valor_preencher, 1, 1) & valor
            GoTo Contagem
        End If
        Formata_campo_str = valor
    End Function


[ô]Gera a chave

    Function Chave_nfe(ByVal COD_UF As String, ByVal Data_emissao As String, ByVal CNPJ_EMIT As String, ByVal Modelo As Long, ByVal Serie As Long, ByVal Numero_nota As Long, ByVal Tipo_emissao As Long, ByVal Numero_sequencia As Long) As String

        Dim N_CodUF As String

        Dim N_DEMI As String

        Dim N_CNPJ As String

        Dim N_SERIE As String

        Dim N_nota As String

        Dim N_chave As String

        Dim N_Numero_sequencia As String

        N_CodUF = Formata_campo_str(2, COD_UF, 0)

        N_DEMI = Mid(Data_emissao, 3, 2) & Mid(Data_emissao, 6, 2)

        N_CNPJ = Formata_campo_str(14, CNPJ_EMIT, 0)

        N_SERIE = Formata_campo_str(3, Serie, 0)

        N_nota = Formata_campo_str(9, Numero_nota, 0)

        N_Numero_sequencia = Formata_campo_str(8, Numero_sequencia, 0)

        N_chave = N_CodUF & N_DEMI & N_CNPJ & Modelo & N_SERIE & N_nota & Tipo_emissao & N_Numero_sequencia

        Dim Calculo As Integer = 0

        Calculo = Mid(N_chave, 1, 1) - Val(1)

        Dim Semichave As String

        Dim semi_peso As String

        If Calculo <= 1 Then

            semi_peso = [Ô]9[Ô]

        Else : semi_peso = Calculo

        End If

        Semichave = semi_peso
        For i = 1 To 42
            semi_peso = semi_peso - Val(1)

            If semi_peso <= 1 Then
                semi_peso = [Ô]9[Ô]
            End If

            Semichave = Semichave & semi_peso
        Next

        Dim baseCalculo As String = Semichave
        Dim somaResultados As Integer = 0

        For i As Integer = 0 To N_chave.Length - 1
            Dim numNF As Integer = Convert.ToInt32(N_chave(i).ToString())
            Dim numBaseCalculo As Integer = Convert.ToInt32(baseCalculo(i).ToString())

            somaResultados += (numBaseCalculo * numNF)
        Next

        Dim restoDivisao As Integer = (somaResultados Mod 11)
        Dim dv As Integer = 11 - restoDivisao
        If (dv < 0) OrElse (dv > 9) Then
            Chave_nfe = N_chave & [Ô]0[Ô]
        Else
            Chave_nfe = N_chave & dv
        End If

    End Function

Citação:

Pessoal agora me surgiu uma duvida, para que eu possa emitir NFe2.0 minha empresa tem que estar cadastrada para isso ou eu posso simplesmente manter meu cadastro de nfe1.0 que nao muda nada?