_ADVPL_get_property(< l_reference >, "GENERATE" ) => CHAR

#------------------------------------------------------------------------------#
FUNCTION LRESTLOGIXRESPONSE_getGENERATE()
#------------------------------------------------------------------------------#
    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 #--#
    CALL _ADVPL_set_property(l_logix_response,"MESSAGE","Erro Msg","Erro Detail", "10")
    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

CALL _ADVPL_set_property(< l_json_reference >,"HAS_NEXT", < l_has_next >)

#------------------------------------------------------------------------------#
FUNCTION LRESTLOGIXRESPONSE_setHAS_NEXT()
#------------------------------------------------------------------------------#
	DEFINE l_json_reference VARCHAR(10)
    DEFINE l_logix_response VARCHAR(10)
	DEFINE l_json CHAR(1000)
	
	LET l_json = _ADVPL_get_property(l_json_reference,"SERIALIZE")
	
	LET l_json = '{ "valores": ["item1","item2","item3",{"subitem1":"subitem2"}]}'
	
	LET l_logix_response = _ADVPL_create_component(NULL,"LRestLogixResponse")
    CALL _ADVPL_set_property(l_logix_response,"PAYLOAD",l_json,"payload")
    CALL _ADVPL_set_property(l_logix_response,"HAS_NEXT",TRUE)
    CALL _ADVPL_set_property(l_logix_response,"STATUS",'201')
    
	RETURN _ADVPL_get_property(l_logix_response,"GENERATE")
END FUNCTION