Consumo WebService NFe 3.10 MG e MS

Question

Olá galera, estou com problemas no referenciamento dos serviços nos estados de Minas Gerais e Mato Grosso do Sul, os parâmetros estão diferentes dos demais estados, exigindo uma classe ao invés de um XmlDocument.

Alguém passou por isso?

Answer 1

Encontrei uma solução para MS

Segue um exemplo de uma chamada

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 = 50
        Status.nfeCabecMsgValue.versaoDados = "3.10"

        Dim NFeDados As New MSH_NfeStatusServico2.nfeStatusServicoNF2Result()
        NFeDados.Any = New System.Xml.XmlNode() {Doc.DocumentElement} '..: Encapsulamento do XmlDocument

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

        ConsultaStatus = New Xml.XmlDocument
        ConsultaStatus.LoadXml(Retorno.Any(0).OuterXml) '..: Transformando o Retorno em um XmlDocument
  
End Function

Answer 2

Ainda não consegui montar para o estado de MG, pois o retorno da função não tem um tipo definido, é uma lista de Object.

Segue o exemplo de como estou fazendo.

    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 = 31
        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) '..:Esta função não retorna nada, vem uma lista vazia

        ConsultaStatus = New Xml.XmlDocument
        'ConsultaStatus.LoadXml(Retorno.Any(0).OuterXml)
    End Function

Answer 3

Valdeir, conseguiu pegar o retorno para MG ? tentei de varias formas aqui mas nao rolou...

Abcs

Diego S. Oliveira