FONTE NFE VB.NET

Citação:

:
Bom dia pessoal,


Estou utilizando o exemplo do Danielcpaete postado no fórum da nota fiscal eletrônica já consigo gerar o xml enviar o lote, porém quando tento consumir o [Ô]ConsultaRecLote2[Ô] tenho a seguinte mensagem de erro:


O erro da na seguinte linha

strRetorno = wsMsg.nfeRecepcaoLote2(xmldoc)


onde Dim strRetorno As XmlElement


o que poderia ser?


Obrigado,

[Ô]Se trabalhar fosse bom, não nos pagariam para isto.[Ô]

Alemao

Citação:

Public Function EnviaLote2(ByVal EndArquivoXml As String) As RetEnvio
Dim strRetorno As XmlElement
Dim xmldoc = New XmlDocument()

xmldoc.Load(EndArquivoXml) [ô]Carrega o arquivo XML
Dim CERT As X509Certificate2
CERT = SelecionarCertificado([Ô]690701499FF906E8[Ô])
Try
Dim wsMsg As Recepcao2.NfeRecepcao2
Dim cab As New Recepcao2.nfeCabecMsg

[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = VersaoAtualNfe

Dim Notas As String
[ô]CABEÇALHO USADA PARA ENVIO DE LOTE
wsMsg = New Recepcao2.NfeRecepcao2(S_Url.UrlNfeRecepcao)
wsMsg.nfeCabecMsgValue = cab

wsMsg.Timeout = 999999999
wsMsg.ClientCertificates.Add(CERT)
wsMsg.SoapVersion = SoapProtocolVersion.Soap12
Notas = xmldoc.OuterXml

[ô]RETORNO DA SEFAZ

strRetorno = wsMsg.nfeRecepcaoLote2(xmldoc)


[ô]DESMEMBRA RETORNO XML
Dim StrRetNota As RetEnvio = Nothing
Dim XmlText As XmlDocument = New XmlDocument

For Each outerNode As XmlNode In strRetorno
For Each InnerNode As XmlNode In outerNode.ChildNodes
If (InnerNode.Name = [Ô]verAplic[Ô] Or outerNode.Name = [Ô]verAplic[Ô]) Then
StrRetNota.verAplic = InnerNode.InnerText
End If
If (InnerNode.Name = [Ô]cStat[Ô] Or outerNode.Name = [Ô]cStat[Ô]) Then
StrRetNota.cStat = InnerNode.InnerText
End If
If (InnerNode.Name = [Ô]xMotivo[Ô] Or outerNode.Name = [Ô]xMotivo[Ô]) Then
StrRetNota.xMotivo = InnerNode.InnerText
End If
If (InnerNode.Name = [Ô]cUF[Ô] Or outerNode.Name = [Ô]cUF[Ô]) Then
StrRetNota.cUF = InnerNode.InnerText
End If
If (InnerNode.Name = [Ô]nRec[Ô] Or outerNode.Name = [Ô]nRec[Ô]) Then
StrRetNota.nRec = InnerNode.InnerText
End If
If (InnerNode.Name = [Ô]dhRecbto[Ô] Or outerNode.Name = [Ô]dhRecbto[Ô]) Then
StrRetNota.dhRecbto = InnerNode.InnerText
End If
If (InnerNode.Name = [Ô]tMed[Ô] Or outerNode.Name = [Ô]tMed[Ô]) Then
StrRetNota.tMed = InnerNode.InnerText
End If
Next
Next

Return StrRetNota
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, [Ô][Ô])
Return Nothing
End Try