Exemplo webservice REST ADVPL

tstwsrest.prw

#include "PROTHEUS.ch"
#include "RESTFUL.ch"

#xtranslate @{Header <(cName)>} => ::GetHeader( <(cName)> )
#xtranslate @{Param <n>} => ::aURLParms\[ <n> \]
#xtranslate @{EndRoute} => EndCase
#xtranslate @{Route} => Do Case
#xtranslate @{When <path>} => Case NGIsRoute( ::aURLParms, <path> )
#xtranslate @{Default} => Otherwise

WsRestful tstwsrest Description "WebService REST para testes"

	WsMethod GET Description "Sincronização de dados via GET"    WsSyntax "/GET/{method}"

End WsRestful

WsMethod GET WsService tstwsrest

	::SetContentType( 'application/json' )

	@{Route}
		@{When '/users'}
		
		::SetResponse('')

	@{EndRoute}

Return .T.