NFE 4.0 CONSULTA DE STATUS MG
Boa tarde.
Estou com um problema ao consumir o método de consulta de Status da versão 4.0 da NFe em MG. O xml enviado é descrito abaixo e segue também um fonte da rotina.
Grato se alguém puder me ajudar, ficarei grato. A consulta de status sempre me retorna vazio. (Nothing).
<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô]?>
<consStatServ xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]4.00[Ô]>
<tpAmb>2</tpAmb>
<cUF>31</cUF>
<xServ>STATUS</xServ>
</consStatServ>
[ô]############################################################################
Dim dados As Xml.XmlDocument = New Xml.XmlDocument
Dim l_retornoServico As Xml.XmlElement
Dim v_serialCert As String = [Ô][Ô]
Dim l_url As String = [Ô]https://hnfe.fazenda.mg.gov.br/nfe2/services/NFeStatusServico4[Ô]
Dim l_consultaStatus As New ws_consulta.NFeStatusServico4
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
l_consultaStatus.PreAuthenticate = True
l_consultaStatus.Url = l_url
l_consultaStatus.Timeout = 50000
Try
CERT = SelecionarCertificado(v_serialCert)
v_serialCert = CERT.SerialNumber
l_consultaStatus.ClientCertificates.Add(CERT)
[ô]ASSOCIA O NOVO XML COM A VARIAVEL DE RETORNO DA SEFAZ
dados.LoadXml(retornaCorpoStatus)
Catch ex As Exception
MsgBox(ErrorToString)
Exit Sub
End Try
Try
l_retornoServico = l_consultaStatus.nfeStatusServicoNF(dados)
Catch ex As Exception
MsgBox(ErrorToString)
End Try
Estou com um problema ao consumir o método de consulta de Status da versão 4.0 da NFe em MG. O xml enviado é descrito abaixo e segue também um fonte da rotina.
Grato se alguém puder me ajudar, ficarei grato. A consulta de status sempre me retorna vazio. (Nothing).
<?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô]?>
<consStatServ xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]4.00[Ô]>
<tpAmb>2</tpAmb>
<cUF>31</cUF>
<xServ>STATUS</xServ>
</consStatServ>
[ô]############################################################################
Dim dados As Xml.XmlDocument = New Xml.XmlDocument
Dim l_retornoServico As Xml.XmlElement
Dim v_serialCert As String = [Ô][Ô]
Dim l_url As String = [Ô]https://hnfe.fazenda.mg.gov.br/nfe2/services/NFeStatusServico4[Ô]
Dim l_consultaStatus As New ws_consulta.NFeStatusServico4
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
l_consultaStatus.PreAuthenticate = True
l_consultaStatus.Url = l_url
l_consultaStatus.Timeout = 50000
Try
CERT = SelecionarCertificado(v_serialCert)
v_serialCert = CERT.SerialNumber
l_consultaStatus.ClientCertificates.Add(CERT)
[ô]ASSOCIA O NOVO XML COM A VARIAVEL DE RETORNO DA SEFAZ
dados.LoadXml(retornaCorpoStatus)
Catch ex As Exception
MsgBox(ErrorToString)
Exit Sub
End Try
Try
l_retornoServico = l_consultaStatus.nfeStatusServicoNF(dados)
Catch ex As Exception
MsgBox(ErrorToString)
End Try
Porque os espaços no inÃcio da URL?
Citação::
Porque os espaços no inÃcio da URL?
Foi apenas um equivoco no momento do copia e cola, mas com ou sem eles, dá na mesma.
l_retornoServico fica null mesmo?
retornaCorpoStatus contêm o XML descrito?
Depurou linha a linha pra ver a execução?
retornaCorpoStatus contêm o XML descrito?
Depurou linha a linha pra ver a execução?
Citação::
l_retornoServico fica null mesmo?
retornaCorpoStatus contêm o XML descrito?
Depurou linha a linha pra ver a execução?
Sim, veja na imagem
Hmmm, ele está caindo no catch do bloco try. Significa que algum erro ocorreu.
Citação::
Hmmm, ele está caindo no catch do bloco try. Significa que algum erro ocorreu.
Na verdade não, eu é que subi o ponteiro do depurador para o catch, ele não apresenta erro, porém o retorno é sempre vazio.
Tá muito esquisito isso...
Tente referenciar o webService de novo.
Tente referenciar o webService de novo.
Citação::
Tá muito esquisito isso...
Tente referenciar o webService de novo.
Já referenciei, já, até comecei o projeto do zero novamente.
Já tentou consumir o serviço com o SoapUI?
Citação::
Já tentou consumir o serviço com o SoapUI?
Nunca usei SoapUI, nem tenho idéia de como fazer.
Tópico encerrado , respostas não são mais permitidas