SendSoapMsg não está retornando nada na TWsdlManager

Bom dia!

Estou usando a classe TWsdlManager para fazer um envio de uma requisição SOAP. Estou com um problema que, quando envio a requisição usando o método SendSoapMsg, o mesmo retorna falso, o método GetSoapResponse retorna vazio e a propriedade cError não é preenchida, impossibilitando que eu saiba o que está ocorrendo e de obter o retorno.

Ao usar o método GetSoapMsg e colar o XML no SoapUI, a requisição é feita normalmente e sem erros.

Alguém já passou por essa situação e sabe o que pode ser feito para corrigir?

Grato.

oWs := TWSDLManager():New()

oWs:lVerbose := .T.

If(oWs:ParseURL(cWsUrl))

    If(oWs:SetOperation('buscarNf'))

        oWs:SetValue(0, '00279701')
        oWs:SetValue(1, '000169675')
        oWs:SetValue(2, '34')
        oWs:SetValue(3, '06/05/2020')

        If(oWs:SendSoapMsg())

            ConOut('Sucesso')

        EndIf

    EndIf                

EndIf

FreeObj(oWs)
compartilhar
  • Giordano, é possível passar qual o endereço da requisição, um exemplo? Existe algum endereço de homologação?

    Daniel Mendes   01 de Jul de 2020
  • Daniel, o endereço é de um servidor interno e que não possui acesso público. Mas adicionei um exemplo do meu código. Tentei também montar o XML sem o uso do método SetValue (montando na mão), mas também não deu certo.

    Giordano Trabach Xavier   01 de Jul de 2020
  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!

2 respostas

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