VTSave - Resultado

VTSave

 

Descrição

Grava a tela corrente numa variável

Sintaxe

VTSave( <aTela> )

Parâmetros

ParNomeTipoDescriçãoDefaultObgRef
01aTelaArrayEspecifica uma variável onde será armazenada a tela correnteX

Retorno

RetornoTipoDescriçã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

VTSave – Resultado

Informação Adicional

0 respostas

Deixe uma resposta

Want to join the discussion?
Feel free to contribute!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *