Descrição
Grava a tela corrente numa variável |
Sintaxe
VTSave( <aTela> ) |
Parâmetros
Par | Nome | Tipo | Descrição | Default | Obg | Ref |
---|---|---|---|---|---|---|
01 | aTela |
Array |
Especifica uma variável onde será armazenada a tela corrente |
X |
Retorno
Retorno | Tipo | Descrição |
Exemplo
#INCLUDE "TOTVS.CH" #INCLUDE "APVT100.CH" User Function VTSave() Local cCliente := Space(6) @ 0, 0 VTSAY "Selecione um Cliente" @ 1, 0 VTGET cCliente Picture "@!" VALID AllTrim( cCliente ) <> '' F3 'SA1' VTRead VTSave Screen To aTela VTCLEAR @ 0, 0 VTSAY "Selecionou: " + cCliente VTPAUSE VTRestore Screen From aTela @ 2, 0 VTSAY "Restauro a tela: " VTPAUSE Return( Nil )
Resultado
Informação Adicional
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