Está retornando: Unable to handle request without a valid action parameter. Please supply a valid soap action.
Aparentemente é como se soap action estivesse errada.
Alguém pode dar uma luz aonde buscar informação. Tentei direto no UrlWs, e aparentemente tá tudo ok.
Não sei aonde buscar mais sobre os detalhes.
Código: Selecionar todos
Procedure SefazConsultaCte(cChave,cCertificateCN)
Local cAmbiente, cUrlWs, cSOAPAction, cXmlResp, cXmlDados, cXmlSoap
cAmbiente := "1"
cXmlResp := "*ERRO*"
cUrlWs := GetUrlWsConsultaCte(cChave)
cXmlDados := ""
cXmlDados += [<consSitCte xmlns="http://www.portalfiscal.inf.br/cte" versao="1.0.3">]
cXmlDados += [<tpAmb>] + cAmbiente + [</tpAmb>]
cXmlDados += [<xServ>CONSULTAR</xServ>]
cXmlDados += [<chCTe>] + cChave + [</chCTe>]
cXmlDados += [</consSitCte>]
cXmlSoap := ""
cXmlSoap += [<?xml version="1.0" encoding="UTF-8"?>]
cXmlSoap += [<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">]
cXmlSoap += [<soap12:Header>]
cXmlSoap += [<nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/cteConsulta">]
cXmlSoap += [<cUF>] + Substr(cChave,1,2) + [</cUF>]
cXmlSoap += [<versaoDados>1.0.3</versaoDados>]
cXmlSoap += [</nfeCabecMsg>]
cXmlSoap += [</soap12:Header>]
cXmlSoap += [<soap12:Body>]
cXmlSoap += [<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/cte/wsdl/cteConsulta">]
cXmlSoap += cXmlDados
cXmlSoap += [</nfeDadosMsg>]
cXmlSoap += [</soap12:Body>]
cXmlSoap += [</soap12:Envelope>]
cSoapAction := [http://www.portalfiscal.inf.br/cte/wsdl/CteConsulta]
cXmlResp := MsXmlSoapPost( cUrlWs, cXmlSoap, cSoapAction, cCertificateCN)
Return cXmlResp
Static Function GetUrlWsConsultaCte(cUf)
Local cUrl
cUf := Substr(cUf,1,2)
cUrl := ""
Do Case
Case cUf $ "35,SP"
cUrl := [https://nfe.fazenda.sp.gov.br/cteWEB/services/cteConsulta.asmx]
EndCase
Return cUrl
