FONTE NFE VB.NET

  
Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
[ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2/nfeRecepcaoLote2

Namespace Autorizacao
    [ô]------------------------------------------------------------------------------
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
     System.SerializableAttribute(), _
     System.Diagnostics.DebuggerStepThroughAttribute(), _
     System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao[Ô]), _
     System.Xml.Serialization.XmlRootAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao[Ô], IsNullable:=False)> _
    Public Class nfeCabecMsg
        Inherits System.Web.Services.Protocols.SoapHeader
        Private cUFField As String
        Private versaoDadosField As String
        Private anyAttrField() As System.Xml.XmlAttribute

        Public Property cUF() As String
            Get
                Return Me.cUFField
            End Get
            Set(ByVal value As String)
                Me.cUFField = value
            End Set
        End Property


        Public Property versaoDados() As String
            Get
                Return Me.versaoDadosField
            End Get
            Set(ByVal value As String)
                Me.versaoDadosField = value
            End Set
        End Property

        <System.Xml.Serialization.XmlAnyAttributeAttribute()> _
        Public Property AnyAttr() As System.Xml.XmlAttribute()
            Get
                Return Me.anyAttrField
            End Get
            Set(ByVal value As System.Xml.XmlAttribute())
                Me.anyAttrField = value
            End Set
        End Property
    End Class

    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
     System.Diagnostics.DebuggerStepThroughAttribute(), _
     System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô]), _
     System.Web.Services.WebServiceBindingAttribute(Name:=[Ô]NfeRetAutorizacaoSoap12[Ô], [Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao[Ô])> _
    Partial Public Class NfeAutorizacao
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        Private nfeCabecMsgValueField As nfeCabecMsg
        Private nfeAutorizacaoLoteOperationCompleted As System.Threading.SendOrPostCallback

        Public Sub New(ByVal V_Url As String)
            MyBase.New()
            Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
            Me.Url = V_Url
        End Sub

        Public Property nfeCabecMsgValue() As nfeCabecMsg
            Get
                Return Me.nfeCabecMsgValueField
            End Get
            Set(ByVal value As nfeCabecMsg)
                Me.nfeCabecMsgValueField = value
            End Set
        End Property

        Public Event nfeAutorizacaoLoteCompleted As nfeAutorizacaoLoteCompletedEventHandler
        <System.Web.Services.Protocols.SoapHeaderAttribute([Ô]nfeCabecMsgValue[Ô], Direction:=System.Web.Services.Protocols.SoapHeaderDirection.InOut), _
        System.Web.Services.Protocols.SoapDocumentMethodAttribute([Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao/nfeRetAutorizacaoLote[Ô], Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
        Public Function nfeAutorizacaoLote(<System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacaoLote[Ô])> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeAutorizacao[Ô])> System.Xml.XmlNode
            Dim results() As Object = Me.Invoke([Ô]NfeAutorizacaoLote[Ô], New Object() {nfeDadosMsg})
            Return CType(results(0), System.Xml.XmlNode)
        End Function

        Public Function BeginnfeAutorizacaoLote(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke([Ô]nfeAutorizacao[Ô], New Object() {nfeDadosMsg}, callback, asyncState)
        End Function

        Public Function EndnfeAutorizacaoLote(ByVal asyncResult As System.IAsyncResult) As System.Xml.XmlNode
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0), System.Xml.XmlNode)
        End Function

        Public Overloads Sub nfeAutorizacaoLoteAsync(ByVal nfeDadosMsg As System.Xml.XmlNode)
            Me.nfeAutorizacaoLoteAsync(nfeDadosMsg, Nothing)
        End Sub

        Public Overloads Sub nfeAutorizacaoLoteAsync(ByVal nfeDadosMsg As System.Xml.XmlNode, ByVal userState As Object)
            If (Me.nfeAutorizacaoLoteOperationCompleted Is Nothing) Then
                Me.nfeAutorizacaoLoteOperationCompleted = AddressOf Me.OnnfeAutorizacaoLoteOperationCompleted
            End If
            Me.InvokeAsync([Ô]nfeAutorizacaoLote[Ô], New Object() {nfeDadosMsg}, Me.nfeAutorizacaoLoteOperationCompleted, userState)
        End Sub

        Private Sub OnnfeAutorizacaoLoteOperationCompleted(ByVal arg As Object)
            If (Not (Me.nfeAutorizacaoLoteCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent nfeAutorizacaoLoteCompleted(Me, New nfeAutorizacaoLoteCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub

        Public Shadows Sub CancelAsync(ByVal userState As Object)
            MyBase.CancelAsync(userState)
        End Sub
    End Class
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô])> _
    Public Delegate Sub nfeautorizacaoLoteCompletedEventHandler(ByVal sender As Object, ByVal e As nfeautorizacaoLoteCompletedEventArgs)

    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]wsdl[Ô], [Ô]2.0.50727.1432[Ô]), _
     System.Diagnostics.DebuggerStepThroughAttribute(), _
     System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    Partial Public Class nfeAutorizacaoLoteCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs

        Private results() As Object

        Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub

        Public ReadOnly Property Result() As System.Xml.XmlNode
            Get
                Me.RaiseExceptionIfNecessary()
                Return CType(Me.results(0), System.Xml.XmlNode)
            End Get
        End Property
    End Class
