SendSoapMsg não está retornando nada na TWsdlManager

Framework - Linha Protheus LIB
, ,
1

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)
2

Giordano, é possível passar qual o endereço da requisição, um exemplo? Existe algum endereço de homologação?

3

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.

4

Muito obrigado. Salvou Inseri antes da chamada do parseUrl. oWsdl:ParseURL(cURL)