Em determinados eventos será necessário obter a referência de determinados componentes do programa metadado em execução para que, com esta informação, seja possível obter e alterar valores em tempo de execução.
Em qualquer evento do formulário:
METADATA_getCurrentFormReference
passando por parâmetro o nome do formulário"COMPONENT_REFERENCE"
Exemplo:
DEFINE l_form_reference VARCHAR(10) # Recupera a referência do formulário metadado atual. Será retornado um # componente LFORMMETADATA ou LPARMETADATA dependendo do tipo do formulário. LET l_form_reference = _ADVPL_METADATA_getCurrentFormReference("log00083") # Define um novo valor para o campo "Empresa" que encontra-se no formulário. LET l_comp_reference = _ADVPL_get_property(l_form_reference,"VALUE","empresa","cod_empresa",p_cod_empresa CLIPPED) |
Uma boa prática é recuperar a referência do formulário no evento de After Load do formulário e armazená-lo em uma variável modular. Desta forma será preciso recuperar a referência do formulário apenas uma vez. |
|