NFE 3.10 PARAN?

KLEBERADS 30/01/2017 11:31:15
#471143

Ola estou com dificuldades em consultar o Recibo da NFe
Eu envio o xml e vai normalmente [Ô]Lote recebido com sucesso[Ô] mas quando consulto pelo numero de recibo nao vem nada

O que pode ser ?

Dim strRetorno As XmlElement
Dim xmldoc = New XmlDocument()
Dim strCcc As String = strCaminhoNfe.Replace(PastaRemessas, PastaAssinadas)

xmldoc.Load(strCaminhoNfe.Replace(PastaRemessas, PastaAssinadas))
Dim CERT As X509Certificate2
CERT = certificate

Try
Dim wsMsg As wsNFeAutorizacaoPR.NfeAutorizacao3
Dim cab As New wsNFeAutorizacaoPR.nfeCabecMsg

cab.versaoDados = [Ô]3.10[Ô]

cab.cUF = [Ô]41[Ô]

Dim Notas As String

wsMsg = New wsNFeAutorizacaoPR.NfeAutorizacao3(URLNfe)

wsMsg.Url = [Ô]https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeAutorizacao3?wsdl[Ô]

wsMsg.nfeCabecMsgValue = cab

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


strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc)


Dim XmlText As XmlDocument = New XmlDocument

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

Catch ex As Exception
Exit Sub
End Try

Dim RetonoConsulta As New RetRetorno

Try
Dim wsMsg As wsNFeRetAutorizacaoPR.NfeRetAutorizacao3
Dim cab As New wsNFeRetAutorizacaoPR.nfeCabecMsg

cab.cUF = [Ô]41[Ô]
cab.versaoDados = [Ô]3.10[Ô]

wsMsg = New wsNFeRetAutorizacaoPR.NfeRetAutorizacao3(URLNfe)
wsMsg.Url = [Ô]https://homologacao.nfe.fazenda.pr.gov.br/nfe/NFeRetAutorizacao3?wsdl[Ô]
wsMsg.nfeCabecMsgValue = cab
wsMsg.Timeout = 100000
wsMsg.ClientCertificates.Add(CERT)
wsMsg.SoapVersion = SoapProtocolVersion.Soap12

Dim dados As XmlDocument = New XmlDocument

dados.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]utf-8[Ô][Ô]?><consReciNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô]3.10[Ô]><tpAmb>2</tpAmb><nRec>[Ô] & nRec & [Ô]</nRec></consReciNFe>[Ô])


strRetorno = wsMsg.nfeRetAutorizacaoLote(dados)