Páginas filhas
  • Obtendo a referência de componentes do programa metadado ou freeform em execução

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  1. Recuperar a referência do janela em execução através da função METADATA_getCurrentFormReferencefunção getFormReference() passando por parâmetro o nome do formulário.
  2. Com a referência do formulário será possível obter a referência de qualquer campo da tela atual utilizando a propriedade COMPONENT_REFERENCE.

...

Bloco de código
languageapplescript
titleEXEMPLO
linenumberstrue
DEFINE l_form_reference VARCHAR(10)
DEFINE l_cod_empresa    CHAR(02)

# 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_getCurrentFormReferencegetFormReference("log00083")

# Recupera o valor atual do campo "cod_empresa" que encontra-se no formulário para a tabela "empresa".
LET l_cod_empresa = _ADVPL_get_property(l_form_reference,"VALUE","empresa","cod_empresa")

# Define um novo valor para o campo "cod_empresa" que encontra-se no formulário para a tabela "empresa".
CALL _ADVPL_set_property(l_form_reference,"VALUE","empresa","cod_empresa",p_cod_empresa)

...