End Namespace
 

    <?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô] ?> 
- <enviNFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]3.10[Ô]>
  <idLote>000000000000181</idLote> 
- <NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
- <infNFe versao=[Ô]3.10[Ô] Id=[Ô]NFe35140816849871000114550010000003061297703061[Ô]>
- <ide>
  <cUF>35</cUF> 
  <cNF>29770306</cNF> 
  <natOp>VENDA/VENDA ST</natOp> 
  <indPag>2</indPag> 
  <mod>55</mod> 
  <serie>1</serie> 
  <nNF>306</nNF> 
  <dhEmi>2014-08-27T17:44:30-02:00</dhEmi> 
  <dhSaiEnt>2014-08-27T17:44:30-02:00</dhSaiEnt> 
  <tpNF>1</tpNF> 
  <idDest>1</idDest> 
  <cMunFG>3509502</cMunFG> 
  <tpImp>1</tpImp> 
  <tpEmis>1</tpEmis> 
  <cDV>1</cDV> 
  <tpAmb>2</tpAmb> 
  <finNFe>1</finNFe> 
  <indFinal>0</indFinal> 
  <indPres>9</indPres> 
  <procEmi>0</procEmi> 
  <verProc>2.2.0</verProc> 
  </ide>
- <emit>
  <CNPJ>1********</CNPJ> 
  <xNome>Alessandra ********* Rodrigues - ME</xNome> 
  <xFant>MabInformatica</xFant> 
- <enderEmit>
  <xLgr>Rua Conselheiro A. Carlos</xLgr> 
  <nro>311</nro> 
  <xBairro>JD. Campos Eliseos</xBairro> 
  <cMun>3509502</cMun> 
  <xMun>Campinas</xMun> 
  <UF>SP</UF> 
  <CEP>13060024</CEP> 
  <cPais>1058</cPais> 
  <xPais>BRASIL</xPais> 
  <fone>1932291378</fone> 
  </enderEmit>
  <IE>***********</IE> 
  <CRT>1</CRT> 
  </emit>
- <dest>
  <CNPJ>99999999000191</CNPJ> 
  <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome> 
- <enderDest>
  <xLgr>RUA DA ABOLICAO</xLgr> 
  <nro>1466</nro> 
  <xBairro>PONTE PRETA</xBairro> 
  <cMun>3509502</cMun> 
  <xMun>CAMPINAS</xMun> 
  <UF>SP</UF> 
  <CEP>13041445</CEP> 
  <cPais>1058</cPais> 
  <xPais>BRASIL</xPais> 
  <fone>1933255600</fone> 
  </enderDest>
  <indIEDest>2</indIEDest> 
  <email>******@UTILITLOG.COM.BR</email> 
  </dest>
