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.)
