Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

Envio de Dados - API SOAP

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.

Captura de tela 2023-03-22 165945.png

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
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags api soap webservices ou faça a sua própria pergunta.