- <det nItem=[Ô]1[Ô]>
- <prod>
  <cProd>092013</cProd> 
  <cEAN /> 
  <xProd>ACCES POINT</xProd> 
  <NCM>85176241</NCM> 
  <CFOP>5102</CFOP> 
  <uCom>UND</uCom> 
  <qCom>1.0000</qCom> 
  <vUnCom>97.0000</vUnCom> 
  <vProd>97.00</vProd> 
  <cEANTrib /> 
  <uTrib>UND</uTrib> 
  <qTrib>1.0000</qTrib> 
  <vUnTrib>97.0000</vUnTrib> 
  <indTot>1</indTot> 
  </prod>
- <imposto>
  <vTotTrib>20.85</vTotTrib> 
- <ICMS>
- <ICMSSN102>
  <orig>0</orig> 
  <CSOSN>400</CSOSN> 
  </ICMSSN102>
  </ICMS>
- <PIS>
- <PISNT>
  <CST>07</CST> 
  </PISNT>
  </PIS>
- <COFINS>
- <COFINSNT>
  <CST>07</CST> 
  </COFINSNT>
  </COFINS>
  </imposto>
  <infAdProd>Imposto Aproximado:R$ 20,85 |</infAdProd> 
  </det>
- <total>
- <ICMSTot>
  <vBC>0.00</vBC> 
  <vICMS>0.00</vICMS> 
  <vICMSDeson>0.00</vICMSDeson> 
  <vBCST>0.00</vBCST> 
  <vST>0.00</vST> 
  <vProd>97.00</vProd> 
  <vFrete>0.00</vFrete> 
  <vSeg>0.00</vSeg> 
  <vDesc>0.00</vDesc> 
  <vII>0.00</vII> 
  <vIPI>0.00</vIPI> 
  <vPIS>0.00</vPIS> 
  <vCOFINS>0.00</vCOFINS> 
  <vOutro>0.00</vOutro> 
  <vNF>97.00</vNF> 
  <vTotTrib>20.85</vTotTrib> 
  </ICMSTot>
  </total>
- <transp>
  <modFrete>1</modFrete> 
- <transporta>
  <xNome>CLIENTE RETIRA</xNome> 
  </transporta>
- <vol>
  <qVol>1</qVol> 
  <pesoL>0.001</pesoL> 
  <pesoB>0.001</pesoB> 
  </vol>
  </transp>
  <cobr /> 
- <infAdic>
  <infCpl>DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL ESTABELECIMENTO IMPEDIDO DE RECOLHER O ICMS/ISS PELO SIMPLES NACIONAL, NOS TERMOS DO § 1 DO ART. 20 DA LC 123/2006 NAO GERA DIREITO A CREDITO FISCAL DE IPI | Total Aproximado dos Impostos 20,85 Tabela IBPT</infCpl> 
  </infAdic>
  </infNFe>
- <Signature xmlns=[Ô]http://www.w3.org/2000/09/xmldsig#[Ô]>
- <SignedInfo>
  <CanonicalizationMethod Algorithm=[Ô]http://www.w3.org/TR/2001/REC-xml-c14n-20010315[Ô] /> 
  <SignatureMethod Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#rsa-sha1[Ô] /> 
- <Reference URI=[Ô]#NFe35140816849871000114550010000003061297703061[Ô]>
- <Transforms>
  <Transform Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#enveloped-signature[Ô] /> 
  <Transform Algorithm=[Ô]http://www.w3.org/TR/2001/REC-xml-c14n-20010315[Ô] /> 
  </Transforms>
  <DigestMethod Algorithm=[Ô]http://www.w3.org/2000/09/xmldsig#sha1[Ô] /> 
  <DigestValue>mwX2YcUoC3CkiddGbHIPL9t1HEY=</DigestValue> 
  </Reference>
  </SignedInfo>
  <SignatureValue>iXs1uHjtzq4FppCnyQ0dMRz6KPNecSkmCUMGDTN0DIxdLwR1ZtGzsJs5QAeq6Njd4YJ8ZwMjCgtiOMdwTFipRmq8JnGVVvgr+lubMv3EcbUCeT8w4/Kidb9+5q8AQyDqxFbK+Ht5KxiCAj1dFxsWGyEm6rE8shCw9ZFRNutmL7LeU+qtoyDSukVDf6CkCmEyKb+gvvz/JoZx8vYDlXSbrJuXKWPaGulgpG5+Fgubw8qEwWcNHx2i6QqYLGuM5F2fZVQvmIVMJzk0mIVhEtEJZ4XB1oCHDixvQXXJKRYc9HAUxnm1ok7X0jOr1ajKQPL8piJd3Hu42neCee0eS4gz6A==</SignatureValue> 
