Prezados, estou criando um WS em Rest, que subiu e está OK, porém, quando faço o consumo dele e tento pegar o conteudo que foi enviado, o comando que usava anteriormente não está funcionando. O meu WS é POST, então preciso pegar as informções do obj e/ou o conteudo enviado. Eu achei dentro do OBJ SELF, o array onde estão as informações ( ), pois antes eu usava o comando Self:GetContent(), mas agora ele não está funcionando. Alguém ja passou por isso? Abaixo parte do programa:

user function WSFINCP()

WSRESTFUL ointcp DESCRIPTION "Integracão Contas a Pagar"

WSMETHOD POST DESCRIPTION "Inclusão do Contas a Pagar" WSSYNTAX "/ointcp || /ointcp/{id}"

END WSRESTFUL

Return()

WSMETHOD POST WSRECEIVE RECEIVE WSSERVICE ointcp

Local aArea := GetArea() Local cJsonRet := ""

Private cJSON

cJSON := Self:GetContent() // Pega a string do JSON

//================RESPOSTA AO WS========================================= ::SetContentType('application/json') cJsonRet := INCLUICP(cJSON)

If Empty(cJsonRet) cJsonRet := '{"ID": "ERROR"}' EndIf ::SetResponse( cJsonRet ) //=======================================================================

RestArea(aArea) RpcClearEnv() Return(.T.)