FONTE NFE VB.NET

Citação:

:
ICEMAN, eu uso dessa forma para pegar o Retorno do Sefaz

  
Imports System.Web.Services
Imports System.Diagnostics
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Xml.Serialization
Namespace NFeRetAutorizacao


    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Web.Services[Ô], [Ô]4.0.30319.1[Ô])> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    <System.Web.Services.WebServiceBindingAttribute(Name:=[Ô]NfeRetAutorizacaoSoap12[Ô], [Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> _
    Partial Public Class NfeRetAutorizacao
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

        Private nfeCabecMsgValueField As nfeCabecMsg

        Private nfeRetAutorizacaoLoteOperationCompleted As System.Threading.SendOrPostCallback

        Private useDefaultCredentialsSetExplicitly As Boolean

        [ô][ô][ô] <remarks/>
        Public Sub New(urlRef As String)
            Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
            Me.Url = urlRef
            If (Me.IsLocalFileSystemWebService(Me.Url) = True) Then
                Me.UseDefaultCredentials = True
                Me.useDefaultCredentialsSetExplicitly = False
            Else
                Me.useDefaultCredentialsSetExplicitly = True
            End If
        End Sub

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

        Public Shadows Property Url() As String
            Get
                Return MyBase.Url
            End Get
            Set(value As String)
                If (((Me.IsLocalFileSystemWebService(MyBase.Url) = True) AndAlso (Me.useDefaultCredentialsSetExplicitly = False)) AndAlso (Me.IsLocalFileSystemWebService(value) = False)) Then
                    MyBase.UseDefaultCredentials = False
                End If
                MyBase.Url = value
            End Set
        End Property

        Public Shadows Property UseDefaultCredentials() As Boolean
            Get
                Return MyBase.UseDefaultCredentials
            End Get
            Set(value As Boolean)
                MyBase.UseDefaultCredentials = value
                Me.useDefaultCredentialsSetExplicitly = True
            End Set
        End Property

        [ô][ô][ô] <remarks/>
        Public Event nfeRetAutorizacaoLoteCompleted As nfeRetAutorizacaoLoteCompletedEventHandler

        [ô][ô][ô] <remarks/>
        <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 nfeRetAutorizacaoLote(<System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> System.Xml.XmlNode
            Dim results As Object() = Me.Invoke([Ô]nfeRetAutorizacaoLote[Ô], New Object() {nfeDadosMsg})
            Return DirectCast(results(0), System.Xml.XmlNode)
        End Function

        [ô][ô][ô] <remarks/>
        Public Sub nfeRetAutorizacaoLoteAsync(nfeDadosMsg As System.Xml.XmlNode)
            Me.nfeRetAutorizacaoLoteAsync(nfeDadosMsg, Nothing)
        End Sub

        [ô][ô][ô] <remarks/>
        Public Sub nfeRetAutorizacaoLoteAsync(nfeDadosMsg As System.Xml.XmlNode, userState As Object)
            If (Me.nfeRetAutorizacaoLoteOperationCompleted Is Nothing) Then
                Me.nfeRetAutorizacaoLoteOperationCompleted = New System.Threading.SendOrPostCallback(AddressOf Me.OnnfeRetAutorizacaoLoteOperationCompleted)
            End If
            Me.InvokeAsync([Ô]nfeRetAutorizacaoLote[Ô], New Object() {nfeDadosMsg}, Me.nfeRetAutorizacaoLoteOperationCompleted, userState)
        End Sub

        Private Sub OnnfeRetAutorizacaoLoteOperationCompleted(arg As Object)
            If (arg IsNot Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = DirectCast(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
                [ô]Me.nfeRetAutorizacaoLoteCompleted(Me, New nfeRetAutorizacaoLoteCompletedEventArgs(invokeArgs.Results, invokeArgs.[Error], invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub

        [ô][ô][ô] <remarks/>
        Public Shadows Sub CancelAsync(userState As Object)
            MyBase.CancelAsync(userState)
        End Sub

        Private Function IsLocalFileSystemWebService(url As String) As Boolean
            If ((url Is Nothing) OrElse (url = String.Empty)) Then
                Return False
            End If
            Dim wsUri As New System.Uri(url)
            If ((wsUri.Port >= 1024) AndAlso (String.Compare(wsUri.Host, [Ô]localHost[Ô], System.StringComparison.OrdinalIgnoreCase) = 0)) Then
                Return True
            End If
            Return False
        End Function
    End Class

    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Xml[Ô], [Ô]4.0.30319.1[Ô])> _
    <System.SerializableAttribute()> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> _
    <System.Xml.Serialization.XmlRootAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô], IsNullable:=False)> _
    Partial Public Class nfeCabecMsg
        Inherits System.Web.Services.Protocols.SoapHeader

        Private cUFField As String

        Private versaoDadosField As String

        Private anyAttrField As System.Xml.XmlAttribute()

        [ô][ô][ô] <remarks/>
        Public Property cUF() As String
            Get
                Return Me.cUFField
            End Get
            Set(value As String)
                Me.cUFField = value
            End Set
        End Property

        [ô][ô][ô] <remarks/>
        Public Property versaoDados() As String
            Get
                Return Me.versaoDadosField
            End Get
            Set(value As String)
                Me.versaoDadosField = value
            End Set
        End Property

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

    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Web.Services[Ô], [Ô]4.0.30319.1[Ô])> _
    Public Delegate Sub nfeRetAutorizacaoLoteCompletedEventHandler(sender As Object, e As nfeRetAutorizacaoLoteCompletedEventArgs)

    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Web.Services[Ô], [Ô]4.0.30319.1[Ô])> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    Partial Public Class nfeRetAutorizacaoLoteCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs

        Private results As Object()

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

        [ô][ô][ô] <remarks/>
        Public ReadOnly Property Result() As System.Xml.XmlNode
            Get
                Me.RaiseExceptionIfNecessary()
                Return DirectCast(Me.results(0), System.Xml.XmlNode)
            End Get
        End Property
    End Class
End Namespace
 

  
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

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/ws/NfeAutorizacao[Ô]), _
     System.Xml.Serialization.XmlRootAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/ws/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/ws/NfeAutorizacao[Ô])> _
    Partial Public Class NfeAutorizacao
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        Private nfeCabecMsgValueField As nfeCabecMsg
        Private nfeAutorizacaoLoteOperationCompleted As System.Threading.SendOrPostCallback

        Public Sub New()
            MyBase.New()
            Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
            Me.Url = Diversos.XWEBSERVICE
        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/ws/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/ws/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 

  Public Function Enviar_lote(ByVal Arquivo_Lote As String, ByVal Serie_Certificado As String, ByVal Webservice As String, ByVal Codigo_uf As String) As String

            Dim strRetorno As XmlElement
            Dim CERT As X509Certificate2
            Dim xmldoc = New XmlDocument()
            Dim Flag As String
            Flag = [Ô][Ô]
            Diversos.XWEBSERVICE = Webservice
            xmldoc.Load(Arquivo_Lote)

            Dim wsMsg1 As Autorizacao.NfeAutorizacao

            [ô]Dim cab As New nfeCabecMsg
            CERT = New Certificado().BuscaNroSerie(If((Serie_Certificado = [Ô]xxx[Ô]), String.Empty, Serie_Certificado))
            [ô]Dim wsMsg As NfeRecepcao2
            Dim cab As New Autorizacao.nfeCabecMsg
            [ô]UF E VERSÃO DO CABEÇALHO
            cab.cUF = Codigo_uf
            cab.versaoDados = [Ô]3.10[Ô]

            [ô]CABEÇALHO USADA PARA ENVIO DE LOTE
            wsMsg1 = New Autorizacao.NfeAutorizacao

            wsMsg1.nfeCabecMsgValue = cab

            wsMsg1.Timeout = 100000

            wsMsg1.SoapVersion = SoapProtocolVersion.Soap12

            [ô]ASSOCIA CERTIFICADO A CONEXAO WEBSERVICE

            wsMsg1.ClientCertificates.Add(CERT)

            [ô]RETORNO DA SEFAZ
            strRetorno = wsMsg1.nfeAutorizacaoLote(xmldoc)

            Using xmltw As New XmlTextWriter(Replace(Arquivo_Lote, [Ô]-lote[Ô], [Ô]-Enviado[Ô]), New UTF8Encoding(False))
                strRetorno.WriteTo(xmltw)
                xmltw.Close()
            End Using

            [ô]DESMEMBRA RETORNO XML
            Dim strRetornos As Funcoes.RetRetorno = Nothing
            Dim XmlText As XmlDocument = New XmlDocument

            For Each outerNode As XmlNode In strRetorno
                [ô]PARA CADA NO VERIFICA SE O MESMO POSSUI FILHOS E VARRE OS MESMOS
                If (outerNode.Name = [Ô]tpAmb[Ô]) Then
                    strRetornos.tpAmb = outerNode.InnerText
                End If
                If (outerNode.Name = [Ô]verAplic[Ô]) Then
                    strRetornos.verAplic = outerNode.InnerText
                End If
                If (outerNode.Name = [Ô]cStat[Ô]) Then
                    strRetornos.cStat = outerNode.InnerText
                End If
                If (outerNode.Name = [Ô]xMotivo[Ô]) Then
                    strRetornos.xMotivo = outerNode.InnerText
                End If
                If (outerNode.Name = [Ô]cUF[Ô]) Then
                    strRetornos.cUF = outerNode.InnerText
                End If
                If (outerNode.Name = [Ô]dhRecbto[Ô]) Then
                    strRetornos.dhRecbto = outerNode.InnerText
                End If
                If (outerNode.Name = [Ô]infRec[Ô]) Then
                    strRetornos.nRec = outerNode.InnerText
                End If
            Next

            Flag = strRetornos.xMotivo & [Ô]#[Ô] & Mid(strRetornos.nRec, 1, 15)

            Using xmltw As New XmlTextWriter(Application.StartupPath & [Ô]\NFE\Retornos_nfe\Lt-envio-[Ô] & strRetornos.nRec & [Ô].xml[Ô], New UTF8Encoding(False))
                strRetorno.WriteTo(xmltw)
                xmltw.Close()
            End Using

            Return Flag

        End Function 

