Problema com NFe 3.10 MG

[valdeircaires]

Bom dia a todos.

Estou migrando minha aplicação para a versão 3.10 da NFe e estou enfrentando problemas ao manipular os serviços do estado de Minas Gerais.

Eu consegui baixar o wsdl porem ao instanciar o serviço os parâmetros são diferentes da versão anterior assim como o estado de Mato Grosso do Sul que contornei sem problemas, só que o estado de MG o retorno dessa função é uma lista do tipo Object() e ao consumir um simples serviço NfeStatusServico2 obtenho uma lista vazia.

Segue um exemplo de como está o serviço do MS

Public Function ConsultaStatus(Doc As Xml.XmlDocument) As Xml.XmlDocument

Dim Status As New MSH_NfeStatusServico2.NfeStatusServico2

Status.ClientCertificates.Add(Certificado)

Status.nfeCabecMsgValue = New MSH_NfeStatusServico2.nfeCabecMsg

Status.nfeCabecMsgValue.cUF = CodigoUF(UF)

Status.nfeCabecMsgValue.versaoDados = "3.10"

Dim NFeDados As New MSH_NfeStatusServico2.nfeStatusServicoNF2Result()

NFeDados.Any = New System.Xml.XmlNode() {Doc.DocumentElement}

Dim Retorno As MSH_NfeStatusServico2.nfeStatusServicoNF2Result1 = Status.nfeStatusServicoNF2(NFeDados)

ConsultaStatus = New Xml.XmlDocument

ConsultaStatus.LoadXml(Retorno.Any(0).OuterXml)

End Function

Segue o exemplo do estado de MG

Public Function ConsultaStatus(Doc As Xml.XmlDocument) As Xml.XmlDocument

Dim Status As New MGH_NfeStatusServico2.NfeStatusServico2

Status.ClientCertificates.Add(Certificado)

Status.nfeCabecMsgValue = New MGH_NfeStatusServico2.nfeCabecMsg

Status.nfeCabecMsgValue.cUF = CodigoUF(UF)

Status.nfeCabecMsgValue.versaoDados = "3.10"

Dim NFeDados As New MGH_NfeStatusServico2.nfeDadosMsg()

NFeDados.Any = New System.Xml.XmlNode() {Doc.DocumentElement}

Dim Retorno() As Object = Status.nfeStatusServicoNF2(NFeDados)

ConsultaStatus = New Xml.XmlDocument

'ConsultaStatus.LoadXml(Retorno.Any(0).OuterXml)

End Function

Editado Março 2, 2015 por valdeircaires