Recupera o valor de uma propriedade de um componente Metadado/FreeForm.
_ADVPL_get_property( [ <form_reference> ],[ <property> ], [ <parameter1..N> ] ) |
Nome | Tipo | Obrigatório? | Descrição |
|---|---|---|---|
form_reference |
| Sim | Código de referência do formulário. Retornado pela função Função getFormReference. |
property |
| Sim | Nome da propriedade do componente.
|
parameter1..N |
| Não | De acordo com a propriedade informada, podem existir 1 ou mais parâmetros obrigatórios exigidos para recuperar a informação desejada.
|
#---------------------------------#
FUNCTION ADVPL_getProperty_test()
#---------------------------------#
DEFINE l_form_reference VARCHAR(10)
DEFINE l_modelo LIKE men_modelo_balanca.modelo_balanca
#Obtendo a referência do formulário
LET l_form_reference = _ADVPL_GetFormReference("log00099")
#Acionando o botão da barra de ferramentas que possui a operação "find" (Botão Pesquisar)
IF NOT _ADVPL_get_property(l_form_reference,"EXECUTE_OPERATION","find","men_modelo_balanca.modelo_balanca <> ' ' ") THEN
RETURN
END IF
#atualização de dados em tela para exibir dados do registro (OPCIONAL - apenas para melhor visualização em execução local)
CALL _ADVPL_LOG_refreshDisplay()
SLEEP 2
#recuperar o valor do campo "Modelo Balança" do registro encontrado na pesquisa
LET l_modelo = _ADVPL_get_property(l_form_reference,"VALUE","men_modelo_balanca","modelo_balanca")
CALL _ADVPL_get_property(l_form_reference,"EXECUTE_OPERATION","quit")
END FUNCTION |