Boa tarde!
Estou montando uma API POST para envio de ocorrências. Quando fui realizar o teste de envio, recebi o erro apresentado na imagem anexa.
Abaixo, segue trecho do código que monta a estrutura e faz o envio.
IF !oWsdl:ParseUrl("http://200.155.29.14:8190/servicos/TMSClaro_v2.asmx?WSDL")
Alert("Erro na conexao")
ELSE
IF oWsdl:SetOperation("receberRastreamento")
oWsdl:AddHttpHeader("Content-Type", "text/xml")
oWsdl:AddHttpHeader("SOAPAction", "http://tempuri.org/receberRastreamento")
cXML := '<?xml version="1.0" encoding="UTF-8"?>'
cXML += '<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">'
cXML += ' <soap:Header>'
cXML += ' <classAuthentication_v2>'
cXML += ' <CNPJTransportadora>10750264000116</CNPJTransportadora>'
cXML += ' <RazaoSocial>B R SAMOR LOGISTICA EXPRESS LTDA</RazaoSocial>'
cXML += ' <ChaveAcesso>' + cApiKey + '</ChaveAcesso>'
cXML += ' </classAuthentication_v2>'
cXML += ' </soap:Header>'
cXML += ' <soap:Body>'
cXML += ' <receberRastreamento>'
cXML += ' <paramRastreamento>'
cXML += ' <OcorrenciaTransporte_v2>'
cXML += ' <CNPJContratanteTransporte>' + cCnpjDev + '</CNPJContratanteTransporte>'
cXML += ' <IdentificacaoDocumento>NFE</IdentificacaoDocumento>'
cXML += ' <RazaoSocial>' + cNomeRem + '</RazaoSocial>'
cXML += ' <CNPJCPFEmissorNotaFiscal>' + cCnpjRem + '</CNPJCPFEmissorNotaFiscal>'
cXML += ' <CNPJCPFDestinatario>' + cCnpjDes + '</CNPJCPFDestinatario>'
cXML += ' <NotasFiscais>'
cXML += ' <NumeroNotaFiscal>' + cNumeroNF + '</NumeroNotaFiscal>'
cXML += ' <SerieNotaFiscal>' + cSerieNF + '</SerieNotaFiscal>'
cXML += ' <KeyNotaFiscal>' + cChaveNF + '</KeyNotaFiscal>'
cXML += ' </NotasFiscais>'
IF lComprovante
aComprovante := CL_COMPROVANTE((cAlias)->DTC_FILORI, (cAlias)->DTC_DOC, (cAlias)->DTC_SERIE, cCnpjDev, cNumeroNF, STOD((cAlias)->DT6_DATEMI))
IF aComprovante[1]
cXML += ' <Comprovantes>'
cXML += ' <LinkComprovante>' + aComprovante[2] + '</LinkComprovante>
cXML += ' </Comprovantes>'
ENDIF
ENDIF
cXML += ' <CodigoOcorrencia>' + cCodOcor + '</CodigoOcorrencia>'
cXML += ' <DataHoraOcorrencia>' + cDatOcor + '</DataHoraOcorrencia>'
cXML += ' <NomeRecebedor>JOSE MARIA DOS NASCIMENTO</NomeRecebedor>'
cXML += ' <DocumentoRecebedor></DocumentoRecebedor>'
cXML += ' <TextoFormatoLivre>' + cDesOcor + '</TextoFormatoLivre>'
cXML += ' </OcorrenciaTransporte_v2>
cXML += ' </paramRastreamento>
cXML += ' </receberRastreamento>
cXML += ' </soap:Body>
cXML += '</soap:Envelope>
DbSelectArea('ZO1')
ZO1->(DbSetOrder(1))
If ZO1->(DbSeek(xFilial("ZO1") + cConfig))
cPath := ALLTRIM(ZO1->ZO1_PATH) + ALLTRIM(ZO1->ZO1_TOKEN)
ENDIF
Aadd(aDados, {(cAlias)->DT6_NUMVGA, ALLTRIM((cAlias)->DTC_DOC), cNumeroNF, cChaveNF, cCodOcor, '', cDatOcor})
IF oWsdl:SendSoapMsg(cXML)
MsgInfo(oWsdl:GetSoapResponse())
ELSE
Alert(oWsdl:cError)
ENDIF
ENDIF
ENDIF