...

#include "totvs.ch"

 

User Function WSCliente()

Local cName := "WSCLIENTE"

Local cURL := "http://hostname:8080/ws/exemplo.apw?wsdl"

Local cDescription := "Serviço para validação e atualização do cadastro de cliente"

 

If FWWFPutService(cName,cUrl,cDescription)

   MsgInfo("Serviço cadastrado com sucesso")

EndIf

Return

WebService

Para maiores informações sobre como desenvolver Web Services com o Microsiga Protheus, consulte o link: Web Services com o ERP Microsiga Protheus.

Exemplo de WebService do Protheus:

...