Cabeçalho

VTSave

Autor: Eurai Criado: 01/01/2016 Atualizado: 25/04/2025 ACD

Postagem

Descrição

VTSave - 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

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
vtsave_-_resultado_01