Histórico da Página

...

Criação de chave de profile chamada logix.freeform.debug.listOfComponents que permite gerar uma listagem com informações dos componentes de telas desenvolvidas com componentes FreeForm/Metadado. Esta chave permite o valor 0 (INATIVO) e 1 (ATIVO).

...

A listagem dos dados dos componentes é realizada quando o valor da chave no profile é setada da seguinte forma:

A listagem dos componentes é gerada no arquivo de LOG do AppServer durante a execução dos programas FreeForm/Metadados que fazem uso dos componetes Framework Logix herdados da classe principal chamada LComponent (Classe base de todos os componentes do Metadados/FreeForm) e somente será gerada para componentes herdados deste componente base.

No momento em que cada janela de telas freeform/metadado é aberta e exibida em tela, no arquivo de LOG do AppServer é gerada uma listagem semelhante a lista a seguir:

Image Added

Nessa lista podem ser observadas as informações como Título da Janela e a listagem de seus componentes pode-se observar as seguintes informações:

♦ Título da Janela

♦ Listagem dos componentes da janela com os respectivos valores

...

das propriedades HELP_NAME e VARIABLE e também a classe de componente utilizada (TYPE)

Para recuperar a referência dos componentes com base nestas propriedades pode ser realizada com base na propriedade COMPONENT_REFERENCE_BY_HELP_NAME da janela usando a função _ADVPL_getProperty.

DEFINE l_form_reference       VARCHAR(10)
DEFINE l_menu_inform_referece VARCHAR(10)
DEFINE l_cod_rotina_reference VARCHAR(10)

LET l_form_reference = _ADVPL_GetFormReference("Consulta de Auditorias")

#Recuperar a referência do botão "INFORMAR" existente na barra de ferramentas da janela a partir da propriedade HELP_NAME do botão
LET l_menu_inform_reference = _ADVPL_get_property(l_form_reference,"COMPONENT_REFERENCE_BY_HELP_NAME","menu_inform")

#Acionar o evento de click do botão usando a propriedade DO_CLICK
CALL _ADVPL_get_property(l_menu_inform_reference,"DO_CLICK")

#Recuperar a referência do campo "COD_ROTINA" pelo nome da variavel (Propriedade VARIABLE)
LET l_cod_rotina_reference = _ADVPL_get_property(l_form_reference,"COMPONENT_REFERENCE_BY_VARIABLE","cod_rotina")

#Atribuir o valor "001" para o campo "COD_ROTINA" usando a propriedade VALUE 
CALL _ADVPL_set_property(l_cod_rotina_reference,"VALUE","001")

...