Retorno NFE WebService

[HenriqueRadins 0]

Estou precisando de ajuda para receber o retorno do WebService da NFE(RS), consigo fazer a ligaçao , consigo enviar mais nao recebo nenhuma resposta de volta , alguem pode ajudar?

 

Link do projeto

http://www.4shared.com/zip/g0Bauipfce/NFe.html

[Hackbart 0]

Pow Manow estou com o mesmo problema, se alguem souber por favor, nos ajudem aqui

[KhaosDoctor 242]

Poste seu código onde você faz a chamada para nós darmos uma olhada.

[Hackbart 0]

Tenho o mesmo Problema, olha meu codigo ae:

Public Function EnviaLote2(ByVal EndArquivoXml As String) As RetEnvio

Dim strRetorno As XmlElement

Dim xmldoc = New XmlDocument()

xmldoc.Load(Form2.txtxml.Text) 'Carrega o arquivo XML

Dim CERT As X509Certificate2

CERT = Form1.SelecionarCertificado("")

Try

Dim wsMsg As NfeRecepcao2

Dim cab As New nfeCabecMsg

'UF E VERSÃO DO CABEÇALHO

cab.cUF = "35"

cab.versaoDados = "2.00"

Dim Notas As String

'CABEÇALHO USADA PARA ENVIO DE LOTE

wsMsg = New NfeRecepcao2

wsMsg.nfeCabecMsgValue = cab

wsMsg.Timeout = 100000

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

End Function

[KhaosDoctor 242]

O retorno não devia ser outro XML?

[Hackbart 0]

SIm, mais nesse programa ele quebra a xml e retorna só o motivo

[KhaosDoctor 242]

Só que você está pegando o XML de retorno e jogando em uma string.