Boa tarde Prezados,

Uma dúvida por que quando desenvolvido em TLPP uma API REST não devolve as informações como "Content-Type/application/json" e sempre o retorno vem como TEXT. Já procurei a documentação TLPP/REST e não achei nada que falasse como devolver a informação como JSON.

Sabe me dizer se tenho que passar alguma propriedade para dentro do código igual quando desenvolvido no RESTFULL "Content-Type/application/json"

Exemplo de como está:

#Include "Protheus.Ch"
#Include "tlpp-core.th"
#Include "tlpp-rest.th"

@Get(endpoint="/api/qsaude/planos",description="Consulta todos os planos de saúde dísponivel")
User Function Planos()

Local cCodPlano := ""
Local cCodPlano := ""
Local cExibePortal := ""
Local cCodSeg := ""
Local oPlanos := Nil

Private nCodeRet := 0
Private cResponse := ""

jParam := oRest:getQueryRequest() //Retornar o QueryParam

If ( jParam:HasProperty("codigoPlano") )
    cCodPlano := jParam[ "codigoPlano" ]
EndIf

If ( jParam:HasProperty("exibePortal") )
    cExibePortal := jParam[ "exibePortal" ] //BI3_PORTAL -> Exibe Portal 1=Sim, 2=Nao
EndIf

If ( jParam:HasProperty("codigoSegmentoPlano") )
    cCodSeg := jParam[ "codigoSegmentoPlano" ] //1=Individual, 2=PME, 3=Adesao
EndIf

oPlanos := QPlanos():New()
oPlanos:Planos(cCodPlano, cExibePortal, cCodSeg)

If nCodeRet == 200
    oRest:setStatusCode( 200 )
Else
    oRest:setStatusCode( 400 )
EndIf

oRest:setResponse( cResponse )

Return