Citação:

Pois é MAXCIM, parece que as noticias são boas para os que não iniciaram e ruins para os outros, pois pelo que pude ver rapidamente foram feitas alterações significativas [Ô]DE NOVO[Ô] !
Será que eles não tem mais o que fazer ou acham que não temos

strRetorno = wsMsg2.nfeAutorizacaoLote(xmldoc)

          Public Function Enviar_lote(ByVal Arquivo_Lote As String, ByVal Serie_Certificado As String, ByVal Webservice As String, ByVal Codigo_uf As String, ByVal VERSAO As String) As String

            Dim strRetorno As XmlElement
            Dim CERT As X509Certificate2
            Dim xmldoc = New XmlDocument()
            Dim Flag As String
            Flag = [Ô][Ô]

                Diversos.XWEBSERVICE = Webservice
                xmldoc.Load(Arquivo_Lote)

                Dim wsMsg2 As NFEAutorizacao.NfeAutorizacao

                [ô]Dim cab As New nfeCabecMsg
                CERT = New Certificado().BuscaNroSerie(If((Serie_Certificado = [Ô]xxx[Ô]), String.Empty, Serie_Certificado))
                [ô]Dim wsMsg As NfeRecepcao2
                Dim cab As New NFEAutorizacao.nfeCabecMsg
                [ô]UF E VERSÃO DO CABEÇALHO
                cab.cUF = Codigo_uf
                cab.versaoDados = VERSAO

                [ô]CABEÇALHO USADA PARA ENVIO DE LOTE
                wsMsg2 = New NFEAutorizacao.NfeAutorizacao(Diversos.XWEBSERVICE)

                wsMsg2.nfeCabecMsgValue = cab

                wsMsg2.Timeout = 100000

                wsMsg2.SoapVersion = SoapProtocolVersion.Soap12

                [ô]ASSOCIA CERTIFICADO A CONEXAO WEBSERVICE

                wsMsg2.ClientCertificates.Add(CERT)

                [ô]                Using xmltw As New XmlTextWriter([Ô]C:\310-Enviado.xml[Ô], New UTF8Encoding(False))
                [ô]                   xmldoc.WriteTo(xmltw)
                [ô]                   xmltw.Close()
                [ô]                End Using

                [ô]RETORNO DA SEFAZ
                strRetorno = wsMsg2.nfeAutorizacaoLote(xmldoc)

                Using xmltw As New XmlTextWriter(Replace(Arquivo_Lote, [Ô]-lote[Ô], [Ô]-310-Enviado[Ô]), New UTF8Encoding(False))
                    strRetorno.WriteTo(xmltw)
                    xmltw.Close()
                End Using

                [ô]DESMEMBRA RETORNO XML
                Dim strRetornos As Funcoes.RetRetorno = Nothing
                Dim XmlText As XmlDocument = New XmlDocument

                For Each outerNode As XmlNode In strRetorno
                    [ô]PARA CADA NO VERIFICA SE O MESMO POSSUI FILHOS E VARRE OS MESMOS
                    If (outerNode.Name = [Ô]tpAmb[Ô]) Then
                        strRetornos.tpAmb = outerNode.InnerText
                    End If
                    If (outerNode.Name = [Ô]verAplic[Ô]) Then
                        strRetornos.verAplic = outerNode.InnerText
                    End If
                    If (outerNode.Name = [Ô]cStat[Ô]) Then
                        strRetornos.cStat = outerNode.InnerText
                    End If
                    If (outerNode.Name = [Ô]xMotivo[Ô]) Then
                        strRetornos.xMotivo = outerNode.InnerText
                    End If
                    If (outerNode.Name = [Ô]cUF[Ô]) Then
                        strRetornos.cUF = outerNode.InnerText
                    End If
                    If (outerNode.Name = [Ô]dhRecbto[Ô]) Then
                        strRetornos.dhRecbto = outerNode.InnerText
                    End If
                    If (outerNode.Name = [Ô]infRec[Ô]) Then
                        strRetornos.nRec = outerNode.InnerText
                    End If
                Next

                Flag = strRetornos.xMotivo & [Ô]#[Ô] & Mid(strRetornos.nRec, 1, 15)

                Using xmltw As New XmlTextWriter(Application.StartupPath & [Ô]\NFE\Retornos_nfe\Lt-310-envio-[Ô] & strRetornos.nRec & [Ô].xml[Ô], New UTF8Encoding(False))
                    strRetorno.WriteTo(xmltw)
                    xmltw.Close()
                End Using

            End If

            Return Flag

        End Function 

