Boa noite comunidade.
É minha primeira vez por aqui e espero estar no tópico correto.
Estou enfrentando problemas ao tentar retornar com os dados para NFeDadosMsg de um webservice de MG, na NFe 4.0.
Fiz a referência para o WebService NFeStatusServico4 através do endereço https://nfe.fazenda.mg.gov.br/nfe2/services/NFeStatusServico4, nomeando-o como ProdMGNFeStatusServico4. Até aí, td certo, consegui importar.
Depois tentei utilizá-lo através de uma função que está abaixo:
Public Function statusNFeMG(ByVal xmlAssinado As XmlDocument, ByVal cert As System.Security.Cryptography.X509Certificates.X509Certificate2)
Dim webserv
If My.Settings.tpAmb = 1 Then 'Produção
webserv = New ProdMGNFeStatusServico4.NFeStatusServico4
Else
webserv = New HomMGNFeStatusServico4.NFeStatusServico4
End If
' Instancia o XML que será utilizado
Dim xmldocumento As XmlDocument = New XmlDocument
' Ler o XML
xmldocumento.LoadXml(xmlAssinado.OuterXml)
' Instancia o XML carregando da variavel que leu o XML
Dim NFeXML As XmlNode = xmldocumento.DocumentElement
' Cria a variavel que recebe o retorno do WebService
Dim Retorno As Object
Dim rsp
'Adiciona o Certificado ao WebService
webserv.ClientCertificates.Add(cert)
System.Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls
'Definindo um Tempo maximo de conexao
webserv.Timeout = 100000
Dim nfeDadosMsg As New Emissor.ProdMGNFeStatusServico4.nfeDadosMsg
nfeDadosMsg.Any = {NFeXML}
Retorno = webserv.nfeStatusServico4(nfeDadosMsg)
rsp = DirectCast(Retorno(0), XmlNode())
webserv.Dispose()
Return rsp(0).OwnerElement.OuterXml
End Function
A variável Retorno fica com tamanho zero. Alguém poderia me ajudar?
