Descrição
Ativa edição em tela usando objetos GET |
Sintaxe
VTRead() |
Parâmetros
Par | Nome | Tipo | Descrição | Default | Obg | Ref |
---|
Retorno
Retorno | Tipo | Descrição |
Exemplo
#INCLUDE "TOTVS.CH" #INCLUDE "APVT100.CH" User Function VTRead() Local cCliente := Space(6) @ 0, 0 VTSAY "Selecione um Cliente" @ 1, 0 VTGET cCliente Picture "@!" VALID AllTrim( cCliente ) <> '' F3 'SA1' VTRead VTCLEAR @ 0, 0 VTSAY "Selecionou: " + cCliente VTPAUSE Return( Nil )
Resultado
Informação Adicional
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