Citação:

:
Após 5 anos utilizando o Emissor do Sefaz SP para emitir NFe resolvi procurar uma solução para fazer todo processo de geração,validação e envio do xml da NFe. Sou membro do VBM a mais de 10 anos e desde o inicio acompanho o projeto em VB.NET criado em 2010 pelo colega Daniel Melo(DANIELCPAETE).Como programo em C# então resolvi fazer a conversão de todo projeto para C#. No decorrer dos anos do Projeto vários usuários ajudaram com muitas melhorias. Por esse espírito de ajuda mutua da comunidade VBM que também resolvi dar minha pequena colaboração.Fiz a conversão baseada na versão modificada do Projeto pelo usuário(PAULOPHC) página 165 do tópico.
Fiz varias mudanças no Projeto dentre as quais destaco:
• Ajustes no Relatório Retrato/Paisagem.Personalizei o PrintView com opção de exportar para PDF.Está opção tem que instalar a impressora virtual Bullzip.
• Implantação Manifestação do Destinatário
• Implantação Download NFe. Obs:para fazer o download da NFe tem que fazer manifestação do destinatário.
• Implantação Consulta Destinatário
• Ajuste nas classes Base da NFe para contemplar os novos campos da versão 3.10 da NFe.
• Implantação de Envio/Recebimento NFe 3.10.
• Troca da classe de geração do código de barra do Danfe.Coloquei uma classe em C# que encontrei na net que gera vários padrões de código barra inclusive o CODE128C da Danfe, fiz vários testes de leitura do código de barra e não deu nenhum problema. Tive que trocar a classe que gerava o Danfe pois não consegui converter a classe VB.NET original do Projeto para C#.

Testei todos opções do Projeto e estão funcionais.Gerei varias NFe no ambiente de homologação do Sefaz GO na versão 2.00.Também gerei varias NFe na versão 3.10 no ambiente homologação do Sefaz MG, pois o Sefaz GO está com problema na versão 3.10.No Projeto na pasta Xml tem dois arquivos xml um gerado na versão 2.00 e outro na versão 3.10.

Todas sugestões são bem vinda para o Projeto.Fiquem a vontade para comentar.