- <KeyInfo>
- <X509Data>
  <X509Certificate>MIIIYjCCBkqgAwIBAgIQac3fOtnc2EwV9/IOgCIJrjANBgkqhkiG9w0BAQsFADB4MQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRwwGgYDVQQDExNBQyBDZXJ0aXNpZ24gUkZCIEc0MB4XDTEzMDkxMjAwMDAwMFoXDTE0MDkxMTIzNTk1OVowgf4xCzAJBgNVBAYTAkJSMRMwEQYDVQQKFApJQ1AtQnJhc2lsMQswCQYDVQQIEwJTUDERMA8GA1UEBxQIY2FtcGluYXMxNjA0BgNVBAsULVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEWMBQGA1UECxQNUkZCIGUtQ05QSiBBMTEnMCUGA1UECxQeQXV0ZW50aWNhZG8gcG9yIEFSIERpZ2l0YWxDZXJ0MUEwPwYDVQQDEzhBTEVTU0FORFJBIEtFTExZIEFMQlVRVUVSUVVFIFJPRFJJR1VFUyBNRToxNjg0OTg3MTAwMDExNDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAKE54x84nkAI3vNBVzryopqnpO5RPb0x7EEib2l+UIAjLfUKSSbCxhRgPT6qg31p+dqTPGl06Ud2C0IOgThMgS8Slt6fuH1/LDx/YwFJ/aA3I5mKmZaxTrQvcbpp7Jgtp4Nwi4f4HomoXeX7F539H30okIGwgwDQ+D4b5xjQT1T99A9pmCF0QAtt8Ky3orgjggUoPtz4I9Ty/9lytwumqVIG5rb4DfapwkpUVFCtuLYrjiaM9PAbYon5Qh3E9HHZUUGGpORdafGmnj12a2ESVKYB/JrabM9yx9z0a2GR7g6sf4PcUGS6Raw48iDQ8AG0Q45YSY0R7Nt1RbFmczQQsgsCAwEAAaOCA18wggNbMIHEBgNVHREEgbwwgbmgOAYFYEwBAwSgLwQtMjQwMzE5NzkyMTU1NTk1Mzg3NTAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoDEGBWBMAQMCoCgEJkFMRVNTQU5EUkEgS0VMTFkgQUxCVVFVRVJRVUUgUk9EUklHVUVToBkGBWBMAQMDoBAEDjE2ODQ5ODcxMDAwMTE0oBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEWbWFiaW5mb0BtYWJpbmZvLmNvbS5icjAJBgNVHRMEAjAAMB8GA1UdIwQYMBaAFC6R6tZt5bJZgtw4hSl2NBZWPNA+MA4GA1UdDwEB/wQEAwIF4DB/BgNVHSAEeDB2MHQGBmBMAQIBDDBqMGgGCCsGAQUFBwIBFlxodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2RwYy9BQ19DZXJ0aXNpZ25fUkZCL0RQQ19BQ19DZXJ0aXNpZ25fUkZCLnBkZjCCARYGA1UdHwSCAQ0wggEJMFegVaBThlFodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2xjci9BQ0NlcnRpc2lnblJGQkc0L0xhdGVzdENSTC5jcmwwVqBUoFKGUGh0dHA6Ly9pY3AtYnJhc2lsLm91dHJhbGNyLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNDZXJ0aXNpZ25SRkJHNC9MYXRlc3RDUkwuY3JsMFagVKBShlBodHRwOi8vcmVwb3NpdG9yaW8uaWNwYnJhc2lsLmdvdi5ici9sY3IvQ2VydGlzaWduL0FDQ2VydGlzaWduUkZCRzQvTGF0ZXN0Q1JMLmNybDAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgZsGCCsGAQUFBwEBBIGOMIGLMF8GCCsGAQUFBzAChlNodHRwOi8vaWNwLWJyYXNpbC5jZXJ0aXNpZ24uY29tLmJyL3JlcG9zaXRvcmlvL2NlcnRpZmljYWRvcy9BQ19DZXJ0aXNpZ25fUkZCX0c0LnA3YzAoBggrBgEFBQcwAYYcaHR0cDovL29jc3AuY2VydGlzaWduLmNvbS5icjANBgkqhkiG9w0BAQsFAAOCAgEALRs7bT4ev9J/TDHBpj3dxOn/ePQ/8oToyEenjN083agyh5FDo14iGSs7lO1kjPyAmZynVmVb05lSOnhfLS4pNrV+yck5XNG+3rf0u4mcKrNIOfpm8BDfL2q6rdh1bHaL4rQIM2F5J51QnWZIAXyqPX4D/imbOuPzkO4xygs8OfaYn+q4VZIlx8BHadbmlzFUtLCk5h/JKQKflcjy4HHFBHI8nBi8hfUG25kADd1wHPCK8P16J08lhA4H8PNy4MqX7Sz3/KiA77gnHZ/KYwD/VlFTL7+0zDPd+GtM+2Uqnd0N7CqSEkQd6NNa5oi8bKR2nzdVHN6JAIiKZJMepS49CXZAcaxDPCEpwsbPmWf/TRi7MaaLTtn3kvWLKppx7ZNarSJnGpNuoBHT+WL28iywkAMwqNHYjfsAgaKSPEiUq84zIcMSwKgDzIh+kligdqBHAAQOFMrU0SOr5vJBxXPqz9sWQfuqFM+XDyw4a+m9Fv5a4TjnAuenSYQeDq2YF3drtYJiHu3sAN9yvQXZTItYNCzHdtqTsWttPOnZwMIZsSmhfOmpRoipgcdqqNkzOidKzznoYOFElEAiEwGvkzN6Rgk7OaaA1n1MFjffzqzR2UEjU+M6wme6GbpYV95Or8CljGfYpx9aVnfIy18RnoWSLIck/GiUniHHkIjGXVDPE30=</X509Certificate> 
  </X509Data>
  </KeyInfo>
  </Signature>
  </NFe>
  </enviNFe>

