DEBUGAR WEBSERVICE - PROTHEUS 11.8

Abaixo, os procedimentos para efetuar o debug:

No Developer Studio:

1) Configurações\Editar\Aba Geral

Marcar permitir depuração de múltiplas threads

2) Colocar o ponto de parada no método.

3) Executar uma opção que não existe no repositório:

ex: u_xxx

Ao executar o debug, será apresentado a seguinte mensagem:

invalid function call: u_xxx

Não encerre a mensagem, continue com o aviso na tela.

4) Abrir o smartclient direto da aplicação e não do developer Studio,

ou solicitar que o usuário execute novamente a rotina no perfil dele.

5) Executar o menu que chama u_xxx

6) O ponto de parada, irá cair na linha marcada, basta percorrer as linhas e utilizar da forma que necessita.

REF.:

https://userfunction.com.br/advpl/debugar-webservice/

Fonte p/ debug:

#INCLUDE "APWEBSRV.CH" #INCLUDE "PROTHEUS.CH" // Fonte Exemplo para consumir o WS User Function TesteWs() Local oWs := NIL oWs := WSWSTESTE():New() If oWs:RETMENSAGEM() alert('Mensagem : '+ oWs:cRETMENSAGEMRESULT) Else alert('Erro de Execução : '+GetWSCError()) Endif Return //Fonte do WebService WSSERVICE WSTESTE DESCRIPTION "Serviço com a finalidade de mostrar um exemplo de webservice" WSDATA cString as String WSMETHOD RETMENSAGEM DESCRIPTION "Método que retorna uma mensagem" ENDWSSERVICE WSMETHOD RETMENSAGEM WSRECEIVE NULLPARAM WSSEND cString WSSERVICE WSTESTE cMensagem := "Bem Vindo(a) ao UserFunction.com.br" ::cString := cMensagem Return .T.