none
Consumo WebService NFe 3.10 MG e MS RRS feed

  • Pergunta

  • 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?

    sexta-feira, 27 de fevereiro de 2015 13:12

Todas as Respostas

  • 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


    • Editado Valdeir Caires sexta-feira, 27 de fevereiro de 2015 17:23 Inserção do Código
    sexta-feira, 27 de fevereiro de 2015 17:22
  • 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


    sexta-feira, 27 de fevereiro de 2015 20:50
  • Valdeir, conseguiu pegar o retorno para MG ? tentei de varias formas aqui mas nao rolou...

    Abcs

    Diego S. Oliveira

    terça-feira, 6 de março de 2018 19:26