Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - Função SetRestFaultP(): Retorno no formato Json

Tempo aproximado para leitura: 00:02:00 min

Dúvida
O conteúdo da função SetRestFaultP() não está saindo em Json, como fazer pra sair?
Exemplo esperado:

{
errorCode: 400,
errorMessage: Erro ao incluir solicitação de armazém,
detailedMessage: Filial 4444 não encontrada
}

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 12.1.17

Solução
O parâmetro lJson da função SetRestFault diz respeito ao retorno no formato JSON no método REST, não sobre o conteúdo do parâmetro cMessage. Exemplo;

//--------------------------------------
// Verifica se a saída é JSON
//--------------------------------------

If ::cFormat <> "json"
    lRetorno := .F.
    SetRestFault(002,STR0002) //"Somente o formato json é permitido"
EndIf
If lRetorno
    ...
    ::cResponse := cJson    
EndIf
Return(lRetorno)