#------------------------------------------------------------------------------#
FUNCTION LRESTLOGIXRESPONSE_setSTATUS()
#------------------------------------------------------------------------------#
DEFINE l_json_reference VARCHAR(10)
DEFINE l_logix_response VARCHAR(10)
DEFINE l_json CHAR(1000)
#--# Utilização do método SERIALIZE da classe LJSONOBJECT #--#
LET l_json = _ADVPL_get_property(l_json_reference,"SERIALIZE")
#--# Criação da resposta padronizada utilizando a classe LRestLogixResponse #--#
LET l_logix_response = _ADVPL_create_component(NULL,"LRestLogixResponse")
CALL _ADVPL_set_property(l_logix_response,"PAYLOAD",l_json)
#--# Propriedades opcionais #--# OPCAO 01 RESPOSTA
CALL _ADVPL_set_property(l_logix_response,"MESSAGE","Erro Msg","404","Erro Detail", Message"10"))
#--# Propriedades opcionais #--# OPCAO 02 RESPOSTA
CALL _ADVPL_set_property(l_logix_response,"STATUS",'200')
#--# Opcional, utilizada quando o conteúdo de retorno for um JSONArray #--#
CALL _ADVPL_set_property(l_logix_response,"HAS_NEXT",TRUE)
RETURN _ADVPL_get_property(l_logix_response,"GENERATE")
END FUNCTION |