FONTE NFE VB.NET

  

            UrlAcesso = BuscaURL([Ô]ES[Ô], [Ô]HOMOLOGACAO[Ô])

            Dim StrRetorno As RetCartaCorrecao
            Dim CartaCorrecao As New CartaCorrecao
            Dim WebCarta As New C_WebService(UrlAcesso)

            [ô]montando a carta de correção
            With CartaCorrecao
                .nSeqEvento = [Ô]1[Ô]
                .Id = [Ô]ID[Ô] & [Ô]110110[Ô] & txChaveNFe.Text & .nSeqEvento.PadLeft(2, [Ô]0[Ô])
                .cOrgao = [Ô]32[Ô]
                .tpAMB = 2
               .CNPJ = [Ô]04137173000107[Ô]
                .chNFe = [Ô]12341234123412341234123412341234123412341234[Ô]
                .dhEvento = Now
                .xCorrecao = [Ô]correção de teste da carta de correção eletrônica[Ô]
            End With

            [ô]seleciona o certificado digital
            Dim certificado As X509Certificate2 = CertificadoDigital.SelecionarCertificado(Config.CertificadoDigital)
            [ô]assina o xml
            Dim xmlAssinado As XmlDocument = CertificadoDigital.Assinar(CartaCorrecao.GeraXML(), [Ô]infEvento[Ô], certificado)
            xmlAssinado.Save(Preferencias.PastaTemp & [Ô]\CARTA.XML[Ô])
            Dim DocXml As New XmlDocument
            DocXml.Load(Preferencias.PastaTemp & [Ô]\CARTA.XML[Ô])
            [ô]valida o xml
            Dim resultado As String = ValidaXML.ValidarXML(DocXml, App_Path & [Ô]Schemas\CCe\CCe_v1.00.xsd[Ô])

            [ô]se a validação foi bem sucedida
            If resultado.Trim.Length = 0 Then
                [ô]gera o lote
                CartaCorrecao.GerarLote(xmlAssinado)
                [ô]envia a carta de correção para o webservice
                StrRetorno = WebCarta.CartaCorrecaoNFe(xmlAssinado.OuterXml)
                [ô]verifica se o lote foi processado
                If StrRetorno.xMotivo = [Ô]Lote de evento processado[Ô] Then
                    [ô]verifica se o evento foi aceito
                    If StrRetorno.infEvento.xMotivo = [Ô]Evento registrado e vinculado a NF-e[Ô] Then
                         msgbox([Ô]Evento registrado com sucesso![Ô])
                    Else
                        MsgBox(StrRetorno.infEvento.xMotivo, MsgBoxStyle.Information, [Ô]SisLoja SGC - Erro...[Ô])
                    End If
                Else
                    MsgBox(StrRetorno.xMotivo, MsgBoxStyle.Information, [Ô]SisLoja SGC - Erro...[Ô])
                End If
            Else
                MsgBox(resultado, MsgBoxStyle.Information, [Ô]SisLoja SGC - Erro...[Ô])
            End If