Descrição
VarSetGet [AS] - 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! 😎
