Descrição
| Permite associar um bloco de código a uma variável de programa do Advpl, onde o bloco de código será chamado quando a variável for acessada. |
Sintaxe
| VarSetGet( <cVariavel>, <bBloco>, <lApenasUpdate>) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cVariavel | Caracter | Indica o nome da variável a ser associada com o bloco de código | X | ||
| 02 | bBloco | Bloco de Código | Indica o bloco de código que será executado quando a variável for acessada | X | ||
| 03 | lApenasUpdate | Boolean | Caso especificado .T., ondica se apenas operação de atribuição ( assign ) deve disparar o bloco de código. Caso informado o valor .F. ( default ), o bloco de código será chamado quando da leitura e/ou atribuição de conteúdo |
Retorno
| Retorno | Tipo | Descrição |
| lRet | Boolean |
Retorna .T. caso a variável especificada como primeiro parâmetro exista na lista de variáveis do programa em execução |
Exemplo
#INCLUDE "TOTVS.CH"
User Function VarSetGet()
Private cFil01 := Nil
Private cFil02 := Nil
VarSetGet( 'cFil01', { || MsgInfo('cFil01 UniversoADVPL - Executa','UniversoADVPL') }, .T. )
VarSetGet( 'cFil02', { || MsgInfo('cFil02 UniversoADVPL - Sem Executar','UniversoADVPL') }, .F. )
cFil01 := '01'
cFil02 := '02'
Return( Nil )
Resultado
Informações adicionais
|
|
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