CONSULTA CADASTRO CONTRIBUINTE SEFAZ

CSOUZA 07/08/2014 15:58:49
#440259

Estou desenvolvendo uma consulta ao cadastro de contribuites Da sefaz que consumirá o webservice https://app.sefaz.es.gov.br/ConsultaCadastroService/CadConsultaCadastro2.asmx

Montei o XML de acordo com especificacao técnica versao 5.0 de 2012. Porem o a variável sRetorno retorna em branco.

Alguém poderia me ajudar?

Segue procedimento completo

Public Function RetornaDocumento(ByVal sCNPJ As String, ByVal sIE As String, ByVal sUF As String) As String
On Error GoTo TratarErro
Dim objXMLHTTP As New MSXML2.ServerXMLHTTP
Dim objXMLDOM As New MSXML2.DOMDocument

Dim sConteudo As String

[ô]------------------------------------------------------[ô]
[ô] 1ª parte - Envia um documento XML para o Web Service [ô]
[ô]------------------------------------------------------[ô]

[ô]Monta o documento XML conforme a estrutura definida para este Web Service

sConteudo = [Ô][Ô]
sConteudo = sConteudo & [Ô]<?xml version=[ô]1.0[ô] encoding=[ô]utf-8[ô]?>[Ô]
sConteudo = sConteudo & [Ô]<soap12:Envelope xmlns:xsi=[ô]http://www.w3.org/2001/XMLSchema-instance[ô] xmlns:xsd=[ô]http://www.w3.org/2001/XMLSchema[ô] xmlns:soap12=[ô]http://www.w3.org/2003/05/soap-envelope[ô]>[Ô]
sConteudo = sConteudo & [Ô] <soap12:Header>[Ô]
sConteudo = sConteudo & [Ô] <nfeCabecMsg xmlns=[ô]http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2/consultaCadastro2[ô]>[Ô]
sConteudo = sConteudo & [Ô] <versaoDados>5.00</versaoDados>[Ô]
sConteudo = sConteudo & [Ô] <cUF>33</cUF>[Ô]
sConteudo = sConteudo & [Ô] </nfeCabecMsg>[Ô]
sConteudo = sConteudo & [Ô] </soap12:Header>[Ô]
sConteudo = sConteudo & [Ô] <soap12:Body>[Ô]
sConteudo = sConteudo & [Ô] <nfeDadosMsg xmlns=[ô]http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro2[ô]>[Ô]
sConteudo = sConteudo & [Ô] <ConsCad xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô] versao=[ô]5.00[ô]>[Ô]
sConteudo = sConteudo & [Ô] <infCons>[Ô]
sConteudo = sConteudo & [Ô] <xServ>CONS-CAD</xServ>[Ô]
sConteudo = sConteudo & [Ô] <UF>[Ô] & sUF & [Ô]</UF>[Ô]
sConteudo = sConteudo & [Ô] <CNPJ>[Ô] & Right([Ô]00000000000000[Ô] & Trim(sCNPJ), 14) & [Ô]</CNPJ>[Ô]
sConteudo = sConteudo & [Ô] </infCons>[Ô]
sConteudo = sConteudo & [Ô] </ConsCad>[Ô]
sConteudo = sConteudo & [Ô] </nfeDadosMsg>[Ô]
sConteudo = sConteudo & [Ô] </soap12:Body>[Ô]
sConteudo = sConteudo & [Ô]</soap12:Envelope>[Ô]


[ô]Converte para um documento XML no padrão DOM
objXMLDOM.async = False
objXMLDOM.LoadXML (sConteudo)
[ô]Aponta para o Web Service
objXMLHTTP.Open [Ô]POST[Ô], [Ô]https://app.sefaz.es.gov.br/ConsultaCadastroService/CadConsultaCadastro2.asmx[Ô], False

[ô]Envia o documento XML para o Web Service
objXMLHTTP.send (objXMLDOM.XML)

[ô]-----------------------------------------[ô]
[ô] 2ª parte - Recebe um XML do Web Service [ô]
[ô]-----------------------------------------[ô]
Dim sRetorno As String

Dim sDataConsulta As String
Dim sSituacao As String

[ô]Aqui é carregado o retorno do Web Service.
sRetorno = objXMLHTTP.responseXML.XML
objXMLDOM.async = False
objXMLDOM.LoadXML (sRetorno)

sDataConsulta = RetornaConteudoTAG(sRetorno, [Ô]dhCons[Ô])
sSituacao = RetornaConteudoTAG(sRetorno, [Ô]cSit[Ô])

Exit Function

TratarErro:
oErro.TratarErro [Ô]clsConsultaCadastroSEFAZ[Ô], [Ô]RetornaDocumento[Ô]
End Function