Histórico da Página

Geração de client em AdvPL - 3º Passo

3º Passo - Criar um código-fonte que utilize a classe para utilização do Web Service. 

Neste passo, é necessário criar um novo código-fonte, no TOTVS | Development Studio, e montar uma função para utilizar a classe de Web Service client e obter o horário no servidor.

1  #INCLUDE TOTVS.CH
2
3  User Function TestClient()
4  Local oSvc := NIL
5  
6  oSvc := WSSERVERTIME():New()
7
8  If oSvc:GETSERVERTIME()
9     alert('Horário no Servidor : '+ oSvc:cGETSERVERTIMERESULT)
10  Else
11    alert('Erro de Execução : '+GetWSCError())
12  Endif
13  
14  Return

Linha 1 - Declaração da include TOTVS.CH que contém as definições dos comandos AdvPL e demais constantes.

Linha 3 - Inicia-se a definição da User Function para utilizar o Web Service.

Linha 4 - Declaração de uma variável local para conter o objeto do Web Service client.

Linha 6 - Utilizando-se do serviço, a variável oSvc é alimentada com um nova instância do Web Service client, obtida através da sintaxe <NOME_DO_SERVIÇO>():New().

Linha 8 - O método GetServerTime é executado a partir do objeto do serviço oSrv, sem passar qualquer parâmetro. O retorno de um método do client pode ser verdadeiro (.T.), se for executado com sucesso, ou falso (.F.), em caso de falha de execução.

Linha 9 - Caso o serviço tenha sido executado com sucesso, o retorno esperado é alimentado na propriedade cGetServerTimeResult do objeto do serviço.

Linha 11 - Caso contrário (retorno falso (.F.)), ocorreu alguma falha na chamada do serviço, como, por exemplo, o servidor não estava no ar, demorou muito para responder (time-out), entre outras. Para recuperar os detalhes da ocorrência de erro, utilize a função GetWSCError() para retornar uma string com o resumo da ocorrência.

Linha 14 - O programa de teste é finalizado com um Return.