Citação:

:
Está faltando a tag indSinc, esta tag tem que ser criada abaixo de idLote.

Trecho da Documentação do Manual NT2013.005_V1.02:
tag indSinc opções:

0 = Processamento assíncrono Envia o Lote e posteriormente consulta o Recebimento do mesmo.

1 = Processamento síncrono do Lote de NF-e (sem a geração de Recibo para consulta futura);
Nota: O processamento síncrono do Lote corresponde a entrega da resposta do processamento das NF-e do
Lote, sem a geração de um Recibo de Lote para consulta futura. A resposta de forma síncrona pela SEFAZ
Autorizadora só ocorrerá se:
- a empresa solicitar e constar unicamente uma NF-e no Lote;
- a SEFAZ Autorizadora implementar o processamento síncrono para a resposta do Lote de NF-e.

   <?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô] ?> 
- <enviNFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]3.10[Ô]>
  <idLote>000000000000184</idLote> 
  <indSinc>0</indSinc> 
- <NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
- <infNFe versao=[Ô]3.10[Ô] Id=[Ô]NFe35140816849871000114550010000003061714643065[Ô]>
- <ide>
  <cUF>35</cUF> 
  <cNF>23956306</cNF> 
  <natOp>VENDA/VENDA ST</natOp> 
  <indPag>2</indPag> 
  <mod>55</mod> 
  <serie>1</serie> 
  <nNF>306</nNF> 
  <dhEmi>2014-08-28T17:43:36-02:00</dhEmi> 
  <dhSaiEnt>2014-08-28T17:43:36-02:00</dhSaiEnt> 
  <tpNF>1</tpNF> 
  <idDest>1</idDest> 
  <cMunFG>3509502</cMunFG>