Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

Como atribuir um JSON no JsonObject()?

0

Tenho o seguinte código em TLPP pra teste:

Method get() as Logical Class SolicitacaoArmazemController

    // Setar Empresa e Filial no começo do App.

    rpcSetEnv(cEmpAnt, cFilAnt)
    oRest:setKeyHeaderResponse('Content-Type', 'application/json; charset=utf-8')

    // Cria a string JSON de resposta
    Local cResponseJson := '[{"Mensagem":"Hello World!"}]'

    // Define a resposta do REST utilizando a string JSON criada
    oRest:setResponse(cResponseJson)

    ConOut("SolicitacaoArmazemController::get - JSON estático gerado e retornado com sucesso: " + cResponseJson)

    // Reseta para o All... (Filial e Empresa) e fecha a conexão com a Filial e Empresa.
    // Necessario quando não se usa o TenantId no Header.
    rpcClearEnv()

Return .T.

Ele faz um simples Hello World e funciona, o que eu quero saber é como eu faço pra jogar um JSON dentro do objeto JsonObject que eu criei logo acima na classe, com o método new():

Method new() as Object Class SolicitacaoArmazemController
    ::jResponse := JsonObject():new()
Return Self

Vi um exemplo em ADVPL no link TOTVS Backoffice Linha Protheus - ADVPL - Classe JsonObject mas não entendi.

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags tlpp advpl rest api json jsonobject ou faça a sua própria pergunta.